Vb.Net Otomatik Pointer Kodlama [Dev Konu]

xMuratY' Alıntı:

aynen öyle 32 bit olduğundan dolayı fakat şunu deneyebilirsin

Bağlantıları görmek için lütfen Giriş Yap

Genişletmek için tıklayın ...

ÜzgünBirey' Alıntı:

Olmadı sağlık olsun bende deneyerek bulurum çok saol yardımlarından dolayı

Genişletmek için tıklayın ...

xMuratY' Alıntı:

elle çıkartırsın kardeşim zaten topu topu 20-30 adres var bilinen onlarda 10dk sürmez hepsini çıkarman

Genişletmek için tıklayın ...

CreativENG' Alıntı:

Olmuyo Dll Ekliyorum Sorun Yok Ama Çalıştır Basınca DLL İstiyo Bi B*k Anlamadım

Genişletmek için tıklayın ...

ÜzgünBirey' Alıntı:

2010'da anlamıyor çoğu kişi galiba 2015 indir ordan yaparsın.

Genişletmek için tıklayın ...

CreativENG' Alıntı:

Olmuyo Dll Ekliyorum Sorun Yok Ama Çalıştır Basınca DLL İstiyo Bi B*k Anlamadım

Genişletmek için tıklayın ...

helebakya' Alıntı:

Teşekkürler İşe yarar.
Obj için geçerli değil sanırım ?

Genişletmek için tıklayın ...

xMuratY' Alıntı:

obj içinde geçerli kardeşim

Genişletmek için tıklayın ...

xMuratY' Alıntı:

Merhabalar,

Vb.net otomatik pointer kodlamayı videoda gösterip açıkladım diğer videomu izlemediyseniz kesinlikle izlemenizi tavsiye ediyorum

Bu sayede Obj, Csh çektirmenizede gerek kalmıyo arkadaşlar kolay bi şekilde pointerlerinizi güncelleme derdi olmadan hilenizi kodlayabilirsiniz.

İşinize yaradıysa konuyu beğenebilirsiniz, youtubeden like atabilirsiniz takılın kafanıza göre


Referans DLL Linki :

Bağlantıları görmek için lütfen Giriş Yap

Örnek Kod :

Kod:

[/SIZE][/COLOR][/SIZE][/COLOR]
[COLOR=#ff0080][SIZE=5][COLOR=rgb(255, 0, 128)][SIZE=5]Imports FacilCoding

Public Class Form1

    Dim __Scan As New FacilCoding
    Dim __NameEsp As IntPtr


    Function __ScanAOB()
        '75 ? 38 87 ? ? ? ? 75 ? 8b ce -> Name Esp
        __Scan.BytesToScan = { "XX", &H75, "XX", &H38, &H87, "XX", "XX", "XX", "XX", &H75, "XX", &H8B, &HCE}
        __NameEsp = __Scan.AobScan("wolftü.bin") + 1

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        WriteLong("wolftü.bin", __NameEsp, 2268606836, 4)
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        __ScanAOB()
        TextBox1.Text = __NameEsp.ToString("x")
    End Sub
End Class

Bazı arkadaşlar Csh + xxxxx olan kısmı istemiş onuda şu şekil temin edebilirsiniz arkadaşlar.

Kod:

Imports FacilCoding

Public Class Form1

    Dim __Scan As New FacilCoding
    Dim __NameEsp,__BasePtr As IntPtr

    Function __GetBase()
   Dim p As Process = Process.GetProcessesByName("wolftü.bin")(0)
   For Each moz As System.Diagnostics.ProcessModule In p.Modules
   If moz.FileName.IndexOf("csh") <> -1 Then
   __BasePtr = moz.BaseAddress
   End If
   Next
   End Function

    Function __ScanAOB()
        '75 ? 38 87 ? ? ? ? 75 ? 8b ce -> Name Esp
        __Scan.BytesToScan = { "XX", &H75, "XX", &H38, &H87, "XX", "XX", "XX", "XX", &H75, "XX", &H8B, &HCE}
        __NameEsp = __Scan.AobScan("wolftü.bin") + 1
       __NameEsp = __NameEsp - __BasePtr
    End Function

       Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        __GetBase()
        __ScanAOB()
        TextBox1.Text = __NameEsp.ToString("x")
    End Sub
End Class

Pattern Nedir?, Ne İşe yarar?, Nasıl Bulunur?, Delphide Nasıl Kodlarnır? gibi sorularınızın cevabı aşşağıdaki videoda.

Genişletmek için tıklayın ...