Código:
system ("cls");
system ("color 18");
print "Script de Brute Force en Perl\n";
print "Inicialmente escrito en Java por CrashCool\n";
print "Luego traducido a C por Rojodos\n";
print "Y finalmente traducido a Perl por Hendrix\n";
print " \n";
print "El programa trata de encontrar 911ooo secuencialmente\n";
print "Se puede cambiar en el Codigo Fuente\n";
print " \n";
print "Pulsa intro para iniciar el proceso\n";
$res = <STDIN>;
@cadena = ("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
$longitud = @cadena;
@pass = ("9","1","1","o","o","o");
@bucle = ("","","","","","");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timeini = "$hour:$min:$sec";
print " \n";
print "Proceso iniciado a las $timeini\n";
print " \n";
print "Crackeando...\n";
for ($a=0;$a<=$longitud;$a++) {
@bucle[0]= @cadena[a];
for ($b=0;$b<=$longitud;$b++) {
@bucle[1]= @cadena[b];
for ($c=0;$c<=$longitud;$c++) {
@bucle[2]= @cadena[d];
for ($d=0;$d<=$longitud;$d++) {
@bucle[3]= @cadena[d];
for ($e=0;$e<=$longitud;$e++) {
@bucle[4]= @cadena[e];
for ($f=0;$f<=$longitud;$f++) {
@bucle[5]= @cadena[b];
$comp = comparar(\@bucle, \@pass);
if ($comp ==1) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timefini = "$hour:$min:$sec";
print "Pass encontrada!! Proceso iniciado a las $timeini y terminado a las $timefini\n";
last;
last;
last;
last;
last;
last;
sleep 2;
}
}
}
}
}
}
}
sub comparar {
my ($primero, $segundo) = @_;
local $^W = 0;
return 0 unless @$primero == @$segundo;
for (my $i = 0; $i < @$primero; $i++) {
return 0 if $primero->[$i] ne $segundo->[$i];
}
return 1;
}
system ("color 18");
print "Script de Brute Force en Perl\n";
print "Inicialmente escrito en Java por CrashCool\n";
print "Luego traducido a C por Rojodos\n";
print "Y finalmente traducido a Perl por Hendrix\n";
print " \n";
print "El programa trata de encontrar 911ooo secuencialmente\n";
print "Se puede cambiar en el Codigo Fuente\n";
print " \n";
print "Pulsa intro para iniciar el proceso\n";
$res = <STDIN>;
@cadena = ("1","2","3","4","5","6","7","8","9","0","a","b","c","d","e","f","g","h","i","j","k","l","m","n","o","p","q","r","s","t","u","v","w","x","y","z");
$longitud = @cadena;
@pass = ("9","1","1","o","o","o");
@bucle = ("","","","","","");
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timeini = "$hour:$min:$sec";
print " \n";
print "Proceso iniciado a las $timeini\n";
print " \n";
print "Crackeando...\n";
for ($a=0;$a<=$longitud;$a++) {
@bucle[0]= @cadena[a];
for ($b=0;$b<=$longitud;$b++) {
@bucle[1]= @cadena[b];
for ($c=0;$c<=$longitud;$c++) {
@bucle[2]= @cadena[d];
for ($d=0;$d<=$longitud;$d++) {
@bucle[3]= @cadena[d];
for ($e=0;$e<=$longitud;$e++) {
@bucle[4]= @cadena[e];
for ($f=0;$f<=$longitud;$f++) {
@bucle[5]= @cadena[b];
$comp = comparar(\@bucle, \@pass);
if ($comp ==1) {
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
$timefini = "$hour:$min:$sec";
print "Pass encontrada!! Proceso iniciado a las $timeini y terminado a las $timefini\n";
last;
last;
last;
last;
last;
last;
sleep 2;
}
}
}
}
}
}
}
sub comparar {
my ($primero, $segundo) = @_;
local $^W = 0;
return 0 unless @$primero == @$segundo;
for (my $i = 0; $i < @$primero; $i++) {
return 0 if $primero->[$i] ne $segundo->[$i];
}
return 1;
}
Lo e compilado y no da error....lo que pasa es que esto te viola la RAM..xD xD xD
Miradlo por encima y postear si enkontrais errores, ya que no e terminado de crackear la palabra....
Salu2