Text Dosyası Okuma

[pairs]

resimdeki programda eklediğim zippass.txt den veri okumak istiyorum ama yapamadım. Yardımcı olabilirmisiniz. Dosyaya nasıl erişebilirim. O txt yi exe içine gömüp okumam lazım.

[barisatalay]

Meraktan soruyorum.

Madem .exe içerisine gömeceksin neden .txt dosyası ? Neden bi Const olarak tanımlamıyorsun ?

[pairs]

Sebebi şu bir parola var zip dosyasının bu parola sabit ama parolayı tek satır olarak yazarsam zipten çıkartmıyor.

Kod: Tümünü seç

-A&@#JE/<ak><&JSH!vQ@1#13#10x3Dft>?#@(JHfKSH:OAUScareful[w|D*$g.&

bu şekilde yazarsam zipten çıkartmıyor manuel olarak deniyorum.

Kod: Tümünü seç

-A&@#JE/<ak><&JSH!vQ@1#13#10
x3Dft>?#@(JHfKSH:OAUScareful[w|D*$g.&

ama bu şekilde kopyalayıp yapıştırınca zipten çıkartıyor bi garip o yüzden txt ye kabul ettiği şeklini yazıp oradan çekeceğim.

[barisatalay]

Orada bir alt satıra geçmesi için kullanılan [ENTER] karakterini gerekli yere eklersen bence sorun halledilecektir.

[pairs]

Chr(13) denedim ama olmadı. İstersen zip dosyasını atabilirim.

[barisatalay]

delphi içerisinde

Kod: Tümünü seç

Const
  Key = '-A&@#JE/<ak><&JSH!vQ@1#13#10' + #13 + #10 +
           'x3Dft>?#@(JHfKSH:OAUScareful[w|D*$g.&';

Şeklinde dener misin.

[pairs]

delphi içerisinde

Kod: Tümünü seç

Const
  Key = '-A&@#JE/<ak><&JSH!vQ@1#13#10' + #13 + #10 +
           'x3Dft>?#@(JHfKSH:OAUScareful[w|D*$g.&';

Şeklinde dener misin.

Kabul etmedi parolayı malesef.

[mrmarman]

@barisatalay'ın önerisi doğrudur. Sadece tek başına #10 olduğunu değerlendiriyorum. #13 de olabilir ama bunu test etme imkanınız var.

(1) Bir Win32 uygulaması yazın. Oraya iki adet TMemo koyun. Birisi Memo1, diğeri Memo2 olduğunu varsayalım.
(2) Orada bu ZIP şifresini içeren metni bir Memo1'e koyun.
(3) Memo1.Text, satırlar dahil tüm içeriği string olarak ele aldığını hatırlayın. 1'den başlayıp Length(Memo1.Text) kadar bir döngü ile for döngüsü kurun. Döngü için integer değişkenin de (i) olduğunu varsayalım.
(4)

Kod: Tümünü seç

FOR i := 1 to Length(Memo1.Text) DO Memo2.Lines.Add( IntToStr( ORD(Memo1.Text[i]) ) );

diyerek her bir karakterin ASCII kod karşılığını göreceksiniz. Bu gizli karakterin ne olduğunu buradan okuyup öyle değerlendirin.

[mrmarman]

Şimdi bir test ettim. Aşağıdaki sonuç çıktı... #13#10 bitişik imiş. (Memo1'in WordWrap özelliğini FALSE etmeyi ihmal etmeyin yanlış sonuç çıkar)

Mümkün ise Memo'yu dahil etmeyip direkt String değişken üzerinden testlerini yapın.. Memo alt satıra geçince yeniden satır başı yapmak için #13 karakterini kendisi ekliyor olabilir. Ascii Tabloda #10 alt satır #13 satır başı kodudur.

Kod: Tümünü seç

procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  i : Integer;
begin
  FOR i := 1 to Length(Memo1.Text) DO Memo2.Lines.Add( Format('%.3d', [ ORD(Memo1.Text[i]) ]) + ' - "' + Memo1.Text[i] + '"' );
end;

Kod: Tümünü seç

045 - "-"
065 - "A"
038 - "&"
064 - "@"
035 - "#"
074 - "J"
069 - "E"
047 - "/"
060 - "<"
097 - "a"
107 - "k"
062 - ">"
060 - "<"
038 - "&"
074 - "J"
083 - "S"
072 - "H"
033 - "!"
118 - "v"
081 - "Q"
064 - "@"
049 - "1"
035 - "#"
049 - "1"
051 - "3"
035 - "#"
049 - "1"
048 - "0"
013 - "
"
010 - "
"
120 - "x"
051 - "3"
068 - "D"
102 - "f"
116 - "t"
062 - ">"
063 - "?"
035 - "#"
064 - "@"
040 - "("
074 - "J"
072 - "H"
102 - "f"
075 - "K"
083 - "S"
072 - "H"
058 - ":"
079 - "O"
065 - "A"
085 - "U"
083 - "S"
099 - "c"
097 - "a"
114 - "r"
101 - "e"
102 - "f"
117 - "u"
108 - "l"
091 - "["
119 - "w"
124 - "|"
068 - "D"
042 - "*"
036 - "$"
103 - "g"
046 - "."
038 - "&"

[pairs]

@barisatalay'ın önerisi doğrudur. Sadece tek başına #10 olduğunu değerlendiriyorum. #13 de olabilir ama bunu test etme imkanınız var.

(1) Bir Win32 uygulaması yazın. Oraya iki adet TMemo koyun. Birisi Memo1, diğeri Memo2 olduğunu varsayalım.
(2) Orada bu ZIP şifresini içeren metni bir Memo1'e koyun.
(3) Memo1.Text, satırlar dahil tüm içeriği string olarak ele aldığını hatırlayın. 1'den başlayıp Length(Memo1.Text) kadar bir döngü ile for döngüsü kurun. Döngü için integer değişkenin de (i) olduğunu varsayalım.
(4)

Kod: Tümünü seç

FOR i := 1 to Length(Memo1.Text) DO Memo2.Lines.Add( IntToStr( ORD(Memo1.Text[i]) ) );

diyerek her bir karakterin ASCII kod karşılığını göreceksiniz. Bu gizli karakterin ne olduğunu buradan okuyup öyle değerlendirin.

@mrmarman hocam dediğiniz gibi yaptım 32 , 13, 10 bu 3 ü var iki stringin birleşiminde onları bi deneyeyim ben hemen kabul edip etmediğnii yazarım buradan.

[pairs]

Hocam denedim 13 ve 10 olarak görünüyor size verdiğim şifredeki ASCII karşılığı ama nedense

Kod: Tümünü seç

Password := '-A&@#JE/<ak><&JSH!vQ@' +#13+#10+
'x3Dft>?#@(JHfKSH:OAUScareful[w|D*$g.&';

bu şekilde kabul etmiyor.

[mrmarman]

Tekil olarak;

(1) Önce sadece #10
(2) Olmazsa sonra da sadece #13

dener misin. Mesajda bildirdiğim gibi diğerini Memo kendiliğinden ekliyor olabilir.

[pairs]

Tekil olarak;

(1) Önce sadece #10
(2) Olmazsa sonra da sadece #13

dener misin. Mesajda bildirdiğim gibi diğerini Memo kendiliğinden ekliyor olabilir.

HOcam çok sağolun sadece #10 ile oldu