delphi dosyayı hex olarak değiştirme yardım..

[seci20]

merhaba ustalarım.sorunum şu android telefonda kulllandıgım .sh dosyasını belli bir yerini delphide hex editörle editleyip yeni oluşturdugum dosyayı telefona yazmak istiyorum ama bir türlü başaramadım ascii olarak değiştirdim ama dosya bozuluyor başarısız oluyor.bknz.

Kod: Tümünü seç

00032024 ofsett başlıyan adresimdeli '870000000000000' kodlu yazı 

Kod: Tümünü seç

00032032 ofsett biten adresimdeli '870000000000000' kodlu yazı 

resimde gösterdim adreslerini formda ayarladığım bir edit ile değiştirmesini istiyorum.yani dosya alıcak edite yazdıgım 15 haneli sayıyı hex olarak değiştirip düzenlicek yeni bir dosya oluşturcak.burda bahsettiğim sayıda '870000000000000' sayısı ustalarım yardımcı olursanız cok sevınırım şimdiden çok teşekkür ederim.....

[Kuri_YJ]

Burnuma hack kokusu geliyor. Delphi'de değiştiremezsin onun yerine başka bir tool kullan.

[xxxjedixxx]

Merhaba aşağıdaki kodu denermisin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var fs: TFileStream;
    buf: array [0..14] of char; //15 karakter
    adr: int64;
begin
  fs := TFileStream.Create('C:\dosya.xyz', fmOpenReadWrite);
  adr := $32028; // $32024 + $4 = $32028 resimden böyle anlıyorum.
  strcopy(buf, '870000000000000');
  fs.seek(adr, soBeginning);
  fs.Write(buf, sizeof(buf));
  fs.Free;
end;

[seci20]

Burnuma hack kokusu geliyor. Delphi'de değiştiremezsin onun yerine başka bir tool kullan.

hocam hack işleri ile uğraşmıyorum kesinlikle.zaten buda bir program değil genel free bir dosya...

[seci20]

Merhaba aşağıdaki kodu denermisin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var fs: TFileStream;
    buf: array [0..14] of char; //15 karakter
    adr: int64;
begin
  fs := TFileStream.Create('C:\dosya.xyz', fmOpenReadWrite);
  adr := $32028; // $32024 + $4 = $32028 resimden böyle anlıyorum.
  strcopy(buf, '870000000000000');
  fs.seek(adr, soBeginning);
  fs.Write(buf, sizeof(buf));
  fs.Free;
end;

teşekkür ederim eve geçince hemen deniyeceğim

[Kuri_YJ]

Selamlar,

Delphi diye kasdettiğim IDE idi. Yoksa Object Pascal ve Delphi ile Windows üzerinde yapamayacağın şey yok gibi.

Kolay Gelsin

[seci20]

Merhaba aşağıdaki kodu denermisin.

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var fs: TFileStream;
    buf: array [0..14] of char; //15 karakter
    adr: int64;
begin
  fs := TFileStream.Create('C:\dosya.xyz', fmOpenReadWrite);
  adr := $32028; // $32024 + $4 = $32028 resimden böyle anlıyorum.
  strcopy(buf, '870000000000000');
  fs.seek(adr, soBeginning);
  fs.Write(buf, sizeof(buf));
  fs.Free;
end;

hocam oldu çok teşekkür ederim ALLAH razı olsun bu arada tüm forumdaki ustalarımın mevlid kandili mübarek olsun....

[seci20]

Selamlar,

Delphi diye kasdettiğim IDE idi. Yoksa Object Pascal ve Delphi ile Windows üzerinde yapamayacağın şey yok gibi.

Kolay Gelsin

biliyorum ustam ama uğraşmıyorum o işlerle

[Kuri_YJ]

Selamlar,

Hacking/Cracking kötü bir şey değil. Hackingi çıkar amaçlı kullanmak kötü. Ben defalarca program kırdım, erişimi olmayan yerlere erişim sağladım vs. Bunlar birşeyleri öğrenmede çok etkili. Hem de zevkli uğraşlar. Ancak bunlardan hiç birini çıkar elde etmek için kullanmadım. Bu tür işlerle uğraşmak, bir başkasının kurduğu mantığı veya savunma sistemini geçmek zevkli oluyor. Belki biraz kibir kaynaklı ama rekabet oluşturuyor. Bu da sizi öğrenmeye teşvik ediyor. Ha öğrendiğinizi faydalı şeylerde kullanırsınız veya kullanmazsınız. O da sizin kendi nefsiniz ile aranızdaki sınavdır.

Kolay Gelsin

[seci20]

Selamlar,

Hacking/Cracking kötü bir şey değil. Hackingi çıkar amaçlı kullanmak kötü. Ben defalarca program kırdım, erişimi olmayan yerlere erişim sağladım vs. Bunlar birşeyleri öğrenmede çok etkili. Hem de zevkli uğraşlar. Ancak bunlardan hiç birini çıkar elde etmek için kullanmadım. Bu tür işlerle uğraşmak, bir başkasının kurduğu mantığı veya savunma sistemini geçmek zevkli oluyor. Belki biraz kibir kaynaklı ama rekabet oluşturuyor. Bu da sizi öğrenmeye teşvik ediyor. Ha öğrendiğinizi faydalı şeylerde kullanırsınız veya kullanmazsınız. O da sizin kendi nefsiniz ile aranızdaki sınavdır.

Kolay Gelsin

bende bır cok kez kırdım hocam aynen dedıgınız gıbı çok zevkli ama baktım emege saygısızlık oluyor bıraktım o işleri.ama bende milleti dolandırmaya yonelık program gordugumde kırıp yayınlamak gelıyor.bunun ne kadarı kotudur bılemem.milleti dolandırmasına ızın vermekmı yoksa kırmakmı orasıda ilahi adalate kalmıs.....

[G.Arkas]

Selamlar

Hacking/Cracking kötü bir şey değil. Hackingi çıkar amaçlı kullanmak kötü. Ben defalarca program kırdım, erişimi olmayan yerlere erişim sağladım vs. Bunlar birşeyleri öğrenmede çok etkili. Hem de zevkli uğraşlar. Ancak bunlardan hiç birini çıkar elde etmek için kullanmadım. Bu tür işlerle uğraşmak, bir başkasının kurduğu mantığı veya savunma sistemini geçmek zevkli oluyor. Belki biraz kibir kaynaklı ama rekabet oluşturuyor. Bu da sizi öğrenmeye teşvik ediyor. Ha öğrendiğinizi faydalı şeylerde kullanırsınız veya kullanmazsınız. O da sizin kendi nefsiniz ile aranızdaki sınavdır.

Kolay Gelsin

Bak yaaa imam cemaat ilişkisi geldi aklıma Suça teşvik.

[Kuri_YJ]

Artık sözümü nasıl anlarsanız

[seci20]