das mit den Stichworten ist och soein Problem ... bei einigem bin ich mir sicher, ob diese Stichwörter (genau so) vorkommen.
Aber vorallem das ganze MD5-Zeugs find ich nicht mehr, weder im Forum, noch der CodeLib.
Im Forum hatte ich mal die SHA1 und MD5-
API von Windwos gepostet
und in der CodeLib gab es von irgendwem mal einige MD5-Funktionen, wo die
API ebenfalls nachgetragen wurde.
Dann noch einiges zu GetTickCount ... da gab es mehrere Beiträge (auch welche von mir), wo es um die Auflösung ging und wo auch die Auflösungen (früher und heute) nochmal genau drinstanden...
Ein derartige Definition sollte also doch irgendwo zu finden sein?
(nja, abgesehn von den PVIOD, ULONG und Co. ... ich denk mal, daß hatte ich umbenannt)
Delphi-Quellcode:
Type MD5_DIGEST = Array[0..15] of BYTE;
MD5_CTX = packed Record
Count: QWORD;
State: Array[0.. 3] of DWORD;
Buffer: Array[0..63] of BYTE;
Digest: MD5_DIGEST;function
End;
pMD5_CTX = ^MD5_CTX;
Procedure MD5Init (Var Context: MD5_CTX); StdCall;
Procedure MD5Update(Var Context: MD5_CTX; Input: PVOID; inLen: ULONG); StdCall;
Procedure MD5Final (Var Context: MD5_CTX); StdCall;
Type SHA_CTX = packed Record
Unknown: Array[0.. 5] of DWORD;
State: Array[0.. 4] of DWORD;
Count: QWORD;
Buffer: Array[0..63] of BYTE;
End;
pSHA_CTX = ^SHA_CTX;
SHA_RES = Array[0..4] of DWORD;
Procedure SHAInit (Var Context: SHA_CTX); StdCall;
Procedure SHAUpdate(Var Context: SHA_CTX; Input: PVOID; inLen: ULONG); StdCall;
Procedure SHAFinal (Var Context: SHA_CTX; Out Result: SHA_RES); StdCall;