Combat Arms Injector

[Successful_Loser]

Can someone give me a source code for a Basic Injector?

[Genesis]

This is the source code section. @DJ Allen @Apeiron

Requesting a move to maybe the help section or source code discussion?

[[SMA] Paradise`]

/Moved to Coding help.

[Acea]

I originally posted this on my old forum a year ago, ignore my grammar from then...

---

Chapters:
Section 1- Setup
1A - Form Setup Modual
1B - Form Setup SDKSection 2 - All About Loaders
2A - Making a Non-Stream Loader
2B - Making a Stream Loader
Section 3 - All About Injectors
3A - Making a Simple Injector
3B - Making a Multi-Process Injector

---

Chapter 1A. Form Setup Modual

---

Alright so first we need to download the modual Which can be done here ModInject.vb
After it downloads put it on you desktop or wherever is convenient, Now you are gona wana create a new Form and then we start the setup the setup is super simple, Goto Project>Add Existing Item




Choose My ModInject.vb and then your Set

---

Chapter 1B. Form Setup SDK

---

COMING SHORTLY!

---

Chapter 2A.Making a Non-Stream Loader
Based on a CA loader Setup

---

Things we need to are:
2 timers
1 button
1 .dll hack

Add the .dll to resources by clicking my project> Resources and just drag it in

Ok So lets start of simple With Globals:
Code:

dim PID as stringdim processname() as processdim i as integer = 5
Ok so my injector uses PID's instread of process names so we will need a way to get the PID of a process via its name so we start with the PID
Process name is optional ill be adding a auto start feature for CA but this is optional and useful for non CA games

Now another simple thing we will add is time in your form title(just for eye candy)
Click 1 of your 2 timers and add the following code(make sure you enable it!)
set the interval for 1
Code:

me.text = "[" & timeofday & "] - TITLE"
Simple huh now lets get into some more advanced items
For our injector we need to make a injection sub
so we start with
Code:

Sub injects()End sub
Before anything we need to write our .dll so the loader can inject it using:
Code:

System****.File.WriteAllBytes("ANYNAMEHERE.DLL", My.Resources.HACKNAMEhERE)
Now addCode:

Shell("C:\Nexon\Combat Arms\Engine.exe -windowtitle CombatArms -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId")
Now we need to add the way we get the PID i was talking about eralyer
a pid(process id) is a id to a process so when your loader injects it injects to the ID NOT the process name so to get the id we add this in our injection sub:
Code:

PID = Process.GetProcessesByName("Engine")(0).Id
Now below that we need to add the injection code:
Code:

inject(PID, Application.StartupPath & "\THISISYOUR.DLL") 'This is the name you replaced with anynamehere
and now your injection subs done

now click on the unused timer and paste this code:
Code:

i = i - 1button1.text = "starting CA in " & i & " Second(s)"if i = 0 thentimer1.stop 'replace timer1 with timer name i.e timer2call injectsend if
and finally button1
Code:

Button1.text = itimer.start()




and thats all for a non stream loader

---

Chapter 2B.Making a Stream Loader
Based on a CA loader Setup

---

Things we need to are:
1 button
1 .dll hack
1 ftp client
1 ftp server

Ok first we need to add the following above Public Class form1:
Code:

Imports system****imports system.net
Ok So lets start of simple With Globals:
Code:

dim PID as stringdim processname() as processdim wc As New WebClient
Ok so my injector uses PID's instread of process names so we will need a way to get the PID of a process via its name so we start with the PID
Process name is optional ill be adding a auto start feature for CA but this is optional and useful for non CA games

Now another simple thing we will add is time in your form title(just for eye candy)
Click 1 of your 2 timers and add the following code(make sure you enable it!)
set the interval for 1
Code:

me.text = "[" & timeofday & "] - TITLE"
Simple huh now lets get into some more advanced items
For our injector we need to make a injection sub
so we start with
Code:

Sub injects()End sub
Before anything we need to Download our .dll so the loader can inject it using:
Code:

wc.DownloadFile("URL", Application.StartupPath & "\ANYNAMEHERE.dll")
Now addCode:

Shell("C:\Nexon\Combat Arms\Engine.exe -windowtitle CombatArms -rez Engine.REZ -rez Game -authip 208.85.111.14 -authport 10001 -pcroom 0 -UserId")
Now we need to add the way we get the PID i was talking about eralyer
a pid(process id) is a id to a process so when your loader injects it injects to the ID NOT the process name so to get the id we add this in our injection sub:
Code:

PID = Process.GetProcessesByName("Engine")(0).Id
Now below that we need to add the injection code:
Code:

inject(PID, Application.StartupPath & "\THISISYOUR.DLL") 'This is the name you replaced with anynamehere
and now your injection subs done


and finally button1
Code:

call injects




and thats all for a loader

---

Chapter 3A.Making a Simple Injector
Based on a CA Setup

---

Things we need to are:
2 Timers
2 TextBoxs

Ok so this is a super simple stripped loader

Lets start with the globals like always:
Code:

Dim PID as stringDim Processname() as process
Now for the Inject sub:
Code:

Sub Injects() PID = Process.GetProcessesByName("Engine")(0).Id Inject(PID, Application.StartupPath & "\Hack.dll") TextBox1.text = "Sucessfully Injected!" End Sub
and for timer1:
Code:

Processname = Process.GetProcessesByName("Engine") If Processname.Count > 0 Then Timer1.Stop() Call Injects() Else TextBox1.Text = "Waiting For Engine.exe" End If
Finally Timer2:
Code:

If My.Computer.FileSystem.FileExists(Application.Star tupPath & "\Hack.dll") Then TextBox2.Text = "Ready to roll, Love Soul` " Else TextBox2.Text = "Error Hack Not Found! Rename Your hack to Hack.dll" End If
Paste this in Form_Load:
Code:

Timer1.Start() Timer2.Start()

---

Chapter 3B.Making a Multi-Process Injector
Based on a CA Setup

---

Things we need to are:
1 Timer
1 Buttons

Note: This is a neat way to make a injector thought of by me we will take advantages of input boxs
Lets start with the globals like always:
Code:

Dim PID As String Dim Processname() As Process Dim Path As String Dim Proc As String Dim OFD As New OpenFileDialog
Now for the Inject sub:
Code:

Sub Injects() Try PID = Process.GetProcessesByName(Proc)(0).Id inject(PID, Path) Button1.Text = "Sucessfully Injected!" Catch ex As Exception Button1.Text = "Injection Error!" End Try End Sub
and for timer1:
Code:

Processname = Process.GetProcessesByName(Proc) If Processname.Count > 0 Then Timer1.Stop() Call Injects() End If
Button1:
Code:

Proc = InputBox("Please Enter a Process to Inject to, Do NOT Include .exe") OFD.Title = "Please Choose a Hack" OFD.Filter = "DLL (*.dll) | *.dll" OFD.ShowDialog() Path = OFD.FileName Timer1.Start() Button1.Text = "Waiting for " & Proc & ".exe" Button1.Enabled = False




And Your Done!
Please note the inject sub on the image is wrong the code 1 is right