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]=