1
0

decrypt.ps 354 B

123456789101112131415
  1. %!
  2. % Decrypt an eexec-encoded file.
  3. % $Id: decrypt.ps,v 1.6 2002/02/21 21:49:28 giles Exp $
  4. (t.in) (r) file /in exch def
  5. (t.out) (w) file /out exch def
  6. 256 string /buf exch def
  7. 55665 % eexec encryption seed
  8. { in buf readhexstring /more exch def
  9. dup .type1decrypt out exch writestring
  10. more not { exit } if
  11. } loop
  12. in closefile
  13. out closefile
  14. quit