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] PasteBin Downloader 0.1

  • 0 Respuestas
  • 1587 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 20, 2013, 06:58:10 pm »
Un simple script en Perl para bajar codigos de pastebin.
Pueden bajar solo uno o hacer que el programa busque links de pastebin en una pagina y bajarlos a todos.

El codigo :

Código: Perl
  1. #!usr/bin/perl
  2. #PasteBin Downloader 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 HTML::LinkExtor;
  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(10);
  14.  
  15. my $se = "downloads_pastebin";
  16.  
  17. unless ( -d $se ) {
  18.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( $se, "777" );
  19. }
  20.  
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta $se;
  22.  
  23. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n-- == PasteBin Downloader 0.1 == --\n";
  24.  
  25. unless ( $ARGV[0] and $ARGV[1] ) {
  26.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Sintax : $0 < -single / -page > <url>\n";
  27. }
  28. else {
  29.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Searching ...\n";
  30.     if ( $ARGV[0] eq "-single" ) {
  31.         download_this( $ARGV[1] );
  32.     }
  33.     if ( $ARGV[0] eq "-page" ) {
  34.         download_all( $ARGV[1] );
  35.     }
  36. }
  37.  
  38. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n(C) Doddy Hackman 2013\n";
  39.  
  40. sub download_all {
  41.  
  42.     my $page = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  43.  
  44.     my $code = toma($page);
  45.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $code;
  46.  
  47.     my @links_all = repes( get_links($code) );
  48.  
  49.     for my $page_down (@links_all) {
  50.         download_this($page_down);
  51.     }
  52.  
  53. }
  54.  
  55. sub download_this {
  56.  
  57.     my $page   = No tienes permisos para ver links. Registrate o Entra con tu cuenta;
  58.     my $titulo = "";
  59.     my $num    = "";
  60.  
  61.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+] Checking : $page\n";
  62.  
  63.     my $code = toma($page);
  64.  
  65.     if ( $page =~ /http:\/\/(.*)\/(.*)/ ) {
  66.         $num = $2;
  67.  
  68.         if ( $code =~ /<div class="paste_box_line1" title="(.*)">/ ) {
  69.             $titulo = $1;
  70.  
  71.             No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] Downloading : http://pastebin.com/download.php?i=$num\n";
  72.  
  73.             if (
  74.                 download(
  75.                     "http://pastebin.com/download.php?i=$num",
  76.                     $titulo . ".txt"
  77.                 )
  78.               )
  79.             {
  80.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+] File Downloaded !\n";
  81.             }
  82.             else {
  83.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "[-] Error\n";
  84.             }
  85.  
  86.         }
  87.     }
  88.  
  89. }
  90.  
  91. sub download {
  92.  
  93.     if ( $nave->mirror( $_[0], $_[1] ) ) {
  94.         if ( -f $_[1] ) {
  95.             No tienes permisos para ver links. Registrate o Entra con tu cuenta true;
  96.         }
  97.     }
  98. }
  99.  
  100. sub repes {
  101.     my @limpio;
  102.     foreach $test (@_) {
  103.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  104.     }
  105.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  106. }
  107.  
  108. sub toma {
  109.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  110. }
  111.  
  112. sub get_links {
  113.  
  114.     $test = HTML::LinkExtor->new( \&agarrar )->parse( $_[0] );
  115.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @links;
  116.  
  117.     sub agarrar {
  118.         my ( $a, %b ) = @_;
  119.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @links, No tienes permisos para ver links. Registrate o Entra con tu cuenta %b );
  120.     }
  121. }
  122.  
  123. #The End ?
  124.  

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3150
Ú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: 1468
Ú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: 1600
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1133
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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