- Moderatör
- #1
#Ri
Coder
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 :
Örnek Kod :
Bazı arkadaşlar Csh + xxxxx olan kısmı istemiş onuda şu şekil temin edebilirsiniz arkadaşlar.
Pattern Nedir?, Ne İşe yarar?, Nasıl Bulunur?, Delphide Nasıl Kodlarnır? gibi sorularınızın cevabı aşşağıdaki videoda.
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:
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.
Son düzenleme: