Lire par programme une signature certifée dans un PDF

Version imprimable

21/01/2019, 17h36
PaulR

Lire par programme une signature certifée dans un PDF

Bonjour,

Les PDF signés (par l'intermédiaire d'une autorité légalement reconnue, genre GlobalSign etc.) ont une valeur juridique équivalente à celle d'une signature manuelle.
Je trouve aisément de la documentation sur le processus de signature proprement dit, mais ce qui m'intéresse, c'est à l'autre bout de la chaîne : l'entreprise pour laquelle je travaille reçoit un PDF signé (une souscription à un contrat quelconque, pour faire simple) : à l'œil, avec Acrobat Reader, on voit qu'il est signé, tout est OK... Oui mais comment automatiser le processus ?

Autrement dit, je voudrais savoir comment faire pour récupérer par programme les informations liées à la signature qui sont "incrustées" dans un PDF signé.
C'est évidemment faisable (puisque la plupart des lecteurs un peu avancés de fichiers PDF le font), mais je ne vois pas du tout comment on peut y arriver avec Delphi (XE8). Il doit bien exister des toolkit, API ou que sais-je qui le permettent...
Des gens ici ont-ils une expérience dans ce domaine ?

Merci d'avance pour vos réponses,

Paul Rambeaux
21/01/2019, 17h46
SergioMaster

Bonsoir,
Marrant, moi c'est la partie amont qui me manque :calim2: à savoir comment signer un PDF par programme (et bien évidement obtenir un certificat)

Citation:

Il doit bien exister des toolkit, API ou que sais-je qui le permettent...

je n'ai pas fait l'expérience (par manque de PDF signé) dès que j'en ai un sous la main, je testerai avec PDFium
22/01/2019, 17h28
Paul TOTH

je ne sais pas comment sont signés les PDF, mais je suppose qu'il y a une balise qui contient un hash signé et la clé publique au format ASN1.0 (DER) qu'on peut décoder avec l'API WinCrypt et notamment CertCreateCertificateContext puis CertGetCertificateChain ... je suis en plein sur les signatures XML en ce moment :)
23/01/2019, 15h47
SergioMaster

Bonjour,

j'ai réussi à signer un PDF avec le composant TMS Cryptography. J'ai testé plusieurs méthodes CADES, PADES mais Adobe n'apprécie pas cette dernière :aie:
De même, comme il s'agit d'un test, la signature autosignée CADES n'est pas reconnue par Adobe donc pas d'indication de signature

J'ai aussi créé un document PDF signé via ADOBE Reader (évidemment, celui-là est reconnu :roll:)
Je vais tâcher d'y voir plus clair avec ces trois types de documents (tout trois pouvant s'ouvrir avec le composant PDFium)

Pour résumer tout va dépendre de la méthode utilisée, pour peu que le document ne soit pas en plus compressé :aie:
CADES les informations se trouvent en fin de fichier après la chaine %%EOF
PADES les informations se trouvent en fin de fichier entre deux chaines %%EOF

pour la signature via Adobe je n'ai pas trouvé, étant donné qu'il y a une norme il va falloir fouiller dedans :calim2: https://www.adobe.com/content/dam/ac...erence_1-7.pdf
Sinon, il semblerait que cette bibliothèque puisse correspondre au besoin (sous réserve que ce soit pour Windows ou pour la pomme)
24/01/2019, 09h12
delagoutte

Pour tout ce qui est crypto,
j'utilise les composants eldos, je n'ai pas eu l'occasion d'utiliser la partie concernant la signature pdf mais il y a ce qu'il faut pour ton besoin:
https://www.secureblackbox.com/sbb/PDFBlackbox/

Bonjour,

Pour l'instant, j'ai utilisé du BABA pour le test

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TForm7.Button2Click(Sender: TObject);
var F1 : TFileName;
    F : TextFile;
    ALine : String;
    SigFound : Boolean;
    ARegEx : TRegEx;
begin
if OpenDialog1.Execute then F1:=OpenDialog1.FileName;
AssignFile(F,F1);
FileMode := fmOpenRead;
Reset(F);
ARegEx:=TregEx.Create('.*Sig.*');
SigFound:=False;
repeat
   Readln(F,ALine);
   SigFound:=Aregex.IsMatch(ALine);
until EOF(F) OR SigFound;
CloseFile(F);
if SigFound then Showmessage('Signé');
end;

