send
Grupo de Telegram
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] Manager

  • 0 Respuestas
  • 757 Vistas

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

Desconectado BigBear

  • *
  • Underc0der
  • Mensajes: 544
  • Actividad:
    0%
  • Reputación 3
    • Ver Perfil
« en: Julio 03, 2011, 09:47:26 pm »
Bueno , aca les traigo un programa que los ayudara a listar todos los
procesos y cerrar el que quieran
En esta version podran tener una interfaz grafica


Código: Perl
  1. #!usr/bin/perl
  2. #Manager (C) Doddy Hackman 2010
  3. #Module neccesary
  4. #ppm install http://trouchelle.com/ppm/Win32-Process-List.ppd
  5.  
  6. use Win32::Process::List;
  7. use Win32::Process;
  8. use Tk;
  9.  
  10. if ($^O eq 'MSWin32') {
  11. use Win32::Console;
  12. Win32::Console::Free();
  13. }
  14.  
  15. $new = MainWindow->new(-background=>"black");
  16. $new->geometry("250x300+20+20");
  17. $new->resizable(0,0);
  18. $new->title("Manager 0.1");
  19. $new->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"Process")->You are not allowed to view links. Register or Login();
  20. my $lists = $new->Listbox(-background=>"black",-foreground=>"green")->place(-You are not allowed to view links. Register or Login=>"50",-x=>"60");
  21. $new->Button(-background=>"black",-foreground=>"green",-text=>"Close",-activebackground=>"green",-width=>"40",-command=>\&You are not allowed to view links. Register or Login)->place(-You are not allowed to view links. Register or Login=>"218");
  22. $new->Button(-background=>"black",-foreground=>"green",-text=>"Refresh",-width=>"40",-activebackground=>"green",-command=>\&refresh)->place(-You are not allowed to view links. Register or Login=>"240");
  23. $new->Button(-background=>"black",-foreground=>"green",-text=>"About",-width=>"40",-activebackground=>"green",-command=>\&about)->place(-You are not allowed to view links. Register or Login=>"263");    
  24.  
  25. &refresh;
  26.  
  27. MainLoop;
  28.  
  29.  
  30. sub refresh {
  31.  
  32. my @pids;
  33. my @procer;
  34. my $limit;
  35.  
  36. $lists->You are not allowed to view links. Register or Login(0.0,"end");
  37.  
  38. my $new = Win32::Process::List->new();  
  39. my %process = $new->GetProcesses();
  40. my $limit = -1;
  41. for my $pid (You are not allowed to view links. Register or Login %process) {
  42. $limit++;
  43. You are not allowed to view links. Register or Login (@procer,$process{$pid});
  44. You are not allowed to view links. Register or Login (@pids,$pid);
  45. }
  46. You are not allowed to view links. Register or Login "\n\n[+] ".You are not allowed to view links. Register or Login(@procer)."\n\n";
  47. for my $n(0..$limit) {
  48. You are not allowed to view links. Register or Login $procer[$n]."\n";
  49. $lists->insert("end",$procer[$n]);
  50. }
  51.        
  52.  
  53. }
  54.  
  55. sub You are not allowed to view links. Register or Login {
  56.  
  57. $d = $lists->curselection();
  58.  
  59. for my $id (@$d) {
  60.  
  61. my $proceso = $lists->get($id);
  62.  
  63. my $pida = Win32::Process::List->new();
  64. my @pid = $pida->GetProcessPid($proceso);
  65.  
  66. Win32::Process::KillProcess(@pid[1],$proceso);
  67. You are not allowed to view links. Register or Login 3;
  68. &refresh();
  69. }
  70. }
  71.  
  72.  
  73.  
  74. sub about {
  75. $about = MainWindow->new(-background=>"black");
  76. $about->title("About");
  77. $about->geometry("150x100+20+20");
  78. $about->resizable(0,0);
  79. $about->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"Coded By Doddy H")->You are not allowed to view links. Register or Login();
  80. $about->Label(-background=>"black",-foreground=>"green")->You are not allowed to view links. Register or Login();
  81. $about->Label(-background=>"black",-foreground=>"green",-font=>"Impact",-text=>"2011")->You are not allowed to view links. Register or Login();
  82. }
  83.  
  84.  
  85.  
  86. # ¿ The End ?
  87.  


Si lo quieren descargar desde sourceforge

Código: You are not allowed to view links. Register or Login
https://sourceforge.net/projects/managerx/
« Última modificación: Marzo 14, 2015, 10:03:26 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2851
Ú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: 1325
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1078
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 969
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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