summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlgs/lib/decrypt.ps
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlgs/lib/decrypt.ps')
-rw-r--r--Master/tlpkg/tlgs/lib/decrypt.ps15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/tlpkg/tlgs/lib/decrypt.ps b/Master/tlpkg/tlgs/lib/decrypt.ps
new file mode 100644
index 00000000000..b172f6d83b4
--- /dev/null
+++ b/Master/tlpkg/tlgs/lib/decrypt.ps
@@ -0,0 +1,15 @@
+%!
+% Decrypt an eexec-encoded file.
+% $Id: decrypt.ps 6300 2005-12-28 19:56:24Z giles $
+
+(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