home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / clipart / gs22.zip / UNPROT.PS < prev    next >
Text File  |  1991-05-20  |  2KB  |  38 lines

  1. %    Copyright (C) 1991 Aladdin Enterprises.  All rights reserved.
  2. %    Distributed by Free Software Foundation, Inc.
  3. %
  4. % This file is part of Ghostscript.
  5. %
  6. % Ghostscript is distributed in the hope that it will be useful, but
  7. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  8. % to anyone for the consequences of using it or for whether it serves any
  9. % particular purpose or works at all, unless he says so in writing.  Refer
  10. % to the Ghostscript General Public License for full details.
  11. %
  12. % Everyone is granted permission to copy, modify and redistribute
  13. % Ghostscript, but only under the conditions described in the Ghostscript
  14. % General Public License.  A copy of this license is supposed to have been
  15. % given to you along with Ghostscript so you can know your rights and
  16. % responsibilities.  It should be in a file named COPYING.  Among other
  17. % things, the copyright notice and this notice must be preserved on all
  18. % copies.
  19.  
  20. % Disable all access checks.  This is useful for printing out
  21. % eexec-encrypted Type 1 fonts, and similar purposes.
  22. % This code can be defeated, but why would anyone bother?
  23.  
  24. userdict begin
  25.     % Disable the obvious checks.
  26. /readonly { } odef
  27. /executeonly { } odef
  28. /noaccess { } odef
  29.     % Redefine begin and end so that if anyone pushes systemdict,
  30.     % they also wind up pushing userdict.
  31. /begin { dup systemdict eq exch begin { userdict begin } if } bind odef
  32. /end { end currentdict systemdict eq { end } if } bind odef
  33.     % Redefine eexec with the new begin/end.
  34. /eexec { 55665 exch type1decryptfile
  35.      cvx systemdict begin stopped end
  36.      $error /newerror get and { handleerror } if } bind odef
  37. end
  38.