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

  Name:     encrypt() - encrypt a string so it cannot be read
  Usage:    <string> = encrypt(<string>,[<key>])
  Params:   string <string> - the string to encrypt
            string <key> - a character string to use as the
            encryption key, if left off the internal key is used.
  Returns:  an encrypted string

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

                 han1 = fopen("test.txt")
                 han2 = fcreate("encrypt.txt","1134325GFH")
                 do while .not. feof(han1)
                      fwriteline(han2,encrypt(freadline(han1)))
                 enddo

                 fclose(han1)
                 fclose(han2)

            This example encrypts a text file line by line and
            creates a new file