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
#!usr/bin/perl #Lix.In Decoder 0.2 #Version Tk #Coded By Doddy H use LWP::UserAgent; use Tk; use Tk::Dialog; #if ( $^O eq 'MSWin32' ) { # use Win32::Console; # Win32::Console::Free(); #} my $nave = LWP::UserAgent->new; $nave->agent( "Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12" ); $nave->timeout(5); my $color_fondo = "black"; my $color_text = "green"; my $ben = MainWindow->new( -background => $color_fondo, -foreground => $color_text ); $ben->title("Lix.In Decoder 0.2 (C) Doddy Hackman 2012"); $ben->geometry("492x385+20+20"); $ben->resizable( 0, 0 ); $ben->Label( -background => $color_fondo, -foreground => $color_text, -text => "Page : ", -font => "Impact1" my $page = $ben->Entry( -background => $color_fondo, -foreground => $color_text, -width => 40 $ben->Button( -text => "Decode", -width => 10, -command => \&home, -background => $color_fondo, -foreground => $color_text, -activebackground => $color_text $ben->Button( -text => "Logs", -width => 10, -command => \&logs, -background => $color_fondo, -foreground => $color_text, -activebackground => $color_text $ben->Label( -text => "Links Found", -font => "Impact", -background => $color_fondo, -foreground => $color_text my $links = $ben->Listbox( -width => 70, -height => 15, -background => $color_fondo, -foreground => $color_text MainLoop; sub home { $links->delete( "0.0", "end" ); my $url = $page->get; my $code = toma($url); } } my @urls = repes(@urls); for my $l (@urls) { $ben->update; decode_link( $l, $url ); } } sub decode_link { my ( $link, $url ) = @_; my ( $scheme, $auth, $path, $query, $frag ) = uri_split($url); if ( $link =~ /-(.*)/ ) { my $co = "-" . $1; my $code = tomar( $link, { "tiny" => $co, "submit" => "continue", "submit" => "submit" } ); if ( $code =~ /<iframe name="ifram" src="(.*)" marginwidth="0"/ ) { my $link = $1; unless ( $link =~ /lix\.in/ ) { savefile( $auth . ".txt", $link ); $links->insert( "end", $link ); } } } } sub logs { my ( $scheme, $auth, $path, $query, $frag ) = uri_split( $page->get ); my $f = $auth . ".txt"; if ( -f $f ) { } else { $ben->Dialog( -title => "Error", -buttons => ["OK"], -text => "Logs not found", -background => $color_fondo, -foreground => $color_text, -activebackground => $color_text )->Show(); } } sub repes { my @limpio; foreach $test (@_) { } } sub savefile { close SAVE; } sub toma { } sub tomar { my ( $web, $var ) = @_; } # The End ?