fenix/cpdf-source
1
0
Fork 0
mirror of https://github.com/johnwhitington/cpdf-source.git synced 2025-06-05 22:09:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

Compressed and Encrypted metadata now dealt with ok

Browse Source
This commit is contained in:
John Whitington
2014-10-24 11:24:33 +01:00
parent e3f2006c92
commit 19b9d56c5a
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
cpdf.ml
View File

@@ -1285,7 +1285,7 @@ let get_metadata pdf =
| Some root ->
match Pdf.lookup_direct pdf "/Metadata" root with
| Some ((Pdf.Stream _) as s) ->
Pdf.getstream s;
Pdfcodec.decode_pdfstream pdf s;
begin match s with
| Pdf.Stream {contents = (_, Pdf.Got data)} -> Some data
| _ -> assert false

4
cpdfcommand.ml
View File

@@ -545,11 +545,13 @@ let rec decrypt_if_necessary (_, _, _, user_pw, owner_pw) op pdf =
end;
if not (Pdfcrypt.is_encrypted pdf) then pdf else
match Pdfcrypt.decrypt_pdf_owner owner_pw pdf with
| Some pdf -> pdf
| Some pdf ->
Printf.printf "Managed to decrypt with owner password"; pdf
| _ ->
Printf.printf "Couldn't decrypt with owner password %s\n" owner_pw;
match Pdfcrypt.decrypt_pdf user_pw pdf with
| Some pdf, permissions ->
Printf.printf "Managed to decrypt with user password\n";
if operation_allowed permissions op
then pdf
else soft_error "User password cannot give permission for this operation"