elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [Perl] Funcion writeword()
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Perl] Funcion writeword()  (Leído 1,569 veces)
BigBear


Desconectado Desconectado

Mensajes: 545



Ver Perfil
[Perl] Funcion writeword()
« en: 10 Octubre 2011, 16:52 pm »

Hola , con esta funcion podran ejecutar word y escribir el texto que quieran, muy util si quieren hacer un virus

Código
  1. #By Doddy H
  2.  
  3. use Win32::Clipboard;
  4. use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
  5.  
  6. sub loadword {
  7.  
  8. system("start winword.exe");
  9.  
  10.  
  11. SendKeys($_[0]);
  12.  
  13. }
  14.  

Ejemplo de uso

Código:
loadword("Hola a todos");


« Última modificación: 10 Octubre 2011, 16:53 pm por Doddy » En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Funcion Ip Publica [Perl]
Scripting
isseu 2 3,166 Último mensaje 8 Mayo 2010, 00:17 am
por leogtz
[Perl] Funcion Speak()
Scripting
BigBear 0 1,694 Último mensaje 10 Octubre 2011, 16:51 pm
por BigBear
[Perl] Funcion wormer()
Scripting
BigBear 0 1,532 Último mensaje 10 Octubre 2011, 16:51 pm
por BigBear
[Perl] Funcion movewin()
Scripting
BigBear 0 1,529 Último mensaje 11 Octubre 2011, 18:08 pm
por BigBear
[Perl] Funcion killprocess()
Scripting
BigBear 0 1,606 Último mensaje 11 Octubre 2011, 18:09 pm
por BigBear
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines