• Publicidad

Counter Strike 1.6 Servers List

¿Estás desarrollando un proyecto, o piensas hacerlo? Pon aquí tu propuesta, lo más seguro es que alguien esté interesado en ayudarte.

Counter Strike 1.6 Servers List

Notapor BigBear » 2012-11-12 17:33 @773

Lo mismo que el otro buscador pero esta vez para CS 1.6

El código

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
  1. [code]
  2. #!usr/bin/perl
  3. #Counter Strike 1.6 Servers List
  4. #Version 0.1
  5. #Coded By Doddy H
  6.  
  7. use LWP::UserAgent;
  8. use Cwd;
  9. use Time::HiRes "usleep";
  10.  
  11. my $nave = LWP::UserAgent->new;
  12. $nave->agent(
  13. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  14. );
  15. $nave->timeout(5);
  16.  
  17. my @founds;
  18. my @founds_final;
  19.  
  20. head();
  21.  
  22. print "[+] Pages (1-899) : ";
  23. chomp( my $pag = <stdin> );
  24.  
  25. print "\n\n[+] Searching Servers ....\n";
  26.  
  27. for my $count ( 1 .. $pag ) {
  28.  
  29.     my $code =
  30.       toma( "http://www.gametracker.com/search/cs/?searchipp=50&searchpge="
  31.           . $count );
  32.  
  33.     my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;
  34.  
  35.     for (@found) {
  36.         push( @founds_final, $_ );
  37.     }
  38.  
  39. }
  40.  
  41. my @founds_final = repes(@founds_final);
  42.  
  43. print "\n[+] Servers Found : " . int(@founds_final);
  44.  
  45. my $ruta_logs = getcwd() . "/" . "cs_servers.txt";
  46.  
  47. if ( -f $ruta_logs ) {
  48.     unlink($ruta_logs);
  49. }
  50.  
  51. open( LOGS, ">>cs_servers.txt" );
  52.  
  53. for (@founds_final) {
  54.     print LOGS $_ . "\n";
  55. }
  56.  
  57. close LOGS;
  58.  
  59. print "\n\n[+] All results are stored in : $ruta_logs\n";
  60.  
  61. if ( -f $ruta_logs ) {
  62.     system($ruta_logs);
  63. }
  64.  
  65. copyright();
  66.  
  67. sub head {
  68.  
  69.     my @logo = (
  70.         "#=============================================#", "\n",
  71.         "#       Counter Strike 1.6 Servers List       #", "\n",
  72.         "#---------------------------------------------#", "\n",
  73.         "# Written By Doddy H                          #", "\n",
  74.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  75.         "# Website: doddyhackman.webcindario.com       #", "\n",
  76.         "#---------------------------------------------#", "\n",
  77.         "# The End ?                                   #", "\n",
  78.         "#=============================================#", "\n"
  79.     );
  80.  
  81.     print "\n";
  82.  
  83.     marquesina(@logo);
  84.  
  85.     print "\n\n";
  86.  
  87. }
  88.  
  89. sub copyright {
  90.  
  91.     my @fin = ("-- == (C) Doddy Hackman 2012 == --");
  92.  
  93.     print "\n\n";
  94.     marquesina(@fin);
  95.     print "\n\n";
  96.  
  97.     <stdin>;
  98.  
  99.     exit(1);
  100.  
  101. }
  102.  
  103. sub marquesina {
  104.  
  105.     #Effect based in the exploits by Jafer Al Zidjali
  106.  
  107.     my @logo = @_;
  108.  
  109.     my $car = "|";
  110.  
  111.     for my $uno (@logo) {
  112.         for my $dos ( split //, $uno ) {
  113.  
  114.             $|++;
  115.  
  116.             if ( $car eq "|" ) {
  117.                 mostrar( "\b" . $dos . $car, "/" );
  118.             }
  119.             elsif ( $car eq "/" ) {
  120.                 mostrar( "\b" . $dos . $car, "-" );
  121.             }
  122.             elsif ( $car eq "-" ) {
  123.                 mostrar( "\b" . $dos . $car, "\\" );
  124.             }
  125.             else {
  126.                 mostrar( "\b" . $dos . $car, "|" );
  127.             }
  128.             usleep(40_000);
  129.         }
  130.         print "\b ";
  131.     }
  132.  
  133.     sub mostrar {
  134.         print $_[0];
  135.         $car = $_[1];
  136.     }
  137.  
  138. }
  139.  
  140. sub repes {
  141.     my @limpio;
  142.     foreach $test (@_) {
  143.         push @limpio, $test unless $repe{$test}++;
  144.     }
  145.     return @limpio;
  146. }
  147.  
  148. sub toma {
  149.     return $nave->get( $_[0] )->content;
  150. }
  151.  
  152. #The End ?
  153.  
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
BigBear
Perlero frecuente
Perlero frecuente
 
Mensajes: 981
Registrado: 2009-03-01 18:39 @818

Publicidad

Volver a Proyectos

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 0 invitados