#By Doddy H
 
use Win32::Job;
 
sub cmd {
 
my $job = Win32::Job->new;
$job->spawn("cmd",qq{cmd /C $_[0]},{
no_window => "true",
stdout => "logx.txt",
stderr => "logx.txt"
}
);
$ok = $job->run("30");
 
open (F,"logx.txt");
@words = <F>;
close F;
 
unlink("logx.txt");
 
return @words;
 
}
 
 

@re = cmd("ver");
print @re;
 

use HTML::LinkExtor;
 
sub get_links {
 
$test = HTML::LinkExtor->new(\&agarrar)->parse($code);
return @links;
 
sub agarrar {
my ($a,%b) = @_;
push(@links,values %b); 
}
}
 

use LWP::Simple;
 
$code = get("http://127.0.0.1/doddy/index.php");
 
my @ver = get_links();
 
for my $url(@ver) {
print $url."\n";
}
 

use Win32::OLE qw(in);
 
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;
}
 

my %vida = getprocess();
 
for my $data(keys %vida) {
print "[Proceso] : ".$data."\n";
print "[PID] : ".$vida{$data}."\n\n";
}
 

#By Doddy H
use IO::Socket;
 
sub get_ip {
my $get = gethostbyname("");
return inet_ntoa($get);
}

print get_ip();
 

#By Doddy H
use Cwd;
 
 
sub getdrive {
 
$path = getcwd();
 
if ($path=~/(.*):\/\//ig or $path=~/(.*):\//) {
return $1.":/";
} 
 
}
 

print getdrive();
 

#By Doddy H
use Win32::File;
 
sub hideit {
if ($_[1] eq "show") {
Win32::File::SetAttributes($_[0],NORMAL);
}
elsif ($_[1] eq "hide") {
Win32::File::SetAttributes($_[0],HIDDEN);
}
else {
print "error\n";
}
}
 

hideit("test.pl","show");
 
 

#By Doddy H
 
use Win32::Clipboard;
use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
 
capture_window();
 
sub capture_window {
 
SendKeys("%{PRTSCR}"); 
 
my $a = Win32::Clipboard::GetBitmap();
 
open (FOTO,">foto.bmp");
binmode(FOTO);
print FOTO $a;
close FOTO;
 
}

capture_window()

#By Doddy H
sub savefile {
open (SAVE,">>".$_[0]);
print SAVE $_[1];
close SAVE; 
}

savefile("C:\\Windows\\Logs\\file.txt","hola")
 

#By Doddy H
 
use Color::Output;
Color::Output::Init;
 
sub printear {
if ($_[1] eq "text") {
cprint("\x03".$_[2].$_[0]."\x030\n");
}
elsif ($_[1] eq "stdin") {
if ($_[3] ne "") {
cprint("\x03".$_[2].$_[0]."\x030"."\x03".$_[3]);
my $op = <stdin>;
chomp $op;
cprint ("\x030");
return $op;
}
}
else {
print "error\n";
}
}
 

printear("text","text/stdin","color text","color output")

printear("hola","text","10","5");
 

my $d  = printear("nombre : ","stdin","6","2");
print "pusiste $d\n";
 

use Win32::Process;
 
sub killprocess {
 
my ($numb,$pid) = @_;
 
if (Win32::Process::KillProcess($pid,$numb)) {
return true;
} else {
return false;
}
}

if (killprocess("deamon.exe","4052")) {
print "chau\n\a";
}