Mensajes

Hola a todos

Si yo de nuevo con esta nueva funcion crazymouse()
, con esta funcion podran volver loco al mouse sin poder controlarlo
todo por un tiempo elegido por ustedes , muy util si estan por
hacer un virus

Código (perl) [Seleccionar] Expandir



#By Doddy H
use Win32::GuiTest qw(MouseMoveAbsPix SendMessage);

sub crazymouse {
for my $number(1..$_[0]) {
MouseMoveAbsPix($number,$number);
}
}

Ejemplo de uso

Código (perl) [Seleccionar] Expandir


crazymouse("666");


Hola a todos.

Aca les dejo una funcion para conectarse mediante sockets al servidor que quieran

Código (perl) [Seleccionar] Expandir

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";
}


Sintasis

Código [Seleccionar] Expandir


conectar(host,puerto,parametro a enviar)


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


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


Hola a todos

Acabo de hacer esta funcion cmd() para poder ejecutar comandos
de forma comoda

Código (perl) [Seleccionar] Expandir



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

}



Ejemplo de uso

Código (perl) [Seleccionar] Expandir

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


Podes usar pygame ..

apuesto a que gana yoya

Hola a les traigo un funcion para buscar links en una web

Código (perl) [Seleccionar] Expandir

use HTML::LinkExtor;

sub get_links {

$test = HTML::LinkExtor->new(\&agarrar)->parse($code);
return @links;

sub agarrar {
my ($a,%b) = @_;
push(@links,values %b);
}
}

Ejemplo de uso

Código (perl) [Seleccionar] Expandir

use LWP::Simple;

$code = get("http://127.0.0.1/doddy/index.php");

my @ver = get_links();

for my $url(@ver) {
print $url."\n";
}


Hola aca les traigo una funcion que les mostrara los procesos en su computadora

Código (perl) [Seleccionar] Expandir


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;
}


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


my %vida = getprocess();

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


Hola a todos.

Aca les dejo una funcion que hice para reconocer nuestra IP sin necesidad de usar paginas webs con ese molesto servicio online

Código (perl) [Seleccionar] Expandir

#By Doddy H
use IO::Socket;

sub get_ip {
my $get = gethostbyname("");
return inet_ntoa($get);
}


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


print get_ip();


Con esta funcion podran tener el tipo de disco que se e esta ejecutando actualmente (c:/ o el que sea)

Código (perl) [Seleccionar] Expandir

#By Doddy H
use Cwd;


sub getdrive {

$path = getcwd();

if ($path=~/(.*):\/\//ig or $path=~/(.*):\//) {
return $1.":/";
}

}


Ejemplo de uso

Código (perl) [Seleccionar] Expandir


print getdrive();


Con esta funcion podran esconder o mostraR archivos/directorios ocultos en windows

Código (perl) [Seleccionar] Expandir

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


Ejemplo de uso show/hide

Código (perl) [Seleccionar] Expandir


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