Neil G Jarman wrote on 25 apr 2006 in
microsoft.public.inetserver.asp.general:
I would like to save my user's passwords as an encrypted sting.
Are their built in functions for doing this?
It's not financial data or anything, just to keep away prying eyes.
Prying eyes on the server?
That is not usefull, since anyone having access to the server can insert a
password bypassing backdoor.
Perhaps Rot13 will be enough?
Function ROT13(szInput)
txt = ""
coding =
"ABCDEFGHIJKLMNOPQRSTUVWXYZABCDEFGHIJKLMabcdefghij klmnopqrstuvwxyzabcdefghi
jklm"
For i = 1 To Len(szInput)
character = Mid(szInput, i, 1)
position = InStr(coding, character)
If position > 0 Then character = Mid(coding, position + 13, 1)
txt = txt & character
Next
ROT13 = txt
End Function
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)