Mensajes

Eso lo se! Quiero buscar la forma de solucionar mi problema actual!

[- a - a - a - a - a - a - a - a - a - a - a]

Tengo un error en el algoritmo y no logro discernir cual es!!! espero la ayuda de todos jajaja

Código (vbnet) [Seleccionar] Expandir

Module PRUEBA

   Private DChar() As Char = {
       "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
       "u", "v", "w", "x", "y", "z",
       "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
       "U", "V", "W", "X", "Y", "Z",
       "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
   }

   Dim chrIntent As Integer
   Dim chrPos As Integer

   Public Sub initPasswordModule()

       chrIntent = 1
       chrPos = 0

   End Sub

   Public Sub newGetPassword()
       Dim BruteSTR(UBound(DChar)) As Char
       Dim PasswordCracked As Boolean

       PasswordCracked = True
       BruteSTR(0) = DChar(0)

       Do While PasswordCracked
           GenerateString(BruteSTR, chrPos, chrIntent)
           Debug.Print(BruteSTR & " - ")
           PasswordCracked = False
           Application.DoEvents()
       Loop

   End Sub

   Private Sub GenerateString(ByRef StrChar() As Char, ByRef cPos As Integer, ByRef cIntent As Integer)
       Dim lastCaracterIndex As Integer
       lastCaracterIndex = cIntent Mod Len(DChar)

       If lastCaracterIndex = 0 Then ' Llegamos al ultimo caracter del array => agregamos un nuevo caracter
           cPos = cPos
           StrChar(cPos) = DChar(0)
       Else
           StrChar(cPos) = DChar(lastCaracterIndex) ' Cambiamos el ultimo caracter por el siguiente
       End If

       cIntent = cIntent + 1

   End Sub

End Module

Aquí el error: (Ventana de Inmediato, debug)

- b - c - d - e - f - g - h - i - j - k - l - m - n - o - p - q - r - s - t - u - v - w - x - y - z - A - B - C - D - E - F - G - H - I - J - K - L - M - N - O - P - Q - R - S - T - U - V - W - X - Y - Z - 0 - 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - aa - ab - ac - ad - ae - af - ag - ah - ai - aj - ak - al - am - an - ao - ap - aq - ar - as - at - au - av - aw - ax - ay - az - aA - aB - aC - aD - aE - aF - aG - aH - aI - aJ - aK - aL - aM - aN - aO - aP - aQ - aR - aS - aT - aU - aV - aW - aX - aY - aZ - a0 - a1 - a2 - a3 - a4 - a5 - a6 - a7 - a8 - a9 - a - a - a - a - a - a - a - a - a - a - a

Véase los últimos caracteres en rojo. Muchas gracias a todos, espero que me puedan ayudar.

Utilizo VB2010

En la interfaz el fondo es negro, y tiene arriba un pic que calcula el porcentaje de la vida :|

Bueno si, lo se... Y por lo que djo elemental...
If C And H&8 Then

sería... Si C = 8 -> true?

Hola gente! he visto en algunos códigos que utilizan instrucciones como estas:

Código (vb) [Seleccionar] Expandir

If (A And &H20) Then Exit Function
If (C And &H8000) Then Exit Function
If (B And &H8) Then
etc...

La verdad, no soy de utilizar visual basic pero me gustaría entender que son y para que sirven bien 

Porque no modificas esa porcion de la memoria, proba haciendolo con el cheat engine y despues conectar los sockets... La verdad no tengo idea que msn tentes

Lo que tenes que hacer es tomar la porcion de memoria donde se almacena la IP y sacar la dirección solamente de esa porción, una vez que lo tenes crea una funcion que reemplace esa porcion de memoria por '127.0.0.1' en hex y pone los bytes que sobran 00...

La funcion sería algo así:

Código (vb) [Seleccionar] Expandir

Public Function Set_Memory_IP(MemoryOffset As Long, WindowName As String, Value As Currency) As Currency

    Dim hWnd As Long
    Dim ProcessID As Long
    Dim ProcessHandle As Long
   
    hWnd = FindWindow(vbNullString, WindowName)
   
    If hWnd = 0 Then
   
            MsgBox "No encontré el proceso", vbCritical, ""
           
            Exit Function

    End If
   
    GetWindowThreadProcessId hWnd, ProcessID
   
    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
   
    If ProcessHandle = 0 Then
           
        Exit Function
       
    End If
   
    WriteProcessMemory ProcessHandle, MemoryOffset, Value, 8, 0&

    CloseHandle ProcessHandle

End Function


Asi logras interceptar los paquetes que envía entre el cliente y el servidor y lo manejas como queres jaja

Encontré algo muy interesante 

http://www.persistentrealities.com/vbfibre/index.php?category=1&item=7&t=asm

Claro no me explique bien, tengo una aplicacion CLIENTE-SERVIDOR, yo quiero enviar desde el servidor datos, me explicarían si envío por ejemplo

test.php?variable=100&hola=text

como hago con php para pedir un dato a ese servidor, que el servidor ejecute alguna función y envíe la url con todos los datos?

Ingrese nick: (Aca pones por ejemplo "Juan")

Y el servidor lee Juan y te envía los datos, como sería?

Hola!, les quería preguntar que método puedo utilizar para pasar variables de VB6 a una página de PHP, sin usar Mysql.

Yo quiero por ejemplo que al ingresar a la web mi porograma actualice un dato de esa web, no se si se entiende.

Ejemplo, al ingresar el nombre "JORGE" abre el archivo JORGE.char, almaceno los datos que quiero en variables y como hago para mostrarlo en una web cuando se ingrese el nombre "JORGE"

Saludos!