#By Doddy H
use Win32::GuiTest qw(MouseMoveAbsPix SendMessage);
 
sub crazymouse {
for my $number(1..$_[0]) {
MouseMoveAbsPix($number,$number);
} 
}

crazymouse("666");
 

use IO::Socket;
 
sub conectar {
 
my $sockex = new IO::Socket::INET(PeerAddr => $_[0],PeerPort => $_[1],
Proto => "tcp",Timeout  => 5);
 
print $sockex $_[2]."\r\n";
$sockex->read($re,5000);
$sockex->close;
return $re."\r\n";
}
 

conectar(host,puerto,parametro a enviar)

$re = conectar("127.0.0.1","80","GET /sql.php HTTP/1.0\r\n");
print $re;
 

 
#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");