File: decrypt.ps

package info (click to toggle)
gs 5.10-10.1
  • links: PTS
  • area: main
  • in suites: potato
  • size: 14,960 kB
  • ctags: 25,299
  • sloc: ansic: 164,376; makefile: 3,020; cpp: 2,237; sh: 1,219; asm: 684; tcl: 434; perl: 56
file content (13 lines) | stat: -rw-r--r-- 295 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
 
% Decrypt an eexec-encoded file.

(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