CRANK Injector

Public Class Form1
   Private DLLFileName As String
    Private ExeName As String
    Public Const MEM_COMMIT As Integer = &H1000
    Public Const PAGE_READWRITE As Integer = 4
    Private pfnStartAddr As Integer
    Public Const PROCESS_CREATE_THREAD As Integer = 2
    Public Const PROCESS_VM_OPERATION As Integer = 8
    Public Const PROCESS_VM_READ As Integer = &H10
    Public Const PROCESS_VM_WRITE As Integer = &H20
    Private pszLibFileRemote As String
    Private TargetBufferSize As Integer
    Private TargetProcessHandle As Integer
    Public Const TH32CS_SNAPPROCESS As Integer = 2

	
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs)
    Me.Button1.Text = "Browse..."
    Me.Label1.Text = "Waiting for users input"
    Me.Timer1.Interval = 50
    Me.Timer1.Start
End Sub

 


Private Sub Inject()
    Dim num7 As Integer
    Try 
        Dim num5 As Integer
        ProjectData.ClearProjectError
        Dim num4 As Integer = 2
        Me.Timer1.Stop
        Dim processesByName As Process() = Process.GetProcessesByName(Me.TextBox1.Text)
        Me.TargetProcessHandle = Form1.OpenProcess(&H2A, 0, processesByName(0).Id)
        Me.pszLibFileRemote = Me.OpenFileDialog1.FileName
        Dim lpModuleName As String = "Kernel32"
        Dim lpProcName As String = "LoadLibraryA"
        Me.pfnStartAddr = Form1.GetProcAddress(Form1.GetModuleHandle(lpModuleName), lpProcName)
        Me.TargetBufferSize = (1 + Strings.Len(Me.pszLibFileRemote))
        Dim lpBaseAddress As Integer = Form1.VirtualAllocEx(Me.TargetProcessHandle, 0, Me.TargetBufferSize, &H1000, 4)
        Dim lpNumberOfBytesWritten As Integer = 0
        Dim num2 As Integer = Form1.WriteProcessMemory(Me.TargetProcessHandle, lpBaseAddress, Me.pszLibFileRemote, Me.TargetBufferSize, lpNumberOfBytesWritten)
        lpNumberOfBytesWritten = 0
        Form1.CreateRemoteThread(Me.TargetProcessHandle, 0, 0, Me.pfnStartAddr, lpBaseAddress, 0, lpNumberOfBytesWritten)
        Form1.CloseHandle(Me.TargetProcessHandle)
    Label_00E0:
        num7 = 1
        Me.Show
        If (num5 <> 0) Then
            ProjectData.ClearProjectError
        End If
        Return
    Label_00EC:
        num5 = -1
        Select Case num4
            Case 0, 1
                goto Label_0128
            Case 2
                goto Label_00E0
        End Select
    Catch obj1 As Object When (?)
        ProjectData.SetProjectError(DirectCast(obj1, Exception), num7)
        goto Label_00EC
    End Try
Label_0128:
    Throw ProjectData.CreateProjectError(-2146828237)
End Sub

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs)
    Me.OpenFileDialog1.Filter = "DLL (*.dll) |*.dll|(*.*) |*.*"
    Me.OpenFileDialog1.ShowDialog
    Dim str As String = Me.OpenFileDialog1.FileName.Substring(Me.OpenFileDialog1.FileName.LastIndexOf("\")).Replace("\", "")
    Me.TextBox2.Text = str
End Sub


Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs)
    If File.Exists(Me.OpenFileDialog1.FileName) Then
        If (Process.GetProcessesByName(Me.TextBox1.Text).Length = 0) Then
            Me.Label1.Text = ("Waiting for " & Me.TextBox1.Text & ".exe")
        Else
            Me.Timer1.Stop
            Me.Label1.Text = "Successfully Injected!"
            Me.Inject
        End If
    End If
End Sub

 End Class