看到网上有人说indy的md5在64位下计算结果与32位下不一致。我测试了一下,确实如此,因此把自己用的64位计算结果正确的md5函数代码发出来。
说明1:这个单元的代码是从indy的md5代码修改而来的。
说明2:计算TBytes和String的MD5值可以使用TBytesStream或TStringStream。
说明3:计算结果转换为HEX字符的代码请自行编写。
unit BambooMD5;
interface
uses
SysUtils,
Classes;
function BambooMD5Stream(aStream: TStream): TBytes;
implementation
uses
Math;
type
T4x4LongWordRecord = array [0 .. 3] of LongWord;
T16x4LongWordRecord = array [0 .. 15] of LongWord;
function ROL(const AVal: LongWord; AShift: Byte): LongWord; assembler;
asm
{$IFDEF CPUX64}
mov eax, ecx
{$ELSE}
{$ENDIF !CPUX64}
mov cl, dl
rol eax, cl
end;
const
MD4_INIT_VALUES: T4x4LongWordRecord = ($67452301, $EFCDAB89, $98BADCFE, $10325476);
MD5_SINE: array [1 .. 64] of LongWord = (
{ Round 1. }
$D76AA478, $E8C7B756, $242070DB, $C1BDCEEE, $F57C0FAF, $4787C62A, $A8304613, $FD469501, $698098D8, $8B44F7AF, $FFFF5BB1, $895CD7BE, $6B901122, $FD987193, $A679438E, $49B40821,
{ Round 2. }
$F61E2562, $C040B340, $265E5A51, $E9B6C7AA, $D62F105D, $02441453, $D8A1E681, $E7D3FBC8, $21E1CDE6, $C33707D6, $F4D50D87, $455A14ED, $A9E3E905, $FCEFA3F8, $676F02D9, $8D2A4C8A,
{ Round 3. }
$FFFA3942, $8771F681, $6D9D6122, $FDE5380C, $A4BEEA44, $4BDECFA9, $F6BB4B60, $BEBFBC70, $289B7EC6, $EAA127FA, $D4EF3085, $04881D05, $D9D4D039, $E6DB99E5, $1FA27CF8, $C4AC5665,
{ Round 4. }
$F4292244, $432AFF97, $AB9423A7, $FC93A039, $655B59C3, $8F0CCC92, $FFEFF47D, $85845DD1, $6FA87E4F, $FE2CE6E0, $A3014314, $4E0811A1, $F7537E82, $BD3AF235, $2AD7D2BB, $EB86D391);
{$Q-}
procedure MDCoder(const FCBuffer: TBytes; var FState: T4x4LongWordRecord);
var
A, B, C, D: LongWord;
i: Integer;
X: T16x4LongWordRecord;
begin
A := FState[0];
B := FState[1];
C