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] Proxy Tester

  • 0 Respuestas
  • 1368 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 543
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 10:03:09 pm »
Un simple programa verificar que un proxy funciona bien

Imagen





Código: Perl
  1. #!usr/bin/perl
  2. #Proxy Tester (C) Doddy Hackman 2011
  3.  
  4. use Tk;
  5. use Tk::FileSelect;
  6. use LWP::UserAgent;
  7.  
  8. if ($^O eq 'MSWin32') {
  9. use Win32::Console;
  10. Win32::Console::Free();
  11. }
  12.  
  13. my $nave = LWP::UserAgent->new;
  14. $nave->agent("Mozilla/5.0 (Windows; U; Windows NT 5.1; nl; rv:1.8.1.12) Gecko/20080201Firefox/2.0.0.12");
  15. $nave->timeout(5);
  16.  
  17. my $new = MainWindow->new();
  18.  
  19. $new->title("Proxy Tester v0.1 (C) Doddy Hackman 2011");
  20. $new->geometry("390x330+50+50");
  21. $new->resizable(0,0);
  22.  
  23. $new->Label(-text=>"File : ",-font=>"Impact1")->place(-You are not allowed to view links. Register or Login=>10,-x=>10);
  24. my $filex = $new->Entry(-width=>40)->place(-You are not allowed to view links. Register or Login=>13,-x=>50);
  25. $new->Button(-text=>"Browse",-width=>10,-command=>\&bro)->place(-You are not allowed to view links. Register or Login=>10,-x=>300);
  26.  
  27. $new->Label(-text=>"Proxy OK")->place(-You are not allowed to view links. Register or Login=>50,-x=>65);
  28. my $proxy_buenos = $new->Listbox()->place(-You are not allowed to view links. Register or Login=>"80",-x=>"40");
  29.  
  30. $new->Label(-text=>"Proxy Failed")->place(-You are not allowed to view links. Register or Login=>50,-x=>230);
  31. my $proxy_malos = $new->Listbox()->place(-You are not allowed to view links. Register or Login=>"80",-x=>"200");
  32.  
  33. $new->Button(-text=>"Scan",-width=>64,-command=>\&scan)->place(-You are not allowed to view links. Register or Login=>255);
  34. $new->Button(-text=>"About",-width=>64,-command=>\&about)->place(-You are not allowed to view links. Register or Login=>277);
  35. $new->Button(-text=>"Exit",-width=>64,-command=>\&ex)->place(-You are not allowed to view links. Register or Login=>299);
  36.  
  37. MainLoop;
  38.  
  39.  
  40. sub bro {
  41. $new->update;
  42. $browse = $new->FileSelect(-directory => "/");
  43. my $file = $browse->Show;
  44. $filex->configure (-text =>$file);
  45. }
  46.  
  47. sub scan {
  48.  
  49. $proxy_buenos->You are not allowed to view links. Register or Login(0.0,"end");
  50. $proxy_malos->You are not allowed to view links. Register or Login(0.0,"end");
  51.  
  52. my $archivo = $filex->get;
  53.  
  54. You are not allowed to view links. Register or Login(FILE,$archivo);
  55. my @lineasa = <FILE>;
  56. You are not allowed to view links. Register or Login FILE;
  57. You are not allowed to view links. Register or Login @lineasa;
  58.  
  59. my @lineas = repes(@lineasa);
  60. You are not allowed to view links. Register or Login @lineas;
  61.  
  62. for my $pro(@lineas) {
  63. You are not allowed to view links. Register or Login $pro;
  64. You are not allowed to view links. Register or Login $pro."\n";
  65. $new->update;
  66. $nave->proxy("http",$pro);
  67. my $test = $nave->get("http://127.0.0.1/"); #Mod
  68. if ($test->is_success) {
  69. $proxy_buenos->insert("end",$pro);
  70. } else {
  71. $proxy_malos->insert("end",$pro);
  72. }      
  73. }
  74. }
  75.  
  76. sub about {
  77. my $venta = MainWindow->new();
  78. $venta->geometry("300x180+20+20");
  79. $venta->title("About");
  80. $venta->resizable(0,0);
  81. $venta->Label(-text=>"\nProxy Tester\n\n\nProgrammer : Doddy Hackman\n\nContact : lepuke[at]hotmail[com]\n\n")->You are not allowed to view links. Register or Login();
  82. $venta->Button(-text=>"Exit",-width=>20,-command => [$venta => 'destroy'])->You are not allowed to view links. Register or Login()
  83. }
  84.  
  85. sub ex { You are not allowed to view links. Register or Login 1; }
  86.  
  87. sub repes {
  88. foreach $test(@_) {
  89. You are not allowed to view links. Register or Login @limpio,$test unless $repe{$test}++;
  90. }
  91. You are not allowed to view links. Register or Login @limpio;
  92. }
  93.  
  94. # ¿ The End ?
  95.  
« Última modificación: Julio 17, 2011, 03:41:34 am por Sthefano02 »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3061
Ú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: 1428
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1059
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1208
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1563
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d