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