Proteja com senha uma expressão com a função Encrypt
Cifre uma mensagem usando a senha "Shiver me timbers!", produzindo um EncryptedObject.
In[1]:=
secretMessage =
Encrypt["Shiver me timbers!", "I buried a stash of gold somewhere."]Out[1]=

Agora os dados estão cifrados.
In[2]:=
InputForm[secretMessage]Out[2]//InputForm=

Para decifrar os dados use a mesma senha.
In[3]:=
Decrypt["Shiver me timbers!", secretMessage]Out[3]=