unit DKessDrmMain;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Tocsg.Controls;

type
  TDlgKessDrmMain = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    edInitDir: TEdit;
    edEncPath: TEdit;
    edDecPath: TEdit;
    Label4: TLabel;
    edLicenseKey: TEdit;
    btnDec: TButton;
    Label5: TLabel;
    edSrcPath: TEdit;
    brnEnc: TButton;
    btnIsEnc: TButton;
    procedure btnDecClick(Sender: TObject);
    procedure brnEncClick(Sender: TObject);
    procedure btnIsEncClick(Sender: TObject);
  private
    { Private declarations }
    MgCtrls_: TManagerInputControlsData;
  public
    { Public declarations }
    Constructor Create(aOwner: TComponent); override;
    Destructor Destroy; override;
  end;

var
  DlgKessDrmMain: TDlgKessDrmMain;

implementation

uses
  Tocsg.Kess, Tocsg.Path, Tocsg.DateTime, System.DateUtils;

{$R *.dfm}

Constructor TDlgKessDrmMain.Create(aOwner: TComponent);
begin
  Inherited Create(aOwner);
  MgCtrls_ := TManagerInputControlsData.Create(CutFileExt(GetRunExePath) + '.ini');
  MgCtrls_.RegInputCtrl(edInitDir);
  MgCtrls_.RegInputCtrl(edLicenseKey);
  MgCtrls_.RegInputCtrl(edSrcPath);
  MgCtrls_.RegInputCtrl(edEncPath);
  MgCtrls_.RegInputCtrl(edDecPath);
  MgCtrls_.Load;

  if edInitDir.Text = '' then
    edInitDir.Text := GetRunExePathDir;

  if edLicenseKey.Text = '' then
    edLicenseKey.Text := 'kdnavien';
end;

Destructor TDlgKessDrmMain.Destroy;
begin
  FreeAndNil(MgCtrls_);
  Inherited;
end;

procedure TDlgKessDrmMain.btnIsEncClick(Sender: TObject);
var
  dwResult: DWORD;
