sequence of byte -> komischer Datentyp

[BUG]

Moin moin,

ich versuche die MD5 Proceduren aus der Microsoft Cryptdll.dll zu benutzen,
leider tritt dabei beim Ausführen folgendes Codes eine AccessViolation bzw. Priviligierte Instruktion auf.

Ich nehme an das mit den Aufrufen der Funktionen etwas schief läuft ... die Aufrufkonventionen müsste aber stimmen, ist ja aus der Windows API

Delphi-Quellcode:

// ...

uses classes;

// Windows Cript API imports

type MD5_CTX = packed record
  i: packed array[0..1] of longint;       // ULONG[2]
  buf: packed array[0..3] of longint;     // ULONG[4]
  _in: packed array[0..63] of byte;       // unsigned char[64]
  digest: packed array[0..15] of byte;    // unsigned char[16]
end;

procedure MD5Init(var MD5_CTX); stdcall; external 'Cryptdll.dll' name 'MD5Init';
procedure MD5Update(var MD5_CTX; const input; inputLength: longint); stdcall; external 'Cryptdll.dll' name 'MD5Init';
procedure MD5Final(var MD5_CTX); stdcall; external 'Cryptdll.dll' name 'MD5Init';

function StreamToMD5String(x: TStream): string; // suboptimaler Funktionsname

implementation

function StreamToMD5String(x: TStream): string;
var context: MD5_CTX;
    buffer: packed array[0..511] of byte;
    length: integer;
begin
     MD5Init(context);
     x.Position := 0;
     repeat
           length := x.Read(buffer, 512);
           MD5Update(context, buffer, length);
     until length <= 0;
     MD5Final(context);
end;

// ...

Problematisch bei der Übersetzung/Einbindung ist folgendes:

Code:

 procedure MD5Update(
  var context: MD5_CTX,
  input: sequence of BYTE, 
  inputLen: integer)

[Quelle]

Was ist "sequence of BYTE"?

Pointer hab ich schon probiert (s.o.)...

Ich freue mich über sachdienliche Hinweise


MfG,
Bug

[Olli]

Zitat von BUG:

Was ist "sequence of BYTE"?

Array[0..x] of Byte?

Ich denke, daß es in der Protokollbeschreibung nur "symbolisch" so steht. Es ist kein eigentlicher Typ. Im Notfall kann ich mal mit IDA in die DLL gucken.

[BUG]

Zitat von Olli:

Array[0..x] of Byte?

Glaub ich nicht, erstens unterstützt stdcall AFAIK keine Parameter variabler Länge und zweitens müsste dann folgendes funktionieren:

Delphi-Quellcode:

type TInput = packed array[0..511] of byte;

procedure MD5Update(var MD5_CTX; input: TInput; inputLength: longint); stdcall; external 'Cryptdll.dll' name 'MD5Init';

// ...

var buffer: TInput;
// ...
     MD5Init(context);
// ...
           MD5Update(context, buffer, 512);
// ...
     MD5Final(context);
// ...

Zitat von Olli:

Im Notfall kann ich mal mit IDA in die DLL gucken.

Das wär nett ... aber eigentlich sollte sich doch bei sowas eine Lösung finden lassen, ohne sich an den Seziertisch zu begeben

MfG,
Bug

[Olli]

Zitat von BUG:

Zitat von Olli:

Array[0..x] of Byte?

Glaub ich nicht, erstens unterstützt stdcall AFAIK keine Parameter variabler Länge und zweitens müsste dann folgendes funktionieren

Ja, das sollte identisch sein. Allerdings würde ein Array ohnehin als Pointer übergeben. Aber vielleicht ist es Pointer auf Pointer.

Ich schau mal schnell rein.

[Olli]

Da schau ich so rein und da fällt mir auf, daß ich das doch schon kenne. Ist doch dokumentiert

http://msdn.microsoft.com/en-us/library/bb432359(VS.85).aspx

Ich würde dir aber mal empfehlen nochmal hier nachzulesen.

[BUG]

Aber dann müßte das:
procedure MD5Update(var context: MD5_CTX; const input; inputLength: word); stdcall; external 'Cryptdll.dll' name 'MD5Init'; doch funktionieren, oder? Macht es leider nicht ... irgendwas mach ich falsch

Zitat von Olli:

Ich würde dir aber mal empfehlen nochmal hier nachzulesen.

Soll nichts werden, was mutwillig manipuliert wird. Trotzdem danke für die Warnung.

EDIT: hat geholfen, natürlich muss da procedure MD5Update(var context: MD5_CTX; const input; inputLength: word); stdcall; external 'Cryptdll.dll' name 'MD5Update'; stehen ... Problem gelöst!

Trotzdem vielen Dank!

MfG,
Bug

[Olli]

Könntest du mir einfach mal das kompilierte Programm anhängen? Ich würde es einfach mal im IDA Debgger durchlaufen lassen und mir die C-Variante vergleichend anschauen.