Через Indy
|
1 2 3 4 5 6 7 8 |
uses IdHashMessageDigest ... with TIdHashMessageDigest5.Create do try Result := AnsiLowerCase(HashStringAsHex(aString)); finally Free; end; |
Через Indy
|
1 2 3 4 5 6 7 8 |
uses IdHashMessageDigest ... with TIdHashMessageDigest5.Create do try Result := AnsiLowerCase(HashStringAsHex(aString)); finally Free; end; |