Mensajes

HOLA!!!

Gracias por sus respuestas, optare por algo poco ortodoxo... En mi notebook VS 2013 y en esta pc Solo team viewer, asi mato 2 pajaros de un tiro, mis codigos quedan en mi casa y no en mi trabajo, aparte no consumo recursos en la pc del trabajo.



GRACIAS POR LEER!!!

HOLA!!!



Posta...

Deberias revisar tus bases...

Código (vb) [Seleccionar] Expandir

Text1.text = GetIP()

GRACIAS POR LEER!!!

HOLA!!!

Bueno mi pc tiene lo siguiente: AMD 2.71 GHz del 2010 con 2 GB de ram.

Quisiera instalar de alguna manera VisualStudio (el mas nuevo posible) y que funcione decentemente.

En mi notebook tengo el 2012 quisiera saber si los proyectos seran compatibles con versiones anteriores.

En cuanto a esta pc pude instalar desde el 2005 al 2012 sin problemas, todos funcionan, pero realmente no andan bien, muy lentos, habra alguna version lite?.

En fin, era eso solo.

GRACIAS POR LEER!!!

HOLA!!!

Te puedo pedir las peticiones web por favor, en raw, por que en esta pc no corre el VS

GRACIAS POR LEER!!!

HOLA!!!

Tengo entendido que la propiedas localip se actualiza cuando se cambia el ip, pero si eso no te satisface podrias leer la salida de IPCONFIG.

Este es un codigo de ejemplo de como leer la salida de ip config para un windows en español y devolver el ip

Código (vb) [Seleccionar] Expandir

Private Function getip() As String
    Dim objShell, objCmdExec
    Set objShell = CreateObject("WScript.Shell")
    Set objCmdExec = objShell.exec("ipconfig")
    getCommandOutput = objCmdExec.StdOut.ReadAll
    Set objShell = Nothing
    Set objCmdExec = Nothing
   
    Dim lineas() As String
    lineas = Split(getCommandOutput, vbNewLine)
    For x = 0 To UBound(lineas)
        If InStr(lineas(x), "Direcc") Then Exit For
    Next
    getip = Trim(Split(lineas(x), ":")(1))
End Function


GRACIAS POR LEER!!!

HOLA!!!

Me imagino, supongo que no debe soportar, intenta meter un archivo binario en memoria y volver a volcarlo, si funciona soporta unicode sino no.

GRACIAS POR LEER!!!

HOLA!!!

Solicito formalmente por medio de la presente que este post sea colocado como chincheta del Subforo de Analisis y Diseño de Malware.

GRACIAS POR LEER!!!

[Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.]

HOLA!!!

Este soft es la solucion definitiva para los problemas de conexión de los RATs y Troyanos, se encarga de revisar por que tu troyano o RAT no conecta correctamente, antes de iniciarlo deberias ya haber intentado:
Abrir puertos del router
Desactivar Firewall
Redireccionar tu DNS a tu ip
Y por ultimo cerrar el cliente de tu troyano para que no escuche a la vez que este programa.


Cuando inicia el soft te da unas indicaciones:


Cuando todo Funciona bien se comporta asi:


Cuando tu DNS no esta bien configurado:



Cuando el puerto no esta abierto:





Si tienen dudas coloquen siempre el archivo Log que se crea en la misma carpeta en la que esta el ejecutable.



Descarga:
TryConnect.rar

Moderadores y demas: si quieren el codigo se los paso, a users regulares, wiki y otros no. El programa esta codeado en VB6 Codigo prolijo y estructurado.

GRACIAS POR LEER!!!

HOLA!!!

Perdon por llegar tarde 

Pero aca tenes una funcion completisima para obtener la ip externa, copia y pega el texto en un form vacio y voila, tu ip.

Esta funcion busca en varias webs tu posible ip externo y verifica que sea un ip valido.

Código (vb) [Seleccionar] Expandir

Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal sURL As String, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet.dll" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal LpszDir As String, ByVal FsShowCmd As Long) As Long
Private Const IF_FROM_CACHE = &H1000000
Private Const IF_MAKE_PERSISTENT = &H2000000
Private Const IF_NO_CACHE_WRITE = &H4000000
Private Const Webs As String = "http://bot.whatismyipaddress.com/ http://myip.dnsomatic.com/ http://ip.nfriedly.com/text"
Private Const BUFFER_LEN = 256
Public Function Gurl(sURL As String) As String
    Dim sBuffer As String * BUFFER_LEN, iResult As Integer, sData As String
    Dim hInternet As Long, hSession As Long, lReturn As Long
    hSession = InternetOpen("vb wininet", 1, vbNullString, vbNullString, 0)
    If hSession Then hInternet = InternetOpenUrl(hSession, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
    If hInternet Then
        iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
        sData = sBuffer
        Do While lReturn <> 0
            iResult = InternetReadFile(hInternet, sBuffer, BUFFER_LEN, lReturn)
            sData = sData + Mid(sBuffer, 1, lReturn)
        Loop
    End If
    iResult = InternetCloseHandle(hInternet)
    Gurl = Replace(sData, Chr(0), vbNullString)
End Function
Private Function CheckExternalIp() As String
Dim IP As String
Dim URLs() As String: URLs = Split(Webs)
For x = 0 To UBound(URLs)
    IP = Gurl(URLs(x))
    If IsValidIp(IP) Then Exit For
Next
If IP = vbNullString Then MsgBox "Checkee su conexion a internet por favor, parece que esta fallando.", vbCritical, "Ups!": Unload Me
CheckExternalIp = IP
End Function
Private Function IsValidIp(strIpAddress) As Boolean
    Dim aTmp
    IsValidIp = False
    aTmp = Split(strIpAddress, ".")
    If UBound(aTmp) <> 3 Then Exit Function
    For Each field In aTmp
    If field > 255 Then Exit Function
    Next
    IsValidIp = True
End Function

Private Sub Form_Load()
    Show
    Print CheckExternalIp
End Sub

GRACIAS POR LEER!!!

HOLA!!!

Soporta Unicode?

P.D: muy buen aporte!

GRACIAS POR LEER!!!