Code VB.NET : ตัวอย่าง Code Dll Injection นะครับผม

[SmileSiam]

อันนี้เป็น Code ที่ผมใช้อยู่นะ ผมได้ Code จาก เวปนอก แต่ ตอนนี้ ปิดไปหละ

Code ที่ผมใช้นะครับ
[HIDE-THANKS]
[HIDE="15"]ก่อนอื่นเลย สร้าง Private กันก่อนนะครับผม

Private TargetProcessHandle As Integer
    Private pfnStartAddr As Integer
    Private pszLibFileRemote As String
    Private TargetBufferSize As Integer

    Public Const PROCESS_VM_READ = &H10
    Public Const TH32CS_SNAPPROCESS = &H2
    Public Const MEM_COMMIT = 4096
    Public Const PAGE_READWRITE = 4
    Public Const PROCESS_CREATE_THREAD = (&H2)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_VM_WRITE = (&H20)

Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer,  ByVal lpBaseAddress As Integer,ByVal lpBuffer As String,ByVal nSize As Integer,ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( ByVal lpLibFileName As String) As Integer
Public Declare Function VirtualAllocEx Lib "kernel32" ( ByVal hProcess As Integer, ByVal lpAddress As Integer, ByVal dwSize As Integer, ByVal flAllocationType As Integer, ByVal flProtect As Integer) As Integer
Public Declare Function WriteProcessMemory Lib "kernel32" ( ByVal hProcess As Integer,ByVal lpBaseAddress As Integer,ByVal lpBuffer As String,ByVal nSize As Integer,ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Integer, ByVal lpProcName As String) As Integer
Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" (ByVal lpModuleName As String) As Integer
Public Declare Function CreateRemoteThread Lib "kernel32" (ByVal hProcess As Integer,ByVal lpThreadAttributes As Integer,ByVal dwStackSize As Integer,ByVal lpStartAddress As Integer,ByVal lpParameter As Integer,ByVal dwCreationFlags As Integer,ByRef lpThreadId As Integer) As Integer
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer,ByVal dwProcessId As Integer) As Integer
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String,ByVal lpWindowName As String) As Integer
Private Declare Function CloseHandle Lib "kernel32" Alias "CloseHandleA" (ByVal hObject As Integer) As Integer
Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.ExecutablePath)

ต่อไปก้ คำสั่ง Injection นะครับผม

Private Sub Inject()
        Dim TargetProcess As Process() = Process.GetProcessesByName("textbox1.text")
        TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)
        pszLibFileRemote = Application.StartupPath & "\" + ExeName + ".dll"
        pfnStartAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA")
        TargetBufferSize = 1 + Len(pszLibFileRemote)
        Dim Rtn As Integer
        Dim LoadLibParamAdr As Integer
        LoadLibParamAdr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)
        Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)
        CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStartAddr, LoadLibParamAdr, 0, 0)
    End Sub

อะ แค่นี้ เราก้ได้ ฟังชั่น Injection มาเรียบร้อยแล้ว
เวลาเราจะสั่ง Injection นะครับผม ให้ ใช้ Call Injection นะ

ลองศึกษากันดูนะครับไม่ ยาก

*Code นี้จะ ทำงานก้ก้ต่อเมื่อมี .dll Injection ที่ชื่อเหมือนโปรแกรม วางอยู่ ที่เดียวกับ โปรแกรมเท่านั้น(ถ้าอยากได้แบบ ชื่อ .dll อะไรก้ได้ ก้ลอง Edit Code เอาเองนะครับ อันนี้ ผมให้ ศึกษาเอาเอง)
*สามารถ เปลี่ยน แปลง Code Dll Injection บนได้ นะครับ ลอง Edit กันดูนะ
Credit SmileSiamo[/HIDE][/HIDE-THANKS]

[HOMA]

Injection ที่เอาไว้ทำ Wallhack หรอครับ รึว่าไง ผมเคยได้ยิน เเล้วโค๊ดมันให้ทอะไร หรอครับ

พอดียังไม่เข้าใจเท่าไหร่ ช่วยอธิบายให้ละเอียดด้วยนะครับ

[SmileSiam]

Injection ที่เอาไว้ทำ Wallhack หรอครับ รึว่าไง ผมเคยได้ยิน เเล้วโค๊ดมันให้ทอะไร หรอครับ

พอดียังไม่เข้าใจเท่าไหร่ ช่วยอธิบายให้ละเอียดด้วยนะครับ

อ่อ Injection ใว้ Inject .dll เฉยๆ ครับ ส่วน .DLL นั้น ให้เขียน ขึ้นเอง ส่วนใหญ่จะใช้ภาษา C++ นะครับ ส่วนวิธีการสร้าง Wallhack ใช้เองผม ไม่ขอสอนเน้อ ต้องศึกษา กันเอาเน้อ

[HOMA]

พอจะเเนะนำเเหล่ง สอนได้ไหมครับ บอกเเค่พื้นฐานก็ได้ครับ ผมก็เพิ่งดริ่มหัดเขียนนี่เองครับ

พอดีผมรู้ว่าพี่ สร้างโปรเป็นเเละเก่งด้วย ช่วยเเนะนำเเหล่งสอนด้วยครับ

[SmileSiam]

พอจะเเนะนำเเหล่ง สอนได้ไหมครับ บอกเเค่พื้นฐานก็ได้ครับ ผมก็เพิ่งดริ่มหัดเขียนนี่เองครับ

พอดีผมรู้ว่าพี่ สร้างโปรเป็นเเละเก่งด้วย ช่วยเเนะนำเเหล่งสอนด้วยครับ

ตอนนี้เวป นอกที่ผมศึกษาอยู่ตอนนี้เค้า ปิดแล้ว อะสิ ไม่รู้จะให้ ยังงัยนะ แต่ ความรู้ ที่ผม มีนะ กว่า 70 % มาจาก Google นอกนั้น ซื้อหนังสือมาอ่าน อาจจะค้าหา ยากซะหน่อยแต่ขอให้ ยึดข้อความนี้ เหมือนผมนะครับ
"เพราะแสวงหา มิใช่เพราะรอคอย เพราะเชี่ยวชาญ มิใช่เพราะโอกาส เพราะสามารถ มิใช่เพราะโชคช่วย ดังนี้แล้ว "ลิขิตฟ้าหรือจะสู้มานะตน"