folder Tahribat.com Forumları
linefolder Delphi - Pascal
linefolder Exe Yi Byte Byte Okuyup Nasil Bir Baska Exe İle Birlestirebilirim?



Exe Yi Byte Byte Okuyup Nasil Bir Baska Exe İle Birlestirebilirim?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    micprog2003
    micprog2003's avatar
    Kayıt Tarihi: 04/Ocak/2003
    Erkek
    Ancak Şimdi fırsat bulabildim bu iş için tekrar
    madem bu konu bilinmiyor farklı bir yöntem daha göstereyim biraz daha karmaşık gibi gelebilir ama işin özü diyelim
    var
    F:File; // dosyaya erişim için Bunu tanımlamalısın mutlaka
    // not : benim harfbayt komutuma karşılık bir komut var ama ben kullanmıyom onun için size kendi komutlarımı gostereyim biraz daha basit..

    function harfbayt(harf:String):byte;
    var
    i:integer;
    begin
    for i:=0 to 255 do
    begin
    if chr(i) = harf then
    begin
    Result:=i;
    break;
    end;
    end;
    end;

    Procedure MetinEkle (Dosya,Metin:String);
    var
    i,ln:integer;
    bayt:byte;
    begin
    Assignfile (F,Dosya);
    Reset (F,1); // dosya Orada Olmalı yeni Oluşturmak
    İçin Rewrite (F,1) Kullan
    Seek (F,filesize(F)); // Dosyanın sonuna git..
    ln:=length(metin);
    blockwrite (F,ln,4); // Burada metnin Boyutu belirttik okurken hızlı okumak için işaretçi diyelim koymasanda olur amaca göre değişir..
    for i:=1 to ln do
    begin
    bayt:=harfbayt(copy (metin,i,1));
    blockwrite (F,bayt,1);
    end;

    closefile(F);
    // ahada oldu eğer bir hata varsaki olmuş olabilir çünkü delphi yüklü değil kafamdan yazdım ama çalışır.. Ayrıca döngülerin programınızı yanıtsız bırakmaması için application.progressmessages procedure"sini kullanabilirsiniz..
    end;
    // Ayrıca gene iki exeyi birleştirmek için
    var
    F,F1:File;
    i:byte;
    Assiginfile (F,"Exe.exe");
    reset (F,1);
    Assiginfile (F1,"Exe1.exe");
    reset (F,1);
    Seek (F,Filesize(f));
    repeat
    blockread (F1,i,1); // exe1.exe dosyasından birbayt oku
    blockwrite (F,i,1); // exe dosyasının sonuna okunanı yaz..
    Until filesize(F1) = filepos(f1);
    // gibi de yapabilirsiniz..

    Adige Michael
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Criminal2
    Criminal2's avatar
    Kayıt Tarihi: 04/Ağustos/2003
    Erkek
    "Exe" nedir sorusuna cevap buluğun anda problemin çözülmüş olacak....
    http://anticracking.de
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    MMArd
    MMArd's avatar
    Kayıt Tarihi: 01/Mayıs/2003
    Erkek

    Arkadaşlar Unutmayın Delphi C++ Kadar Güçlü Bir dildir


    TFileStream Kullanarak Parçalarsınızda Birleştirirsinizde Biz Bunu Kullanara Dosya parçalama Ve Birleştirme Programı Yazmıştık İsteyen Olursa Mailime Bi Mail Kodlarını Yollarım


    Daha Öncede Belirttiğim Gibi Uzun Uzun Asla Anlatmam Delphi Yardımına Bakıp Yine Stream lar hakkında bilgi alabilirsiniz


    Hata UNInstall programlar bile yazarsınız


    Tam Olarak Olmasada Üstteki Arkadaş Normal Bir Örnek Vermiş


    Adı İçin Yaşamak
Toplam Hit: 4405 Toplam Mesaj: 14