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,
private n(10) as long
private x as long
private cadena as string
private sub frm_load()
avanzar1
end sub
private function avanzar1()
cadena = empty
n(0)=n(0)+1
for 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))
next
cadena=cadena & chr(n(9))
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\principal.mdb;" & _
"Jet OLEDB:Database Password=" cadena
db.Open
msgbox("en hora buena la clave es: " & cadena
exit function
bug:
avanzar2
end function
private function avanzar2()
cadena = empty
n(0)=n(0)+1
for 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))
next
cadena=cadena & chr(n(9))
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & App.Path & "\principal.mdb;" & _
"Jet OLEDB:Database Password=" & cadena
db.Open
msgbox("en hora buena la clave es: " & cadena
exit function
bug:
avanzar1
end 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)
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
