Swissbit DLL - Diverse Fragen

[hhcm]

Hallo zusammen,

da sich ja manche schon als Nutzer der Swissbit TSE "geoutet" haben, werde ich hier vielleicht die ein oder andere Frage los.
Nachdem ich 10x in der Doku überlesen habe, dass der erste Selbsttest mit einem Fehler abschmiert und das völlig in Ordnung ist, ging es auch weiter.
Selbst-Test, Setup, Diverse Info´s auslesen, Zeit updaten, Einloggen - Soweit so gut.

Ich versuche jetzt seit Stunden das Log-Zertifikat auszulesen

Code:

WORMAPI WormError WORMAPI_CALL worm_getLogMessageCertificate    (    
      WormContext *     context,
      unsigned char *     certificate,
      uint32_t *     certificateLength 
   )

( wurde bisher in der gefühlt 100 Fassung zu )

Delphi-Quellcode:

function worm_getLogMessageCertificate(context: IntPtr; out certificate: PBytes; out certificateLength: PUInt32): Integer; cdecl; external 'WormAPI.dll';

Egas was ich anstelle, entweder gibt entweder eine AV oder das Result ist WORM_ERROR_INVALID_PARAMETER.
In der Doku steht, das man den Buffer (in dem Fall certificate) selbst initialisieren muss. Selbst da habe ich von GetMem bis SetLength mit den unterschiedlichsten Typen alles durch.

Hat da jedmand mal nen Tip?

[DeddyH]

Bei mir ist Certificate als PByte deklariert (ohne out). Ich rufe dann die Funktion einmal mit nil auf, um die Länge zu ermitteln, reserviere mir dann mit GetMem den entsprechenden Speicher und rufe die Funktion erneut mit dem entsprechenden Pointer auf. Zum Schluss das FreeMem nicht vergessen.

[hhcm]

Ich glaub das jetzt nicht. Das hab ich 5x ausprobiert. Sowohl mit PBytes als auch PByte.
Das zweimalige aufrufen steht bei mir schon die ganze Zeit im Code. Die Länge habe ich auch immer zurück bekommen. Der zweite Aufruf wurde immer mit einer AV gekrönt.

Warum auch immer, jetzt gehts. Danke !

[hhcm]

Hat schon mal jemand einen "extrahierbaren" Tar Export hinbekommen?

Ich bekomme keine Fehler aber das Tar-Archiv lässt sich mit keinem Programm extrahieren.

Delphi-Quellcode:

  TWormExportTarCallback = function(chunk: PBytes; chunkLength: Cardinal; callbackData: PBytes): Integer; cdecl;

  function worm_export_tar(context: IntPtr; callback: TWormExportTarCallback; callbackData: Pointer): Integer; cdecl; external 'WormAPI.dll';

[DeddyH]

Bei mir sieht das so aus:

Delphi-Quellcode:

// TChunkLength = UINT32
function Callback(const Chunk: PByte; ChunkLength: TChunkLength;
  CallbackData: Pointer): integer; Cdecl;
var
  Stream: TMemoryStream;
begin
  Stream := TMemoryStream(CallbackData);
  Stream.Write(Chunk^, ChunkLength);
  Result := 0;
end;

Anschließend erzeuge ich einen MemoryStream und übergebe diesen als CallbackData an worm_export_tar.

Delphi-Quellcode:

Stream := TMemoryStream.Create;
try
  worm_export_tar(Context, Callback, Stream);
finally
  Stream.Free;
end;

[hhcm]

Dann muss es was anderes sein.
Auch in dieser Variante sagt 7-Zip mir, Die Datei kann nicht als Archiv geöffnet werden.

Entpacken über Linux bringt mich aber glaube ich weiter.

Code:

time stamp 2019-12-18 09:07:44 is 3133.460484916 s in the future

[DeddyH]

Hast Du die aktuelle Version von 7-zip? Ich hatte auch erst eine veraltete, die aktuelle kann aber mit dem Archiv umgehen.

[Neumann]

Ich habe da auch noch einige Probleme mit meiner Swissbit-TSE.

Es geht einiges: Reset, Init,Setup, Settime, Transactionen, Seriennummer auslesen, PublicKey auslesen.

Was (noch) nicht geht ist:

Zusätzlichen Client anlegen Fehler 3 (IO Error), versuche ich so:

Function worm_tse_registerClient(context:pointer;clientid:p ansichar):integer;cdecl; external 'WormAPI.dll';

Clients auslesen Fehler 1 Wrong Input Parameter

Dann noch Dinge die mich um die Praxistauglichkeit fürchten lassen:

Nach Startendes Rechners aus dem Ruhezustand oft keine Funktion; nicht mal Init geht dann.
Abhilfe ist dann Karte rausnehmen und wieder einstecken.



Beim Einstecken fast regelmäßig Meldung von Windows das Laufwerk muss repariert werden, was ich Windows auch machen lasse da sonst oft kein Funktion

[hhcm]

Zitat:

Hast Du die aktuelle Version von 7-zip? Ich hatte auch erst eine veraltete, die aktuelle kann aber mit dem Archiv umgehen.

:roll: Oh mann. Was soll ich dazu jetzt sagen :) Danke ! Das war´s

[hhcm]

Zitat:

Zitat von Neumann (Beitrag 1453670)

Function worm_tse_registerClient(context:pointer;clientid:p ansichar):integer;cdecl; external 'WormAPI.dll';

Wie rufst du die Funktion auf?

Delphi-Quellcode:

worm_tse_registerClient(context, PAnsiChar('Client4711'));

Bei mir geht das ohne Fehler.