Título: [Perl] Counter Strike 1.6 Servers List
Publicado por: BigBear en 12 Noviembre 2012, 23:30 pm
Lo mismo que el otro buscador pero esta vez para CS 1.6 El codigo #!usr/bin/perl #Counter Strike 1.6 Servers List #Version 0.1 #Coded By Doddy H use LWP::UserAgent; use Cwd; use Time::HiRes "usleep"; my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); my @founds; my @founds_final; head(); print "[+] Pages (1-899) : "; chomp( my $pag = <stdin> ); print "\n\n[+] Searching Servers ....\n"; for my $count ( 1 .. $pag ) { my $code = toma( "http://www.gametracker.com/search/cs/?searchipp=50&searchpge=" . $count ); my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g; for (@found) { push( @founds_final, $_ ); } } my @founds_final = repes(@founds_final); print "\n[+] Servers Found : " . int(@founds_final); my $ruta_logs = getcwd() . "/" . "cs_servers.txt"; if ( -f $ruta_logs ) { } open( LOGS , ">>cs_servers.txt" ); for (@founds_final) { } print "\n\n[+] All results are stored in : $ruta_logs\n"; if ( -f $ruta_logs ) { } copyright(); sub head { my @logo = ( "#=============================================#", "\n", "# Counter Strike 1.6 Servers List #", "\n", "#---------------------------------------------#", "\n", "# Written By Doddy H #", "\n", "# Email: lepuke[at]hotmail[com] #", "\n", "# Website: doddyhackman.webcindario.com #", "\n", "#---------------------------------------------#", "\n", "# The End ? #", "\n", "#=============================================#", "\n" ); marquesina(@logo); } sub copyright { my @fin = ("-- == (C) Doddy Hackman 2012 == --"); marquesina(@fin); <stdin>; } sub marquesina { #Effect based in the exploits by Jafer Al Zidjali my @logo = @_; my $car = "|"; for my $uno (@logo) { for my $dos ( split //, $uno ) { $|++; if ( $car eq "|" ) { mostrar( "\b" . $dos . $car, "/" ); } elsif ( $car eq "/" ) { mostrar( "\b" . $dos . $car, "-" ); } elsif ( $car eq "-" ) { mostrar( "\b" . $dos . $car, "\\" ); } else { mostrar( "\b" . $dos . $car, "|" ); } usleep(40_000); } } sub mostrar { $car = $_[1]; } } sub repes { my @limpio; foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub toma { return $nave->get( $_[0] )->content; } #The End ?
Título: Re: [Perl] Counter Strike 1.6 Servers List
Publicado por: Eleкtro en 13 Noviembre 2012, 02:04 am
Hola Doddy, Muy interesante, este me lo guardo! Una pequeña modificación para los que solamente queremos la lista de páginas de los servers españoles, de CS1.6: my $code = toma( "http://www.gametracker.com/search/?search_by=name_ip&query=&game=cs&loc=ES&sort=&order=" . $count );
Un saludo!
Título: Re: [Perl] Counter Strike 1.6 Servers List
Publicado por: BigBear en 13 Noviembre 2012, 16:17 pm
ja , yo nunca busco nacionales porque me da lo mismo , de hecho juego al half life con rusos en el mapa crossfire xDDD.
|