Mini-SHA1

[gammatester]

Ich vermute Du bist vom Unicode-Desaster erwischt worden: 4A3DEC2D1F8245280855C42DB0EE4239F917FDB8 ist der SHA1-Digest der Bytefolge $61,$00,$62. Da Du D2010 benutzt, ist der String 'abc' doch wohl ein Unicodestring. Hashen von Strings halte ich für sinnlos und gefährlich. Kryptographische Hasfunktionen arbeiten auf Bit-/Bytefolgen und die Testwerte sind entsprechend. Für den Testvektor $61,$62,$63 liefert SHA1 den Wert A9993E364706816ABA3E25717850C26C9CD0D89D. Wenn Du unbedingt mit Strings arbeiten willst, nimm für solche Sachen Ansistrings

Delphi-Quellcode:

var
  s: ansistring:
  h: String;

 s := 'abc';
 h := TSHA1.CalcBase(PChar(s), Length(s));

sollte den Testwert ergeben. Wenn Du unbedingt Strings haschen willst, solltest Du TSHA1.CalcBase(PChar(s), Length(s)*Sizeof(char)); verwenden.