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 Tk] Lix.In Decoder 0.2

  • 0 Respuestas
  • 1227 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • 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 No tienes permisos para ver links. Registrate o Entra con tu cuenta(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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 20 );
  38. my $page = $ben->Entry(
  39.     -background => $color_fondo,
  40.     -foreground => $color_text,
  41.     -width      => 40
  42. )->place( -x => 73, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 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, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 23 );
  60.  
  61. $ben->Label(
  62.     -text       => "Links Found",
  63.     -font       => "Impact",
  64.     -background => $color_fondo,
  65.     -foreground => $color_text
  66. )->place( -x => 200, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 80 );
  67. my $links = $ben->Listbox(
  68.     -width      => 70,
  69.     -height     => 15,
  70.     -background => $color_fondo,
  71.     -foreground => $color_text
  72. )->place( -x => 32, -No tienes permisos para ver links. Registrate o Entra con tu cuenta => 140 );
  73.  
  74. MainLoop;
  75.  
  76. sub home {
  77.  
  78.     $links->No tienes permisos para ver links. Registrate o Entra con tu cuenta( "0.0", "end" );
  79.  
  80.     my $url = $page->get;
  81.  
  82.     my $code = toma($url);
  83.  
  84.     while ( $code =~ No tienes permisos para ver links. Registrate o Entra con tu cuenta{http://lix\.in/(-\w+)}ig ) {
  85.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @urls, "http://lix.in/" . $1 );
  86.     }
  87.  
  88.     while ( $code =~ No tienes permisos para ver links. Registrate o Entra con tu cuenta{http://lix\.in/(\w+)}ig ) {
  89.         No tienes permisos para ver links. Registrate o Entra con tu cuenta( @urls, "http://lix.in/-" . $1 );
  90.     }
  91.  
  92.     my @urls = repes(@urls);
  93.  
  94.     for my $l (@urls) {
  95.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $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.         No tienes permisos para ver links. Registrate o Entra con tu cuenta $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.             No tienes permisos para ver links. Registrate o Entra con tu cuenta $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.         No tienes permisos para ver links. Registrate o Entra con tu cuenta($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.         No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio, $test unless $repe{$test}++;
  148.     }
  149.     No tienes permisos para ver links. Registrate o Entra con tu cuenta @limpio;
  150. }
  151.  
  152. sub savefile {
  153.     No tienes permisos para ver links. Registrate o Entra con tu cuenta( SAVE, ">>" . $_[0] );
  154.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE $_[1] . "\n";
  155.     No tienes permisos para ver links. Registrate o Entra con tu cuenta SAVE;
  156. }
  157.  
  158. sub toma {
  159.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $nave->get( $_[0] )->content;
  160. }
  161.  
  162. sub tomar {
  163.     my ( $web, $var ) = @_;
  164.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $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: 3232
Ú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: 1513
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1307
Ú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: 1664
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d