Delphi7和Delphi2010用MD5加密怎么结果怎么不一样?

Question

用Indy自带TIdHashMessageDigest. 在delphi2010里不一样.郁闷.请问应该怎样?下面的是DELPHI7中的加密.
procedure TForm1.btn4Click(Sender: TObject);
var
  hash: T4x4LongWordRecord;
  hashstr: string;
  i: integer;
  temp3: string;
begin
  SetLength(hashstr, 16);
  with TIdHashMessageDigest5.Create do begin
    hash := HashValue('123456');　　　　//此处的hash也是初级的
    Move(hash, hashstr[1], 16);
    for i := 1 to Length(hashstr) do
      temp3 := temp3 + Char(hashstr[i]);
    hash := HashValue(temp3);
    Move(hash, hashstr[1], 16);
    temp3 := '';
    for i := 1 to Length(hashstr) do
      temp3 := temp3 + Char(hashstr[i]);
    temp3 := AsHex(HashValue(temp3));　　//此处的AsHex就是转换最终的MD5字符串（32位）
    temp3 := temp3 + 'EFTA';
    temp3 := AsHex(HashValue(temp3));
    ShowMessage(temp3);
    Free;
  end;
end;在DELPHI2010.加密不同.

Answer 1

肯定不同，因为在2010中char是2个长度，在D7中char是一个长度，而且对于字符串来说，2010采用unicode编码，D7不是，所以对于Length(hashstr)就有可能不一样，而Char(hashstr[i])中的hashstr[i]也可能不一样

Answer 2

string -> anisiString
char -> AnsiChar
PChar -> PAnsiChar替换一下。