Waiting for Mathematica to appear on my iPhone, so it can't verify anything, but why don't you write the line to a temporary file and get this?
Refresh
Here's how to do it:
encoded = ToFileName[$TemporaryDirectory, "encoded"]; Export[encoded, "code string", "Text"]; (*export encrypted code to temp file *)
It is important to copy the contents of a line of code from an ASCII file containing encoded code using the ASCII editor and paste it between existing empty quotation marks (""). Mathematica then automatically escapes backslashes and quotes that may be in code. This file was made earlier using Encode . You cannot do this here in the sample code, since SO Markdown will interfere with the string.
Get[encoded] (* get encrypted code and decode *) DeleteFile[encoded] (* Remove temp file *)
Final answer
Get not required for decoding. ImportString also works:
ImportString["code string", "NB"]
As above, paste the encoded text from the ASCII editor right between the "" and let MMA do the escaping.

source share