PDF mit Passwort versehen

[BeEm]

Hallo,

ich habe folgendes Problem:

Ich muss ein Programm erstellen welches einen Ordner von Pdf's einliest und diese mit einem bestimmten Passwort bestückt, damit man die Datei nur noch lesen kann und nicht mehr ändern. Als PDF Biblilothek soll ich iTextSharp verwenden. Leider komme ich damit im Moment nicht klar. Kann mir da jemand helfen.

Dim fs As New FileStream(PDFOrdner_Pfad & "\" & Files(0), FileMode.Open)

        Dim doc As New Document(PageSize.A4, 50, 50, 50, 50)
        'Dim pdf_writer As pdf.PdfWriter = pdf.PdfWriter.GetInstance(doc, New FileStream(PDFOrdner_Pfad & "\" & Files(0), FileMode.Open))
        Dim pdf_writer As pdf.PdfWriter = pdf.PdfWriter.GetInstance(doc, fs)
        pdf_writer.Open()
        pdf_writer.SetEncryption(pdf.PdfWriter.STRENGTH128BITS, Passwort, Passwort, pdf.PdfWriter.ALLOW_PRINTING)
        pdf_writer.Close()

Danke im vorraus.