반응형 MD52 [개발/델파이] MD5 - delphi에서 간단히 다루기 uses IdHashMessageDigest, IdHash; // 문자열 -> MD5function MD5Str(const S: String): String;var IdMD5: TIdHashMessageDigest5;begin IdMD5:=TIdHashMessageDigest5.Create; try Result:=IdMD5.HashStringAsHex(S); finally FreeAndNil(IdMD5); end;end; // 파일 -> MD5function MD5File(const FilePath: String): String;var IdMD5: TIdHashMessageDigest5; fStream: TFileStream;begin Result:=''; if not FileExists(FilePath.. 2012. 10. 29. [개발/Delphi] WinCrypt API32 로 문자열 MD5 암호화 하기 MD5 암호화를 찾아보면서...MD5 암호화 리턴값이 다른 경우가 꽤나 있다. 그래서 windows에서 제공하는 WinAPI32 를 사용하기로 했다.WinCrypt API를 사용하기로 했다.그리고, 값이 제대로 나오는 방법을 찾아서 구현했다. 또, 아래 사이트가 내가 구현한 것과 거의 유사하다. 아래 소스가 공유가 많이 되었으면 좋겠다. 동일한 md5 암호화 값이 나오게 [개발/Delphi] WinCrypt API32 로 문자열 MD5 암호화 하기 출처: http://www.scalabium.com/faq/dct0173.htm function MD5(const Value: string): string; var hCryptProvider: HCRYPTPROV; hHash: HCRYPTHASH; bHash:.. 2012. 5. 23. 이전 1 다음 반응형
