1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

 
procedure EncodeChar(var C: Char; Value: Cardinal; Decode: Boolean = False);  
var Temp: Integer;  
begin  
  if Decode then  
  begin  
    Temp := Ord(C) - Value;  

    while Temp < 0 do  
      Temp := Temp + 255;  
  end  
  else  
  begin  
    Temp := Ord(C) + Value;  

    while Temp > 255 do  
      Temp := Temp - 255;  
  end;  

  C := Char(Temp);  
end;  

 
function EncodeText(Text: String; Key: String; Decode: Boolean = False): String;  
var Value, i: Cardinal;  
begin  
  Result := Text;  
  Value := 0;  

  for i := 1 to Length(Key) do  
    Value := Value + Ord(Key[i]);  //Summe der ASCII-Zeichenwerte in Key berechen  
 
  for i := 1 to Length(Result) do  
    EncodeChar(Result[i], Value, Decode);  //Einzelnes Zeichen verschlüsseln  
end;  

 
procedure TForm1.Button1Click(Sender: TObject);  
var S: String;  
begin  
  S := InputBox('String?', 'Schlüsselzeichenfolge:', 'Test');  
  Memo1.Lines.Text := EncodeText(Memo1.Lines.Text, S);  
end;  

 
procedure TForm1.Button2Click(Sender: TObject);  
var S: String;  
begin  
  S := InputBox('String?', 'Schlüsselzeichenfolge:', 'Test');  
  Memo1.Lines.Text := EncodeText(Memo1.Lines.Text, S, True);  
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

 randomize;
 if FileExists(ExtractFilePath(paramstr(0))+'\settings.ini') then
  begin
   sl:=tstringlist.Create;
   sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
   EncodeText(sl.Text,'test',true);
   ini:=tinifile.Create(ExtractFilePath(paramstr(0))+'\settings.ini');
   try
    id:=ini.ReadInteger('Main','ID',strtoint((copy(TimeToStr(now),1,2)+copy(TimeToStr(now),4,2)+copy(TimeToStr(now),7,2))+IntToStr(random(10))+IntToStr(random(10))));
    ep:=ini.ReadInteger('Main','EXP',100);
    level:=ini.ReadInteger('Main','Level',1);
    nam:=ini.ReadString('Main','Name','Player 1');
    mail:=ini.ReadString('Mail','Mail','your@mail.com');
    host:=ini.ReadString('Mail','Host','your.host.com');
    user:=ini.ReadString('Mail','User','user');
    pass:=ini.ReadString('Mail','Pass','pass');
   finally
    ini.Free;
   end;
   sl:=tstringlist.Create;
   sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
   EncodeText(sl.Text,'test');
   sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');
  end
 else
  begin
   ini:=tinifile.Create(ExtractFilePath(paramstr(0))+'\settings.ini');
  try
   ini.Writeinteger('Main','ID',strtoint((copy(TimeToStr(now),1,2)+copy(TimeToStr(now),4,2)+copy(TimeToStr(now),7,2))+IntToStr(random(10))+IntToStr(random(10))));
   ini.Writeinteger('Main','Level',1);
   ini.Writeinteger('Main','Exp',0);
  finally
   ini.Free;
  end;
   sl:=tstringlist.Create;
   sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
   EncodeText(sl.Text,'test');
   sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');
  end;
 if paramstr(1)='' then
  game:=false
   else
    game:=true;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

  sl:=tstringlist.Create;
  sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
  sl.Text:=EncodeText(sl.Text,'test',true);
  sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');
  ini:=tinifile.create(ExtractFilePath(paramstr(0))+'\settings.ini');
 try
  ini.WriteString('Mail','Mail',edit1.Text);
  ini.WriteString('Mail','Host',edit2.Text);
  ini.WriteString('Mail','User',edit3.Text);
  ini.WriteString('Mail','Pass',edit4.Text);
  ini.WriteString('Main','Name',edit5.Text);
 finally
  ini.Free;
 end;
 sl:=tstringlist.Create;
 sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
 sl.Text:=EncodeText(sl.Text,'test');
 sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');
 combobox1.Items.SaveToFile(ExtractFilePath(paramstr(0))+'\list.dat');
 form3.Close;
end;

procedure TForm3.FormCreate(Sender: TObject);
var ini:tinifile;
    sl:tstringlist;
begin
  sl:=tstringlist.Create;
  sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
  sl.Text:=EncodeText(sl.Text,'test',true);
  sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');

  ini:=tinifile.create(ExtractFilePath(paramstr(0))+'\settings.ini');
 try
  edit1.Text:=ini.ReadString('Mail','Mail','');
  edit2.Text:=ini.ReadString('Mail','Host','');
  edit3.Text:=ini.ReadString('Mail','User','');
  edit4.Text:=ini.ReadString('Mail','Pass','');
  edit5.Text:=ini.ReadString('Main','Name','');
 if FileExists(ExtractFilePath(paramstr(0))+'\list.dat') then
  combobox1.Items.LoadFromFile(ExtractFilePath(paramstr(0))+'\list.dat');
 finally
  ini.Free;
 end;
 sl:=tstringlist.Create;
 sl.LoadFromFile(ExtractFilePath(paramstr(0))+'\settings.ini');
 sl.Text:=EncodeText(sl.Text,'test');
 sl.SaveToFile(ExtractFilePath(paramstr(0))+'\settings.ini');