쓰기 간편한 암호화 클래스입니다.

복잡한 암호화를 싫어(?)하시는 사용자는 이것만으로도 충분할듯 합니다.

private
    MyEncrypt: TEncrypt;

procedure TForm1.Button1Click(Sender: TObject);
begin

   // 복호화​
    Edit3.Text := MyEncrypt.DecryptStr(Edit2.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
    // 암호화​
    Edit2.Text := MyEncrypt.EncryptStr(Edit1.Text);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   // 굳이 해제하지 않아도 자동으로 해제가 됩니다. 
   // 해제해도 그만, 안해도 그만, 여러번 해도 그만...
    if Assigned(MyEncrypt) then
        MyEncrypt.Free;

    Close;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   // 폼 생성 시​
    MyEncrypt := TEncrypt.GetObject;
end;

데모 및 클래스 파일을 아래 블로그에서 다운 받을 수 있습니다.
blog.naver.com/seejune66