| 123456789101112131415 |
- %!
- % Decrypt an eexec-encoded file.
- % $Id: decrypt.ps,v 1.6 2002/02/21 21:49:28 giles Exp $
- (t.in) (r) file /in exch def
- (t.out) (w) file /out exch def
- 256 string /buf exch def
- 55665 % eexec encryption seed
- { in buf readhexstring /more exch def
- dup .type1decrypt out exch writestring
- more not { exit } if
- } loop
- in closefile
- out closefile
- quit
|
