用delphi实现qq在Web登录的密码客户端加密功能.

最新推荐文章于 2021-06-08 19:54:09 发布

原创最新推荐文章于 2021-06-08 19:54:09 发布 · 1.5k 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

Delphi

Javascript

本文介绍了一种使用TIdHashMessageDigest5组件进行三次MD5哈希运算并结合验证码的密码预处理加密方法。该方法首先对原始密码进行MD5哈希处理，然后将结果与验证码拼接再进行两次额外的MD5哈希处理，最后返回加密后的字符串。

使用到TIdHashMessageDigest5.

uses IdHashMessageDigest;

function Preprocess(aPassWord, aVerifyCode:string):string;
begin
Result:= Fmd5(md5_3(aPassWord) + UpperCase(aVerifyCode));
end;

function md5_3(str:string):string;
begin
     Result:= Fmd5(str);
     Result:= HashStr2BinStr(Result);
     Result:= Fmd5(Result);
     Result:= HashStr2BinStr(Result);
     Result:= Fmd5(Result);
end;

function HashStr2BinStr(Hash:string):string;
var
   buf:array[0..63] of Char;
   i:Integer;
begin
    Result:='';
    FillChar(buf, SizeOf(buf),0);
    SetLength(Result, Round(Length(Hash)/2));
    FillChar(Result[1], Length(Result),0);
    HexToBin(PChar(Hash), buf,SizeOf(buf));
    for i:=0 to Round(Length(Hash)/2)-1 do
        Result:= buf;
end;

使用方法：

密码和验证码加密后的结果 = Preprocess(密码, 验证码);