Modulo-10 Prüfsumme eines Strings berechnen

[Andreas L.]

Wenn der Algorithmus keine Rolle spielt kannst du z. B. das DelphiEncryptionCompedium (kostenlos) verwenden.

So einfach gehts:

Delphi-Quellcode:

uses
  DECHash, DECFmt;

...

procedure TForm11.Button1Click(Sender: TObject);
var
  SourceStr: String;
  DestStr: String;
begin
  SourceStr := 'Hallo Welt!';
  DestStr := THash_MD5.CalcBinary(SourceStr, TFormat_HEXL);
  ShowMessage(DestStr); // = 55243ecf175013cfe9890023f9fd9037
end;

Im Beispiel wird MD5 als Algorithmus verwendet. Das DEC unterstützt aber noch viele weitere.

Delphi-Quellcode:

  THash_MD2           
  THash_MD4            
  THash_MD5           
  THash_RipeMD128      
  THash_RipeMD160      
  THash_RipeMD256   
  THash_RipeMD320     
  THash_SHA          
  THash_SHA1          
  THash_SHA256        
  THash_SHA384    
  THash_SHA512     
  THash_Haval128    
  THash_Haval160     
  THash_Haval192   
  THash_Haval224       
  THash_Haval256  
  THash_Tiger     
  THash_Panama  
  THash_Whirlpool  
  THash_Whirlpool1  
  THash_Square   
  THash_Snefru128   
  THash_Snefru256 
  THash_Sapphire