programa o archivo por lotes ejecutable.
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
Using perl Syntax Highlighting
- #!usr/bin/perl
- #GoogleHack 0.3
- #By Doddy H
- use Tk;
- use Tk::PNG;
- my $ventana = MainWindow->new();
- $ventana->title("GoogleHack 0.3 By Doddy H");
- $ventana->geometry("370x300+20+20");
- $ventana->resizable(0,0);
- $ventana->Label(-font=>"Impact1",-text=>"String : ")->place(-x=>20,-y=>20);
- my $v = $ventana->Entry(-text=>"Test",-width=>"31")->place(-x=>80,-y=>23);
- $ventana->Button(-width=>"10",-text=>"Load",-command=>\&now)->place(-x=>278,-y=>23);
- $ventana->Label(-text=>"Options",-font=>"Impact1")->place(-x=>140,-y=>70);
- $ventana->Radiobutton(-text =>"Music", -value => "music",-variable=> \$op)->place(-x=>140,-y=>130);
- $ventana->Radiobutton(-text =>"Programs", -value => "programs",-variable=> \$op)->place(-x=>140,-y=>160);
- $ventana->Radiobutton(-text =>"Book", -value => "book",-variable=> \$op)->place(-x=>140,-y=>190);
- $ventana->Radiobutton(-text =>"Videos", -value => "videos",-variable=> \$op)->place(-x=>140,-y=>220);
- $ventana->Radiobutton(-text =>"Torrent", -value => "torrent",-variable=> \$op)->place(-x=>140,-y=>250);
- MainLoop;
- sub now {
- my $test = $v->get;
- my $link;
- if ($op eq "music") {
- $link = '-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.mp3|.wma|.ogg) "'.$test.'"';
- }
- elsif ($op eq "programs") {
- $link = '-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.exe|.zip|.ddl) "'.$test.'"';
- }
- elsif ($op eq "book") {
- $link = '-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.txt|.pps|.lit|.odt|.doc|.rtf|.zip|.rar|.pdf|.chm) "'.$test.'"';
- }
- elsif ($op eq "videos") {
- $link = '-inurl:(htm|html|php) intitle:"index of" +"last modified" +"parent directory" +description +size +(.mpg|.avi|.flv|.wmv|.di) "'.$test.'"';
- }
- elsif ($op eq "torrent") {
- $link = "$test filetype:torrent";
- } else {
- $link = "como aprender a escribir";
- }
- chomp $link;
- my $final = "http://www.google.com.ar/search?q=".$link;
- system("start $final");
- }
- # The End ?
Coloreado en 0.005 segundos, usando GeSHi 1.0.8.4
El cual tiene que cargar una página mediante el comando start pero cuando se tiene que cargar parece que tiene un error con la variable string porque aparece error:
