Tahribat.com Forumları
Delphi - Pascal
Exe Yi Byte Byte Okuyup Nasil Bir Baska Exe İle Birlestirebilirim?
Delphi - Pascal
Exe Yi Byte Byte Okuyup Nasil Bir Baska Exe İle Birlestirebilirim?
Exe Yi Byte Byte Okuyup Nasil Bir Baska Exe İle Birlestirebilirim?
-
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.. -
"Exe" nedir sorusuna cevap buluğun anda problemin çözülmüş olacak....
http://anticracking.de -
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ş
Toplam Hit: 4405 Toplam Mesaj: 14