wolftü Bypass Obj Kodlama

K0RAY' Alıntı:

Form1'e gelecek kod:

 

PHP:

Try
           Dim folderPath As String = Environment.GetFolderPath(SpecialFolder.Windows)
           FileSystem.FileClose(New Integer() {1})
           FileSystem.FileClose(New Integer() {2})
           If My.Computer.FileSystem.FileExists((folderPath & "\xspirit.sys")) Then
               FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

           Else
               File.WriteAllBytes((folderPath & "\xspirit.sys"), New Byte() {0})
               FileSystem.FileOpen(1, (folderPath & "\xspirit.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)
               TextBox1.Text = ("Hile Çalışıyor ! ")
           End If
           If My.Computer.FileSystem.FileExists((folderPath & "wolftü.bin\xhunter1.sys")) Then
               FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

           Else
               File.WriteAllBytes((folderPath & "\xhunter1.sys"), New Byte() {0})
               FileSystem.FileOpen(2, (folderPath & "\xhunter1.sys"), OpenMode.Append, OpenAccess.ReadWrite, OpenShare.LockReadWrite, -1)

           End If
       Catch exception1 As Exception
           ProjectData.SetProjectError(exception1)
           Dim ex As Exception = exception1
           ProjectData.SetProjectError(ex)
           Dim exception As Exception = ex
           ProjectData.ClearProjectError()
           ProjectData.ClearProjectError()
       End Try
       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
               Label1.Text = moz.BaseAddress.ToString
           End If
       Next
       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

Public clasın üstüne gelecek kod:

PHP:

Imports Microsoft.VisualBasic
Imports Microsoft.VisualBasic.CompilerServices
Imports System
Imports System.Collections
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Diagnostics
Imports System.Drawing
Imports System.IO
Imports System.Runtime.CompilerServices
Imports System.Windows.Forms
Imports System.Environment

-----------------------------------------------------

Objyi de buttona kodlayıp oyunda aktif edebilirsin.
OBJ:

PHP:

Dim p As Process = Process.GetProcessesByName("wolftü.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

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