[LockBox3] Komischer Stream bei RSA Keys

[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.