Ich weiß zwar nicht wo Horst0815 seine erste
Unit her hat, aber der Selbsttest funktioniert ab D12 so nicht mehr! In meiner
Unit steht
Delphi-Quellcode:
function SHA1SelfTest: boolean;
{-self test SHA1: compare with known value}
const
s1: string[3] = 'abc';
D1: TSHA1Digest= ($a9,$99,$3e,$36,$47,$06,$81,$6a,$ba,$3e,$25,$71,$78,$50,$c2,$6c,$9c,$d0,$d8,$9d);
Sein
s: string= 'abc';
ist ab D12
Unicode und SHA1SelfTest liefert false! Selbst wenn das falsche
SHA1Update(Context,@s[1],length(s));
durch
SHA1Update(Context,@s[1],length(s)*sizeof(char));
ersetzt würde, käme selbstverständlich ein anderer Testwert heraus!