Vb.net Hile Kodlama


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: Koray    0 Yorum    165 Görüntüleme
  • 0 Oy - 0 Yüzde

Paylaşım Tarihi: 30.07.2016, 23:25:49 #1
Koray slm nbr .s
******
Süper Moderator
Status: Çevrimdışı Yorum Sayısı:910 Konu Sayısı:300 Üyelik Tarihi:30.04.2016 Rep Puanı: 939

Selamün aleyküm arkadaşlar bugün vb.netten nasıl hile kodlarız onu göstericem.

Yazı
1 button 1 label 1 checkbox ekleyelim.
Buttona şu kodu yapıştıralım.
Kod:
Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("csh") <> -1 Then
               Label1.Text = moz.BaseAddress.ToString
           End If
       Next

Evet ardından Checkbox'a şu kodu yapıştıralım.
Kod:
If CheckBox1.Checked = True Then
           WriteLong("Wolfteam.bin", Label1.text + &HPOİNT, "VALUE")
       End If
       If CheckBox1.Checked = False Then
           WriteLong("Wolfteam.bin", Label1.text + &HPOİNT, "VALUE")
       End If

Alttan vericeğim pointerlerden seçip POİNT VE VALUE yerine yapıştırıcaksanız.
csh bin obj aynı anda kodlamak istiyosanız 2 button daha ekliceksiniz.Ve 2. buttona şunu yapıştıralım.
Kod:
Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("bin") <> -1 Then
               Label2.Text = moz.BaseAddress.ToString
           End If
       Next

3.buttona şunu yapıştıralım.
Kod:
Dim p As Process = Process.GetProcessesByName("WolfTeam.bin")(0)
       For Each moz As System.Diagnostics.ProcessModule In p.Modules
           If moz.FileName.IndexOf("obj") <> -1 Then
               Label3.Text = moz.BaseAddress.ToString
           End If
       Next

2 label daha ekliyelim.

Ardından Project>Add existing item diyelim ve Vericeğim readwritingmemory ile writepointerınteger'ı seçelim.
Build yapıp projemizi kaydedelim.

Video




Videoda detaylı anlatım vardır.

Indir
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir. linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
linkleri görmek için giriş yapmanız. Yada üye olmanız gerekir.
Son Düzenleme: 31.07.2016, 00:03:39, Düzenleyen: Koray.

Kullanıcı İmzası
                                                              GökTürk olup yumulup (birleşip)
                                                   GökBörü (Bozkurt) olup uluduk 
                                                   Gökyüzü nurlu şule (ışık) olup
                                                   Gök taşa kuydu ılılık  


                                                                                                7AzkyN.jpg







Aradığınızı Bulamadınız Mı ?

Konuyu görüntüleyenler:
1 Misafir