Perl proxy checker using samair.ru

["Iko Riyadi" <tampan@xxxxxxxxx>]

 hi

here it is, perl proxy checker using samair.ru ,

you can supply proxy list in there, max 15 lines manually,

see hints in the code :


  code:
----------------------------------------------------------------------------
--

  #!/usr/bin/perl
  #
  # proxck-001.pl - perl proxy list checker
  # using samair.ru proxy list checker
  # (c) nov 2006 @ b1ma a.k.a bima_
  # for educational purposes only
  # GPL v.2
  #########################################

  use Socket;
  use strict;

  my $pamerlah=<<END
  #########################################
  # proxck-001.pl - perl proxy list checker
  # using samair.ru proxy list checker
  # (c) nov 2006 @ b1ma a.k.a bima_
  # for educational purposes only
  # GPL v.2
  #########################################
  END
  ;

  #Support Proxy Server, change host and port as u wish
  my $port=80;
  #my $host     = '127.0.0.1';

  my $host = "www.samair.ru";
  my $target = inet_aton($host);

  my @waktu = localtime(time);
  my $log = 'proxy_'.$waktu[2].'-'.$waktu[1].'-'.$waktu[0].'.txt';

  print "$pamerlah\n";
  printlog ("\nProcessing: $host\n");

  my $post     =
  ### drop your list here
  ### max 15 lines or u'll get nothing
  ### format IP:PORT
  'send=
  167.206.216.206:6588
  210.91.51.41:8080
  200.71.62.100:6588
  200.204.176.138:6588
  222.165.189.95:80
  203.94.89.112:80
  201.53.121.30:6588
  201.31.11.69:6588
  203.94.89.144:80
  201.21.222.112:6588
  211.215.17.73:4480
  203.94.89.44:80
  222.165.189.64:80
  222.165.189.14:80
  222.165.189.77:80
  '.
  '&transparent="ON"'.
  '&showproxy="ON"'.
  '&resolve="ON"'.
  '&speed="ON"'.
  '&go="check"';

  my $loggedin = 0;
  my $sock  = "POST /proxy-checker/index.php HTTP/1.1\r\n";
  $sock .= "Host: $host\r\n";
  $sock .= "Connection: close\r\n";
  $sock .= "Content-Type: application/x-www-form-urlencoded\n";
  $sock .= "Referer: $host\n";
  $sock .= "Content-length: ".length($post)."\r\n\r\n";
  $sock .= "$post";
  $sock .= "\r\n\r\n";

  my @hasil=sendraw($sock);

  foreach(@hasil)

   #print($_);
   if(/(\d{1,3}(\.\d{1,3}){3}\:(\d+)) - (.+?)\<br\>/)
      { printlog("[~] $1|$4\n"); }
  }

  sub printlog

   print @_[0];
   open(lo,">>$log");
   print lo @_[0];
   close(lo);
   return;
  }

  # ------------- Sendraw - thanx RFP rfp@xxxxxxxxxxxx
  sub sendraw {   # this saves the whole transaction anyway
          my ($pstr)=@_;

          socket(S,PF_INET,SOCK_STREAM,getprotobyname('tcp')||0) ||
                  die("Socket problems\n");

          if(connect(S,pack
A4x8",2,$port,$target)){ 
                  my @in; 
                  select(S);      $|=1;   print $pstr; 
                  while(<S>){ push @in, $_;} 
                  select(STDOUT); close(S); return @in; 
          } 
  } 

------------------------------------------------------------------------------





practically : 

E:\data>proxck-001.pl 
######################################### 
# proxck-001.pl - perl proxy list checker 
# using samair.ru proxy list checker 
# (c) nov 2006 @ b1ma a.k.a bima_ 
# for educational purposes only 
# GPL v.2 
######################################### 


Processing: www.samair.ru 
[~] 167.206.216.206:6588|bad proxy or timeout 
[~] 210.91.51.41:8080|bad proxy or timeout 
[~] 200.71.62.100:6588|Static-IP-cr2007162100.cable.net.co - <font color="#008000">elite</font> - speed: good 
[~] 200.204.176.138:6588|bad proxy or timeout 
[~] 222.165.189.95:80|bad proxy or timeout 
[~] 203.94.89.112:80|bad proxy or timeout 
[~] 201.53.121.30:6588|bad proxy or timeout 
[~] 201.31.11.69:6588|bad proxy or timeout 
[~] 203.94.89.144:80|bad proxy or timeout 
[~] 201.21.222.112:6588|bad proxy or timeout 
[~] 211.215.17.73:4480|bad proxy or timeout 
[~] 203.94.89.44:80|bad proxy or timeout 
[~] 222.165.189.64:80|bad proxy or timeout 
[~] 222.165.189.14:80|bad proxy or timeout 
[~] 222.16
5.189.77:80|bad proxy or timeout

E:\data>


sorry for bad parsing, any comments ???


./b1ma
iko94.blogspot.com