Digitales Signieren von Dateien mit FastReport VCL

Ein elektronischer Dokumentenverkehr ist heute aus unserem Leben nicht mehr wegzudenken. Der Vorteil solcher Dokumente ist natürlich, dass sie sich im Laufe der Zeit nicht verschlechtern, dass sie nicht so leicht verloren gehen, dass sie leicht aufzubewahren sind und dass sie schnell über jede Entfernung übertragen werden können. Aber wie wir alle wissen, tritt nur das Dokument in Kraft, das unterzeichnet worden ist.

Elektronische Signaturen stellen Symbolschlüssel dar, die Einzigartigkeit und Unverwechselbarkeit garantieren, mit denen Sie den Unterzeichner eindeutig feststellen und Dokumente vor Veränderung schützen können.

Wenn Sie jedoch jede generierte PDF-Datei signieren, kann dies sehr zeitaufwändig sein. Und was ist, wenn Sie tausend oder mehr generierte Dateien haben und diese manuell signieren müssen? Natürlich nicht. FastReport VCL kann generierte Dateien mit Ihrer Signatur selbst signieren. Nachstehend betrachten wird ein Beispiel für die Implementierung einer digitalen Signatur.

Aus Gründen der Übersichtlichkeit verwenden wir eine kleine Anwendung, die die Datei in das PDF-Format exportiert und anschließend sie signiert.

procedure TForm1.Button1Click(Sender: TObject);
const
 FR3FileName = 'Signatures.fr3';
var
 PDFExport: TfrxPDFExport;
 Report: TfrxReport;
begin
 Report := TfrxReport.Create(nil);
 try
 Report.LoadFromFile(FR3FileName);
 Report.PrepareReport; // Hochladen und Berichterstattung
 
 PDFExport := TfrxPDFExport.Create(nil);
 try
 PDFExport.Report := Report;
 PDFExport.ShowDialog := False;
 
 
 PDFExport.FileName := ExtractFileName(FR3FileName) + '.pdf';
 Report.Export(PDFExport); // Exportieren des Berichts
 SignExport(PDFExport); // Signieren der Datei
 finally
 PDFExport.Free;
 end;
 finally
 Report.Free;
 end;
end;
 
procedure SignExport(PDFExport: TfrxPDFExport);
const
 CertificatePath = 'JaneDoe.pfx'; // Name unseres Zertifikats
 PasCert = '123'; // Zertifikatspasswort
var
 Lookup: TCertificateStoreLookup;
 FS: TfrxFileSignature;
 FSO: Integer;
begin
 Lookup := TCertificateStoreLookup.Create;
 Lookup.IgnoreCase := true;
 Lookup.CertificatePath := CertificatePath;
 
 FSO := FileSignatureOptions(
 true, // Detached = true Signatur in einer separaten Datei
 false, // Chain = false Zertifikatskette
 false, // OnlyGOST= true GOST-Zertifikat
 true, // DebugLog = true Informationen beim Debuggen
 true); // PFX = false (true) gibt an, dass das Zertifikat in der pfx/p12-Datei gesucht werden soll. 
Es muss ein Dateiname und möglicherweise ein Passwort angegeben werden.
 
 FS := TfrxFileSignature.Create(
 Lookup,
 PDFExport.FileName, // Name der PDF-Datei
 PDFExport.FileName + '.sig', // Name der generierten Signatur
 AnsiString(PasCert),
 FSO);
 
 FS.Sign;
 FS.Free;
 Lookup.Free;
end;

Nachdem wir das Programm geschrieben haben, können wir es nun ausführen.

Klicken Sie nach dem Start auf die Schaltfläche „Exportieren“. Dann erhalten wir eine signierte PDF-Datei mit einer Signaturdatei:

Es lohnt sich zu überprüfen, ob die PDF-Datei korrekt signiert ist. Öffnen Sie dazu die Konsole und geben Sie die folgenden Befehle ein:

openssl pkcs12 -in JohnDoe.pfx -out JohnDoe.pem

Anschließend geben Sie ein Passwort ein und starten Sie die Überprüfung mit dem nachfolgenden Befehl: 

openssl smime -verify -binary -inform DER -in Signatures.fr3.pdf.sig -content Signatures.fr3.pdf 
-certfile JohnDoe.pem -nointern -noverify 1> /dev/null

Dieser Screenshot zeigt an, dass die PDF-Datei die Signaturprüfung bestanden hat und alles geklappt hat.

Auf diese einfache und unkomplizierte Weise haben wir mit FastReport VCL eine korrekt exportierte und signierte PDF-Datei erhalten.