String mit Salsa20 verschlüsseln

[himitsu]

du MUßT auch erstmal für Text2 und Text3 den Speicher reservieren, bevor die Funktionen da war reinschreiben können!


[add]

Delphi-Quellcode:

...
salsa_ivsetup(ctx, @IV);
SetLength(Text2, Length(Text));
salsa_encrypt_bytes(ctx, PChar(Text), PChar(Text2), length(Text));
SetLength(Text3, Length(Text2));
salsa_decrypt_bytes(ctx, PChar(Text2), PChar(Text3), length(Text2));
showmessage(Text3); 

// oder

...
salsa_ivsetup(ctx, @IV);
SetLength(Text2, Length(Text));
if Text2 <> '' then salsa_encrypt_bytes(ctx, @Text[1], @Text2[1], length(Text));
SetLength(Text3, Length(Text2));
if Text3 <> '' then salsa_decrypt_bytes(ctx, @Text2[1], @Text3[1], length(Text2));
showmessage(Text3);

vorrausgesetzt die verschlüsselte und entschlüsselte Textlänge ist gleich