Форум программистов [Powered by Invision Power Board]

Код

#!perl
use warnings;
use strict;
use Socket;
use IO::Handle;
####################################################
my $DEBUG = 0;
my ($uin, $pass) = ($ARGV[0], $ARGV[1]);
####################################################
sub icq_check
{
  my ($uin, $password) = @_;
  my ($server,$port) = ("login.icq.com", 5190);
  my ($socket,$i,$answer_data,$auth_request,$flap,$data  );
  my $seq_num = rand(0xFFFF);
  $data= "\x00\x00\x00\x01\x00\x01".pack('n',length $uin).$uin."\x00\x02".pack('n',length $password).substr($password^"\xF3\x26\x81\xC4\x39\x86\xDB\x92\x71\xA3\xB9\xE6\x  53\x7A\x95\x7C",0,length $password);
  $flap = "\x2a\x01".pack('n',$seq_num++).pack('n',length $data);
  $auth_request =$flap.$data;
  socket(SOCK, AF_INET, SOCK_STREAM, getprotobyname('tcp')) or die "Cannot open socket: $!\n"; 
  connect(SOCK, sockaddr_in($port, inet_aton($server))) or die "Cannot connect: $!\n";
  SOCK->autoflush(1);
  sysread(SOCK,$answer_data,16) or die "Cannot read from socket: $!\n";
  print SOCK $auth_request;
  sysread(SOCK,$answer_data,96) or die "Cannot read from socket: $!\n";;
  if ($answer_data =~ /mismatch_passwd.html/io) {
      print "DEBUG $answer_data\n" if $DEBUG == 1;
        print "NO :  $uin;$pass \n";
    } elsif($answer_data =~/(d*.d*.d*.d*):(d*)/o) {
        print "DEBUG $answer_data\n" if $DEBUG == 1;
        print "YES :  $uin;$pass \n";
    } else {
        print "DEBUG $answer_data\n" if $DEBUG == 1;
        print "ERROR  $uin;$pass  - So many enters. Try later\n";
    }
  close SOCK;
  undef $data;
  undef $flap;

  my $BOS_server_address = "login.icq.com";
  my $BOS_server_port = 5190;
  my $FlAP_header;
  $data="\x00\x00\x00\x01\x00\x06".pack('n',256).get_cookies($answer_data);
  ###########################
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a\x01".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;

  socket(SOCK, AF_INET, SOCK_STREAM, getprotobyname('tcp')) or die "Cannot open socket: $!\n";
  connect(SOCK, sockaddr_in($BOS_server_port, inet_aton($BOS_server_address))) or return 0;
  SOCK->autoflush(1);
  sysread(SOCK,$answer_data,1024);
  print SOCK $auth_request;
  sysread(SOCK,$answer_data,1024);
  
  undef $data;
  undef $FlAP_header;
  
  $data="\x00\x01\x00\x17".("\x00" x 7)."\x01\x00\x03\x00\x02\x00\x01\x00\x03\x00\x01\x00\x  15\x00\x01\x00\x04\x00\x01\x00\x06\x00\x01\x00\x09  \x00\x01\x00\x0a\x00\x01";
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a\x02".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;
  print SOCK $auth_request;
  sysread(SOCK,$answer_data,1024);
  
  undef $data;
  undef $FlAP_header;

  $data="\x00\x01\x00\x06".("\x00" x 6);
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a\x02".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;
  print SOCK $auth_request;
  sysread(SOCK,$answer_data,2048);

  undef $data;
  undef $FlAP_header;
  
  $data="\x00\x01\x00\x08".("\x00" x 7)."\x01\x00\x02\x00\x03\x00\x04\x00\x05";
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a"."\x02".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;
  print SOCK $auth_request;

  undef $data;
  undef $FlAP_header;

  $data="\x00\x01\x00\x1e".("\x00" x 7)."\x06\x00\x04\x01\00\x00\x00";
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a\x02".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;
  print SOCK $auth_request;
  sysread(SOCK,$answer_data,2048);
  
  undef $data;
  undef $FlAP_header;

  $data="\x00\x01\x00\x02".("\x00" x 7)."\x01\x00\x03\x01\x10\x02\x8a\x00\x02\x00\x01\x01\x  01\x02\x8a\x00\x03\x00\x01\x01\x10\x02\x8a\x00\x15  \x00\x01\x01\x10\x02\x8a\x00\x04\x00\x01\x01\x10\x  02\x8a\x00\x06\x00\x01\x01\x10\x02\x8a\x00\x09\x00  \x01\x01\x10\x02\x8a\x00\x0a\x00\x01\x01\x10\x02\x  8a";
  $seq_num = 0 if $seq_num > 65535;
  $FlAP_header="\x2a\x02".pack('n',$seq_num++).pack('n',length($data));
  $auth_request=$FlAP_header.$data;
  print SOCK $auth_request;
  print "\n UIN: $uin ON-LINE.\n";
  sleep(5000);
  }
sub get_cookies() {
    my ($data)=@_;
    my $cookies;
    my $i=0;
    my $c=0;
    foreach(split(//,$data)) {
        $i=1 if($c eq "\x00" && $_ eq "\x06");
        $cookies.=$_ if $i eq 1;
        $c=$_;
    }}
####################################################405114051
icq_check($uin, $pass);