Page 1 of 2 12 LastLast
Results 1 to 15 of 21
  1. #1
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191

    Lightbulb My First Injector Made In Microsoft Visual Basic 2010 Express

    Hello!

    I just made a injector in Visual Basic. I want to share it and see what other people think about it! I am registered to mpgh for already 2 years. And this is my first thread and 4th or 5th post. I never posted any of my programs to any site. I started hacking when I was young like 8 or 9 years old. Now I am 14. I learned a lot. But enough about me. Program is really easy to use. I hope you like it. I am sorry for bad english. I did my best! Thank you!

    Screenshot:



    I've seen I have to post some Virus Scans so here they are:

    InJect0r - Berny2220.rar - Jotti's malware scan
    https://www.virustotal.com/file/c264...0125/analysis/

    Download:

    <b>Downloadable Files</b> Downloadable Files
    Last edited by Pro42; 02-06-2012 at 11:37 AM.

  2. The Following 25 Users Say Thank You to Pro42 For This Useful Post:

    achref67 (04-28-2012),adnan88 (08-01-2013),alptug88 (05-01-2012),blackerrorr98 (08-04-2013),DJAXular (07-29-2013),fischiii1 (03-16-2013),ImSpirit (08-06-2013),Jeffdon (08-06-2013),Leiflon13 (07-30-2013),lolismus3 (07-28-2013),Marcelis02 (10-04-2015),niklas255 (07-30-2013),Nordius (08-08-2013),pedrorubster (03-21-2013),ronny94 (08-04-2012),StOpTV3 (08-05-2013),technicolor9 (08-10-2013),TheShooter911 (03-09-2013),tohplayer (08-11-2013),Tru_Killer_20 (08-05-2013),vnizzle14 (03-20-2013),Whiffled (03-19-2014),Wubson (08-24-2012),xBonZx (07-31-2013),Zombies96 (08-09-2013)

  3. #2
    botttyheyth's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    5
    Reputation
    10
    Thanks
    4

    Post

    ME GUSTA?? ^.^
    Last edited by botttyheyth; 02-06-2012 at 07:31 PM.

  4. #3
    master131's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Melbourne, Australia
    Posts
    8,802
    Reputation
    3165
    Thanks
    73,324
    My Mood
    Breezy
    Please provide a screenshots and 2 virus scans. Next time, refrain from linking to file-sharing sites, there's a reason why it's censored.
    Donate:
    BTC: 1GEny3y5tsYfw8E8A45upK6PKVAEcUDNv9


    Handy Tools/Hacks:
    Extreme Injector v3.6.1 *NEW* Windows 10 compatible!
    A powerful and advanced injector in a simple GUI.
    Can scramble DLLs on injection making them harder to detect and even make detected hacks work again!

    Minion Since: 13th January 2011
    Moderator Since: 6th May 2011
    Global Moderator Since: 29th April 2012
    Super User/Unknown Since: 23rd July 2013
    'Game Hacking' Team Since: 30th July 2013

    --My Art--
    [Roxas - Pixel Art, WIP]
    [Natsu - Drawn]
    [Natsu - Coloured]


    All drawings are coloured using Photoshop.

    --Gifts--
    [Kyle]

  5. #4
    rahemehab's Avatar
    Join Date
    Jan 2012
    Gender
    male
    Posts
    11
    Reputation
    10
    Thanks
    0
    Quote Originally Posted by Pro42 View Post
    Hello!

    I just made a injector in Visual Basic. I want to share it and see what other people think about it! I am registered to mpgh for already 2 years. And this is my first thread and 4th or 5th post. I never posted any of my programs to any site. I started hacking when I was young like 8 or 9 years old. Now I am 14. I learned a lot. But enough about me. Program is really easy to use. I hope you like it. I am sorry for bad english. I did my best! Thank you!

    I've seen I have to post some Virus Scans so here they are:

    InJect0r - Berny2220.rar - Jotti's malware scan
    https://www.virustotal.com/file/c264...0125/analysis/
    how to download the file !!

  6. #5
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    Quote Originally Posted by botttyheyth View Post
    I uploaded it for you. Your suppose to scroll down until you see the button "Manage Attachments" when making a post. Click on it. I don't think I should explain any further. Wait for a forum moderator to approve it. Waiting for a forum moderator can take a while. Next time, please ask and don't put outside link(s).

    We're a family. <-- HEHE
    LoL, Thank you for your help!

  7. #6
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    still need a screenshot
    I love it when people keep their agreements /sarcasm ftw

  8. #7
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    Quote Originally Posted by lolbie View Post
    still need a screenshot
    ohh lol i took it but forgot to upload

    here screenshot put
    Last edited by Pro42; 02-06-2012 at 11:33 AM.

  9. #8
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    aah nice .
    I love it when people keep their agreements /sarcasm ftw

  10. #9
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    Quote Originally Posted by lolbie View Post
    aah nice .
    why it still says attachmetn pending for approval

  11. #10
    lolbie's Avatar
    Join Date
    Apr 2010
    Gender
    male
    Location
    Netherlands
    Posts
    5,207
    Reputation
    288
    Thanks
    2,090
    My Mood
    Angelic
    its approved now @Pro42
    I love it when people keep their agreements /sarcasm ftw

  12. #11
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    Quote Originally Posted by lolbie View Post
    its approved now @Pro42
    ...thx........

  13. #12
    shadowx360's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    305
    Reputation
    15
    Thanks
    69
    My Mood
    Cynical
    Can you post the source?


    When I wrote this code, only God and I understood what I was doing. Now, God only knows.
    I will give you two of my seventy-two virgins if you can fix the code mess below

  14. #13
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    Quote Originally Posted by shadowx360 View Post
    Can you post the source?
    here it goes

    Public Class Form1

    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)
    Dim DLLFileName As String
    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.Ex ecutablePath)
    Public Sub Inject()
    On Error GoTo 1
    Timer1.Stop()
    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 = OpenFileDialog1.FileName
    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)
    CloseHandle(TargetProcessHandle)
    1: Me.Show()
    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

    OpenFileDialog1.ShowDialog()

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click

    For i As Integer = (DLLs.SelectedItems.Count - 1) To 0 Step -1
    DLLs.Items.Remove(DLLs.SelectedItems(i))
    Next

    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click

    DLLs.Items.Clear()

    End Sub

    Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click

    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
    If TargetProcess.Length = 0 Then
    ToolStripStatusLabel1.Text = ("Waiting for " + TextBox1.Text)
    Else
    Timer1.Stop()
    ToolStripStatusLabel1.Text = "Successfully injected your DLL file to " + TextBox1.Text + "!"
    Call Inject()
    If CheckBox1.Checked = True Then
    Me.Close()
    End If
    End If
    Else
    MessageBox.Show("Error! These can be the reasons: You didn't choose a file to inject or you haven't choosen a .dll type of file, you didn't put the right name of the process or the process is not running or there was a error while injecting. Please check your settings and try again.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles RadioButton2.CheckedChanged

    If RadioButton2.Checked = True Then
    Button4.Enabled = False
    Timer1.Enabled = True
    ElseIf RadioButton1.Checked = True Then
    Button4.Enabled = True
    Timer1.Enabled = False
    End If

    End Sub

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick

    If IO.File.Exists(OpenFileDialog1.FileName) Then
    Dim TargetProcess As Process() = Process.GetProcessesByName(TextBox1.Text)
    If TargetProcess.Length = 0 Then
    ToolStripStatusLabel1.Text = ("Waiting for " + TextBox1.Text)
    Else
    Timer1.Stop()
    ToolStripStatusLabel1.Text = "Successfully injected your DLL file to " + TextBox1.Text + "!"
    Call Inject()
    If CheckBox1.Checked = True Then
    End
    End If
    End If
    Else
    Exit Sub
    End If

    End Sub


    Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    If MessageBox.Show("Are you sure you want to close this program?", "", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
    MessageBox.Show("Thank you for using my program!", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End
    Else
    Exit Sub
    End If
    End Sub

    Private Sub OpenFileDialog1_FileOk(sender As System.Object, e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    Try
    Dim FileName As String
    FileName = OpenFileDialog1.FileName.Substring(OpenFileDialog1 .FileName.LastIndexOf("\"))
    Dim DllFileName As String = FileName.Replace("\", "")
    Me.DLLs.Items.Add(DllFileName)
    Catch ex As Exception
    MsgBox("Unknown error", MsgBoxStyle.Exclamation + MsgBoxStyle.OkOnly, "Error")
    End Try
    End Sub

    Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
    ToolStripStatusLabel1.Text = "Waiting for " + TextBox1.Text
    End Sub

    Private Const CP_NOCLOSE_BUTTON As Integer = &H200
    Protected Overloads Overrides ReadOnly Property CreateParams() As CreateParams
    Get
    Dim myCp As CreateParams = MyBase.CreateParams
    myCp.ClassStyle = myCp.ClassStyle Or CP_NOCLOSE_BUTTON
    Return myCp
    End Get
    End Property

    End Class

  15. The Following User Says Thank You to Pro42 For This Useful Post:

    cross25 (03-15-2013)

  16. #14
    colton1111's Avatar
    Join Date
    Mar 2010
    Gender
    male
    Posts
    216
    Reputation
    2
    Thanks
    11
    My Mood
    Fine
    You've been on MPGH for two years, and you only have 4 posts?

  17. #15
    Pro42's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Posts
    34
    Reputation
    10
    Thanks
    191
    yea i wasnt using mpgh... now i started

Page 1 of 2 12 LastLast

Similar Threads

  1. Replies: 33
    Last Post: 05-17-2014, 09:26 AM
  2. Microsoft Visual C + + 2010 Express
    By Flag666 in forum CrossFire Hack Coding / Programming / Source Code
    Replies: 2
    Last Post: 10-20-2011, 11:12 AM
  3. [Solved] microsoft visual basic 2010 express
    By chaosGG in forum CrossFire Help
    Replies: 20
    Last Post: 09-28-2011, 03:44 PM
  4. My first thing ever made in visual basic 2010 express edition
    By jessehotmail in forum Alliance of Valiant Arms (AVA) Coding / Source Code
    Replies: 7
    Last Post: 04-15-2011, 03:13 PM
  5. Microsoft visual basic power
    By Womanizer` in forum WarRock - International Hacks
    Replies: 2
    Last Post: 07-07-2008, 08:50 AM