• Inicio
  • Buscar
  • Ingresar
  • Registrarse

    Tecnología y Educación: Una combinación para el éxito

    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Funcion crazymouse()
    • Imprimir
    Páginas: [1]   Ir Abajo

    Autor Tema: [Perl] Funcion crazymouse()  (Leído 2320 veces)

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    [Perl] Funcion crazymouse()
    « 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");
    En línea

    Desconectado 996matias

    • { L5 } Smurf
    • *****
    • Mensajes: 699
      • Ver Perfil
    Re:[Perl] Funcion crazymouse()
    « Respuesta #1 en: Mayo 02, 2011, 01:12:25 am »
    esto que le hace al mouse exactamente???
    esta escrito en Visual Basic??
    En línea
    Primero elijes a tu victima, luego la seduces, despues...la manipulas, y finalmente terminas controlandola. 8)

    Twitter: @996matias

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Perl] Funcion crazymouse()
    « Respuesta #2 en: Mayo 02, 2011, 01:14:51 am »
    Es perl y si mueve el mouse
    En línea

    Desconectado 996matias

    • { L5 } Smurf
    • *****
    • Mensajes: 699
      • Ver Perfil
    Re:[Perl] Funcion crazymouse()
    « Respuesta #3 en: Mayo 02, 2011, 01:15:56 am »
    pero que es lo que le hace al mouse???  ???
    En línea
    Primero elijes a tu victima, luego la seduces, despues...la manipulas, y finalmente terminas controlandola. 8)

    Twitter: @996matias

    Desconectado BigBear

    • { L5 } Smurf
    • *****
    • Mensajes: 594
      • Ver Perfil
    Re:[Perl] Funcion crazymouse()
    « Respuesta #4 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
    En línea

    Desconectado 996matias

    • { L5 } Smurf
    • *****
    • Mensajes: 699
      • Ver Perfil
    Re:[Perl] Funcion crazymouse()
    « Respuesta #5 en: Mayo 02, 2011, 01:23:54 am »
    graxias ya entendi  ;D :) ;) :D
    En línea
    Primero elijes a tu victima, luego la seduces, despues...la manipulas, y finalmente terminas controlandola. 8)

    Twitter: @996matias

    • Imprimir
    Páginas: [1]   Ir Arriba
    • Hack x Crack - Comunidad de Seguridad informática »
    • Programación »
    • Scripting »
    • Perl »
    • [Perl] Funcion crazymouse()
     

    • SMF | SMF © 2013, Simple Machines
    • XHTML
    • RSS
    • WAP2
    Va un mudo y le dice a un sordo: Hack x Crack usa cookies. Pues eso... Learn more