Almacenar passwords

[dimoito]

Para hacer lo que quieres, tienes que idearte tu propio algoritmo de encriptación. Para que te hagas una idea, te paso uno muy sencillito como ejemplo:

function Encripta(palabra)
dim encrip
encrip = ""
for i = 1 to len(palabra)
Car = Asc(Mid(palabra,i,1))+1
encrip = encrip & chr(Car)
next
Encripta = encrip
end function


function DesEncripta(palabra)
dim encrip
encrip = ""
for i = 1 to len(palabra)
Car = Asc(Mid(palabra,i,1))-1
encrip = encrip & chr(Car)
next
Encripta = encrip
end function

Mipass = Encripta(MiPass)
Por ejemplo te cambiaría abc por bcd

Esta son dos funciones muy sencillas de encriptación, lo único que hace es incrementar en uno el carácter ASCII

Ahora depende de ti hacerlo todo lo sofisticado que quieras.

PD. Ojo, las he escrito aprisa y corriendo, por lo que pueden tener fallos de sintaxis :P