Bonjour
Je ne suis pas trés doué avec delphi et après bien des recherches infructueuses, je viens demander un peu d'aide.
J'ai ecrit une routine pour signer un document avec un certificat digital. N'ayant pas réussi a faire fonctionner le Hash de capicom, je m'étais rabattu sur TinyHash et çà marche impec. Inconvenient majeur de tinyhash, il se base sur une dll qui n'est pas tojours à jour sur les NT et autres Windows 2000, mon client l'a demandé de revenir sur capicom.
Voila le code qui merdoie
(Source et HashedValue sont déclaré string)
Alos qu'anvec tinyhash j'ai
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 HashedData.Algorithm := CAPICOM_HASH_ALGORITHM_SHA1; HashedData.Hash(Source); HashValue:= HashedData.Value;
TinyHash me donne la bonne valeur, mais pas capicom
Code : Sélectionner tout - Visualiser dans une fenêtre à part HashValue := SHA1ToStr( SHA1(Source) );
Je suis moins mauvais en vb, et l' équivalent en vb (qui donne le même résultat que tinyhash)
Voila, je pense que je vous ai donné toutes les infos. Qu'en pensez vous ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 HashedData.Algorithm = CAPICOM_HASH_ALGORITHM_SHA1 HashedData.Hash(StrConv(Source,VbFromUnicode)) HashValue= HashedData.Value
D'avance merci
Partager