Codigo para criar injector

[123mateusinho123 0]

OLA GALERA EU MATEUSINHO VIM AKI DISPONIBILIZA UM CODIGO PARA VCS Q SABEM CRIAR INJECTOR PARA CROS FIRE TAH AI O CODIGO ABAIXO

 

 

 

 

Public Class Form1

Private TargetProcessHandle As Integer

Private pfnStart***r As Integer

ng

Private TargetBufferSize As Int

Private pszLibFileRemote As Str

ieger

Public Const PROCESS_VM_READ = &H10

Public Const MEM_COMMIT = 4096

Public

Public Const TH32CS_SNAPPROCESS = &H2

 

Const PAGE_READWRITE = 4

Public Const PROCESS_CREATE_THREAD = (&H2)

WRITE = (&H20)

Public Declare Function Re

Public Const PROCESS_VM_OPERATION = (&H8)

Public Const PROCESS_VM

_adProcessMemory Lib "kernel32" ( _

ByVal hProcess As Integer, _

ByVal lpBase***ress As Integer, _

As Integer

Public Declare F

ByVal lpBuffer As String, _

ByVal nSize As Integer, _

ByRef lpNumberOfBytesWritten As Integer)

unction LoadLibrary Lib "kernel32" Alias "LoadLibraryA" ( _

ByVal lpLibFileName As String) As Integer

***ress As Integer, _

ByVal dwSize As Integer, _

ByVa

Public Declare Function VirtualAllocEx Lib "kernel32" ( _

ByVal hProcess As Integer, _

ByVal l

pl flAllocationType As Integer, _

ByVal flProtect As Integer) As Integer

Public Declare Function WriteProcessMemory Lib "kernel32" ( _

lpNumberOfBytesWritten As Intege

ByVal hProcess As Integer, _

ByVal lpBase***ress As Integer, _

ByVal lpBuffer As String, _

ByVal nSize As Integer, _

ByRef

r) As Integer

Public Declare Function GetProc***ress Lib "kernel32" ( _

ByVal hModule As Integer, ByVal lpProcName As String) As Integer

eclare Function CreateRemoteThread Lib "kernel32" ( _

ByVal hProcess As Integer, _

 

Private Declare Function GetModuleHandle Lib "Kernel32" Alias "GetModuleHandleA" ( _

ByVal lpModuleName As String) As Integer

Public

D ByVal lpThreadAttributes As Integer, _

ByVal dwStackSize As Integer, _

ByVal lpStart***ress As Integer, _

ByVal lpParameter As Integer, _

ByVal dwCreationFlags As Integer, _

ProcessId As Integer) As Integer

Privat

ByRef lpThreadId As Integer) As Integer

Public Declare Function OpenProcess Lib "kernel32" ( _

ByVal dwDesiredAccess As Integer, _

ByVal bInheritHandle As Integer, _

ByVal d

we 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" ( _

ny error messages

Timer1.Stop()

 

ByVal hObject As Integer) As Integer

?

Dim ExeName As String = IO.Path.GetFileNameWithoutExtension(Application.Ex ecutablePath)

Private Sub Inject()

On Error GoTo 1 ' If error occurs, app will close without

aDim TargetProcess As Process() = Process.GetProcessesByName("Engine")

TargetProcessHandle = OpenProcess(PROCESS_CREATE_THREAD Or PROCESS_VM_OPERATION Or PROCESS_VM_WRITE, False, TargetProcess(0).Id)

im Rtn As Integer

Dim LoadLibParamAdr As Integer

LoadLibParamA

pszLibFileRemote = Application.StartupPath & "" + ExeName + ".dll"

pfnStart***r = GetProc***ress(GetModuleHandle("Kernel32"), "LoadLibraryA")

TargetBufferSize = 1 + Len(pszLibFileRemote)

 

Ddr = VirtualAllocEx(TargetProcessHandle, 0, TargetBufferSize, MEM_COMMIT, PAGE_READWRITE)

Rtn = WriteProcessMemory(TargetProcessHandle, LoadLibParamAdr, pszLibFileRemote, TargetBufferSize, 0)

System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

If IO.File.Exists

CreateRemoteThread(TargetProcessHandle, 0, 0, pfnStart***r, LoadLibParamAdr, 0, 0)

CloseHandle(TargetProcessHandle)

1: Me.Close()

End Sub

Private Sub Timer1_Tick(ByVal sender A

s(Application.StartupPath & "" + ExeName + ".dll") Then

Dim TargetProcess As Process() = Process.GetProcessesByName("Engine")

If TargetProcess.Length = 0 Then

Me.*****.Text = ("Waiting for Engine.exe")

Else

me.*****1.text = ("Injecting....")

Timer1.Stop()

Call Inject()

Timer1.Stop()

End If

Else

End If

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Timer1.Interval = 50

Timer1.Start()

End Sub

End Class

[BiaFoox 121]

Movido para: Cross Fire - Tutoriais.