send
Grupo de Telegram
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 Tk] Lix.In Decoder 0.2

  • 0 Respuestas
  • 1053 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Marzo 28, 2012, 05:58:35 pm »
Hola a todos.

Aca les traigo la version Tk de un script que habia hecho para decodificar las url lix.in

Lo bueno del programa es que guarda todo los logs en la carpeta donde ejecutaron el programa

Una imagen del programa seria


Código: Perl
  1. #!usr/bin/perl
  2. #Lix.In Decoder 0.2
  3. #Version Tk
  4. #Coded By Doddy H
  5.  
  6. use LWP::UserAgent;
  7. use URI::Split You are not allowed to view links. Register or Login(uri_split);
  8. use Tk;
  9. use Tk::Dialog;
  10.  
  11. #if ( $^O eq 'MSWin32' ) {
  12. #    use Win32::Console;
  13. #    Win32::Console::Free();
  14. #}
  15.  
  16. my $nave = LWP::UserAgent->new;
  17. $nave->agent(
  18. "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12"
  19. );
  20. $nave->timeout(5);
  21.  
  22. my $color_fondo = "black";
  23. my $color_text  = "green";
  24.  
  25. my $ben =
  26.   MainWindow->new( -background => $color_fondo, -foreground => $color_text );
  27.  
  28. $ben->title("Lix.In Decoder 0.2 (C) Doddy Hackman 2012");
  29. $ben->geometry("492x385+20+20");
  30. $ben->resizable( 0, 0 );
  31.  
  32. $ben->Label(
  33.     -background => $color_fondo,
  34.     -foreground => $color_text,
  35.     -text       => "Page : ",
  36.     -font       => "Impact1"
  37. )->place( -x => 20, -You are not allowed to view links. Register or Login => 20 );
  38. my $page = $ben->Entry(
  39.     -background => $color_fondo,
  40.     -foreground => $color_text,
  41.     -width      => 40
  42. )->place( -x => 73, -You are not allowed to view links. Register or Login => 24 );
  43.  
  44. $ben->Button(
  45.     -text             => "Decode",
  46.     -width            => 10,
  47.     -command          => \&home,
  48.     -background       => $color_fondo,
  49.     -foreground       => $color_text,
  50.     -activebackground => $color_text
  51. )->place( -x => 325, -You are not allowed to view links. Register or Login => 23 );
  52. $ben->Button(
  53.     -text             => "Logs",
  54.     -width            => 10,
  55.     -command          => \&logs,
  56.     -background       => $color_fondo,
  57.     -foreground       => $color_text,
  58.     -activebackground => $color_text
  59. )->place( -x => 400, -You are not allowed to view links. Register or Login => 23 );
  60.  
  61. $ben->Label(
  62.     -text       => "Links Found",
  63.     -font       => "Impact",
  64.     -background => $color_fondo,
  65.     -foreground => $color_text
  66. )->place( -x => 200, -You are not allowed to view links. Register or Login => 80 );
  67. my $links = $ben->Listbox(
  68.     -width      => 70,
  69.     -height     => 15,
  70.     -background => $color_fondo,
  71.     -foreground => $color_text
  72. )->place( -x => 32, -You are not allowed to view links. Register or Login => 140 );
  73.  
  74. MainLoop;
  75.  
  76. sub home {
  77.  
  78.     $links->You are not allowed to view links. Register or Login( "0.0", "end" );
  79.  
  80.     my $url = $page->get;
  81.  
  82.     my $code = toma($url);
  83.  
  84.     while ( $code =~ You are not allowed to view links. Register or Login{http://lix\.in/(-\w+)}ig ) {
  85.         You are not allowed to view links. Register or Login( @urls, "http://lix.in/" . $1 );
  86.     }
  87.  
  88.     while ( $code =~ You are not allowed to view links. Register or Login{http://lix\.in/(\w+)}ig ) {
  89.         You are not allowed to view links. Register or Login( @urls, "http://lix.in/-" . $1 );
  90.     }
  91.  
  92.     my @urls = repes(@urls);
  93.  
  94.     for my $l (@urls) {
  95.         You are not allowed to view links. Register or Login $l;
  96.         $ben->update;
  97.         decode_link( $l, $url );
  98.     }
  99. }
  100.  
  101. sub decode_link {
  102.  
  103.     my ( $link, $url ) = @_;
  104.  
  105.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split($url);
  106.  
  107.     if ( $link =~ /-(.*)/ ) {
  108.         my $co = "-" . $1;
  109.         You are not allowed to view links. Register or Login $co;
  110.         my $code =
  111.           tomar( $link,
  112.             { "tiny" => $co, "submit" => "continue", "submit" => "submit" } );
  113.         if ( $code =~ /<iframe  name="ifram" src="(.*)" marginwidth="0"/ ) {
  114.             my $link = $1;
  115.             You are not allowed to view links. Register or Login $link;
  116.             unless ( $link =~ /lix\.in/ ) {
  117.                 savefile( $auth . ".txt", $link );
  118.                 $links->insert( "end", $link );
  119.             }
  120.         }
  121.     }
  122. }
  123.  
  124. sub logs {
  125.  
  126.     my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $page->get );
  127.     my $f = $auth . ".txt";
  128.  
  129.     if ( -f $f ) {
  130.         You are not allowed to view links. Register or Login($f);
  131.     }
  132.     else {
  133.         $ben->Dialog(
  134.             -title            => "Error",
  135.             -buttons          => ["OK"],
  136.             -text             => "Logs not found",
  137.             -background       => $color_fondo,
  138.             -foreground       => $color_text,
  139.             -activebackground => $color_text
  140.         )->Show();
  141.     }
  142. }
  143.  
  144. sub repes {
  145.     my @limpio;
  146.     foreach $test (@_) {
  147.         You are not allowed to view links. Register or Login @limpio, $test unless $repe{$test}++;
  148.     }
  149.     You are not allowed to view links. Register or Login @limpio;
  150. }
  151.  
  152. sub savefile {
  153.     You are not allowed to view links. Register or Login( SAVE, ">>" . $_[0] );
  154.     You are not allowed to view links. Register or Login SAVE $_[1] . "\n";
  155.     You are not allowed to view links. Register or Login SAVE;
  156. }
  157.  
  158. sub toma {
  159.     You are not allowed to view links. Register or Login $nave->get( $_[0] )->content;
  160. }
  161.  
  162. sub tomar {
  163.     my ( $web, $var ) = @_;
  164.     You are not allowed to view links. Register or Login $nave->post( $web, [ %{$var} ] )->content;
  165. }
  166.  
  167. # The End ?
  168.  
  169.  
« Última modificación: Marzo 14, 2015, 10:17:08 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2854
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1182
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1080
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear