*push*
Ich hätte das ganze mal mit Hagens
DEC probiert, aber irgendwie kommt bei mir was anderes raus als was sollte ... (liegt vermutlich daran, das ich noch nicht genau weiss, wie und was ich biem aufruf verwenden muß ...)
... so hab ichs probiert (das Shared Secret, habe ich mal mit dem fixedkey gleich gesetzt???? unsigned char fixedkey[8] = {23,82,107,6,35,78,88,7};)
und TCipher_1DES sollte es auch sein, da das mit (Keysize 56 bits relevant) steht und vermute daher mal auch DES56 heisst?
Delphi-Quellcode:
var
FSharedSecret: Binary;
begin
FSharedSecret := #23#82#107#6#35#78#88#7;
with TCipher_1DES.Create do
try
Mode := cmCBCx;
Init(FSharedSecret);
Edit2.Text := EncodeBinary(Edit1.Text, TFormat_HEX);
finally
Free;
end;
Delphi-Quellcode:
12345678->f0e43164f6c2e373 // sollte rauskommen
12345678->3DFAE700B8924001 // kommt raus