begin
  edInitDir.Text := Trim(edInitDir.Text);
  edLicenseKey.Text := Trim(edLicenseKey.Text);
  edEncPath.Text := Trim(edEncPath.Text);

  if edEncPath.Text = '' then
  begin
    MessageBox(Handle, PChar('"암호화된 파일 저장 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edEncPath.SetFocus;
    exit;
  end;

  MgCtrls_.Save;

  dwResult := KCT_Init(edInitDir.Text, edLicenseKey.Text); // 디버그 모드에서는 실패한다 24_1126 09:44:28 kku
  if dwResult <> RESULT_SUCCESS then
  begin
    MessageBox(Handle, PChar(Format('KESS 암호화 모듈 초기화를 실패했습니다.'+#13+#10+
        'KESS 모듈 경로 또는 라이선스 키를 확인해주세요. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
    exit;
  end;

  dwResult := KCT_IsEncrypt(edEncPath.Text);
  if dwResult = RESULT_SUCCESS then
    MessageBox(Handle, PChar('암호화된 파일입니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK)
  else
    MessageBox(Handle, PChar(Format('암호화 확인에 실패 했습니다. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
end;

procedure TDlgKessDrmMain.brnEncClick(Sender: TObject);
var
  dwResult: DWORD;
begin
  edInitDir.Text := Trim(edInitDir.Text);
  edLicenseKey.Text := Trim(edLicenseKey.Text);
  edSrcPath.Text := Trim(edSrcPath.Text);
  edEncPath.Text := Trim(edEncPath.Text);

  if edInitDir.Text = '' then
  begin
    MessageBox(Handle, PChar('"KESS 모듈 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edInitDir.SetFocus;
    exit;
  end;

  if edLicenseKey.Text = '' then
  begin
    MessageBox(Handle, PChar('"KESS 라이선스 키"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edLicenseKey.SetFocus;
    exit;
  end;

  if edSrcPath.Text = '' then
  begin
    MessageBox(Handle, PChar('"암호화 할 파일 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edSrcPath.SetFocus;
    exit;
  end;

  if not FileExists(edSrcPath.Text) then
  begin
    MessageBox(Handle, PChar('"암호화 할 파일"이 존재하지 않습니다.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edSrcPath.SetFocus;
    exit;
  end;

  if edEncPath.Text = '' then
  begin
    MessageBox(Handle, PChar('"암호화된 파일 저장 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edEncPath.SetFocus;
    exit;
  end;

  MgCtrls_.Save;

  dwResult := KCT_Init(edInitDir.Text, edLicenseKey.Text); // 디버그 모드에서는 실패한다 24_1126 09:44:28 kku
  if dwResult <> RESULT_SUCCESS then
  begin
    MessageBox(Handle, PChar(Format('KESS 암호화 모듈 초기화를 실패했습니다.'+#13+#10+
        'KESS 모듈 경로 또는 라이선스 키를 확인해주세요. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
    exit;
  end;

  dwResult := KCT_Encrypt(edSrcPath.Text, 2, edEncPath.Text);
  if dwResult = RESULT_SUCCESS then
    MessageBox(Handle, PChar('파일이 암호화 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK)
  else
    MessageBox(Handle, PChar(Format('암호화에 실패 했습니다. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
end;

procedure TDlgKessDrmMain.btnDecClick(Sender: TObject);
var
  dwResult: DWORD;
  s: String;
  dt: TDateTime;
begin
  dt := Now;
  s := DateTimeToStr(dt) + #13#10 + FormatDateTime('yyyy-MM-dd"T"hh:nn:ss.zzz"Z"', TTimeZone.Local.ToUniversalTime(dt));
//  ShowMessage(s);
//exit;
  edInitDir.Text := Trim(edInitDir.Text);
  edLicenseKey.Text := Trim(edLicenseKey.Text);
  edEncPath.Text := Trim(edEncPath.Text);
  edDecPath.Text := Trim(edDecPath.Text);

  if edInitDir.Text = '' then
  begin
    MessageBox(Handle, PChar('"KESS 모듈 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edInitDir.SetFocus;
    exit;
  end;

  if edLicenseKey.Text = '' then
  begin
    MessageBox(Handle, PChar('"KESS 라이선스 키"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edLicenseKey.SetFocus;
    exit;
  end;

  if edEncPath.Text = '' then
  begin
    MessageBox(Handle, PChar('"암호화된 파일 저장 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edEncPath.SetFocus;
    exit;
  end;

  if not FileExists(edEncPath.Text) then
  begin
    MessageBox(Handle, PChar('"암호화된 파일"이 존재하지 않습니다'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edEncPath.SetFocus;
    exit;
  end;

  if edDecPath.Text = '' then
  begin
    MessageBox(Handle, PChar('"복호화된 파일 저장 경로"를 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
    edDecPath.SetFocus;
    exit;
  end;

  MgCtrls_.Save;

  dwResult := KCT_Init(edInitDir.Text, edLicenseKey.Text);
  if dwResult <> RESULT_SUCCESS then
  begin
    MessageBox(Handle, PChar(Format('KESS 암호화 모듈 초기화를 실패했습니다.'+#13+#10+
        'KESS 모듈 경로 또는 라이선스 키를 확인해주세요. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
    exit;
  end;

  dwResult := KCT_Decrypt(edEncPath.Text, 2, edDecPath.Text);
  if dwResult = RESULT_SUCCESS then
    MessageBox(Handle, PChar('파일이 복호화 되었습니다.'), PChar(Caption), MB_ICONINFORMATION or MB_OK)
  else
    MessageBox(Handle, PChar(Format('복호화에 실패 했습니다. Error=%x', [dwResult])), PChar(Caption), MB_ICONWARNING or MB_OK);
end;

end.