Hack x Crack - Comunidad de Seguridad informática

Programación => Scripting => Perl => Mensaje iniciado por: BigBear en Mayo 02, 2011, 01:09:46 am

Título: [Perl] Funcion crazymouse()
Publicado por: BigBear en Mayo 02, 2011, 01:09:46 am

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: [Seleccionar]
#By Doddy H
use Win32::GuiTest qw(MouseMoveAbsPix SendMessage);

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

Ejemplo de uso

Código: [Seleccionar]
crazymouse("666");
Título: Re:[Perl] Funcion crazymouse()
Publicado por: 996matias en Mayo 02, 2011, 01:12:25 am
esto que le hace al mouse exactamente???
esta escrito en Visual Basic??
Título: Re:[Perl] Funcion crazymouse()
Publicado por: BigBear en Mayo 02, 2011, 01:14:51 am
Es perl y si mueve el mouse
Título: Re:[Perl] Funcion crazymouse()
Publicado por: 996matias en Mayo 02, 2011, 01:15:56 am
pero que es lo que le hace al mouse???  ???
Título: Re:[Perl] Funcion crazymouse()
Publicado por: BigBear en Mayo 02, 2011, 01:20:19 am
Lo vuelve loco al estilo mosca , el 666 es el tiempo que se mantiene activa la funcion.

Saludos
Título: Re:[Perl] Funcion crazymouse()
Publicado por: 996matias en Mayo 02, 2011, 01:23:54 am
graxias ya entendi  ;D :) ;) :D