cela fonctionne pour PADES mais, bien évidemment, dès qu'il y a compression ça :bug:

une autre solution qui permet de "mieux" tester (Pades et AdobeSignature)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
function isSigned(AStream : TmemoryStream) : Boolean;
var
    Buffer : Array [0..1023] of AnsiChar;
    i : Integer;
    TempStr : String;
begin
result:=False;
AStream.Position:=0;
while (AStream.Position < AStream.Size) OR sigFound do
  begin
    AStream.Read(Buffer, 1024);
    for I := Low(buffer) to High(buffer) do
     if buffer[i]=#0 then buffer[i]:=#144;
    TempStr:=Buffer;
    result:=pos('Sig',TempStr)>=0;
    if result then Break;
    if AStream.Position<AStream.Size then AStream.Position:=AStream.Position-5;
  end;
end;

24/01/2019, 22h41
Paul TOTH

ah ouais mais là tu essais de savoir si éventuellement il y a une signature, mais tu ne la vérifies pas.
25/01/2019, 06h49
SergioMaster

Oui, ce n'est qu'un premier pas ;)
Comme cela dépend du format du PDF (version, pdf/a, pdf/x n, pdf/e ) et du type de signature (Adobe,PAdes,Cades ..) l'objet n'est pas identique
par exemple : Pades l'objet débute par /Type /Sig et se termine par ?
Adobe l'objet se termine par Sig>> mais il n'y a rien au début :koi:
en bon tâcheron dans le premier cas pour obtenir l'ensemble du certificat il faudrait lire jusqu'à la fin /ByteRange pour le premier
plus délicat pour le second, remonter jusqu'à "<</ByteRange"

Bref, il y a encore pas mal de travail. Je fouille dans le git de Pdfium et l'énorme documentation de la norme Adobe
Déjà il faut que je puisse décompresser les documents ceux qui le sont :roll:

Pour info, un pdf est un peu comme un dfm (ou fmx) la syntaxe étant bien sûr différente mais il y a des objets numérotés (début 'obj' fin 'endobj') , exemple

Citation:

Envoyé par signature Adobe

41 0 obj
<</ByteRange[ 0 66183 70947 13826]
... // ici le certificat
/Filter/Adobe.PPKLite/M(D:20190123122405+01'00')/Name(SergioMaster)/Prop_Build<</App<</Name/Adobe#20Acrobat#20Reader#20DC/OS[/Win]/R 1247744/REx(2019.010.20069)/TrustedMode true>>/Filter<</Date(Dec 19 2018 18:46:34)/Name/Adobe.PPKLite/R 131104/V 2>>/PubSec<</Date(Dec 19 2018 18:46:34)/NonEFontNoWarn true/R 131105>>>>/Reference[<</Data 31 0 R/DigestLocation[ 71355 34] /DigestMethod/MD5/DigestValue<c3c345ffe3fc662452320bd663396336>/TransformMethod/FieldMDP/TransformParams 77 0 R/Type/SigRef>>]/SubFilter/adbe.pkcs7.detached/Type/Sig>>
endobj

premier chiffre le numéro de l'objet ici 41 , second le type (0=unknown) 'obj'

Citation:

Envoyé par Cades détaché

57 0 obj
<<
/Type /Sig
/Filter /Adobe.PPKLite
/SubFilter /ETSI.CAdES.detached
/Name (SERGIOMASTER)
/M (D:20190123134705+00'00')
/Contents
<
..// ici le certificat
>
/ByteRange [0 47609 85499 431]
>>
endobj

maintenant tout cela doit certainement pouvoir se lire avec Delphi mais je n'ai pas la moindre idée de comment
25/01/2019, 13h49
Paul TOTH

oui un PDF peut être entièrement codé en mode texte, la compression est optionnelle, qpdf permet d'ailleurs de décompresser un PDF pour mieux comprendre sa structure

Sinon j'ai fait un wrapper pour PDFium qui permet de l'utiliser beaucoup plus facilement sous Delphi

PDFium Reader n'expose que les fonctions d'affichage
https://github.com/tothpaul/PDFiumReader

mais en suivant les explications on peut très bien enrichir la chose
https://github.com/tothpaul/PDFiumRe...ster/libPDFium

par contre c'est super mal documenté PDFium :)

je galère sur l'ajout d'annotations :(