| 0. 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. 30. 31. 32. 33. 34. 35. 36. 37. 38. 39. 40. 41. 42. 43. 44. 45. 46. 47. 48. 49. 50. 51. 52. 53. 54. | #!/usr/bin/perl
# socks_checker_list-002.pl - Perl direct SOCKS server's list checker
# (c) feb 2007 @ b1ma a.k.a bima_
# for educational purposes only
# GPL v.2
#########################################
use strict;
use IO::Socket::Socks;
my $pret;
my $elemen;
my @prox;
my $socks;
open(UF, "<ceksocks.txt") || die "\nI can't open the list\n";
my @prox=<UF>;
close(UF);
foreach $elemen(@prox){
chomp($elemen);
$pret=$elemen=~/(.+)Sad.+)/;
if ($pret) {
#print "trying ip $1 port $2 ::: \t";
$socks = new IO::Socket::Socks( ProxyAddr=> "$1",
ProxyPort=> "$2",
ConnectAddr=> "irc.centrin.net.id",
ConnectPort=> "6667" ) ;
if (!defined $socks) {
printlog("[*] $1:$2\tFailure\n");
#next;
} else {
print $socks 'testing\n';
$socks->close();
printlog("[+] Sukses\t\t$1:$2\n");
}
} #of if
sleep 1;
} #of foreach
sub printlog {
print @_[0];
open(LO,">>socks_log2.txt");
print LO @_[0];
close(LO);
return;
} |