Szukalem po Forum ale nie znalazlem tego co mnie interesuje... ;(
Pisze prace dyp. i utknalem :[
Mam plik *.INI i w nim przechowuje dane (pliczek wyglada nastepujaco):
[USTAWIENIA]
EGZAMINUJE=Mitring a jak :P
PYTAN=2
ODPOWIEDZI=4
[PYTANIE_1]
TRESC=Pytanie numer 1 i tresc
DOBRA=2
1=odp nr 1
2=odp nr 2
3=odp nr 3
4=odp nr 4
[PYTANIE_2]
TRESC=Pytanie nr 2 i jego tresc
DOBRA=4
1=odp nr 1
2=odp nr 2
3=odp nr 3
4=odp nr 4
Wiem, ze napiszecie "Dlaczego pliki INI ... ipt." ale jakos jestem do nich przekonany [rotfl]
I teraz finalne pytanie czy zna ktos sposob jak mozna zakodowac taki plik?
Osobiscie mialem XOR (znow smiechy slysze :D)
function CX(const TextIn: AnsiString; const Key: Byte) : AnsiString;
var
I : Cardinal;
begin
Result := TextIn;
for I := 1 to Length(TextIn) do
begin
Result[I] := Chr(Ord(TextIn[I]) xor Key);
end;
end;
procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
INI := TINIFile.Create(ExtractFilePath(Application.ExeName)+'test.ini');
try
INI.WriteString(CX('WPIS',181),CX('PYTANIE',181),CX(Edit1.Text,181));
finally
INI.Free;
end;
end;
Jezeli ma ktos pomysl na inny zapis pliku niz INI i jakies kodowanie to chetnie slucham ;)
Pozdrawiam