[delphi] 델파이로 SHA 512 암호화 하기

자바스크립트로 SHA 512암호화를 찾았지만, 결국 프로그램에 반영은 실패해서 이번엔 델파이를 이용하여 512암호화를 찾아봤다.

아래 호출함수를 이용하여 암호화된 값을 추출할수 있지만, 단 실행파일 경로에 ssleay32.dll, libeay32.dll 이녀석들이 있어야 한다.

(DLL 2개는 첨부했으니, 받아서 쓰세요~)

//SHA512 단방향 암호화
function DoEncryption(const AText: String): String;
var
  hash : TIdHashSHA512;
  Return : String;
begin

  if IdSSLOpenSSL.LoadOpenSSLLibrary then
  begin
    hash := TIdHashSHA512.Create;
    try
      Return := hash.HashStringAsHex(AText);
      Result := Return;
    finally
      hash.Free;
    end;
  end;
end;

Desktop.zip