[Perl] Socks5/Proxy list Checker

Mai 10, 2009
  1. #!/usr/bin/perl
  2. #Socks/Proxy Checker!
  3. use IO::Socket;
  4. print qq „
  5. ~~~~~~~~~~~~~~~~~~~~~~~
  6. Socks5 Checker\n
  7. by Blacky\n
  8. Usage $0 liste timeout goodput badput timeout\n
  9. Usage $0 list.txt proxylist.txt dontwork.txt 3\n
  10. ~~~~~~~~~~~~~~~~~~~~~~~
  11. „;
  12. my $liste = $ARGV[0];
  13. my $working = $ARGV[1];
  14. my $notwork = $ARGV[2];
  15. my $timeout = $ARGV[3];
  16. chomp($working);
  17. chomp($notwork);
  18. chomp($timeout);
  19. open (proxylist, „>>$working“) or print „Protokoll Datei nicht gefunden\n“;
  20. open(notw, „>>$notwork“) or print „Keine Datei angegeben!\n“;
  21. open(liste, „<$liste“) or print „Keine Proxy Liste!\n“;
  22. while(<liste>) {
  23. print „Prüfe…\n“;
  24. $proxys = $_;
  25. chomp($proxys);
  26. @list = split(/:/, $proxys); # Trenne IP:PORT
  27. $try = IO::Socket::INET->new (
  28. PeerAddr => $list[0],
  29. PeerPort => $list[1],
  30. Timeout => $timeout, #sek?
  31. );
  32. if ($try) {
  33. print „Verbindung zu $list[0] auf $list[1] erfolgreich\n“;
  34. print proxylist „$list[0]\:$list[1]\n“;
  35. }
  36. else
  37. {
  38. print „Verbindung zu $list[0] auf $list[1] fehlgeschlagen!\n“;
  39. print notw „$list[0]\:$list[1]\n“;
  40. }
  41. }
Usage sollte alles erklären 😉
Viel Spaß Damit!
Werbeanzeigen

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden /  Ändern )

Google Foto

Du kommentierst mit Deinem Google-Konto. Abmelden /  Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden /  Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden /  Ändern )

Verbinde mit %s

%d Bloggern gefällt das: