mac ansi99 delphi版

最新推荐文章于 2024-09-03 11:03:20 发布

brucewata

最新推荐文章于 2024-09-03 11:03:20 发布

阅读量434

点赞数

CC 4.0 BY-SA版权

本文链接：https://blog.youkuaiyun.com/brucewata/article/details/44079869

本文介绍了一种使用ANSI X9.9标准的软MAC加密方法的具体实现过程。该方法通过初始化向量与输入缓冲区进行异或操作，并利用DES算法进行加密。文中详细展示了加密流程，包括输入数据的处理、循环加密步骤及最终输出信息的生成。

class function TTools.softmac_ansi99(pInitData: pbyte; pInBuf: pbyte;
nInLen: integer; pKey: pbyte; pOutInfo: pbyte): boolean;
var
indata: array [0 .. 33 - 1] of byte;
outdata: array [0 .. 33 - 1] of byte;
nlen, i, j: integer;
sOut: string;
begin
nlen := 0;
i := 0;
j := 0;
fillchar(indata, sizeof(indata), #0);
fillchar(outdata, sizeof(outdata), #0);

if (nInLen mod 8 = 0) then
nlen := nInLen
else
nlen := (floor(nInLen / 8) + 1) * 8;

for i := 0 to 8 - 1 do
begin
indata[i] := pInitData[i] xor pInBuf[i];
end;

for i := 0 to floor(nlen / 8) - 1 - 1 do
begin
fillchar(outdata, sizeof(outdata), #0);
sOut := DESEncrypt_Hex(@indata, 8, pKey, 8, @outdata);
for j := 0 to 8 - 1 do
begin
indata[j] := outdata[j] xor pInBuf[(i + 1) * 8 + j];
end;
end;

sOut := DESEncrypt_Hex(@indata, 8, pKey, 8, @outdata);
copymemory(pOutInfo, @outdata, 8);

result := true;
end;