Pepsi-Inject | 64-Bit | 32-Bit | Sexy GUI

[Pepsi Cola]

Well it's finally here, with a new sexy GUI

Features:

- Auto-Inject / Manual Inject
- Close After Injection
- Multiple DLL injection
- Works for both 64-bit and 32-bit systems

Pictures:

Ignore the spelling mistake, fixed.

Virus Scans:
Jotti
VirusTotal
Both triggering false positives

Special Thanks:

@ForeverRed For the GUI
@Color For pointing out a spelling error

EDIT: Updated Attachments and Virus Scans

[Color]

Great job and nice GUI.Btw, you messed up on the " successful " in the 2nd pic.

[Pepsi Cola]

Great job and nice GUI.Btw, you messed up on the " successful " in the 2nd pic.

Well, Fuck, Might change it later >.<

inb4 learn english ******

EDIT: Fixed, all better now

[[MPGH]Mayion]

Your virus scans doesn't match the file you uploaded + Tell me why the Injector has "GetAsyncKeyState" function?
This function is common with menu hacks & trainers but Injectors not.

[Pepsi Cola]

Your virus scans doesn't match the file you uploaded + Tell me why the Injector has "GetAsyncKeyState" function?
This function is common with menu hacks & trainers but Injectors not.

Ah. The new file must not have uploaded.
And, I'll go through the code, 1 second.

Your virus scans doesn't match the file you uploaded + Tell me why the Injector has "GetAsyncKeyState" function?
This function is common with menu hacks & trainers but Injectors not.

Ah. The new file must not have uploaded.
And, I'll go through the code, 1 second.

Looked over it and tbh no idea why it's there. It seems to be from the actual injection code which I didn't code myself, I got the injection code from the Wikin.

                                Public Class Form1
(Sharpe)Region  Global Variables
   Dim Point As New System.Drawing.Point()
   Dim X, Y As Integer
      (Sharpe)End Region
           (Sharpe)Region " GUI "
   Private Sub Form_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       If e.Button = MouseButtons.Left Then
           Point = Control.MousePosition
           Point.X = Point.X - (X)
           Point.Y = Point.Y - (Y)
           Me.Location = Point
       End If
   End Sub
   Private Property result As Short
   Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short
   Dim Xpos As New Integer
   Dim Ypos As New Integer
   Dim Pos As Point
   Dim dlls4inj As New Dictionary(Of String, String)
   Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer
   Private 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
   Private Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer() As Byte, ByVal nSize As Integer, ByVal lpNumberOfBytesWritten As UInteger) As Boolean
   Private 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
   Private 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, ByVal lpThreadId As Integer) As Integer
   Private Declare Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As Integer, ByVal dwMilliseconds As Integer) As Integer
   Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer
   Private Function Inject(ByVal pID As Integer, ByVal dllLocation As String) As Boolean
       If IntPtr.Size = 8 Then Throw New ArgumentException("Please make sure this program is compiled as x86, not x64. Memory functions don't work so well otherwise.")
       Dim hProcess As Integer = OpenProcess(&H1F0FFF, 1, pID)
       If hProcess = 0 Then Return False
       Dim dllBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(dllLocation)
       Dim allocAddress As Integer = VirtualAllocEx(hProcess, 0, dllBytes.Length, &H1000, &H4)
       If allocAddress = Nothing Then Return False
       Dim kernelMod As Integer = GetModuleHandle("kernel32.dll")
       Dim loadLibAddr = GetProcAddress(kernelMod, "LoadLibraryA")
       If kernelMod = 0 OrElse loadLibAddr = 0 Then Return False
       WriteProcessMemory(hProcess, allocAddress, dllBytes, dllBytes.Length, 0)
       Dim libThread As Integer = CreateRemoteThread(hProcess, 0, 0, loadLibAddr, allocAddress, 0, 0)
       If libThread = 0 Then
           Return False
       Else
           WaitForSingleObject(libThread, 5000)
           CloseHandle(libThread)
       End If
       CloseHandle(hProcess)
       Label3.Text = "Successfully Inject"
       If CheckBox1.Checked = True Then
           Me.Close()
       End If
       Label3.ForeColor = Color.Green
       Return True
   End Function
   Private Sub Form_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)
       X = Control.MousePosition.X - Me.Location.X
       Y = Control.MousePosition.Y - Me.Location.Y
   End Sub

EDIT: Also just fixed Virus Scans, Also, sorry for the really late reply, fell asleep. Sorry if this looks shady af.

[[MPGH]Mayion]

/Approved.
Try to find a better code, When it injects a dll, it doesn't inform the user it did & The automatic injection isn't working.

[Pepsi Cola]

/Approved.
Try to find a better code, When it injects a dll, it doesn't inform the user it did & The automatic injection isn't working.

This is only V1. Working on it, but it does inform the user, "Successful Inject"?

[[MPGH]Mayion]

This is only V1. Working on it, but it does inform the user, "Successful Inject"?

Nope, It doesn't.

[Pepsi Cola]

Nope, It doesn't.

wtf... Don't think I uploaded the correct file. Imma re-upload everything, soon.
EDIT: Also added a DragNDrop feature

[mostfurious]

Virus total 26/53, is it really safe?

[Pepsi Cola]

Virus total 26/53, is it really safe?

False Positives, Don't know why there's so many

Anyway I recommend you use v1.1

[Color]

Virus total 26/53, is it really safe?

False positives, viruses are rarely approved.

[fateh70]

fenk you gonna fire few dls with this :d

[Ebort]

thx for stuff

[Nathalie]

Thanks Pepsi <3