|
361
|
Programación / Scripting / [Perl Tk] Finder Pass 0.4
|
en: 31 Marzo 2012, 22:47 pm
|
La version Tk de este programa que eh hecho para crackear hashes md5 de forma online Una imagen seria El codigo #!usr/bin/perl #Finder Pass 0.4 #Version Tk #Coded By Doddy H use Tk; use Tk::ListBox; use Tk::Dialog; use Tk::FileSelect; use Cwd; use LWP::UserAgent; 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); if ( $^O eq 'MSWin32' ) { use Win32::Console; Win32::Console::Free(); } my $color_fondo = "black"; my $color_texto = "red"; my $ta = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $ta->title("Finder Pass 0.4 (C) Doddy Hackman 2012"); $ta->geometry("600x400+20+20"); $ta->resizable( 0, 0 ); $d = $ta->Frame( -relief => "sunken", -bd => 1, -background => $color_fondo, -foreground => $color_texto ); my $max = $d->Menubutton( -text => "Options", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $aba = $d->Menubutton( -text => "About", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); my $exa = $d->Menubutton( -text => "Exit", -underline => 1, -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->pack( -side => "left" ); $d->pack( -side => "top", -fill => "x" ); $max->command( -label => "Crack", -background => $color_fondo, -foreground => $color_texto, -command => \&cracknow ); $max->command( -label => "Add Hash", -background => $color_fondo, -foreground => $color_texto, -command => \&addhash ); $max->command( -label => "Add File with hashes", -background => $color_fondo, -foreground => $color_texto, -command => \&addfilea ); $max->command( -label => "Clean List", -background => $color_fondo, -foreground => $color_texto, -command => \&cleanow ); $aba->command( -label => "About", -background => $color_fondo, -foreground => $color_texto, -command => \&about ); $exa->command( -label => "Exit", -background => $color_fondo, -foreground => $color_texto, -command => \&salir ); $ta->Label( -text => "Hashes", -background => $color_fondo, -foreground => $color_texto, -font => "Impact" )->place( -x => 110, -y => 50 ); my $had = my $has = $ta->Listbox( -width => 36, -height => 15, -background => $color_fondo, -foreground => $color_texto )->place( -x => 32, -y => 100 ); $ta->Label( -text => "Results", -background => $color_fondo, -foreground => $color_texto, -font => "Impact" )->place( -x => 380, -y => 50 ); my $red = my $res = $ta->Listbox( -width => 36, -height => 15, -background => $color_fondo, -foreground => $color_texto )->place( -x => 300, -y => 100 ); my $status = $ta->Label( -text => "Status : <None>", -background => $color_fondo, -foreground => $color_texto, -font => "Impact1" )->place( -x => 220, -y => 350 ); MainLoop; sub cracknow { my @hashes = $had->get( "0.0", "end" ); my @hashes = repes(@hashes); for my $ha (@hashes) { $status->configure( -text => "[+] Searching .." ); $ta->update; my $re = crackit($ha); if ( $re =~ /false01/ig ) { $red->insert( "end", "Not Found" ); } else { $red->insert( "end", $re ); savefile( "hashes-found.txt", $ha . ":" . $re ); } } $status->configure( -text => "Status : <None>" ); } sub addfilea { my $mediox = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $mediox->geometry("390x90+20+20"); $mediox->resizable( 0, 0 ); $mediox->title("Add File"); $mediox->Label( -text => "File : ", -background => $color_fondo, -foreground => $color_texto, -font => "Impact1" )->place( -x => 10, -y => 30 ); my $enafa = $mediox->Entry( -background => $color_fondo, -foreground => $color_texto, -width => 33 )->place( -y => 33, -x => 55 ); $mediox->Button( -text => "Browse", -background => $color_fondo, -foreground => $color_texto, -width => 7, -activebackground => $color_texto, -command => \&bronax )->place( -y => 33, -x => 265 ); $mediox->Button( -text => "Load", -background => $color_fondo, -foreground => $color_texto, -width => 7, -activebackground => $color_texto, -command => \&bronaxx )->place( -y => 33, -x => 320 ); sub bronax { $browse = $mediox->FileSelect( -directory => getcwd() ); my $fileax = $browse->Show; $enafa->configure( -text => $fileax ); } sub bronaxx { open( OPEN , $enafa->get ); my @ve = <OPEN>; for my $no (@ve) { if ( ver_length($no) ) { $had->insert( "end", $no ); } } } } sub addhash { my $plac = MainWindow->new( -background => $color_fondo, -foreground => $color_texto ); $plac->geometry("350x90+20+20"); $plac->resizable( 0, 0 ); $plac->title("Add Hash"); $plac->Label( -text => "Hash : ", -background => $color_fondo, -foreground => $color_texto, -font => "Impact1" )->place( -x => 10, -y => 30 ); my $ewa = $plac->Entry( -background => $color_fondo, -foreground => $color_texto, -width => 33 )->place( -y => 33, -x => 60 ); $plac->Button( -text => "Add", -background => $color_fondo, -activebackground => $color_texto, -foreground => $color_texto, -width => 7, -command => \&addnowa )->place( -y => 33, -x => 275 ); sub addnowa { if ( ver_length( $ewa->get ) ) { $had->insert( "end", $ewa->get ); } else { $ta->Dialog( -title => "Error", -buttons => ["OK"], -text => "Hash invalid", -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_texto )->Show(); } } } sub cleanow { $had->delete( 0.0, "end" ); $red->delete( 0.0, "end" ); } sub about { $ta->Dialog( -title => "About", -buttons => ["OK"], -text => "This program was coded by Doddy Hackman in 2012", -background => $color_fondo, -foreground => $color_texto, -activebackground => $color_text )->Show(); } sub salir { } sub crackit { my %hash = ( 'http://md5.hashcracking.com/search.php?md5=' => { 'tipo' => 'get', 'regex' => "Cleartext of $target is (.*)", }, 'http://www.hashchecker.com/index.php?_sls=search_hash' => { 'variables' => { 'search_field' => $target, 'Submit' => 'search' }, 'regex' => "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>", }, 'http://md5.rednoize.com/?q=' => { 'tipo' => 'get', 'regex' => "<div id=\"result\" >(.*)<\/div>" }, 'http://md52.altervista.org/index.php?md5=' => { 'tipo' => 'get', 'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>" } ); for my $data ( keys %hash ) { $ta->update; if ( $hash{$data}{tipo} eq "get" ) { $code = toma( $data . $target ); if ( $code =~ /$hash{$data}{regex}/ig ) { my $found = $1; unless ( $found =~ /\[Non Trovata\]/ ) { last; } } } else { $code = tomar( $data, $hash{$data}{variables} ); if ( $code =~ /$hash{$data}{regex}/ig ) { my $found = $1; last; } } } } sub savefile { open( SAVE , ">>" . $_[0] ); } sub repes { my @limpio; foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub ver_length { } sub toma { return $nave->get( $_[0] )->content; } sub tomar { my ( $web, $var ) = @_; return $nave->post( $web, [ %{$var} ] )->content; } #The End ?
|
|
|
362
|
Programación / Scripting / [Perl] Finder Pass 0.3
|
en: 31 Marzo 2012, 22:46 pm
|
La nueva version de un programa que habia hecho para crackear hashes md5 mediante paginas online. #!usr/bin/perl #Finder Pass 0.3 #Coded By Doddy H use LWP::UserAgent; 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); menu(); sub menu { head(); chomp( my $op = <stdin> ); if ( $op eq "1" ) { chomp( my $ha = <stdin> ); if ( ver_length($ha) ) { print "\n\n[+] Cracking Hash...\n"; my $re = crackit($ha); unless ( $re =~ /false01/ ) { print "\n[+] Cracked : $re\n\n"; savefile( "hashes-found.txt", $ha . ":" . $re ); } else { print "\n[-] Not Found\n\n"; } } else { print "\n\n[-] Hash invalid\n\n"; } <stdin>; menu(); } if ( $op eq "2" ) { print "\n\n[+] Wordlist : "; chomp( my $fi = <stdin> ); if ( -f $fi ) { print "\n\n[+] Opening File\n"; my @varios = <WORD>; my @varios = repes(@varios); print "[+] Hashes Found : " . int(@varios); print "\n\n[+] Cracking hashes...\n\n"; for $hash (@varios) { if ( ver_length($hash) ) { my $re = crackit($hash); unless ( $re =~ /false01/ ) { print "[+] $hash : $re\n"; savefile( "hashes-found.txt", $hash . ":" . $re ); } } } } else { print "\n\n[-] File Not Found\n\n"; } <stdin>; menu(); } if ( $op eq "3" ) { copyright(); } } sub crackit { my %hash = ( 'http://md5.hashcracking.com/search.php?md5=' => { 'tipo' => 'get', 'regex' => "Cleartext of $target is (.*)", }, 'http://www.hashchecker.com/index.php?_sls=search_hash' => { 'variables' => { 'search_field' => $target, 'Submit' => 'search' }, 'regex' => "<td><li>Your md5 hash is :<br><li>$target is <b>(.*)<\/b>", }, 'http://md5.rednoize.com/?q=' => { 'tipo' => 'get', 'regex' => "<div id=\"result\" >(.*)<\/div>" }, 'http://md52.altervista.org/index.php?md5=' => { 'tipo' => 'get', 'regex' => "<br>Password: <font color=\"Red\">(.*)<\/font><\/b>" } ); for my $data ( keys %hash ) { if ( $hash{$data}{tipo} eq "get" ) { $code = toma( $data . $target ); if ( $code =~ /$hash{$data}{regex}/ig ) { my $found = $1; unless ( $found =~ /\[Non Trovata\]/ ) { last; } } } else { $code = tomar( $data, $hash{$data}{variables} ); if ( $code =~ /$hash{$data}{regex}/ig ) { my $found = $1; last; } } } } sub copyright { print "\n\n(C) Doddy Hackman 2012\n"; <stdin>; } sub head { ########## ######### ######### ##### # ### ### # # # ## # # # # # # # # # # # # # # # # ## # # # # # # # # # # # # ### # # # # # # ### ### ### # # ## ## # # # # # # # # # # # ##### # # # # # ## # # # # # # # # # # # # # ### ###### # ##### ######## # ### ### ###### ### [++] Options [+] 1 : Hash [+] 2 : File with hashes [+] 3 : Exit ); } sub savefile { open( SAVE , ">>" . $_[0] ); } sub repes { my @limpio; foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub ver_length { } sub toma { return $nave->get( $_[0] )->content; } sub tomar { my ( $web, $var ) = @_; return $nave->post( $web, [ %{$var} ] )->content; } #The End ?
|
|
|
363
|
Programación / Scripting / [Perl Tk] Lix.In Decoder 0.2
|
en: 28 Marzo 2012, 22:57 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 #!usr/bin/perl #Lix.In Decoder 0.2 #Version Tk #Coded By Doddy H use LWP::UserAgent; use URI ::Split qw(uri_split ); 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" )->place( -x => 20, -y => 20 ); my $page = $ben->Entry( -background => $color_fondo, -foreground => $color_text, -width => 40 )->place( -x => 73, -y => 24 ); $ben->Button( -text => "Decode", -width => 10, -command => \&home, -background => $color_fondo, -foreground => $color_text, -activebackground => $color_text )->place( -x => 325, -y => 23 ); $ben->Button( -text => "Logs", -width => 10, -command => \&logs, -background => $color_fondo, -foreground => $color_text, -activebackground => $color_text )->place( -x => 400, -y => 23 ); $ben->Label( -text => "Links Found", -font => "Impact", -background => $color_fondo, -foreground => $color_text )->place( -x => 200, -y => 80 ); my $links = $ben->Listbox( -width => 70, -height => 15, -background => $color_fondo, -foreground => $color_text )->place( -x => 32, -y => 140 ); MainLoop; sub home { $links->delete( "0.0", "end" ); my $url = $page->get; my $code = toma($url); while ( $code =~ m{http ://lix\ .in /(-\w+)}ig ) { push( @urls, "http://lix.in/" . $1 ); } while ( $code =~ m{http ://lix\ .in /(\w+)}ig ) { push( @urls, "http://lix.in/-" . $1 ); } 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 (@_) { push @limpio, $test unless $repe{$test}++; } } sub savefile { open( SAVE , ">>" . $_[0] ); } sub toma { return $nave->get( $_[0] )->content; } sub tomar { my ( $web, $var ) = @_; return $nave->post( $web, [ %{$var} ] )->content; } # The End ?
|
|
|
364
|
Programación / Scripting / Re: [Perl Tk] LocateIP 0.4
|
en: 27 Marzo 2012, 21:52 pm
|
eso es porque este programa esta hecho solo para Windows. edito : si queres que te ande borra estas lineas del codigo if ( $^O eq 'MSWin32' ) { use Win32::Console; Win32::Console::Free(); }
Ese es el error que te aparece , pero como ya te dije el programa solo esta hecho para Windows porque se te va a ver todo el texto movido.
|
|
|
365
|
Programación / Scripting / [Perl] Lix In Decoder 0.1
|
en: 26 Marzo 2012, 19:45 pm
|
Bueno , hice este programa para poder descargar juegos cuando entraba en una pagina y veia que todos los links estaban en lix.in , para usar este programa deben poner la url de la pagina que tiene los links lix.in , el programa automaticamente captura todos los links de la pagina y comienza a mostrar las verdaderas urls en pantalla. Al parecer no eh tenido ningun problema con ningun Captcha , puesto que lo eh probado varias veces en diferentes paginas. El codigo es el siguiente #!usr/bin/perl #Lix.In Decoder 0.1 #Coded By Doddy H use LWP::UserAgent; use URI ::Split qw(uri_split ); 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); #Tests #my $url = "http://taringaa.bligoo.com/content/view/858363/Comand-Conquer-Red-Alert-III-Full-1-link.html"; #my $url = "http://www.taringa.net/posts/animaciones/4164567.R/Saint-Seiya-Mei_-Hades-ElysionHen_Campos-Eliseos_-Vol-10_11.html"; #my $url = "http://www.gratisjuegos.org/descargar/muchos-juegos-en-pocos-links/"; #my $url = "http://eminemdownloads.blogspot.com.ar/2007/03/discografia.html"; ## header(); chomp( my $url = <stdin> ); print "\n\n[+] Loading page ...\n"; my $code = toma($url); print "[+] Getting links ...\n"; while ( $code =~ m{http ://lix\ .in /(-\w+)}ig ) { push( @urls, "http://lix.in/" . $1 ); } while ( $code =~ m{http ://lix\ .in /(\w+)}ig ) { push( @urls, "http://lix.in/-" . $1 ); } print "[+] Decoding links lix.in ....\n\n"; my @urls = repes(@urls); for (@urls) { decode_link( $_, $url ); } copyright(); ## 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 ); print "[+] Link : $link\n"; } } } } sub repes { foreach $test (@_) { push @limpio, $test unless $repe{$test}++; } } sub header { @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @@@ @@@ @@@ @@@@ @@@ @@ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @@@@@ @ @ @ @ @ @@@@@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @@@@ @@@ @@@ @@@ @@@@ @@@ @ ); } sub savefile { open( SAVE , ">>" . $_[0] ); } sub copyright { print "\n\n(C) Doddy Hackman 2012\n\n"; <stdin>; } sub toma { return $nave->get( $_[0] )->content; } sub tomar { my ( $web, $var ) = @_; return $nave->post( $web, [ %{$var} ] )->content; } # The End ?
Les dejo un ejemplo de uso
@ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @@@ @@@ @@@ @@@@ @@@ @@ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @@@@@ @ @ @ @ @ @@@@@ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@@ @ @ @ @ @ @ @@@@ @@@ @@@ @@@ @@@@ @@@ @
[+] Page : http://www.gratisjuegos.org/descargar/muchos-juegos-en-pocos-links/
[+] Loading page ... [+] Getting links ... [+] Decoding links lix.in ....
[+] Link : http://www.fileserve.com/file/4UauNpZ [+] Link : http://www.megaupload.com/?d=JDJOXNCG [+] Link : http://www.megaupload.com/?d=DOIPB44O [+] Link : http://turbobit.net/u1savmp0dp82/BaixandoFacil.com_Raising.Hope.S02E1 5.rmvb.html [+] Link : http://www.megaupload.com/?d=TWZXM4OA [+] Link : http://rapidshare.com/files/326639218/mmph.rar [+] Link : http://uploading.com/files/8m55a3e9/Hitomi%2527s%2BCherry%2BRed%2BLip s%2B%255BSasagawa%2BHayashi%255D.rar/ [+] Link : http://protector.to/download/296576/66637b4defe247e6b465c15b6daadb88. html [+] Link : http://rapidshare.com/files/222173802/Hiroshima_Will_Burn_-_To_The_We ight_Of_All_Things_-__2009__By_Disgorge.rar [+] Link : http://www.megaupload.com/?d=ILUL67F0 [+] Link : http://rapidshare.com/files/168921368/Ab_-_2006_-_T_D_P_-_melodeath.o rg.rar [+] Link : http://rapidshare.com/files/206107948/aHD_GArt_1_LuFr_wm.part1.rar [+] Link : http://rapidshare.com/files/144375887/B.WoLF.MtbX.part07.rar [+] Link : http://rapidshare.com/files/202336513/Die__rzte__Wir_wollen_nur_deine _Seele_I_.rar.html [+] Link : http://rapidshare.com/files/310131228/ls_cta_01.part1.rar [+] Link : http://rapidshare.com/files/117343572/georemichahshootdo.rar [+] Link : http://www.megaupload.com/?d=3JGC8I3J [+] Link : http://repidshare.uni.cc/up/files.php?rs=http://rs.rapidshare.com/fil es/121698550/www.xvidfilm.com_shtrr.HD.tr_barlas.part22.rar&s= [+] Link : http://rapidshare.com/files/379279204/bndpq__smscl_rmntcincrble.karma .rar [+] Link : http://www.megaupload.com/?d=ES5U6KVW [+] Link : http://turbobit.net/hxombgi9wguf.html [+] Link : http://hotfile.com/dl/38699729/4dbfbdf/Brothers.Sisters.2x01.by.www.s eriesfree.biz.rmvb.html [+] Link : http://www.filesonic.jp/file/1542896624 [+] Link : http://rapidshare.com/files/251767677/Knowing_Blurayindir.com.part122 .rar [+] Link : http://img199.imageshack.us/img199/5452/lastsamurai.jpg [+] Link : http://www.megaupload.com/?d=AAG4X8X2 [+] Link : http://ul.to/8hkfdh [+] Link : http://hotfile.com/dl/594136/1934718/My.Name.Is.Earl.S04E24.HDTV.XviD -LOL.avi.html [+] Link : http://hotfile.com/dl/31792875/9882fa9/chandelier_jpn.rar.html [+] Link : http://www.megaupload.com/?d=PV6BJMHJ [+] Link : http://rapidshare.com/files/163195270/the_killers.rar [+] Link : http://repidshare.uni.cc/up/files.php?rs=http://rs110.rapidshare.com/ files/88759448/TamGaz.part5.rar&s=104857 [+] Link : http://rapidshare.com/files/183553695/Anita_Pearl_Little_Red_In_The_O ffice.rar
(C) Doddy Hackman 2012
|
|
|
367
|
Programación / Scripting / [Perl Tk] LocateIP 0.4
|
en: 24 Marzo 2012, 22:53 pm
|
Un simple programa en Perl que sirve para buscar informacion sobre una IP , primero busca la localizacion y despues busca las DNS relacionadas. Les dejo una imagen del programa El codigo (formateado con perltidy) es #!usr/bin/perl #Locate IP 0.4 #Version Tk #Coded By Doddy H use Tk; use LWP::UserAgent; use IO::Socket; my $background_color = "black"; my $texto_color = "green"; if ( $^O eq 'MSWin32' ) { use Win32::Console; Win32::Console::Free(); } installer(); 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); $p = MainWindow->new( -background => $background_color, -foreground => $texto_color ); $p->title("Locate IP 0.4 || Coded By Doddy H"); $p->geometry("440x300+20+20"); $p->resizable( 0, 0 ); $p->Label( -text => "Target : ", -font => "Impact", -background => $background_color, -foreground => $texto_color )->place( -x => 20, -y => 20 ); my $tar = $p->Entry( -width => 30, -background => $background_color, -foreground => $texto_color )->place( -y => 24, -x => 80 ); $p->Button( -text => "Find", -width => 10, -background => $background_color, -foreground => $texto_color, -activebackground => $texto_color, -command => \&st )->place( -y => 23, -x => 272 ); $p->Button( -text => "Logs", -width => 10, -background => $background_color, -foreground => $texto_color, , -activebackground => $texto_color, -command => \&openlogs )->place( -y => 23, -x => 350 ); $p->Label( -text => "Information", -font => "Impact", -background => $background_color, -foreground => $texto_color )->place( -x => 80, -y => 80 ); $p->Label( -text => "City : ", -font => "Impact1", -background => $background_color, -foreground => $texto_color )->place( -y => 140, -x => 23 ); my $city = $p->Entry( -width => 21, -background => $background_color, -foreground => $texto_color )->place( -y => 143, -x => 65 ); $p->Label( -text => "Country : ", -font => "Country", -background => $background_color, -foreground => $texto_color )->place( -y => 170, -x => 23 ); my $country = $p->Entry( -width => 17, -background => $background_color, -foreground => $texto_color )->place( -y => 173, -x => 90 ); $p->Label( -text => "State : ", -font => "Impact1", -background => $background_color, -foreground => $texto_color )->place( -y => 200, -x => 23 ); my $state = $p->Entry( -width => 20, -background => $background_color, -foreground => $texto_color )->place( -y => 203, -x => 75 ); $p->Label( -text => "DNS Found", -font => "Impact", -background => $background_color, -foreground => $texto_color )->place( -y => 80, -x => 285 ); my $dns = $p->Listbox( -width => 30, -background => $background_color, -foreground => $texto_color )->place( -x => 230, -y => 130 ); MainLoop; sub st { $city->configure( -text => " " ); $country->configure( -text => " " ); $state->configure( -text => " " ); $dns->delete( "0.0", "end" ); my $target = $tar->get; savefile( "info-logs.txt", "[+] Target : $target" ); my $target = inet_ntoa($get); savefile( "info-logs.txt", "[+] IP : $target\n" ); $total = "http://www.melissadata.com/lookups/iplocation.asp?ipaddress=$target"; $re = toma($total); if ( $re =~ /City<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) { savefile( "info-logs.txt", "[+] City : $2" ); $city->configure( -text => $2 ); } else { $city->configure( -text => "Not Found" ); } if ( $re =~ /Country<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) { savefile( "info-logs.txt", "[+] Country : $2" ); $country->configure( -text => $2 ); print "[+] Country : $2\n"; } else { $country->configure( -text => "Not Found" ); } if ( $re =~ /State or Region<\/td><td align=(.*)><b>(.*)<\/b><\/td>/ ) { savefile( "info-logs.txt", "[+] State of Region : $2" ); $state->configure( -text => $2 ); } else { $state->configure( -text => "Not Found" ); } my $code = toma( "http://www.ip-adress.com/reverse_ip/" . $target ); savefile( "info-logs.txt", "" ); while ( $code =~ /whois\/(.*?)\">Whois/g ) { my $dnsa = $1; savefile( "info-logs.txt", "[+] DNS Found : $dnsa" ); $dns->insert( "end", $dnsa ); } savefile( "info-logs.txt", "\n######################\n" ); } sub openlogs { system("start logs/info-logs.txt"); } sub installer { unless ( -d "/logs" ) { } } sub savefile { open( SAVE , ">>logs/" . $_[0] ); } sub toma { return $nave->get( $_[0] )->content; } #The End ?
|
|
|
368
|
Programación / Scripting / [Perl Tk] Diccionario Online 0.1
|
en: 19 Marzo 2012, 02:05 am
|
Mientras estudiaba para unos examenes estaba buscando la definicion de algunas palabras asi que me hice este pequeño programa en perl para poder buscar la definicion de cualquier palabra mediante una pagina web. Una imagen El codigo #!usr/bin/perl #Diccionario Online 0.1 #Coded By Doddy H use Tk; use Tk::ROText; use LWP::UserAgent; use HTML::Entities; 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 $fondo = "gray"; my $letra = "black"; my $new = MainWindow->new( -background => $fondo, -foreground => $letra ); $new->title("Diccinario Online 0.1 || By Doddy H"); $new->geometry("340x290+20+20"); $new->resizable( 0, 0 ); $new->Label( -text => "Palabra : ", -font => "Impact1", -background => $fondo, -foreground => $letra )->place( -x => 20, -y => 20 ); my $pal = $new->Entry( -width => 25, -background => $fondo, -foreground => $letra ) ->place( -x => 95, -y => 24 ); $new->Button( -text => "Buscar", -width => 7, -background => $fondo, -foreground => $letra, -activebackground => $fondo, -command => \&start )->place( -y => 22, -x => 260 ); $new->Label( -text => "Significado", -font => "Impact1", -background => $fondo, -foreground => $letra )->place( -x => 120, -y => 70 ); my $con = $new->ROText( width => 39, -height => 10, -background => $fondo, -foreground => $letra )->place( -x => 30, -y => 120 ); MainLoop; sub start { $new->update; $con->delete( "0.0", "end" ); my $code = toma( "http://es.thefreedictionary.com/" . $pal->get ); if ( $code =~ /<div class=runseg><b>1 <\/b> (.*?)[.:<]/ ) { my $text = decode_entities($1); $con->insert( "end", $text ); } } sub toma { return $nave->get( $_[0] )->content; } #The End ?
|
|
|
369
|
Programación / Scripting / [Python] Diccionario Online 0.1
|
en: 19 Marzo 2012, 02:05 am
|
Un pequeño script en Python que hice para buscar una definicion a cualquier palabra que se ingrese. El codigo #!usr/bin/python #Diccionario Online 0.1 #Coded By Doddy H import urllib2,re,sys,HTMLParser def toma(web) : nave = urllib2.Request(web) nave.add_header('User-Agent','Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.5) Gecko/2008120122 Firefox/3.0.5'); op = urllib2.build_opener() return op.open(nave).read() def head(): print """ @@@@ @ @ @ @ @ @ @ @ @ @ @@@ @@@ @ @@@ @ @@ @@@ @@ @ @@@ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @@@ @@@ @ @@@ @ @ @@@@ @ @ @@@ Coded By Doddy H """ def copyright(): print "\n\n(C) Doddy Hackman 2012\n" raw_input() sys.exit(1) head() url = raw_input("\n\n[+] Palabra : ") try: code = toma("http://es.thefreedictionary.com/"+url) if (re.findall("<div class=runseg><b>1 <\/b> (.*?)[.:<]",code)): re = re.findall("<div class=runseg><b>1 <\/b> (.*?)[.:<]",code) re = re[0] htmlparser = HTMLParser.HTMLParser() re = htmlparser.unescape(re) if not re=="": print "\n\n[+] Definicion : "+re else: print "[-] No se encontro significado\n" except: print "[-] Error\n" copyright() # The End
|
|
|
370
|
Programación / Scripting / [Ruby] Diccionario Online 0.1
|
en: 19 Marzo 2012, 02:04 am
|
Un simple script en Ruby para buscar la definicion de cualquier palabra El codigo #!usr/bin/ruby #Diccionario Online 0.1 #Coded By Doddy H require "net/http" require "cgi" def head() print " @@@@ @ @ @ @ @ @ @ @ @ @ @@@ @@@ @ @@@ @ @@ @@@ @@ @ @@@ @ @ @ @ @ @ @ @ @ @ @@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @@@@ @ @@@ @@@ @ @@@ @ @ @@@@ @ @ @@@ Coded By Doddy H " end def copyright() print "\n\n(C) Doddy Hackman 2012\n\n" exit(1) end def toma(web) return Net::HTTP.get_response(URI.parse(web)).body end head() print "\n[+] Palabra : " string = gets.chomp url = "http://es.thefreedictionary.com/"+string code = toma(url) if code=~/<div class=runseg><b>1 <\/b> (.*?)[.:<]/ text = CGI.unescapeHTML($1) if text == " " print "\n\n[-] Palabra no encontrada" else print "\n\n[+] Definicion : "+text end end copyright() #The End ?
|
|
|
|
|
|
|