Защита пароля при помощи выражения шифровальщика

Зашифруйте сообщение, используя простой пароль "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]=