1
0

decrypt.ps 295 B

12345678910111213
  1. % Decrypt an eexec-encoded file.
  2. (t.in) (r) file /in exch def
  3. (t.out) (w) file /out exch def
  4. 256 string /buf exch def
  5. 55665 % eexec encryption seed
  6. { in buf readhexstring /more exch def
  7. dup .type1decrypt out exch writestring
  8. more not { exit } if
  9. } loop
  10. in closefile
  11. out closefile
  12. quit