encryptFile <in_filename_string> <out_filename_string> <key_integer>
Creates an encrypted copy of the file named by <in_filename_string> using the integer supplied as a key, naming the encrypted file <out_filename_string>.
openEncryptedFile <filename_string> <key_integer>
Opens the encrypted file using the given integer key and returns a FileStream value that you can then do read calls on, exactly as you can on FileStreams returned from the openFile() function.
encryptFile() and openEncryptedFile() let you encrypt a text file with your own key and open an encrypted file via a key for reading. Among other things, you can use this to write and read an encrypted file containing a hardware lock ID for doing authorization-based piracy protection.
Here is some code that creates an encrypted lock ID file in some authorization process.
|
EXAMPLE |
f = createFile "lock.tmp" format "%" hardwareLockID to:f close f encryptFile "lock.tmp" "lock.dat" 5476557 deleteFile "lock.tmp" |
The following code can be used to read and check the lock ID (obviously, all this is only safe if the creation and checking scripts are themselves encrypted):
|
EXAMPLE |
f = openEncryptedFile "lock.dat" 5476557 id = readValue f close f if id != hardwareLockID then ( message "Lock ID's don't match" return 0 ) |