[LockBox3] Komischer Stream bei RSA Keys

[milos]

Hallo,

ich möchte mit LockBox3 testweise ein Private und Public Key Paar generieren und in eine Datei speichern.

Ich folge dabei dieser Anleitung: http://lockbox.seanbdurkin.id.au/Generate+an+RSA+key

Installiert habe ich LockBox über GetIt in der IDE.

Mein Code ist wie folgt:

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 := 1024;

  // setup sig
  FSig.Codec := FCodecRSA;

  // generate and save keys
  if FSig.GenerateKeys then
  begin
    LStream := TFileStream.Create('D:/public_key_test.txt', fmOpenReadWrite);
    try
      FSig.StoreKeysToStream(LStream, [partPublic, partPrivate]);
    finally
      LStream.Free;
      ShowMessage('Success');
    end;
  end
  else
    ShowMessage('Failed');
end;

Ich kriege zwar das Dialog "Success" und es knallt nichts, also als ob alles gut gelaufen wäre.

In der Datei "D:\public_key_test.txt" finde ich aber folgenden Inhalt:

Zitat:

N
LockBox3 € ÂB¿,L)¼�ofþs@Œ‚¨®Ò’ÙZÊúûRÌ*Ö×°
!®F*°¦n’‡áÇ.3}²BÎ7§Ý¨Igc¢˜GóP¥™2ÌòÈ‚U*Œ.áCCFÀÆ\[Æ!‰F÷2g¼`Ä[½ãŠ2s3\Ïy„AκԔdpý¬¿co N
LockBox3 € [ÍA^á,7±ì”÷Ý»Pì©{7oÆHñsI*þËê°& b\™�"x§¼Ø:%ûdôÒû÷'È\Kï™Å÷š¹Ó”}à+ÁÆâ2<åmûŽ\®@ÿdíòM¢ <c$›7J«áÆñ{bK²·à¾HÌA*Duߤìĺ躦

Ich habe versucht auch nur den Public bzw. den Private Key zu speichern, aber leider mit selbem ergebniss. Die Dateigrösse ist immer 308bytes, egal wie viele Keys ich speichere und auch egal wie gross ich sie beim generieren angebe.
Mache ich etwas falsch oder habe ich etwas vergessen?

Freundliche Grüsse
Milos