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] FindIcons 0.1

  • 0 Respuestas
  • 1020 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 25, 2012, 07:24:38 pm »
Un simple script para bajar los iconos que quieran , los iconos bajados se guardan en un carpeta con el nombre buscado.

Código: Perl
  1. #!usr/bin/perl
  2. #FindIcons 0.1
  3. #Coded By Doddy H
  4.  
  5. use LWP::UserAgent;
  6. use URI::Split No tienes permisos para ver links. Registrate o Entra con tu cuenta(uri_split);
  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. head();
  16.  
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[?] Search : ";
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $se = <stdin> );
  19.  
  20. $se =~ s/ /-/;
  21.  
  22. my $code = toma( "http://findicons.com/search/" . $se );
  23.  
  24. if ( $code =~ /<div class="box_info left">(.*)<\/div>/ ) {
  25.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] $1\n";
  26.  
  27.     unless ( -d $se ) {
  28.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( $se, "777" );
  29.     }
  30.  
  31.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $se;
  32.  
  33. }
  34. else {
  35.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[-] Not Found\n";
  36.     copyright();
  37. }
  38.  
  39. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[?] Pages : ";
  40.  
  41. No tienes permisos para ver links. Registrate o Entra con tu cuenta( my $pages = <stdin> );
  42.  
  43. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Downloading ...\n\n";
  44.  
  45. for my $pages ( 1 .. $pages ) {
  46.  
  47.     my $code = toma("http://findicons.com/search/$se/$pages");
  48.  
  49.     while ( $code =~
  50.         /<img src="http:\/\/png-(.*).findicons.com\/files\/(.*)" alt/mig )
  51.     {
  52.         my $link = "http://png-" . $1 . ".findicons.com/files/" . $2;
  53.  
  54.         now($link);
  55.  
  56.     }
  57.  
  58. }
  59.  
  60. No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Finished ...\n";
  61.  
  62. copyright();
  63.  
  64. sub head {
  65.  
  66.     my @logo = (
  67.         "#=============================================#", "\n",
  68.         "#              FindIcons 0.1                  #", "\n",
  69.         "#---------------------------------------------#", "\n",
  70.         "# Written By Doddy H                          #", "\n",
  71.         "# Email: lepuke[at]hotmail[com]               #", "\n",
  72.         "# Website: doddyhackman.webcindario.com       #", "\n",
  73.         "#---------------------------------------------#", "\n",
  74.         "# The End ?                                   #", "\n",
  75.         "#=============================================#", "\n"
  76.     );
  77.  
  78.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  79.  
  80.     marquesina(@logo);
  81.  
  82.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  83.  
  84. }
  85.  
  86. sub copyright {
  87.  
  88.     my @fin = ("-- == (C) Doddy Hackman 2012 == --");
  89.  
  90.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  91.     marquesina(@fin);
  92.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  93.  
  94.     <stdin>;
  95.  
  96.     No tienes permisos para ver links. Registrate o Entra con tu cuenta(1);
  97.  
  98. }
  99.  
  100. sub marquesina {
  101.  
  102.     #Effect based in the exploits by Jafer Al Zidjali
  103.  
  104.     my @logo = @_;
  105.  
  106.     my $car = "|";
  107.  
  108.     for my $uno (@logo) {
  109.         for my $dos ( No tienes permisos para ver links. Registrate o Entra con tu cuenta //, $uno ) {
  110.  
  111.             $|++;
  112.  
  113.             if ( $car eq "|" ) {
  114.                 mostrar( "\b" . $dos . $car, "/" );
  115.             }
  116.             elsif ( $car eq "/" ) {
  117.                 mostrar( "\b" . $dos . $car, "-" );
  118.             }
  119.             elsif ( $car eq "-" ) {
  120.                 mostrar( "\b" . $dos . $car, "\\" );
  121.             }
  122.             else {
  123.                 mostrar( "\b" . $dos . $car, "|" );
  124.             }
  125.             usleep(40_000);
  126.         }
  127.         No tienes permisos para ver links. Registrate o Entra con tu cuenta "\b ";
  128.     }
  129.  
  130.     sub mostrar {
  131.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $_[0];
  132.         $car = $_[1];
  133.     }
  134.  
  135. }
  136.  
  137. sub now {
  138.  
  139.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $_[0] );
  140.  
  141.     if ( $path =~ /(.*)\/(.*)$/ ) {
  142.         my $file = $2;
  143.         if ( download( $_[0], $file ) ) {
  144.         }
  145.     }
  146. }
  147.  
  148. sub download {
  149.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  150.         if ( -f $_[1] ) {
  151.             No tienes permisos para ver links. Registrate o Entra con tu cuenta true;
  152.         }
  153.     }
  154. }
  155.  
  156. sub toma {
  157.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  158. }
  159.  
  160. #The End ?
  161.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3230
Ú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
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1304
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1663
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1139
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear