call rxFuncAdd "Crypt", "RxCrypt", "RxCrypt"
/* Generate random salt, see crypt.txt */
itoa64 = "./0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" ||,
"abcdefghijklmnopqrstuvwxyz"
salt = ""
do i = 1 to 8
salt = salt || substr( itoa64, random( 0, 63 ) + 1, 1 )
end
/* Get and encrypt password */
call charout ,"Enter password : "
parse pull passone
passone = Crypt( passone, salt )
say "Encrypted password : "passone
/* Get password for verify */
call charout ,"Re-enter password : "
parse pull passtwo
/* Check password */
passtwo = Crypt( passtwo, passone )
if passtwo == passone then
say "Password test passed"
else
say "Password mismatch"
|