comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[Perl] Half Life Servers List 0.1

  • 0 Respuestas
  • 1139 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Noviembre 12, 2012, 07:31:50 pm »
Este script se encarga de buscar servers del juego Half Life para entrar y jugar , los resultados se guardan en un archivo de texto.

El codigo

Código: Perl
  1. #!usr/bin/perl
  2. #Half Life Servers List 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use Cwd;
  7. use Time::HiRes "usleep";
  8.  
  9. my $nave = LWP::UserAgent->new;
  10. $nave->agent(
  11. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  12. );
  13. $nave->timeout(5);
  14.  
  15. my @founds;
  16. my @founds_final;
  17.  
  18. head();
  19.  
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Searching Servers ....\n";
  21.  
  22. for my $count ( 1 .. 2 ) {
  23.  
  24.     my $code =
  25.       toma( "http://www.game-monitor.com/search.php?game=valve&pg="
  26.           . $count
  27.           . "&num=100" );
  28.  
  29.     my @found = $code =~ m/(\d{1,3}[.]\d{1,3}[.]\d{1,3}[.]\d{1,3}:\d+)/g;
  30.  
  31.     for (@found) {
  32.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @founds_final, $_ );
  33.     }
  34.  
  35. }
  36.  
  37. my @founds_final = repes(@founds_final);
  38.  
  39. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Servers Found : " . No tienes permisos para ver links. Registrate o Entra con tu cuenta(@founds_final);
  40.  
  41. my $ruta_logs = getcwd() . "/" . "hl_servers.txt";
  42.  
  43. if ( -f $ruta_logs ) {
  44.     No tienes permisos para ver links. Registrate o Entra con tu cuenta($ruta_logs);
  45. }
  46.  
  47. No tienes permisos para ver links. Registrate o Entra con tu cuenta( LOGS, ">>hl_servers.txt" );
  48.  
  49. for (@founds_final) {
  50.     No tienes permisos para ver links. Registrate o Entra con tu cuenta LOGS $_ . "\n";
  51. }
  52.  
  53. No tienes permisos para ver links. Registrate o Entra con tu cuenta LOGS;
  54.  
  55. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n[+] All results are stored in : $ruta_logs\n";
  56.  
  57. if ( -f $ruta_logs ) {
  58.     No tienes permisos para ver links. Registrate o Entra con tu cuenta($ruta_logs);
  59. }
  60.  
  61. copyright();
  62.  
  63. sub head {
  64.  
  65.     my @logo = (
  66.         "#=============================================#", "\n",
  67.         "#         Half Life Servers List 0.1          #", "\n",
  68.         "#---------------------------------------------#", "\n",
  69.         "# Written By Doddy H                          #", "\n",
  70.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  71.         "# Website: doddyhackman.webcindario.com       #", "\n",
  72.         "#---------------------------------------------#", "\n",
  73.         "# The End ?                                   #", "\n",
  74.         "#=============================================#", "\n"
  75.     );
  76.  
  77.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  78.  
  79.     marquesina(@logo);
  80.  
  81.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  82.  
  83. }
  84.  
  85. sub copyright {
  86.  
  87.     my @fin = ("-- == (C) Doddy Hackman 2012 == --");
  88.  
  89.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  90.     marquesina(@fin);
  91.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  92.  
  93.     <stdin>;
  94.  
  95.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  96.  
  97. }
  98.  
  99. sub marquesina {
  100.  
  101.     #Effect based in the exploits by Jafer Al Zidjali
  102.  
  103.     my @logo = @_;
  104.  
  105.     my $car = "|";
  106.  
  107.     for my $uno (@logo) {
  108.         for my $dos ( No tienes permisos para ver links. Registrate o Entra con tu cuenta //, $uno ) {
  109.  
  110.             $|++;
  111.  
  112.             if ( $car eq "|" ) {
  113.                 mostrar( "\b" . $dos . $car, "/" );
  114.             }
  115.             elsif ( $car eq "/" ) {
  116.                 mostrar( "\b" . $dos . $car, "-" );
  117.             }
  118.             elsif ( $car eq "-" ) {
  119.                 mostrar( "\b" . $dos . $car, "\\" );
  120.             }
  121.             else {
  122.                 mostrar( "\b" . $dos . $car, "|" );
  123.             }
  124.             usleep(40_000);
  125.         }
  126.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\b ";
  127.     }
  128.  
  129.     sub mostrar {
  130.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $_[0];
  131.         $car = $_[1];
  132.     }
  133.  
  134. }
  135.  
  136. sub repes {
  137.     my @limpio;
  138.     foreach $test (@_) {
  139.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  140.     }
  141.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  142. }
  143.  
  144. sub toma {
  145.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  146. }
  147.  
  148. #The End ?
  149.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3229
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1511
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1661
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1398
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1309
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear