home *** CD-ROM | disk | FTP | other *** search
/ Acorn User 10 / AU_CD10.iso / Updates / GhostScript / !GhostScr / 6_01 / lib / pdf_sec.ps < prev    next >
Text File  |  2000-03-09  |  2KB  |  60 lines
  1. %    Copyright (C) 1996, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % $Id: pdf_sec.ps,v 1.1 2000/03/09 08:40:40 lpd Exp $
  19. % pdf_sec.ps
  20. % Security hooks for PDF reader.
  21.  
  22. % This file contains the procedures that have to take encryption into
  23. % account when reading a PDF file.  There is no actual decryption code here,
  24. % because U.S. export control laws might prohibit making this file available
  25. % to anyone outside the U.S. if the code were included.  Instead, you can
  26. % get the real version of this file from
  27. %    http://www.ozemail.com.au/~geoffk/pdfencrypt/pdf_sec.ps
  28. % or, if the ~ character upsets your software,
  29. %    http://www.ozemail.com.au/%7Egeoffk/pdfencrypt/pdf_sec.ps
  30. % NOTE: these URLs are referenced in the error message below.
  31.  
  32. /.setlanguagelevel where { pop 2 .setlanguagelevel } if
  33. .currentglobal true .setglobal
  34. /pdfdict where { pop } { /pdfdict 100 dict def } ifelse
  35. pdfdict begin
  36.  
  37. % Process the encryption information in the Trailer.
  38. /pdf_process_Encrypt
  39.  { (\n) =
  40.    (    **** The PDF input file uses encryption and cannot be processed.) =
  41.    (    **** Please get and install the patch available from) =
  42.    (    ****     http://www.ozemail.com.au/~geoffk/pdfencrypt/pdf_sec.ps) =
  43.    (\n) = flush
  44.    /pdfopen cvx /invalidfileaccess signalerror
  45.  } bind def
  46.  
  47. % Run the code to resolve an object reference.
  48. /pdf_run_resolve
  49.  { PDFfile resolveopdict .pdfrun
  50.  } bind def
  51.  
  52. % Prefix a decryption filter to a stream if needed.
  53. % Stack: readdata? dict parms file/string filternames
  54. /pdf_decrypt_stream
  55.  {
  56.  } bind def
  57.  
  58. end            % pdfdict
  59. .setglobal
  60.