Fuerza Bruta (Traducido de C++) en Perl

[Hendrix]

Estaba aburrido, y, ahora que se Perl, me e puesto a buscar codigos en C y e enkontrado uno de Rojodos, de fuerza bruta, y e decidido pasarlo a Perl. Aki esta el resultado:

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;
}

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

[jasus]

Usa print en todas las variables sospechosas, suele ser bastante otil.

Esto hace lo mismo:

Código:

#!/usr/bin/perl -w

my $password='0000ze';
my  @chars;
my ($a,$b,$c,$d,$e,$f,$string);
# ASCII:
# chr(48) = 0 ; chr(57) = 9
# chr(65) = A ; chr(90) = Z
# chr(97) = a ; chr(122) = z
for(48..57,65..90,97..122){ push( @chars,chr($_)) }

for($a=0; $a<=$#chars ; $a++){
for($b=0; $b<=$#chars ; $b++){
for($c=0; $c<=$#chars ; $c++){
for($d=0; $d<=$#chars ; $d++){
for($e=0; $e<=$#chars ; $e++){
for($f=0; $f<=$#chars ; $f++){

$string=$chars[$a].$chars[$b].$chars[$c].$chars[$d].$chars[$e].$chars[$f];

if($password eq $string){ print "\nEncontrado\t$password == $string\n\n"; exit }
else { print "Probando\t$password != $string\n" }

}}}}}}

[Hendrix]

mmmm has simplifikado mucho el kode.....

Gracias...