Calculer un hash Sha1 avec Capicom

**Delbeke** · 24/09/2008, 19h37

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)

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;

Alos qu'anvec tinyhash j'ai

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

     HashValue := SHA1ToStr( SHA1(Source) );

TinyHash me donne la bonne valeur, mais pas capicom

Je suis moins mauvais en vb, et l' équivalent en vb (qui donne le même résultat que tinyhash)

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

Voila, je pense que je vous ai donné toutes les infos. Qu'en pensez vous ?

D'avance merci

**Cl@udius** · 25/09/2008, 11h50

Salut

Es-tu sûr que c'est un AnsiString (soit un string) qu'il faut transmettre à la méthode Hash ?
Avec un WideString qu'est-ce que cela donne ?

Par exemple pour la chaine 'Developpez.com' quelle serait la valeur attendue ? Que je puisse faire quelques tests.

@+ Claudius.

**Delbeke** · 25/09/2008, 12h16

Merci de ta réponse.
J'ai essayé aussi, j'obtiens une valeur encore différente, mais toujours pas la bonne.

J'ai trouvé sur sourceforge une unité en delphi pur qui calcule les Hash SHA1,
Donc mon problème est résolu. mais pour ma propre gouverne, j'aurais bien aimé comprendre pourquoi çà ne marche pas. En fait c'est l'equivalent Delphi de la fonction Vb strConv(Variable,VbFromUniCode) qui me manquait.

Je sais qu'il s'agit là d'un manque de connaissance sur les string UniCode. Malgré tout ce que j'en ai lu, j'ai toujours pas bien compris.

Je marque le post comme résolu. Mais si quelqu'un a des précision, j'e serais très content.

Mais pour répondre à ta question sur le Hash de 'Developpez.com', ca donne
ec8101c4a41b1ea17b1cff8ed10bb2f409921d47

**Cl@udius** · 25/09/2008, 13h45

Re,

Et bien en transmettant un WideString le résultat est correcte.

J'ai utilisé ce code pour effectuer le test, un Edit pour le texte source, un bouton et un label pour afficher le résultat:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
uses
  ComObj, Variants;
 
function StringToWideString(const S: string): WideString;
begin
  SetLength(Result, Length(S) div 2);
  Move(S[1], Result[1], Length(S));
end;
 
function HashData(const S: WideString): WideString;
const
  CAPICOM_HASH_ALGORITHM_SHA1 = $00000000;
var
  HashedData: Variant;
begin
  HashedData := CreateOleObject('CAPICOM.HashedData');
  try
    HashedData.Algorithm := CAPICOM_HASH_ALGORITHM_SHA1;
    HashedData.Hash(S);
    Result := HashedData.Value;
  finally
    HashedData := Unassigned;
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  lblSHA1.Caption := HashData(StringToWideString(Edit1.Text));
end;

@+ Claudius