Encode

Encode["source", "dest"]

<< dest

Encode["source", "dest", "key"]