#!usr/bin/perl#Manager 0.3#Written By Doddy Huse Color::Output;Color::Output::Init;use Win32::OLE qw(in);use Win32::Process;&clean;&options;sub clean { cprint "\x0313"; print"\nManager 0.3\nCopyright 2012 Doddy Hackman\nMail:lepuke[at]hotmail[com]\n\n"; cprint "\x0x30\n\n"; my %process = getprocess(); chomp %process; $limit = ""; for my $pid ( keys %process ) { if ( $pid ne "" ) { $limit++ } push( @procer, $process{$pid} ); push( @pids, $pid ); chomp( @procer, @pids ); } $limit--; for my $n ( 1 .. $limit ) { cprint "\x037"; print "Process Number: [$n]\tProcess name : $procer[$n]\tPID : $pids[$n]\n"; cprint "\x037"; }}sub options { cprint "\0035"; print"\n\nOptions :\n\n[a] : Close a process\n[b] Clean Console\n[c] Exit\n\n\n[+] Write you options : "; $t = <STDIN>; chomp $t; if ( $t eq "a" ) { &close; } elsif ( $t eq "b" ) { reload(); } elsif ( $t eq "c" ) { print "\n\n[+] Written By Doddy H\n\n"; <stdin>; exit(1); } else { reload(); }}sub close { print "\n[+] Write the number of the process : "; $numb = <STDIN>; chomp $numb; Win32::Process::KillProcess( @procer[$numb], "" ); print "\n\n[+] OK , Process Closed\n\n"; <stdin>; reload();}sub reload { system("cls"); system($0); &clean; &options;}sub getprocess { my %procesos; my $uno = Win32::OLE->new("WbemScripting.SWbemLocator"); my $dos = $uno->ConnectServer( "", "root\\cimv2" ); foreach my $pro ( in $dos->InstancesOf("Win32_Process") ) { $procesos{ $pro->{Caption} } = $pro->{ProcessId}; } return %procesos;}# The End ?
