40/128 Bit PDF Verschlüsselungs API

Die Aloaha PDF Verschlüsselungs-API erlaubt, 40/128 Bit basierte PDF-Berechtigungen zu setzen. Das Besitzerpasswort kann verändert oder zurückgesetzt werden ohne das originale Passwort zu kennen.

Nachfolgend finden Sie einige VBS-Codebeispiele:

'Beispielcode zum Ver-/Entschlüsseln eines PDF Dokuments mit 40/128 Bit Verschlüsselung
'PDF Berechtigungen können neu gesetzt oder zurückgesetzt werden ohne das aktuelle Besitzerpasswort zu kennen.
'Copyright 2005 by Wrocklage Intermedia GmbH
'Coded by Stefan Engelbert
'The API Version des Aloaha PDF Crypter ist für diese API notwendig!
'min. Build required: 2.1.258

Dim sourcefile
Dim targetfile
Dim pdf

'Can .... Variables can be 0 or 1
Dim CanPrint
Dim CanCopy
Dim CanChange
Dim CanAddNotes
Dim CanFillFields
Dim CanCopyAccess
Dim CanAssemble
Dim CanPrintFull

'eBits can be 0, 40 or 128
Dim eBits

'Neue Passwörter - können auch leer sein
Dim NewUserPW
Dim NewOwnerPW

sourcefile = "c:\birth.pdf"
targetfile = "c:\newbirth.pdf"
Set pdf = CreateObject("aloahapdf.edit")

If pdf.load_pdf_to_mem(CStr(sourcefile))=true Then

     'setze neues Besitzer- und Benutzerpasswort.
     'leave both password empty to decrypt document
     NewOwnerPW = "test123"
     NewUserPW = "password"
     'Drucken erlaubt
     CanPrint = 1
     eBits=128
     Call pdf.set_permission(CLng(CanPrint), CLng(CanCopy), CLng(CanChange), CLng(CanAddNotes), CLng(CanFillFields), CLng(CanCopyAccess), CLng(CanAssemble), CLng(CanPrintFull), CLng(eBits), CStr(NewUserPW), CStr(NewOwnerPW))
     Call pdf.save_pdf_to_file(CStr(targetfile))
Else
     MsgBox "Could not load PDF Document"
End If

Set pdf = nothing