Ben sadece kendim için bir hesap yönetimi ve içinde şifresini bulunduran bir program yazmaya çalışıyorum.
Program basit, Xor sistemi ile dosyanın içine Hesap Adını,Hesap ile ilgili gerekli bilgileri Xor'la kayıt ediyorum.
Ve ListBox'ta hesaplar klasöründeki deki dosyaları listeleyip yanına dosyanın içinden okutulmuş Hesap Adını koyuyorum.
İki tane dosyam var ve bunların içine 1'e Ali 2'ye Ata yazdım. Örnek olarak.
1-Ali
2-Ata
Ama sorun şu ki dosyanın içinden okutturduğum Hesap Adı, Diğer Hesap Adının üstüne geçiyor.
Resim verdim.

Bunla ilişkili kodu veriyorum.
Kod: Tümünü seç
var
Yer,s: string;
Dsy: TStringList;
Say,Hsp: Integer;
...
...
//dosyalar listele
Hesaplar.Clear;
s := ExtractFilePath(Application.ExeName) + 'hesap\*.hsp'#0;
Hesaplar.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
//hesap listesi çöz
for Say:=0 to Hesaplar.Count-1 do
begin
Dsy.LoadFromFile(ExtractFilePath(Application.ExeName) + 'hesap\' + Hesaplar.Items.Strings[Say]);
try
Hesaplar.Items.Strings[Say] := Hesaplar.Items.Strings[Say] + '|' + XorStr(Dsy.Strings[0],Sifre);
except
Application.Terminate;
end;
end;
//bitti if