문자열을 암호로 만들고 이를 환경파일인 INI파일에 저장한 후 나중에
불러오는 경우가 있을겁니다
암호안에 ASCII 제어문자가 포함되어 있다면(CR/LF 등등)
텍스트 파일인 INI파일에 이를 저장하면 정확하지 않은 암호가
될 수 있습니다(잘 알려진 Leap FTP 가 그렇더군요)
그래서 암호를 다시 ASCII 숫자로 변환하여 처리하는 루틴을
포함했습니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Buttons, StdCtrls, IniFiles;
type
TForm1 = class(TForm)
E_Name: TEdit;
E_Age: TEdit;
E_Password: TEdit;
CB_Married: TCheckBox;
SB_SaveINI: TSpeedButton;
SB_LoadINI: TSpeedButton;
procedure SB_SaveINIClick(Sender: TObject);
procedure SB_LoadINIClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
function Encrypt(const S: String; Key: Word): String;
function Decrypt(const S: String; Key: Word): String;
end;
const
C1 = 52845; // 기준키1
C2 = 22719; // 기준키2
MY_KEY = 12345; // 사용자키
var
Form1: TForm1;
implementation
{$R *.DFM}
function TForm1.Encrypt(const S: String; Key: Word): String;
var
i: Integer;
sEncrypt, rEncrypt: String;
rChar: Char;
begin
sEncrypt := ''; // 암호화된 이진 문자열
if S = '' then
begin
Encrypt := '';
System.Exit;
end;
for i := 1 to Length(S) do
begin
sEncrypt := sEncrypt + char(byte(S[i]) xor (Key shr 8));
Key := (byte(sEncrypt[i]) + Key) * C1 + C2;
end;
rEncrypt := ''; // 암호화된 이진 문자열을 ASCII 숫자로 변경
for i := 1 to Length(sEncrypt) do
begin
rChar := sEncrypt[i];
rEncrypt := rEncrypt + format('%.3d', [Ord(rChar)]); // 한문자당 3자리씩
end;
Result := rEncrypt;
end;
function TForm1.Decrypt(const S: String; Key: Word): String;
var
i: Integer;
sDecrypt, rDecrypt, temp: String;
begin
rDecrypt := '';
if S = '' then
begin
Decrypt := '';
System.Exit;
end;
i := 1;
repeat
temp := Copy(S, i, 3); // 한문자당 3자리 숫자로 저장되어 있다
rDecrypt := rDecrypt + Chr(StrToIntDef(temp, 0)); // ASCII값을 구한다
i := i + 3;
until i > Length(S);
sDecrypt := '';
for i := 1 to Length(rDecrypt) do
begin
sDecrypt := sDecrypt + char(byte(rDecrypt[i]) xor (Key shr 8));
Key := (byte(rDecrypt[i]) + Key) * C1 + C2;
end;
Result := sDecrypt;
end;
// 환경파일에 저장
procedure TForm1.SB_SaveINIClick(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('TEST.INI');
try
IniFile.WriteString('PERSON', '이름', E_Name.Text);
IniFile.WriteInteger('PERSON', '나이', StrToIntDef(E_Age.Text,0));
IniFile.WriteBool('PERSON', '결혼여부', CB_Married.Checked);
IniFile.WriteString('PERSON', '비밀번호',Encrypt(E_Password.Text, MY_KEY));
finally
IniFile.Free;
end;
end;
// 환경파일에서 불러오기
procedure TForm1.SB_LoadINIClick(Sender: TObject);
var
IniFile: TIniFile;
begin
IniFile := TIniFile.Create('TEST.INI');
try
E_Name.Text := IniFile.ReadString('PERSON', '이름', '');
E_Age.Text := IntToStr(IniFile.ReadInteger('PERSON', '나이', 0));
CB_Married.Checked := IniFile.ReadBool('PERSON', '결혼여부', False);
E_Password.Text := Decrypt(IniFile.ReadString('PERSON', '비밀번호', ''), MY_KEY);
finally
IniFile.Free;
end;
end;
end.
|
|
