Dicen que perl es muy facil de aprender XD yo no tengo ganas y por eso no lo hago
pero, para hacer un ataque de fuerza bruta ...
ya no entendi si requieres por diccionario o sin éste?
de ser con diccionario
abres el diccionario
cilco [mientras no termine el diccionario]
enviar datos 'usuario' y $linea_actual_del_diccionario; // o sea que tendras que abrir el archivo e ir tomando linea por linea, siendo cada una una posible contraseña
fin de ciclo
De otro modo, seria con un "alfabeto"? [o sea, juego/conjunto de letras y signos
$alfabeto = array(1,2,3,4,5,6,7,8,9,0);
$longitud = 3;
ciclo(mientras longitud sea menor a 3)?
enviar_datos 'usuario' [$alfabeto[$x]]
envias primero
1, 2, y asi
luego envias
11,12,13,14,15, [...]
y asi hasta que te de longitud 3 [aqui habra un problemilla por que la cadena 111 cumple con el condicional, entonces hasta ahí terminaria y deja de enviar 112, 113, etc... habra que buscar otra condicion]
pero basicamente se trata de enviar asi en ese "orden"
de otro modo tambien puedes enviar contraseñas al azar, pero ese "metodo" lo veo mas de "suerte"
ojala me haya explicado =\