[LockBox3] Komischer Stream bei RSA Keys

[milos]

Hallo ihr beiden,

Vielen Dank für 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*XVªr¤\ö�ÖðÞæÞÒ*9yíó£¹›ÙœÓv¨¶Í÷ì…€n`K
0)j7ÐNõCˆ@l    @   Áa‡,‰"¬½ÖU¼;‘†É“@u¬gO=éïç{ö÷~u\ã~Œ1#Ò¿hDz¹e�r=>=øØ VÒÃ!   ¹›fmÈä9m…t¾ÇŠƒ*‡M/¸’åc˜°WDHåIh    á«ÕÓÌÍß¼˜¼e*=þÏ
X' wJŽwenî4!   ©h®'9¿0Tûù¶©|ØÜ'&†¢£ü }÷À"iî>    áÞÃËcçÎ߬�øxd²sõI~šç•j׬ܨ,    ̘ñ0/ÚdkEjòMIaFµs¹’M)t–}ðÝ,…˜N
LockBox3   @   •†ïâTøØ*8y9]ÌäË_=�ò�ÂÊKß°á2é1(ób‚EtÕ†=2eé)ÃT142:qåÌh>Òä&n’�    @   Á�ÔQ
J`äÄÙX¢]ÁÔÝ&
»SdU&#8240;IrKzIóBw&#8240;2#úÄ&#8250;Ù&#732;0´KÛó;<ÎAÏjÖÚÐ&#8250;ºÀ
�|!   &#8211;wßÝÒïNbµrðq&#8249;&#338;Ï&#8482;mZµÙçØ&#382;à&#8211;&    Q±*h&#8220;ÞÑÄаÅ4Ó¾Gû?p&#8217;«ºgÞXløÌ><!   q=pt
ñòÊ°K!î3`Eiæ%Þþ&#8364;ùp=&#8224;¬�kaà    qÂ&#382;±d{«ß©F¢N¦&#8216;OÏÿ&#381;�(&#8224;kU&#8249;&=4W.!   êôÄåpótézô?ËZW&#8250;³ð&#338;½}&#8217;È̳#&#8364;óäÑ#

Folgende Dinge habe ich noch ausprobiert:
- Manuelle Installation von LockBox3 ohne GetIt (bringt keine spürbare Ä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. Könnte dies sein? Falls ja, was könnte ich tun um dies zu testen? Eine zweite Umgebung steht mir momentan leider nicht zur Verfügung. Könnte den Code jemand bei sich lokal testen und schauen ob auch solch ein "gibberish" rauskommt?

Vielen Dank für eure Unterstützung.

[himitsu]

ist zwar soppelt gemoppelt, aber jo, würde passen.


LStream.Size := 0; setzt ebenfalls die Position in den noch vorhandenen Bereich (also auf 0)
und wenn vorher schon gelöscht wurde, dann ist nachher das Size:=Position unnötig, weil nach der (aktuellen) Position nichts mehr komen kann ... wurde ja schon zu beginn gelöscht.
im Grunde reicht entweder am Anfang auf 0 oder am Ende das Abschneiden, nach der aktuellen Position.
Oder eben das öffnen und dabei sofort löschen (also fmCreate ist wie fmOpenReadWrite mit einem Size:=0)

[milos]

Zitat von himitsu:

ist zwar soppelt gemoppelt, aber jo, würde passen.


LStream.Size := 0; setzt ebenfalls die Position in den noch vorhandenen Bereich (also auf 0)
und wenn vorher schon gelöscht wurde, dann ist nachher das Size:=Position unnötig, weil nach der (aktuellen) Position nichts mehr komen kann ... wurde ja schon zu beginn gelöscht.
im Grunde reicht entweder am Anfang auf 0 oder am Ende das Abschneiden, nach der aktuellen Position.
Oder eben das öffnen und dabei sofort löschen (also fmCreate ist wie fmOpenReadWrite mit einem Size:=0)

Alles Klar vielen Dank, werde ich mir so merken.

Leider besteht das Hauptproblem immer noch. Falls jemand noch ne Idee hat was ich tun könnte, wäre ich sehr dankbar.

Ich habe bemerkt, dass wenn ich versuche einen Key von einer Datei zu laden (der Key wurde mit einem externen Programm richtig generiert) bekomme ich beim Laden einen "Stream-Lesefehler". Also lesen und schreiben eines Keys in einen Stream scheint mit LockBox bei mir gar nicht zu funktionieren. Könnte dies ein Problem mit der Bibliothek LockBox3 sein?

Edit: Hab das ganze nochmal auf einer frischen VM mit frischem Delphi versucht und kam zum exakt selbem Ergebnis, scheint also wahrscheinlich auch nicht an meiner Umgebung zu liegen. Komisch...

Freundliche Grüsse

[mytbo]

Zitat von milos:

Falls jemand noch ne Idee hat was ich tun könnte, wäre ich sehr dankbar.

Wenn es auch etwas anderes sein kann, würde ich bei mORMot hier schauen. Genauer in diese Datei und als Wrapper oder Ausgang für ein eigenes Programm das ECC Kommandozeilen-Tool nehmen.

Bis bald...
Thomas

[milos]

Hi mytbo,

danke für den Tipp.

Ich würde gerne bei LockBox bleiben um auch die anderen Features nutzen zu können. Sollte dies aber nicht funktionieren werde ich mir mORMot gerne mal genauer ansehen.

Freundliche Grüsse

[himitsu]

Wie wäre es, wenn jemand den Debugger nimmt und schaut, was da passiert?

Delphi-Quellcode:

procedure TSignatory.StoreKeysToStream(
  Store: TStream; Parts: TKeyStoragePartSet);
begin
if assigned( FCryptoKeys) then
  FCryptoKeys.StoreToStream( Store, Parts);
if assigned( FSigningKeys) then
FSigningKeys.StoreToStream( Store, Parts);
end;

procedure TAsymetricKeyPair.StoreToStream(
  Store: TStream; Parts: TKeyStoragePartSet);
var
  hasPart: boolean;
begin
if partPublic in Parts then
  begin
  hasPart := assigned( FPublicPart) and (not FPublicPart.isEmpty);
  Store.WriteBuffer( hasPart, SizeOf( hasPart));
  if hasPart then
    FPublicPart.SaveToStream( Store)
  end;
if partPrivate in Parts then
  begin
  hasPart := assigned( FPrivatePart) and (not FPrivatePart.isEmpty);
  Store.WriteBuffer( hasPart, SizeOf( hasPart));
  if hasPart then
    FPrivatePart.SaveToStream( Store)
  end
end;

Und was das Lesen von fremden Keys betrifft ... hier ist es ein wohl eher binäres und eventuell sogar "eigenes" propitäres Format.

Bei so Textdateien ala RSA PRIVATE KEY, würde ich eher mal bei TOpenSSL_Signatory vorbeisehn.