home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2003 #12 / K-CD-12-2003.ISO / pdf995 / res / convert / decrypt.ps < prev    next >
Encoding:
Text File  |  2002-04-10  |  369 b   |  15 lines
  1. % Decrypt an eexec-encoded file.
  2. % $Id: decrypt.ps,v 1.1.6.1 2002/04/10 09:22:58 giles Exp $
  3.  
  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
  15.