unit u_ini;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, fcButton, fcImgBtn,inifiles, cxControls, cxContainer, cxEdit,
  cxTextEdit, DB, DBClient, Buttons;

type
  Tfrm_ini = class(TForm)
    GroupBox1: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit4: TcxTextEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure fcImageBtn2Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_ini: Tfrm_ini;
  function   ReadPassword(target:string):string;
  function   WritePassword(source:string):string;

implementation

{$R *.DFM}


function ReadPassword(target:string):   string;
var
    s:string[20];
    i:byte;
    s1:string;
begin
{
    setlength(s,length(target));
    for   i:=1   to   length(target)   do
        s[i]:=chr(ord(target[i])-ord('d'));
    result:=s;
}
  s1:=Copy(Trim(target),7,Length(Trim(target)));
  result:=Copy(Trim(s1),1,Length(Trim(s1))-9);
 // ShowMessage(result);

end;

function   WritePassword(source:string):   string;
var
    t:string[20];
    i:byte;
begin
{
    setlength(t,length(source));
    for   i:=1   to   length(source)   do
        t[i]:=chr(ord(source[i])+ord('1'));
    result:=t;
}
  result:='ds.com'+trim(source)+'20040201';
  //ShowMessage(result);
end;



procedure Tfrm_ini.fcImageBtn2Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure Tfrm_ini.FormShow(Sender: TObject);
var
  inifile1:Tinifile;
  psw:string;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  psw:=inifile1.ReadString('database','Password','');
  psw:=ReadPassword(psw);
  edit4.text:=copy(inifile1.ReadString('database','Password',''),0,length(inifile1.ReadString('database','Password',''))-1);
  edit3.text:=copy(inifile1.ReadString('database','User ID',''),0,length(inifile1.ReadString('database','User ID',''))-1);
  edit2.text:=copy(inifile1.ReadString('database','Initial Catalog',''),0,length(inifile1.ReadString('database','Initial Catalog',''))-1);
  edit1.text:=copy(inifile1.ReadString('database','Data Source',''),0,length(inifile1.ReadString('database','Data Source',''))-1);
end;

procedure Tfrm_ini.BitBtn1Click(Sender: TObject);
var
  inifile1:Tinifile;
  psw:string;
begin
  inifile1:=Tinifile.Create(ExtractFilePath(application.ExeName)+'main.ini');
  inifile1.WriteString('database','Password',WritePassword(edit4.text)+';');
  inifile1.WriteString('database','User ID',edit3.text+';');
  inifile1.WriteString('database','Initial Catalog',edit2.text+';');
  inifile1.WriteString('database','Data Source',edit1.text+';');


end;

end.