Xor'la çözümlenmiş isimler üst üste ekleniyor.

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Jire
Üye
Mesajlar: 167
Kayıt: 07 Eki 2007 01:20

Xor'la çözümlenmiş isimler üst üste ekleniyor.

Mesaj gönderen Jire »

Herkese merhaba, küçük bir problem çıktı ama nedeni pek bulamadım o yüzden sizden yardım istiyorum.

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.
Resim

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
Yardım ederseniz sevinirim.
ikutluay
Üye
Mesajlar: 2341
Kayıt: 03 Tem 2007 10:13

Re: Xor'la çözümlenmiş isimler üst üste ekleniyor.

Mesaj gönderen ikutluay »

delphi aktif değil şu an ama yeni satırları add metdou eklemeniz gerekmiyormuydu ?
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Jire
Üye
Mesajlar: 167
Kayıt: 07 Eki 2007 01:20

Re: Xor'la çözümlenmiş isimler üst üste ekleniyor.

Mesaj gönderen Jire »

ikutluay yazdı:delphi aktif değil şu an ama yeni satırları add metdou eklemeniz gerekmiyormuydu ?

Kod: Tümünü seç

//dosyalar listele
Hesaplar.Clear;
s := ExtractFilePath(Application.ExeName) + 'hesap\*.hsp'#0;
Hesaplar.Perform(LB_DIR, DDL_READWRITE, LongInt(@s[1]));
bu kod ile dosyaları listeliyorum, ardından üstüne tekrardan yazıyorum.
Hesaplar, TListBox.

Kod: Tümünü seç

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;
Kullanıcı avatarı
aslangeri
Moderator
Mesajlar: 4322
Kayıt: 26 Ara 2003 04:19
Konum: Ankara
İletişim:

Re: Xor'la çözümlenmiş isimler üst üste ekleniyor.

Mesaj gönderen aslangeri »

s.a.
öncelikle hsp dosyasındaki verinin doğru gösterilip gösterilmediğinden emin olman lazım.
yani dosyada gerçektende AtaAli yazıyor olabilir (belki yazarken bir yanlışlık oldu).
ondan emin olduktan sonra
değerleri değişkenlere atarak çalış.
programı satır satır çalıştırarak değişkenlerde olması gereken değerler olup olmadığını kontrol et.
her değişken değeri için bir listbox yapıp değişkenin aldığı değerleri sırası ile listboxa atıp değişkenin aldığı değerleri görebilirsin.
böylelikle nerde sıkıntı olduğunu bulman kolay olur.
kolay gelsin
Duyduğun Şeylerin Söylediklerim Olduğuna Eminim Ama
Anladığın Şeylerin Anlatmak İstediklerim Olduğuna Emin Değilim
Cevapla