57 lines
1.2 KiB
Plaintext
57 lines
1.2 KiB
Plaintext
unit DMakeEncStrMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
|
|
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Buttons, Vcl.StdCtrls;
|
|
|
|
type
|
|
TDlgMakeEncStrMain = class(TForm)
|
|
edSrcTxt: TEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
mmEncTxt: TMemo;
|
|
btnEnc: TSpeedButton;
|
|
procedure btnEncClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
DlgMakeEncStrMain: TDlgMakeEncStrMain;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Tocsg.Encrypt, GlobalDefine;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TDlgMakeEncStrMain.btnEncClick(Sender: TObject);
|
|
begin
|
|
edSrcTxt.Text := Trim(edSrcTxt.Text);
|
|
if edSrcTxt.Text = '' then
|
|
begin
|
|
MessageBox(Handle, PChar('문자열을 입력해 주십시오.'), PChar(Caption), MB_ICONWARNING or MB_OK);
|
|
exit;
|
|
end;
|
|
|
|
if edSrcTxt.Text[1] = ':' then
|
|
begin
|
|
mmEncTxt.Lines.Add(edSrcTxt.Text);
|
|
mmEncTxt.Lines.Add(DecText(edSrcTxt.Text));
|
|
mmEncTxt.Lines.Add('');
|
|
end else begin
|
|
mmEncTxt.Lines.Add(edSrcTxt.Text);
|
|
mmEncTxt.Lines.Add(EncText(edSrcTxt.Text));
|
|
mmEncTxt.Lines.Add('');
|
|
end;
|
|
|
|
edSrcTxt.Text := '';
|
|
end;
|
|
|
|
end.
|