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"