UTF8 이후 MD5

  function ToUTF8Encode(str: string): string; //     UTF8  

  var

    b: Byte;

  begin

    for b in BytesOf(UTF8Encode(str)) do

      Result := Format('%s%%%.2x', [Result, b]);

  end;

  function Encode(const KeyContent, content : string) : string;//  (  ,     )

  var

    md5key : string;

    MyMD5: TIdHashMessageDigest5;

  begin

    md5key := ToUTF8Encode(KeyContent);

    MyMD5 := TIdHashMessageDigest5.Create;

    try

      Result := ToUTF8Encode(Base64EncodeString(MyMD5.HashStringAsHex(content + md5key, enUTF8)));

    finally

      MyMD5.free;

    end;

  end;

const

  Key = 'abc';

var

  Code : string;

begin

  Code := Encode(Key, '123abc');

  ShowMessage(Code);

end;

이 내용에 흥미가 있습니까?

현재 기사가 여러분의 문제를 해결하지 못하는 경우 AI 엔진은 머신러닝 분석(스마트 모델이 방금 만들어져 부정확한 경우가 있을 수 있음)을 통해 가장 유사한 기사를 추천합니다:

C#GB2312 및 UTF8 상호 전환

public string GB2312ToUtf8(string gb2312String) Encoding fromEncoding = Encoding.GetEncoding("gb2312"); Encoding toEncod...

텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.

CC BY-SA 2.5, CC BY-SA 3.0 및 CC BY-SA 4.0에 따라 라이센스가 부여됩니다.

UTF8 이후 MD5

좋은 웹페이지 즐겨찾기