% Decrypt an eexec-encoded file. % $Id: decrypt.ps,v 1.1.6.1 2002/04/10 09:22:58 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