Page 5 of 5 FirstFirst ... 345
Results 61 to 73 of 73
  1. #1
    CoderNever's Avatar
    Join Date
    Feb 2009
    Gender
    female
    Location
    http://mpgh.net MPGHCash: $700,458,011
    Posts
    1,196
    Reputation
    131
    Thanks
    2,233
    My Mood
    Buzzed

    Combat Arms Trainer Maker

    Well Since all the trainer makers are patched I had to release my CA one that is not patched !



    Virus Scan : Trainer Generator By Coder Never.exe MD5:7ce7caf8de79b006da7b9851a2dc293c - VirSCAN.org Scanners did not find malware!

    Password : cn@mpgh

    NOTE : this is not nothing like CE , You can't Search Addresses , and you can't read addresses it just makes trainers that changes addresses when you have them already.
    Last edited by CoderNever; 12-14-2009 at 08:28 PM.
    I Apologize for my latest release "CN Hack 7-11-11" I assure you it is not up to "CN Standard", and I feel bad due to all its flaws. I'm working hard, and steadily to remake it for I can bring everyone a hack they will really like!


    Support NSY Inject

    CoderNever
    GameArena
    _Fk127_
    ViSiON
    -Lunar_
    Bubbles Kittys

    Code:
    ¢N Mike says
    Cyber Bulling is bad
    J Whit says
    Yea bob wants to fuck my pussy
    ¢N Mike says
    Whit
    dont be a cyber bully
    J Whit says
    FUCK YOU
    ¢N Mike says
    Words hurt
    ѱ NOOB says
    whit gets bullied in school so he goes online and bullies kids online
    J Whit says
    DUH
    Stress relieve
    relieving
    The kintergarden kids beat my ass
    ¢N Mike says
    Thats just sad

  2. The Following 12 Users Say Thank You to CoderNever For This Useful Post:

    burgerman999 (01-01-2010),[MPGH]Disturbed (12-14-2009),Drake (10-26-2011),freerunner0216 (10-24-2014),mooserman (12-15-2009),procurando (12-17-2009),ScathDeSolas (12-17-2009),slimbiscuit (12-14-2009),SmartAlley (10-26-2011),webvamprye (01-07-2010),Wiirtuallca (12-15-2009),_Siniister (12-15-2009)

  3. #61
    Stephen's Avatar
    Join Date
    Jun 2009
    Gender
    male
    Location
    Engine.exe
    Posts
    4,690
    Reputation
    184
    Thanks
    1,147
    My Mood
    Aggressive
    It doesn't work anymore

    /Close
    /Patched

  4. #62
    cchisholm14's Avatar
    Join Date
    Sep 2009
    Gender
    male
    Posts
    118
    Reputation
    10
    Thanks
    4
    what about hex editer?

  5. #63
    Stephen's Avatar
    Join Date
    Jun 2009
    Gender
    male
    Location
    Engine.exe
    Posts
    4,690
    Reputation
    184
    Thanks
    1,147
    My Mood
    Aggressive
    What are you talking about?

  6. #64
    dragonwiddd's Avatar
    Join Date
    Nov 2009
    Gender
    male
    Posts
    72
    Reputation
    12
    Thanks
    13
    My Mood
    Yeehaw
    My MHS isnt detected at all. i use it everyday. When i put my addies in and generate tho i get 2 VB codes handler.vb and GUI.vb and i open them in VB but from there im lost lol

    GUI.vb

    Public Class Form1
    Dim BaseAddress As Integer
    Dim MyProcess As Process() = Process.GetProcessesByName("engine")
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    Dim MyProcess As Process() = Process.GetProcessesByName("engine")
    Dim mainModule As ProcessModule
    mainModule = MyProcess(0).MainModule
    BaseAddress = CInt(mainModule.BaseAddress)
    BaseAddress = CInt(mainModule.BaseAddress)
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Timer1.Start
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    WriteInt((&H3759B8F8),1)
    End Sub
    End Class

    -----------------------------------

    Handler.VB

    Module Handler
    Public Const PROCESS_VM_READ = &H10
    Public Const PROCESS_VM_WRITE = (&H20)
    Public Const PROCESS_VM_OPERATION = (&H8)
    Public Const PROCESS_QUERY_INFORMATION = (&H400)
    Public Const PROCESS_READ_WRITE_QUERY = PROCESS_VM_READ + PROCESS_VM_WRITE + PROCESS_VM_OPERATION + PROCESS_QUERY_INFORMATION
    Public Const PROCESS_ALL_ACCESS = &H1F0FFF
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Int32, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByRef lpBuffer As Byte(), ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As IntPtr, ByVal lpBaseAddress As Int32, ByVal lpBuffer() As Byte, ByVal nSize As Int32, ByVal lpNumberOfBytesWritten As Int32) As Long
    Public Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As UInteger, ByVal bInheritHandle As Integer, ByVal dwProcessId As UInteger) As IntPtr
    Public Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As IntPtr) As Boolean
    Public Function Game_Hwnd() As Int32
    Dim i As Int32 : Dim foundit As Boolean = False
    For Each p As Process In Process.GetProcessesByName ("engine")
    i = p.Id
    foundit = True : Exit For
    Next
    If foundit = True Then
    Return i
    Else
    Return 0
    End if
    End Function

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As Integer, ByVal Size As Integer)
    Try
    Dim GameReadWrite As Integer
    Dim PID As Integer = Game_Hwnd()
    GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
    Dim bytArray() As Byte
    bytArray = BitConverter.GetBytes(Value)
    WriteProcessMemory(GameReadWrite, Address, bytArray, Size, 0)
    CloseHandle(GameReadWrite)
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value() As Byte)
    Try
    Dim GameReadWrite As Integer
    Dim PID As Integer = Game_Hwnd()
    GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
    WriteProcessMemory(GameReadWrite, Address, Value, Value.Length, 0)
    CloseHandle(GameReadWrite)
    Catch Ex As Exception
    End Try
    End Sub
    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value() As Byte, ByVal Offset As Integer, ByVal Length As Integer)
    Try
    Dim Count1 As Integer
    For Count1 = 0 To Length - 1
    WriteMemory(Address + Count1, Value(Count1 + Offset), 1)
    Next
    Catch Ex As Exception
    End Try
    End Sub
    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As String)
    Try
    Dim Length As Integer = Value.Length
    For I As Integer = 0 To Length - 1
    WriteMemory(Address + I, Asc(Value.Chars(I)), 1)
    Next
    WriteMemory(Address + Length, 0, 1)
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub WriteMemory(ByVal Address As Integer, ByVal Value As Double)
    Try
    Dim Buffer(0 To 7) As Byte
    Buffer = BitConverter.GetBytes(Value)
    For I As Integer = 0 To 7
    WriteMemory(Address + I, CInt(Buffer(I)), 1)
    Next
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As Double)
    Try
    Dim Buffer(7) As Byte
    Dim Temp As Integer
    For I As Integer = 0 To 7
    ReadMemory(Address + I, Temp, 1)
    Buffer(I) = CByte(Temp)
    Next
    Value = BitConverter.ToDouble(Buffer, 0)
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As Integer, ByVal Size As Integer)
    Try
    Dim mValue As Integer
    Dim GameReadWrite As Integer
    Dim PID As Integer = Game_Hwnd()
    GameReadWrite = OpenProcess(PROCESS_READ_WRITE_QUERY, False, PID)
    ReadProcessMemory(GameReadWrite, Address, mValue, Size, 0)
    Value = mValue
    CloseHandle(GameReadWrite)
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value() As Byte, ByVal Length As Integer)
    Dim bytArray() As Byte
    Dim Count1 As Integer
    Dim tempInteger As Integer
    ReDim bytArray(Length - 1)
    For Count1 = 0 To Length - 1
    ReadMemory(Address + Count1, tempInteger, 1)
    bytArray(Count1) = CByte(tempInteger)
    Next
    Value = bytArray
    Try
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As String)
    Try
    Dim intChar As Integer
    Dim Count1 As Integer
    Dim strTemp As String
    strTemp = String.Empty
    Count1 = 0
    Do
    ReadMemory(Address + Count1, intChar, 1)
    If intChar <> 0 Then strTemp = strTemp & Chr(intChar)
    Count1 += 1
    Loop Until intChar = 0
    Value = strTemp
    Catch Ex As Exception
    End Try
    End Sub

    Public Sub ReadMemory(ByVal Address As Integer, ByRef Value As String, ByVal Length As Integer)
    Try
    Dim intChar As Integer
    Dim Count1 As Integer
    Dim strTemp As String
    strTemp = String.Empty
    For Count1 = 0 To Length - 1
    ReadMemory(Address + Count1, intChar, 1)
    strTemp = strTemp & Chr(intChar)
    Next
    Value = strTemp
    Catch Ex As Exception
    End Try
    End Sub

    Function ReadInt(ByVal Address As Int32)
    Dim i As Int32
    ReadMemory(Address, i, 4)
    Return i
    End Function

    Public Sub WriteInt(ByVal Address As Int32, ByVal Value As Int32)
    WriteMemory(Address, Value, 4)
    End Sub
    End Module


    BlackHats

  7. #65
    boikevin's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    My Mood
    Hot
    whats the pass for it so i can extract

  8. #66
    dragonwiddd's Avatar
    Join Date
    Nov 2009
    Gender
    male
    Posts
    72
    Reputation
    12
    Thanks
    13
    My Mood
    Yeehaw
    Quote Originally Posted by boikevin View Post
    whats the pass for it so i can extract
    read the thread


    BlackHats

  9. #67
    Scooby_Doo's Avatar
    Join Date
    Nov 2009
    Gender
    female
    Posts
    13
    Reputation
    10
    Thanks
    0
    fuck you asshole dont dowload it its a virous

  10. #68
    omlan's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    iSnyp3r Industries
    Posts
    569
    Reputation
    9
    Thanks
    30
    My Mood
    Sad
    fail.. i dont like it

    JKZ its cool!

    I use 4 snypers, 1 is black, 2 are Semi, 1 is bolt action and 1 will shoot through your head within 12 hours.




    [IMG]http://************.com/sig/016/IamNoGirl12.jpg[/IMG]
    Honour & Guts is the way to Succses

    MY LEGIT ACCOUNT IS PRO:

    [IMG]http://************.com/sig/016/954homeboy.jpg[/IMG]

    If you think i fail at Sniping? Check out my Sniper record.



    Originally posted by -James-
    I will suck your cock if you shoot kevin rudd in the head.
    I have da Fastest connection in Australia:


  11. #69
    omlan's Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    iSnyp3r Industries
    Posts
    569
    Reputation
    9
    Thanks
    30
    My Mood
    Sad

    I use 4 snypers, 1 is black, 2 are Semi, 1 is bolt action and 1 will shoot through your head within 12 hours.




    [IMG]http://************.com/sig/016/IamNoGirl12.jpg[/IMG]
    Honour & Guts is the way to Succses

    MY LEGIT ACCOUNT IS PRO:

    [IMG]http://************.com/sig/016/954homeboy.jpg[/IMG]

    If you think i fail at Sniping? Check out my Sniper record.



    Originally posted by -James-
    I will suck your cock if you shoot kevin rudd in the head.
    I have da Fastest connection in Australia:


  12. #70
    Pixipixel_'s Avatar
    Join Date
    Oct 2009
    Gender
    male
    Location
    VCExpress.exe || France :D
    Posts
    2,088
    Reputation
    27
    Thanks
    741
    My Mood
    Cool
    Old thread bumped (1 week) + Double post.
    Choob.

  13. #71
    Seth's Avatar
    Join Date
    May 2009
    Gender
    male
    Location
    In The Thread
    Posts
    3,685
    Reputation
    25
    Thanks
    621
    Quote Originally Posted by Pixipixel_ View Post
    Old thread bumped (1 week) + Double post.
    Choob.
    If it is only a week he might get away with it. Cause the rule is one week, so he barely made it.
    She paints a pretty picture, but the story has a twist, the paint brush is a razor, and the canvas is her wrist.

  14. #72
    ninja_pwner's Avatar
    Join Date
    Dec 2009
    Gender
    male
    Posts
    2
    Reputation
    10
    Thanks
    0
    dont work for me it says (404) not found

  15. #73
    weedworm31's Avatar
    Join Date
    Sep 2008
    Gender
    male
    Location
    bleh
    Posts
    14
    Reputation
    10
    Thanks
    2
    My Mood
    Amused
    *sigh* choob posters annoy me...

Page 5 of 5 FirstFirst ... 345

Similar Threads

  1. Combat Arms Trainer took me 1day
    By imCilo in forum Combat Arms Hacks & Cheats
    Replies: 8
    Last Post: 08-17-2009, 10:53 PM
  2. [Release] Combat Arms Trainer UPDATING OFTEN
    By LaBe1 in forum Combat Arms Hacks & Cheats
    Replies: 46
    Last Post: 10-06-2008, 01:59 PM
  3. Combat Arms Trainer (LaBe1 CA Hacks) Updating often
    By LaBe1 in forum Combat Arms Hacks & Cheats
    Replies: 60
    Last Post: 09-23-2008, 02:47 PM
  4. [Release] Combat Arms Trainer (contains vac)
    By LaBe1 in forum Combat Arms Hacks & Cheats
    Replies: 54
    Last Post: 08-27-2008, 07:18 AM
  5. [Release] Combat Arms Trainer (Contains Vac)
    By splitterlt03 in forum Combat Arms Hacks & Cheats
    Replies: 22
    Last Post: 08-08-2008, 07:34 PM