Saludos

regreso a este foro despues de ojearlo hace ya bastante tiempo para ver si alguien me puede ayudar con un problema,
estoy creando un troyano en VB de conexion inversa y pues tecnicamente ya termine, pero las pruebas las estaba realizando en el mismo PC, es decir el winsock se conectaba a la IP local,
entonces luego cambie por un dominio en noip.com, dado que mi IP es dinamica y ya tenia intenciones de enviarlo a la victima, pero antes de enviarlo, decidi probar en la misma PC ( no se si es por eso..)  y pues puse el programa a la escucha y ejecute el otro que se deberia conectar pero no paso nada...
entonces para mirar que pasaba puse un Msgbox que me indicaba el estado de conexion y me arrojo 4, mire y dice que es Resolviendo Host, y pues la verdad no se que significa XD, ni tampoco como arreglarlo jeje,
agradezco mucho a el que me pueda colaborar, es mi primer troyano usando el CSocketMaster , y creo que me estaba quedando bien jejeje
Gracias de antemano

buenas, lo que te recomiendo para ayudarte con mas precicion es que dejes tu codigo de como hiciste la conexion, y fijate de que el CScoketMaster lo hayas bajado de la pagina oficial

saludos

el code está bien lo que está fallando es el no-ip.. te doy una sugerencia...

porque no le decis a algún voluntario XD(amigo tuyo o algo) y vas probando cada vez que estes en duda,  ahora hace esto:

en vez de poner tu no-ip pone tu ip dinámica común (no vayas a probar con "127.0.0.1"  ) jaja
y despues pusiste el :

Option Explicit
Public WithEvents ws2 As CSocketMaster

y despues en el form_load:

Set ws2 = New CSocketMaster

y pone un label en el cliente o lo que quieras que sea

if ws2.state = sckConnected then
label.caption = "conectado"
else
label.caption = "desconectado"

un saludo

Este es un ejemplo con CSocketPlus es igual que el CSocketMaster solo que:

CSocketPlu= Usa Arrays
CSocketMaster= No usa Array

PERO SUS EVENTOS SON LOS MISMOS Tomando en cuenta la diferencia de INDEX

A lo que voy es que pruebes con poner el ConnectionRequestID:

Para CSocketMaster:
Revisa este por que no cuento con los archivos del CSocketMaster asi que deduci lo siguiente...¡!

Dim WithEvents ws0 As CSocketPMater
'En un procesoX
Set ws0 = New CSocketMaster
'ws0.CloseSck 'Cuando agregas uno ya esta cerrado por logica
ws0.LocalPort = 453
ws0.Listen
'Fin de Proceso X
 
Private Sub ws0_ConnectionRequest(ByVal requestID As Long)
    ws0.CloseSck
    ws0.Accept requestID
End Sub
 
Private Sub ws0_DataArrival(ByVal bytesTotal As Long)
    Dim datos As String
    ws0.GetData datos, vbString
    Text1 = Text1 & vbCrLf & datos
End Sub
 

Para CSocketPlus

Dim WithEvents ws0 As CSocketPlus
'En un procesoX
Set ws0 = New CSocketPlus
ws0.ArrayAdd 0
'ws0.CloseSck 0 'Cuando agregas uno ya esta cerrado por logica
ws0.LocalPort(0) = 453
ws0.Listen 0
'Fin de Proceso X
 
Private Sub ws0_ConnectionRequest(ByVal Index As Variant, ByVal requestID As Long)
    ws0.CloseSck Index
    ws0.Accept Index, requestID
End Sub
 
Private Sub ws0_DataArrival(ByVal Index As Variant, ByVal bytesTotal As Long)
    Dim datos As String
    ws0.GetData Index, datos, vbString
    Text1 = Text1 & vbCrLf & datos
End Sub
 

Como viste la unica diferencia es que en uno siempre se maneja una variable index (CSocketPluys) y en otro no (CSocketMaster).


Para ver si esta conectado o no sin usar timer en donde usas el Sock con el evento Connect es decir el cliente no el servidor (en el source donde espesificas el ip a conectar). puedes meter estos eventos

CSocketMaster:

Private Sub ws0_Connect()
    MsgBox "Socket Conectado"
End Sub
Private Sub ws0_CloseSck()
    MsgBox "Socket Desconectado"
End Sub
Private Sub ws0_Error( ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Sock Error"
End Sub
 

CSocketPlus

Private Sub ws0_Connect(ByVal Index As Variant)
    MsgBox "Socket Conectado"
End Sub
Private Sub ws0_CloseSck(ByVal Index As Variant)
    MsgBox "Socket Desconectado"
End Sub
Private Sub ws0_Error(ByVal Index As Variant, ByVal Number As Integer, Description As String, ByVal sCode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
    MsgBox "Sock Error"
End Sub
 

P.D.: Con respecto a la DNS sea cual sea (No-ip,dyndns o como sea "X")  deberias rectificar los puetos que deberias abrir para tal acción, tanto en firewall de windows como de av como los de router si llegases a usar (Esto va en su foro correspondiente).

Dulces Lunas¡!

que ganas ░▒▓BlackZeroҖ▓▒░...reconozoco tu ganas de ayudar...pero habiendo tantos ejemplos basicos de estos "programas" de troyanos suelto en internet...ya no es ayudar sino dar en bandeja...que se "maten" buscando en internet vos no te preocupes...ya todos estos temas que preguntan como hacer un troyano ya todos los foreros debemos saber que tienen que buscar en internet otra no hay...pero ni le des mas codigo que lo busquen como nosotros tuvimos que buscarlo algun dia...porque sino van a venir a preguntar cualuquier "duda" y nosotros los "bulu del foro" le vamos a contestar...esto no va para este tema ..sino para todos los temas que haya asi igual en el foro...ya lo dije alguna vez..pero ni caso hacen...

saludos.