elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  FuerzaBruta (traducido de C) en Perl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: FuerzaBruta (traducido de C) en Perl  (Leído 1,925 veces)
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
FuerzaBruta (traducido de C) en Perl
« en: 8 Septiembre 2006, 18:28 pm »

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



En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
RegShot v2.0.1 x64 (Traducido al castellano por mi)
Software
Eleкtro 0 1,619 Último mensaje 10 Diciembre 2011, 19:54 pm
por Eleкtro
El FBI acusó de espionaje a un profesor universitario chino basándose en un documento traducido con Google
Foro Libre
El_Andaluz 0 2,702 Último mensaje 20 Junio 2021, 17:04 pm
por El_Andaluz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines