Encryptで式にパスワードを設定してプロテクトをかける
簡単なパスワード「Shiver me timbers!」を使ってメッセージを暗号化し，EncryptedObjectを得る．
In[1]:=
secretMessage =
Encrypt["Shiver me timbers!", "I buried a stash of gold somewhere."]Out[1]=
データは暗号化された．
In[2]:=
InputForm[secretMessage]Out[2]//InputForm=
同じパスワードを使ってデータの暗号解読を行う．
In[3]:=
Decrypt["Shiver me timbers!", secretMessage]Out[3]=
