Discussion :

[nakos91]

Bonjour,

j''utilise la fonction ci-dessous sous Delphi XE2 :

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
function HashSHA512String(Text: String): String;
var
  IdHashSHA512: TIdHashSHA512;
begin
  Result := '';
  if HashFunctionsOpenSSLLoaded then begin
    if TIdHashSHA512.IsAvailable then begin // <-- ADD THIS
      IdHashSHA512 := TIdHashSHA512.Create;
      try
        Result := IdHashSHA512.HashStringAsHex(Text);
      finally
        FreeAndNil(IdHashSHA512);
      end;
    end;
  end;
end;

Cette fonction fonctionne bien quand le programme tourne sous Windows XP, mais ne renvoie rien sous Windows 10.
Il semble que la ligne if TIdHashSHA512.IsAvailable then begin renvoie FALSE et donc rien ne se fait, mais je ne sais pas pourquoi. Quelqu'un a-t-il une idée?

Merci.

[alheuredudejeuner]

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
uses
  IdGlobal, IdHashSHA, IdHMAC, IdHMACSHA1, IdSSLOpenSSL;
 
function TForm2.CalculateHMACSHA512(const value, salt: String): String;
var
  // hmac: TIdHMACSHA256;
  hmac: TIdHMACSHA512;
  hash: TIdBytes;
begin
  LoadOpenSSLLibrary;
  if not TIdHashSHA512.IsAvailable then
    raise Exception.Create('SHA512 hashing is not available!');
  // hmac := TIdHMACSHA224.Create;
  // hmac := TIdHMACSHA256.Create; //varchar64
  // hmac := TIdHMACSHA384.Create;
   hmac := TIdHMACSHA512.Create; //varchar128
  try
    hmac.Key := IndyTextEncoding_UTF8.GetBytes(salt);
    hash := hmac.HashValue(IndyTextEncoding_UTF8.GetBytes(value));
    Result := ToHex(hash);
  finally
    hmac.Free;
  end;
end;

Bonjour
essaye cela pour voir.
Cordialement