use strict;
use IO::Socket;
my ($target,$remote,$results,$port,@ports);
unless (@ARGV> 0) { die "usage: $0 [ip]" }
$target = shift(@ARGV);
for ($port = 0; $port<65536; $port++)
{
$remote = IO::Socket::INET->new(
Proto    => "tcp",
PeerAddr => $target,
PeerPort => $port,
);
if ($remote) {print  "$port is open\n" };
}

#!/usr/bin/perl
use strict;
use Net::Telnet::Cisco;
use POSIX qw(strftime);
my $hora= strftime("%Y-%m-%d", localtime);
my $session = Net::Telnet::Cisco->new(Host => 1.1.1.1);
$session->login('user', 'password');
# Ejecuta el comando show version
my @output = $session->cmd('show version');
open (F,">> log-cisco.txt");
print F "---- $hora ----\n";
print F "@output";
print F "---- ----";
$session->close;
close (F);

#!/usr/bin/perl

my $error = 1;

my $aux = $ARGV[0];

$aux =~ s/\W//g;

my $encript = "$aux.tar";

if (-d $ARGV[0]) {
        system("tar -cvvf $encript $ARGV[0]") || ($error = 0);
       
        if($error =~ 0) {
                system("gpg -ac --no-options $encript");
               
                if($? != 0) {   
                        system("rm $encript");
                        exit 1;
                }
               
                system("rm -r $ARGV[0]");
                system("rm -r $encript");
               
        } else {
                print "Se ha abortado debido a un error.\n";
        }       
       
} else {
        print "No es una carpeta!!!\n";
}

#!/usr/bin/perl

my $fix = $ARGV[0];

$fix =~ s/\W.+/.tar/g;

if($ARGV[0] =~ /tar/ && $ARGV[0] =~ /asc/) {
        system("gpg --no-options $ARGV[0]");
       
        if($? != 0) {   
                exit 1;
        }
       
        system("tar -xvvf $fix");
        system("rm $fix");
        system("rm -r $ARGV[0]");
       
} else {
        print "No es una carpeta encriptada valida.\n";
}

#!/usr/bin/perl
use Digest::MD5;
@ARGV or die "Uso: $0 archivo\narchivo: /etc/passwd por ejemplo\n";
my $file = $ARGV;
my $file= shift;
open(FILE, $file) or die "no se encuentra el archivo '$file': $!";
binmode(FILE);
print Digest::MD5->new->addfile(*FILE)->hexdigest, " $file\n";

#!/usr/bin/perl -w

#
# GasFed Nov 2006

my $gpg='C:\Program Files\GNU\GnuPG\gpg.exe';

########### you probably don't need to edit below this line. ###########
use Cwd;
use Getopt::Std;

if ( $#ARGV <1 ) {
print "\nUso: perl $0 DirOrigen DirDestino\n\n";
print "   DirOrigen    Directorio donde se encuentran las archivos a ser encriptados\n";
print "   DirDestino   Directorio donde se guardaran los arrchivos encriptados\n";
exit();
}

my $src=$ARGV[0];
my $dst=$ARGV[1];

if ( -x $gpg ) {
print "\nEncriptando..\n";
print "Por favor espere, esto puede tardar unos minutos..\n";
$home=getcwd;
&encript($src, $dst);
chdir($home);
print "\nDone!\n\n";
}
sub encript ()
{
my $src = shift;
my $dst = shift;
(-d $src) or die "No puedo abrir el directorio $src\n";
(-d $dst) or mkdir($dst) or die "No puedo abrir el directorio $dst\n";
$base = getcwd;
chdir("$dst");
$dst=getcwd;
chdir("$base");
opendir( DIR, "$src" );
@contents = readdir(DIR);
closedir(DIR);
chdir("$src");
$src = getcwd;
$src =~ s/\//\\/g;
$dst =~ s/\//\\/g;
# No hidden files and ".." directories:
@contents = grep {!/^\./} @contents;
# Get directories:
my @dirs = grep {-d} @contents;
# Get files:
my @files = grep {-f} @contents;
# Get images:
if (@dirs==0 and @files==0)
{
rmdir($dst);
} else {
foreach my $f (sort(@files)) {
$ejecutar=("\"$gpg\" --yes --output \"$dst\\$f.gpg\" --recipient seguridad --encrypt \"$src\\$f\"");
$status=system($ejecutar);
if ($status != 0) { print "$ejecutar\n"; }
}
foreach my $d (sort(@dirs)) {
&encript("$src\\$d", "$dst\\$d");
}
}
}

#!/usr/bin/perl

use MIME::Lite;
# Envío de correo

$msg = MIME::Lite->new(
From =>'micuenta@dominio.com.ar',
To =>'lacuentadel@destinario.com.ar',
Subject =>'Test',
Type =>'multipart/mixed'
);

$msg->attach(
Type =>'TEXT',
Data =>"Cuerpo del mensaje"
);

$msg->attach(
Type =>'text/html',
Path =>'prueba.txt',
Filename =>'nuevo_nombre_de_prueba.txt',
Disposition => 'attachment'
);

$msg->send('smtp', 'servidor');

#!/usr/bin/perl

use Net::Ping;
$servidor = "127.0.0.1";
$p = Net::Ping->new();
print "$El servidor responde.\n" if $p->ping($servidor);
$p->close();