sys/lib/ghostscript/decrypt.ps

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