데이터 암호화가 필요한 경우 LockBox 컴포넌트를 이용해 데이터를 암호화/복호화 할 수 있습니다.

LockBox 설치

LockBox는 엠바카데로에서 지원하는 터보팩 오픈소스 중 하나이며, 겟잇 패키지 매니저를 통해 설치하거나, 직접 다운로드 후 설치할 수 있습니다.

겟잇 패키지 매니저로 설치

겟잇 패키지 매니저(Tools > Getit Package Mnager..)에서 LockBox 검색 후 [Install] 버튼을 눌러 설치합니다.

직접 다운로드 및 설치

겟잇 패키지 매니저를 사용할 수 없는 버전의 경우 아래 링크에서 다운로드 설치 안내에 따라 설치합니다.

https://github.com/TurboPack/LockBox3

LockBox 컴포넌트 활용

샘플 프로젝트

LockBox.zip

컴포넌트를 이용한 암복호화

위 2개 컴포넌트를 이용해 암/복호화 기능을 구현합니다.

var

  Str: string;

  EncStr: string;

  EncStr2: string;

  DecStr: string;

begin

  Codec1.Password := 'asdf';

  Str := Edit1.Text;

  Codec1.EncryptString(Str, EncStr, TEncoding.UTF8);

  Memo1.Lines.Add('Encrypted string = ' + EncStr);

  Edit2.Text := EncStr;

  Codec1.DecryptString(DecStr, EncStr, TEncoding.UTF8);

  Memo1.Lines.Add('Decrypted string=' + DecStr);

  Edit3.Text := DecStr;

end;

코드를 이용한 암복호화

코드를 이용한 암복호화는 다음과 같이 구현할 수 있습니다.

var

  Str, EncStr, DecStr: string;

  CryptographicLibrary: TCryptographicLibrary;

  Codec: TCodec;

begin

  CryptographicLibrary := TCryptographicLibrary.Create(nil);

  Codec := TCodec.Create(nil);

  Codec.CryptoLibrary := CryptographicLibrary;

  Codec.StreamCipherId := BlockCipher_ProgID;

  Codec.BlockCipherId := Blowfish_ProgId;

//  FCodec.BlockCipherId := Format(AES_ProgId, [128]);

  Codec.ChainModeId := CBC_ProgId;

  Codec.Password := 'asdf';

  Str := Edit1.Text;

  Codec.EncryptString(Str, EncStr, TEncoding.UTF8);

  Memo1.Lines.Add('Encrypted string = ' + EncStr);

  Edit2.Text := EncStr;

  Codec.DecryptString(DecStr, EncStr, TEncoding.UTF8);

  Memo1.Lines.Add('Decrypted string = ' + DecStr);

  Edit3.Text := DecStr;

다음과 같이 다양한 암호화 종류를 사용할 수 있습니다.