Exodus Injector v.1

		Private Function Inject(pID As Integer, dllLocation As String) As Boolean
			Dim num As Integer = Form1.OpenProcess(2035711, 1, pID)
			If num = 0 Then
				Return False
			End If
			Dim bytes As Byte() = Encoding.ASCII.GetBytes(dllLocation)
			Dim num2 As Integer = Form1.VirtualAllocEx(num, 0, bytes.Length, 4096, 4)
			If num2 = 0 Then
				Return False
			End If
			Dim text As String = "kernel32.dll"
			Dim moduleHandle As Integer = Form1.GetModuleHandle(text)
			Dim arg_51_0 As Integer = moduleHandle
			text = "LoadLibraryA"
			Dim procAddress As Integer = Form1.GetProcAddress(arg_51_0, text)
			If moduleHandle = 0 OrElse procAddress = 0 Then
				Return False
			End If
			Form1.WriteProcessMemory(num, num2, bytes, bytes.Length, 0U)
			Dim num3 As Integer = Form1.CreateRemoteThread(num, 0, 0, procAddress, num2, 0, 0)
			If num3 = 0 Then
				Return False
			End If
			Form1.WaitForSingleObject(num3, 5000)
			Form1.CloseHandle(num3)
			Form1.CloseHandle(num)
			Me.Label3.Text = "DLL Successfully Injected!!"
			If Me.CheckBox1.Checked Then
				Me.Close()
			End If
			Return True
		End Function