R, Score 60, cracked
";<=>?@ABCDEFGHIJKLMNOPQRSVWXYZ[\\]^_`abeghjklmqrsvwxyz{|}~" Note that your output cannot have an initial [1] (as would be given by default printing). You cannot use cat because of the a, and you cannot use write because of the w.
Cracked by Giuseppe.
My solution:
dput(intToUtf8(c(59:83,86:98,101,103:104,106:109,113:115,118:126)))