Hi Marcel,
you could use the commands Encrypt
and Decrypt
and apply these on an expression containing a whole notebook. The encryption would look like:
notebook = << "SecretNotebook.nb";
encrNotebook = Encrypt["sectretPW", notebook];
encrNotebook >> "Protected_SecretNotebook.nb";
(* then one might consider to execute:
DeleteFile["SecretNotebook.nb"]; *)
and the decryption:
encrNotebook = << "Protected_SecretNotebook.nb";
notebook = Decrypt["sectretPW", encrNotebook];
notebook >> "RestoredSecretNotebook.nb";
This might be a good protection in case of curious neighbors, but on a more general level I do not believe in the usefulness of an encryption algorithm which is not open source!
Regards -- Henrik