Programación General > Visual Basic 6.0 e inferiores

 Espacio De Pila Insuficiente

(1/1)

jodijo5:
hol amigos, solocodigueros, tengo un problema; estoy desarrolando un software que es para descifrar el password de una base de datos de acces, como solo encontré un software que recobra las tres primeras letras gracias a mi amigo Radical, pues me anime a hacer una asi,

--- Código: Text --- private n(10) as longprivate x as longprivate cadena as string private sub frm_load()avanzar1end subprivate function avanzar1()cadena = emptyn(0)=n(0)+1for i=0 to 8   if(n(i)=128)then     n(i)=0     n(i+1)=n(i+1)+1   end if   cadena=cadena & chr(n(i))nextcadena=cadena & chr(n(9)) db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=" & App.Path & "\principal.mdb;" & _        "Jet OLEDB:Database Password=" cadenadb.Openmsgbox("en hora buena la clave es: " & cadenaexit functionbug:avanzar2end function private function avanzar2()cadena = emptyn(0)=n(0)+1for i=0 to 8   if(n(i)=128)then     n(i)=0     n(i+1)=n(i+1)+1   end if   cadena=cadena & chr(n(i))nextcadena=cadena & chr(n(9)) db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _        "Data Source=" & App.Path & "\principal.mdb;" & _        "Jet OLEDB:Database Password=" & cadenadb.Openmsgbox("en hora buena la clave es: " & cadenaexit functionbug:avanzar1end function  
bueno, la nota de esta cosa es que cada ves que cada funcion llega a 1144 llamadas me sale un mensage que dice "Espacio de pila insuficiente"

y el programa se planta

mi pregunta del millon es: (chan chan chan chan)


--- Citar ---como le hago para que cada cierto numero de llamadas la pila esa se borre completamente y asi seguir el ciclo hasta encontrar la clave
--- Fin de la cita ---

Navegación

[0] Índice de Mensajes