◇ 암호화 소스 사용 예 ◇
글: 박후선(OSOLGIL)
osolgil@pop.chollian.net
softech@soback.kornet.nm.kr
아래는 이전 강좌에서 사용한 암호화 알고리즘의 예제이다. ESource,
EEncryptResult, EDecryptResult라는 세 개의 TEdit 컴퍼넌트를 폼에 두고,
BEncrypt, BDecrypt라는 두 개의 버튼을 폼에 둔다. BEncrypt를 누르면
ESource.Text가 EEncryptResult.Text에 암호화 된 형태로 나타나고, BDecrypt를
누르면 EDecryptResult.Text에 EEncryptResult.Text의 해독한 내용이 나타난다.
unit UTest;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
ESource: TEdit;
BEncrypt: TButton;
Label1: TLabel;
Label2: TLabel;
EEncryptResult: TEdit;
EDecryptResult: TEdit;
Label3: TLabel;
BDecrypt: TButton;
procedure BEncryptClick(Sender: TObject);
procedure BDecryptClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
uses UEncrypt;
{$R *.DFM}
procedure TForm1.BEncryptClick(Sender: TObject);
begin
EEncryptResult.Text := Encrypt( ESource.Text, 13579 );
end;
procedure TForm1.BDecryptClick(Sender: TObject);
begin
EDecryptResult.Text := Decrypt( EEncryptResult.Text, 13579);
end;
end.
-- 출처 --