Hallo ihr beiden,
Vielen Dank fr eure Tipps.
Ich habe beides versucht, leider auch ohne Erfolg. Bei himitsu's Vorschlag bin ich mir nicht 100% sicher ob ich das so gemacht habe wie es gedacht ist.
Der Code sieht momentan so aus:
Delphi-Quellcode:
var
LStream : TFileStream;
begin
FSig := TSignatory.Create(nil);
FCryptoLib := TCryptographicLibrary.Create(nil);
FCodecRSA := TCodec.Create(nil);
// setup codec
FCodecRSA.CryptoLibrary := FCryptoLib;
FCodecRSA.StreamCipherId := 'native.RSA';
FCodecRSA.ChainModeId:= 'native.CBC';
FCodecRSA.AsymetricKeySizeInBits := 512;
// setup sig
FSig.Codec := FCodecRSA;
// generate and save keys
if FSig.GenerateKeys then
begin
LStream := TFileStream.Create('D:/rsa_keys.txt', fmCreate);
try
LStream.Position := 0;
LStream.Size := 0;
FSig.StoreKeysToStream(LStream, [partPublic, partPrivate]);
LStream.Size := LStream.Position;
finally
LStream.Free;
ShowMessage('Success');
end;
end
else
ShowMessage('Failed');
end;
Der Output des Streams in eine neue Datei sieht leider immer noch hnlich aus:
Code:
N
LockBox3 @ ™p „H*XVr\*9y›œv…€n`K
0)j7NCˆ@l @ a‡,‰"U;‘†“@ugO={~u\~Œ1#ҿhDzer=>= V! ›fm9m…tŠƒ*‡M/’c˜WDHIh ˜e*=
X' wJŽwen4! h'90T|'&† }"i> c߬xdsI~š•jܨ, ˜0/dkEjMIaFs’M)t–},…˜N
LockBox3 @ •†T*8y9]_=K߰21(b‚Et†=2e)T142:qh>&n’ @ Q
J`X]&
SdU‰IrKzIBw‰2#›˜0K;<Aj›
|! –wNbrq‹Œ™mZž–& Q*h“а4ӾG?p’gXl><! q=pt
ʰK!3`Ei%€p=†ka qžd{ߩFN‘OŽ(†kU‹&=4W.! ptz?ZW›Œ}’̳#€#
Folgende Dinge habe ich noch ausprobiert:
- Manuelle Installation von LockBox3 ohne GetIt (bringt keine sprbare nderung)
- Weitere Dinge mit LStream.Position und LStream.Size (auch kein Effekt)
Mittlerweile denke ich eher dass dies ein Problem mit der Umgebung bzw. der Installation der Bibliothek ist. Knnte dies sein? Falls ja, was knnte ich tun um dies zu testen? Eine zweite Umgebung steht mir momentan leider nicht zur Verfgung. Knnte den Code jemand bei sich lokal testen und schauen ob auch solch ein "gibberish" rauskommt?
Vielen Dank fr eure Untersttzung.