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
  • 1476 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(-y=>10,-x=>10);
  24. my $filex = $new->Entry(-width=>40)->place(-y=>13,-x=>50);
  25. $new->Button(-text=>"Browse",-width=>10,-command=>\&bro)->place(-y=>10,-x=>300);
  26.  
  27. $new->Label(-text=>"Proxy OK")->place(-y=>50,-x=>65);
  28. my $proxy_buenos = $new->Listbox()->place(-y=>"80",-x=>"40");
  29.  
  30. $new->Label(-text=>"Proxy Failed")->place(-y=>50,-x=>230);
  31. my $proxy_malos = $new->Listbox()->place(-y=>"80",-x=>"200");
  32.  
  33. $new->Button(-text=>"Scan",-width=>64,-command=>\&scan)->place(-y=>255);
  34. $new->Button(-text=>"About",-width=>64,-command=>\&about)->place(-y=>277);
  35. $new->Button(-text=>"Exit",-width=>64,-command=>\&ex)->place(-y=>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->delete(0.0,"end");
  50. $proxy_malos->delete(0.0,"end");
  51.  
  52. my $archivo = $filex->get;
  53.  
  54. open(FILE,$archivo);
  55. my @lineasa = <FILE>;
  56. close FILE;
  57. chomp @lineasa;
  58.  
  59. my @lineas = repes(@lineasa);
  60. chomp @lineas;
  61.  
  62. for my $pro(@lineas) {
  63. chomp $pro;
  64. print $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")->pack();
  82. $venta->Button(-text=>"Exit",-width=>20,-command => [$venta => 'destroy'])->pack()
  83. }
  84.  
  85. sub ex { exit 1; }
  86.  
  87. sub repes {
  88. foreach $test(@_) {
  89. push @limpio,$test unless $repe{$test}++;
  90. }
  91. return @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: 3279
Ú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: 1547
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1338
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
DoSing IP 1.0 - [Creado por SkillmaX] + Source [PERL]

Iniciado por SkillmaX

Respuestas: 0
Vistas: 1427
Último mensaje Julio 04, 2010, 10:14:31 am
por SkillmaX