Results 1 to 9 of 9
  1. #1
    Geomatrical the 7th's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Location
    ?
    Posts
    669
    Reputation
    17
    Thanks
    811

    Lightbulb HOW TO MAKE YOUR OWN SERVER CONTROL HACK.

    Public Class Form1


    'Since most people don't know how to use the address for a server control tool, and how to apply a certain function to all 18 players, I'll tell you how and also give you some knowledge on the basics of VB.Net. Please do not leech these addresses and find them yourself!


    *The code is used as an example and you should not copy and paste it or you wont learn anything.
    *I personally recommend VB.Net than other programing languages, it's way easier.
    *No link to cheat engine? I can't post external links.


    'What you will need:
    '-Visual Basic (Version 6 or above)
    '-Basic knowledge.
    '-Cheat Engine to find address for player 1 for for each function.
    '-Read/write memory class or module (by Master131 or Jorndel)


    'How do I find the address?
    '-Go in a private match.
    '-Decide what you want to look for, for instance, primary clip.
    '-Check your current amount, lets say it's 96, we search 96 in cheat engine (first scan)
    '-Shoot once and reload, by doing this we are changing the value making it easier to find the right address(es)
    '-Search for the changed value, 95, search for 95 (next scan)
    '-Repeat the above until you end up the the fewest addresses as possible, search for the writable one. All other addresses
    are read only, meaning uselss in this case.


    'Primary clip (for example).

    Code:
    Dim Address0 As Integer = &H38EC 'Value to get address for next player.
    Dim Address1 As Integer = &H01D05BE8 'Address for 1.9.453
    Dim Address2 As Integer = Address1 + Address0
    Dim Address3 As Integer = Address2 + Address0
    Dim Address4 As Integer = Address3 + Address0
    Dim Address5 As Integer = Address4 + Address0
    Dim Address6 As Integer = Address5 + Address0
    Dim Address7 As Integer = Address6 + Address0
    Dim Address8 As Integer = Address7 + Address0
    Dim Address9 As Integer = Address8 + Address0
    Dim Address10 As Integer = Address9 + Address0
    Dim Address11 As Integer = Address10 + Address0
    Dim Address12 As Integer = Address11 + Address0
    Dim Address13 As Integer = Address12 + Address0
    Dim Address14 As Integer = Address13 + Address0
    Dim Address15 As Integer = Address14 + Address0
    Dim Address16 As Integer = Address15 + Address0
    Dim Address17 As Integer = Address16 + Address0
    Dim Address18 As Integer = Address17 + Address0
    Dim Value As Integer = &H99999 'Value to apply to address

    'Add x18 checkboxes to your form.


    'Usage.
    Code:
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Player 1
        If Checkbox1.Checked Then
            WriteMemory(Address1, Value)
        Else
            'Do nothing.
        End If
            'Repeat the above with Address 2-18.
    End Sub

    'Set the timers interval to 1 and enable it, the lower the interval the more constant the value will be written.


    'The same thing can be with all the address, for example player health, equipment and ammo.
    'It isn't necessary to use a checkbox to apply a value to an address, you can use anything, such as buttons and so on.





    'To read the names of players do this, I'm using listview1 as an example. Just do the what I did in the start but read the values.



    Code:
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        'Player names.
        ListViw1.Item1 = ReadMemory(Address0)
        'Repeat the above with Address 2-18.
    End Sub

    'Some definitions:
    '-Intiger = Numeric input/output.
    '-String = Text input/output.
    '-Dim = Declares and allocates storage space for one or more variables.
    '-If, then, else = Conditionally executes a group of statements, depending on the value of an expression.
    '-Interval = An intervening time or space.
    '-Hexadecimal = Relating to or using a system of numerical notation that has 16 rather than 10 as its base.



    'Addresses: (primary clip, player 1-18)
    Code:
    1. 1d05be8
    2. 1d094d4
    3. 1d0cdc0
    4. 1d106ac
    5. 1d13f98
    6. 1d17884
    7. 1d1b170
    8. 1d1ea5c
    9. 1d22348
    10. 1d25c34
    11. 1d29520
    12. 1d2ce0c
    13. 1d306f8
    14. 1d33fe4
    15. 1d378d0
    16. 1d3b1bc
    17. 1d3eaa8
    18. 1d42394

    'How to organize your code:
    Code:
    #Region "Primary Clip" 
        'Code
    #End Region

     






    'Health
    Code:
    Dim Address0 As Integer = &H274
    Dim Address1 As Integer = &H1B3F3C4
    Dim Address2 As Integer = Address1 + Address0
    Dim Address3 As Integer = Address2 + Address0
    Dim Address4 As Integer = Address3 + Address0
    Dim Address5 As Integer = Address4 + Address0
    Dim Address6 As Integer = Address5 + Address0
    Dim Address7 As Integer = Address6 + Address0
    Dim Address8 As Integer = Address7 + Address0
    Dim Address9 As Integer = Address8 + Address0
    Dim Address10 As Integer = Address9 + Address0
    Dim Address11 As Integer = Address10 + Address0
    Dim Address12 As Integer = Address11 + Address0
    Dim Address13 As Integer = Address12 + Address0
    Dim Address14 As Integer = Address13 + Address0
    Dim Address15 As Integer = Address14 + Address0
    Dim Address16 As Integer = Address15 + Address0
    Dim Address17 As Integer = Address16 + Address0
    Dim Address18 As Integer = Address17 + Address0
    Dim Value As Integer = &H100

    'For health just do the same thing as you did with ammo.


    'If this helped, thank me or add rep and be sure to add me in credits.
    End Class
    Last edited by Geomatrical the 7th; 10-31-2012 at 03:28 AM.

  2. The Following 2 Users Say Thank You to Geomatrical the 7th For This Useful Post:

    ToKKan (10-30-2012),[NooB] Mentor (10-30-2012)

  3. #2
    Violence begets violence, so why give it back?
    MPGH Member
    Skinksteek's Avatar
    Join Date
    Aug 2012
    Gender
    male
    Location
    In a Care Package
    Posts
    497
    Reputation
    30
    Thanks
    623
    My Mood
    Angelic
    Thanks, will try when I learn.
    Made by @Jorndel


    [IMG]https://www.danasof*****m/sig/Trololol132237.jpg[/IMG]


    Leecher: 0 []
    Choob: 25 []
    Newbie: 50 []
    Member: 100 []
    Advanced Member: 150 []
    Dual-Keyboard Member: 250 []
    Expert Member: 500 []
    Bobo's Trainer: 750 [X]
    MPGH Expert: 1000 [X]
    Synthetic Hacker: 1250 [X]
    Blackhat Hacker: 1500 [X]
    Whitehat Hacker: 2000 [X]
    Bobo's Guardian: 2500 [X]
    Upcoming MPGHiean: 3000 [X]
    MPGH Addict: 3500 [X]
    MPGHiean: 4000 [X]
    MPGH Knight: 4500 [X]
    MPGH Lord: 5000 [X]
    MPGH Champion: 5500 [X]
    MPGH King: 6000 [X]
    "Wish me a good luck."

  4. The Following User Says Thank You to Skinksteek For This Useful Post:

    Geomatrical the 7th (10-30-2012)

  5. #3
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,676
    Reputation
    905
    Thanks
    19,109
    My Mood
    Angelic
    I think this was posted long time ago.
    Just shorter and easier.
    https://www.mpgh.net/forum/604-call-d...ses-tip.html#2


    Anyway, good job on writing a long "Release".

    Note that what you do here.
    Will take much memory and will require some CPU power

    + It will cause the Form to lag


    ---------- Post added at 12:35 AM ---------- Previous post was at 12:25 AM ----------

    You have like your long: DIM ***' Shit shit shit.

    You can spear your hands


    Code:
    Function MyThingy(ByRef Player As Integer, ByRef UpdateValue As Integer) As Integer
    Return ( &H01D05BE8 * Player ) + UpdateValue
    End Function

    Now you can do like this:

    Code:
    Dim ValueToWrite As Integer = 10
    WriteInteger(MyThingy(0, &HH38EC), ValueToWrite)

    Hope that will help some, and this is way easier.
    Then spending your time writing the same over and over.

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  6. The Following User Says Thank You to Jorndel For This Useful Post:

    Geomatrical the 7th (10-30-2012)

  7. #4
    Eidolon's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Vanished
    Posts
    822
    Reputation
    54
    Thanks
    4,077
    My Mood
    Angelic
    You should make a loop for the players, less memory will be needed and your code gets more understandable.

    Plus the 'definitions' are extremely nooby since the first thing you do when you dont understand a piece of soft-/hardware is read the damn manual




    Yet, you are a pathetic human.

    Contributor since: 7.26.2012 - ended
    Donator since: 7.14.2012


  8. #5
    Jorndel's Avatar
    Join Date
    Jul 2010
    Gender
    male
    Location
    Norway
    Posts
    8,676
    Reputation
    905
    Thanks
    19,109
    My Mood
    Angelic
    Quote Originally Posted by Anonymouss View Post
    You should make a loop for the players, less memory will be needed and your code gets more understandable.

    Plus the 'definitions' are extremely nooby since the first thing you do when you dont understand a piece of soft-/hardware is read the damn manual
    Making a loop run every milisec will cause the application to be horrible.

    I do rather suggest you to use it in a thread then

    To avoid problems on your program :P

     
    Contributor 01.27.2012 - N/A
    Donator 07-17-2012 - Current
    Editor/Manager 12-16-12 - N/A
    Minion 01-10-2013 - 07.17.13
    Former Staff 09-20-2012 - 01-10-2013 / 07-17-2013 - Current
    Cocksucker 20-04-2013 - N/A

  9. The Following User Says Thank You to Jorndel For This Useful Post:

    Geomatrical the 7th (10-30-2012)

  10. #6
    Eidolon's Avatar
    Join Date
    Sep 2011
    Gender
    male
    Location
    Vanished
    Posts
    822
    Reputation
    54
    Thanks
    4,077
    My Mood
    Angelic
    Quote Originally Posted by Jorndel View Post


    Making a loop run every milisec will cause the application to be horrible.

    I do rather suggest you to use it in a thread then

    To avoid problems on your program :P
    Sorry, forgot this is VB




    Yet, you are a pathetic human.

    Contributor since: 7.26.2012 - ended
    Donator since: 7.14.2012


  11. #7
    NadeHouse's Avatar
    Join Date
    Jul 2012
    Gender
    male
    Location
    whitespace
    Posts
    337
    Reputation
    55
    Thanks
    2,268
    My Mood
    Daring
    Nice contribution





  12. The Following User Says Thank You to NadeHouse For This Useful Post:

    Geomatrical the 7th (10-30-2012)

  13. #8
          ( ° ͜ʖ͡°)╭∩╮
    Former Staff
    MarkHC's Avatar
    Join Date
    Nov 2011
    Gender
    male
    Location
    127.0.0.1
    Posts
    2,750
    Reputation
    66
    Thanks
    14,528
    My Mood
    Angelic
    Thread prefix changed to Tutorial.

    Quote Originally Posted by Geomatrical the 7th View Post
    Code:
    Dim Address0 As Integer = &H38EC 'Value to get address for next player.
    Dim Address1 As Integer = &H01D05BE8 'Address for 1.9.453
    Dim Address2 As Integer = Address1 + Address0
    Dim Address3 As Integer = Address2 + Address0
    Dim Address4 As Integer = Address3 + Address0
    Dim Address5 As Integer = Address4 + Address0
    Dim Address6 As Integer = Address5 + Address0
    Dim Address7 As Integer = Address6 + Address0
    Dim Address8 As Integer = Address7 + Address0
    Dim Address9 As Integer = Address8 + Address0
    Dim Address10 As Integer = Address9 + Address0
    Dim Address11 As Integer = Address10 + Address0
    Dim Address12 As Integer = Address11 + Address0
    Dim Address13 As Integer = Address12 + Address0
    Dim Address14 As Integer = Address13 + Address0
    Dim Address15 As Integer = Address14 + Address0
    Dim Address16 As Integer = Address15 + Address0
    Dim Address17 As Integer = Address16 + Address0
    Dim Address18 As Integer = Address17 + Address0
    Dim Value As Integer = &H99999 'Value to apply to address
    Holy crap.. This reminds me of a colleague that to solve a small program (a table of sin values from 0 to 90) created 90 variables, one for each result

    That's why God has created arrays, you should use them.


    CoD Minion from 09/19/2012 to 01/10/2013

  14. The Following 3 Users Say Thank You to MarkHC For This Useful Post:

    Geomatrical the 7th (10-30-2012),inmate (10-31-2012),rawr im a tiger (10-30-2012)

  15. #9
    Geomatrical the 7th's Avatar
    Join Date
    Oct 2012
    Gender
    male
    Location
    ?
    Posts
    669
    Reputation
    17
    Thanks
    811
    Quote Originally Posted by -InSaNe- View Post
    Thread prefix changed to Tutorial.

    Holy crap.. This reminds me of a colleague that to solve a small program (a table of sin values from 0 to 90) created 90 variables, one for each result

    That's why God has created arrays, you should use them.
    I'll tell you what I told everyone, I like to dim

Similar Threads

  1. I GOT ERROR WIT "HOW TO MAKE YOUR OWNS HACKS"
    By LiL-kILLER in forum Combat Arms Hacks & Cheats
    Replies: 47
    Last Post: 07-17-2009, 01:25 PM
  2. How to make your own hacks?
    By BladeZ in forum General Game Hacking
    Replies: 1
    Last Post: 07-02-2009, 04:27 AM
  3. how to make your own hacks
    By julius026 in forum Combat Arms Hacks & Cheats
    Replies: 11
    Last Post: 05-03-2009, 10:50 PM
  4. how to make your own hack!
    By blue213321 in forum WarRock - International Hacks
    Replies: 1
    Last Post: 04-25-2009, 04:38 PM
  5. {TUT} How to make your own opk hack
    By mandog10 in forum Combat Arms Hacks & Cheats
    Replies: 28
    Last Post: 08-13-2008, 02:44 PM

Tags for this Thread