Click above to get retro games delivered to your door ever month!

  Name:     decrypt() - unencrypt an encrypted string
  Usage:    <string> = decrypt(<string>,[<key>])
  Params:   string <string> - the string to encrypt
            string <key> - the key to used when the <string> was
            originally encrypted. If left off then an internal
            key is used.

  Returns:  a string equal to the unencrypted contents of <string>

 ---------------------------------- Example ---------------------------------

                 use names
                 seek "BENSON"

                 if found()
                      m_fname = fname
                      m_lname = lname
                      m_pword = decrypt(pword)
                 endif

                 @ 24,0 say "Enter your password: " get m_pword2
                 read

                 if (m_pword2 != pword)
                      @ 0,0 say "invalid password!!"
                      close databases
                      quit
                 endif

  Note:     You can change the key to create longer encryption
            schemes. While this method creates an unintelligible
            string, it is not guaranteed to stop experienced code
            crackers, but it should be most adequate