ilginç bir uygulama örneği

White Rose · Mesaj gönderen **White Rose** » 19 Eyl 2005 08:07

s.a.
Run-time anında bir program kendi içinden herhangi bir yerinden/adresinden string okuyabilir yada aynı yere string yazabilirmi ?
cevaplarınız içi teşekkürler.

assoft · Mesaj gönderen **assoft** » 19 Eyl 2005 08:24

Bu konuda hiç bir bilgiye sahip değilim ama okuma her halukarda yapılıyor zaten ama yazma için sanırım crc bilgisi olmazı lazım herhalde...

cuneyt22 · Mesaj gönderen **cuneyt22** » 19 Eyl 2005 12:26

Nasıl Yani? biraz daha açarmısın?

White Rose · Mesaj gönderen **White Rose** » 19 Eyl 2005 01:36

yani diyelim ki
deneme.exe diye bir programınız var ve bu programla çalışırken programın herhengi bir yerinden farzedin ki 120850 bayt pozisyonundan 20 karakterlik bir string okutup, sonra buraya başka bir string yazdırıp kaydedeceksiniz, deneme.exe bu arada run-time olarak çalışıor olacak. Yani kendi kendinden binary olarak exe'sinden kayıt okuyup yine exe içine yaza

Mesaj gönderen **aLonE CoDeR** » 19 Eyl 2005 01:48

Merhaba.
Okuma işlemi tamam da yazma işlemine OS izin vermez ki

Kolay gelsin..

White Rose · Mesaj gönderen **White Rose** » 19 Eyl 2005 02:01

okuma işlemi naıl olacak ? kod yazarsanız memnun olurum

Mesaj gönderen **ender_arslanturk** » 19 Eyl 2005 03:16

bLue aLonE yazdı:Merhaba.
Okuma işlemi tamam da yazma işlemine OS izin vermez ki
Kolay gelsin..

Evet okuma olayını bende merak ettim... Fakat bildiğim kadarı ile okuma zaten windows veya işletim sistemlerinin kaynak görevi... Ve harici olacağını zannetmiyorum...

Mesaj gönderen **rsimsek** » 19 Eyl 2005 03:27

İşletim sistemindeki kayıtli bir dosyayı BlockRead(...) ile okuyabilir, BlockWrite(...) ile de yazabilirsiniz. Fakat açık ve çalışır durumdaki bir dosyada bu işlemleri yapmak mantıklı değildir, işletim sistemi de buna izin vermez..

ofenX · Mesaj gönderen **ofenX** » 19 Eyl 2005 03:37

Merhaba,

Kod: Tümünü seç

const
  degisken:string='irdakNiclayDeneme';

şeklinde bir değişken tanımlamışım.
Bir exe nin içindeki bir stringi aramak için bir imza bırakmışım.
Bizim asıl istediğimiz exe nin içinde Deneme değeri olsun.
Bunun için önce byte tabanlı dosyayı açıp önce okunanın i olup olmadığına bakacağız. Eğer i ise 15 defa daha okusun diyeceğiz. Sonra imzamız olan irdakNıçlay değerini arayacağız aradığımız bu ise ondan sonraki 6 karaktere bakacağız.
butona aşağıdaki kodu yükledim.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);

var
f:file of byte;
okunan:byte;
sayi:longint;
aranan:string;
i:integer;


begin

         Assignfile(f,'c:\silsup2\sifre.exe');
            filemode:=fmOpenRead  ;


           {$I-}
         Reset(F);
          {$I+}

                sayi:=0;
                aranan:='';


            while not eof(f) do

           begin
               seek(f,sayi);

             read(f,okunan);

              if chr(okunan)='i' then
                begin
                       aranan:=aranan+chr(okunan);

                    for i:=1 to 16 do
                       begin

                       inc(sayi);
                       seek(f,sayi);
                        read(f,okunan);
                         aranan:=aranan+chr(okunan);

                           end;

                  if copy(aranan,1,11)='irdakNiclay' then
                     begin

                              showmessage(copy(aranan,12,6));
                            exit;
                           end else
                              begin
                                aranan:='';
                                 dec(sayi,15);

                                end;

                end;





              inc(sayi);

           end;



  showmessage('dongu bitmiş');


end;

Yukarıdaki filemode:=fmOpenRead ; satırına dikkat edin.
o satır olmazsa exe dosyada arama yapamayız.
Butona tıkladığımda showmesage() ile bana Deneme değerini yazıyor.
Umarım istediğiniz böyle bir şeydir.

Ben de yazma işini merak ediyorum. Bilen hocalarımızı yazmaya davet ediyorum.
İyi çalışmalar.

Mesaj gönderen **aLonE CoDeR** » 19 Eyl 2005 05:19

Bir defasında exe'ye kendi kendini update edebilmesi için birşeyler yazmıştık, takla attırmak zorunda kaldık ki bahsettiğimiz gibi stabil bir çözüm de olmadı zira..Açık olan bi dosyaya zaten OS işaret koyuyor ve onunla harici bir işlem yapılmasını engelliyor (genel olarak tabii..).Ancak okuma işlemi için herhangi bir sorun çıkaracağını sanmıyorum..

vesper · Mesaj gönderen **vesper** » 19 Eyl 2005 07:41

http://www.mephzara.com/wiki/wiki_e.php ... DataStream

delphi 6 ile yapılmış player.exe oluşturulduktan sonra , creator.exe ile resim seçiyorsunuz, player.exe nin sonuna resmi yazıyor. Player exe kendisindeki resmi gösteriyor. Belki birilerinin işine yarar.

White Rose · Mesaj gönderen **White Rose** » 20 Eyl 2005 07:59

ilgilenen arkadaşlar için teşekkür ediyorum

ofenX
kardeşimiz bir kod yazmış, ancak bu kod her defasında 1 katakter okuyor
ve dosyayı baştan aşağı okuduğunu düşünürseniz pek pratik çözüm olmuyor.
Ben çok alterenatif denedim ama gerek okuma ve gerekse yazma işini yapamadım, yazma işinin olmayacağı kesin fakat belki okuma konusunda
benim bilmediğim, başkalarının bildiği birşeyler olabilir diye düşünmüştüm.
Bu durumda başka bir programdan ilgili exe yi açıp okuma-yazma işlemi yapmak gerekiyor.

White Rose · Mesaj gönderen **White Rose** » 18 Eki 2005 08:04

yeniden merhaba

http://www.delphiturk.com sitesinde exemod diye bir kod buldum
bu kod(unit) yukarıda bahsettiğim işi yapıyor.

yalnız benim istediğim ayrı bir şey var.
exe dosya içinde istediğimiz bir stringi table'deki locate örneğinde olduğu gibi hemen bulabilirmiyiz. Yani exe dosyayı baştan sona bayt bayt taramadan tek bir kod ile hemen bulabilirmiyiz.
Yoksa bayt bayt okuyup kontrol ettirmek pratik bir çözüm değil.