DetectedCA Menu Hack {LOADER}

Posts 3142 of 42 · Page 3 of 3
how do u open the menu in game??? and i believe its a great work
I ENTER AT ROOM COMBAT ARMS KICK ME
Quote Originally Posted by Tony Stark` View Post
to scared sorry jared
.
This is so easy to make hehe
Good Job bombs

p.s
Next time add on form closing to delete the dll :P
(if ppl are on x64 bit, cause when i closed it the dll was still there)
And make it download to temp not where u downloaded it to just some handy tips (:
Quote Originally Posted by Jzz_ View Post
This is so easy to make hehe
Good Job bombs

p.s
Next time add on form closing to delete the dll :P
(if ppl are on x64 bit, cause when i closed it the dll was still there)
And make it download to temp not where u downloaded it to just some handy tips (:
You cant delete the .dll on form closing, once the dlls injected you cant move it. And i dont wanna add to temp in case their using a cleaning software and it attempts to empty temp file = massive problems
Quote Originally Posted by Bombsaway707 View Post

You cant delete the .dll on form closing, once the dlls injected you cant move it. And i dont wanna add to temp in case their using a cleaning software and it attempts to empty temp file = massive problems
This belongs in the multi-tool section. BAD MINION.
Quote Originally Posted by NOOB View Post


This belongs in the multi-tool section. BAD MINION.
Its technically a hack
Really nice well i didnt like the design too much its just kinda simple
but it looks great and great job ill be testing it ill post
if it work!
nice job, but if this WAS a loader worth protecting, it was quite easy to disassemble! Here's my findings!

Code:
    Private Sub 4AAAA(ByVal ᙂ As Object, ByVal 1AAAA As EventArgs)
        If MyProject.Computer.FileSystem.FileExists(Me.dlllocation.Text) Then
            If (Process.GetProcessesByName("Engine").Length = 0) Then
                Me.Label6.ForeColor = Color.Orange
                Me.Label6.Text = "Waiting for Engine.exe"
            Else
                Me.Label6.ForeColor = Color.Green
                Me.Label6.Text = "Injected!"
                Me.ᙄ
                Me.Timer1.Stop
            End If
        Else
            Me.Label6.Text = "Searching for .Dll"
            Me.Label6.ForeColor = Color.Red
        End If
    End Sub

    Private Sub 5AAA1(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("http://www.mpgh.net/forum/members/660992-nubzgetkillz.html")
    End Sub

    Private Sub 6AAAA(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("http://www.mpgh.net/forum/members/311950-bombsaway707.html")
    End Sub

    Private Sub 7AAA1()
        Me.dlllocation.Text = (Application.StartupPath & "\CA_MENU_HACK.dll")
        If MyProject.Computer.FileSystem.FileExists(Me.dlllocation.Text) Then
            FileSystem.SetAttr(Me.dlllocation.Text, FileAttribute.Normal)
            FileSystem.Kill(Me.dlllocation.Text)
        End If
        MyProject.Computer.Network.DownloadFile("http://bcproducts.*********/Misc/NubBase.dll", Me.dlllocation.Text)
        FileSystem.SetAttr(Me.dlllocation.Text, FileAttribute.Hidden)
    End Sub

    Private Sub 8AAAA(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("www.mpgh.net")
    End Sub

    <DllImport("kernel32", EntryPoint:="CloseHandleA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function CloseHandle(ByVal hObject As Integer) As Integer
    End Function

    <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Public Shared Function CreateRemoteThread(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
    End Function
But good job!
Quote Originally Posted by jdslashv2 View Post
nice job, but if this WAS a loader worth protecting, it was quite easy to disassemble! Here's my findings!

Code:
    Private Sub 4AAAA(ByVal ᙂ As Object, ByVal 1AAAA As EventArgs)
        If MyProject.Computer.FileSystem.FileExists(Me.dlllocation.Text) Then
            If (Process.GetProcessesByName("Engine").Length = 0) Then
                Me.Label6.ForeColor = Color.Orange
                Me.Label6.Text = "Waiting for Engine.exe"
            Else
                Me.Label6.ForeColor = Color.Green
                Me.Label6.Text = "Injected!"
                Me.ᙄ
                Me.Timer1.Stop
            End If
        Else
            Me.Label6.Text = "Searching for .Dll"
            Me.Label6.ForeColor = Color.Red
        End If
    End Sub

    Private Sub 5AAA1(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("http://www.mpgh.net/forum/members/660992-nubzgetkillz.html")
    End Sub

    Private Sub 6AAAA(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("http://www.mpgh.net/forum/members/311950-bombsaway707.html")
    End Sub

    Private Sub 7AAA1()
        Me.dlllocation.Text = (Application.StartupPath & "\CA_MENU_HACK.dll")
        If MyProject.Computer.FileSystem.FileExists(Me.dlllocation.Text) Then
            FileSystem.SetAttr(Me.dlllocation.Text, FileAttribute.Normal)
            FileSystem.Kill(Me.dlllocation.Text)
        End If
        MyProject.Computer.Network.DownloadFile("http://bcproducts.*********/Misc/NubBase.dll", Me.dlllocation.Text)
        FileSystem.SetAttr(Me.dlllocation.Text, FileAttribute.Hidden)
    End Sub

    Private Sub 8AAAA(ByVal ᙂ As Object, ByVal 1AAAA As LinkLabelLinkClickedEventArgs)
        Process.Start("www.mpgh.net")
    End Sub

    <DllImport("kernel32", EntryPoint:="CloseHandleA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function CloseHandle(ByVal hObject As Integer) As Integer
    End Function

    <DllImport("kernel32", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Public Shared Function CreateRemoteThread(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
    End Function
But good job!
Why would i pack a public dll injector code
Quote Originally Posted by Bombsaway707 View Post

Why would i pack a public dll injector code
i know its a public dll, but its very easy to decrypt, and using a resource file and extracting it might do a little bit better!
Posts 3142 of 42 · Page 3 of 3
This thread is closed for replies.

Tags for this Thread

None

Need help?