Delphi 将appid time nonce_str 利用Hmacsha1算法加密之后 再base64编码

1、利用D10 以上自带的IdHMACSHA1

var app_secret,sha1Value,base64Value:string;

signSrcString:string;

bs : TIdBytes;

begin

appid := 'jzrhvabb71qp5yo08y9d';

time := '1562143733608';

nonce_str :='ebrb7nt4v8';

signSrcString := appid +'&'+time+'&'+nonce_str;

app_secret :='b52a0705dbf479192465e77454e97eb';

// signSrcString:='jzrhvabb71qp5yo08y9d&1562143733608&ebrb7nt4v8';

with TIdHMACSHA1.Create() do

try

Key := ToBytes(app_secret);

// bs := HashValue(ToBytes('jzrhvabb71qp5yo08y9d&1562143733608&ebrb7nt4v8'));

bs := HashValue(ToBytes(signSrcString));

finally

Free;

end;

base64Value := BytesToBase64(bs);

end;

这里非常注意：appid,time,nonce_str:WideString; 拼接字符串必须使用widestring；

function StreamToBase64(AStream: TStream): string;

var

objSS: TStringStream;

begin

objSS := TStringStream.Create('');

try

EncodeStream(AStream, objSS); // Delphi unit EncdDecd的方法

Result := objSS.DataString;

finally

FreeAndNil(objSS);

end;

end;

function BytesToBase64(const bytes: TIdBytes): string;

var

memoryStream: TMemoryStream;

begin

memoryStream := TMemoryStream.Create;

memoryStream.WriteBuffer(bytes[0], Length(bytes));

memoryStream.Seek(0, soFromBeginning);

Result := StreamToBase64(memoryStream);

memoryStream.Free;

end;