단방향 해쉬 함수 ( SHA256 / Hash 내장 모듈 사용)

문자나 데이터들을 암호화 해야할 경우가있습니다.

이럴경우 BASE64,MD5 (해시암호화였지만 요즘은 무결점 검사에 주로사용하죠) 
같은 양방향 암호화(Encrypt 와 Decrypt 가 가능한 암호화),
SHA1~512등 의 단방향 암호화 (별도의 Decrypt 가 불가능한 해쉬 암호화)
등을 사용하게되는데 

이중 단방향 암호화 ( SHA ) 를 Delphi 에 내장된 Lib 중 Hash 모듈을 이용해 간단히 사용하는 예제코드입니다.


자주 사용하는 SHA 256 으로 작성되었습니다.


[Source Code]
program Encrypt;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Hash;

var
tempString : String;
vHash : THashSHA2;

begin
  try
   Readln(tempString);
   if tempString <> '' then begin
      Writeln('You Input String : ' + Format('%s',[tempString]) + #13#10
      + 'SHA256 Hash String : ' + Format('%s',[vHash.GetHashString(tempString,SHA256)]));
   end;

   Readln(tempString);
  except
    on E: Exception do      //if ERROR Then u Can show ERROR CODE
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.



[Code Test]