(tut) how to make you own hack with working adresses and undetected module

[luddie]

note: i updated the adresses but the adresses in the tut are old i am to laze to update them but at the buttom there are the working adresses
Step ONE.
first u need visual basic here is a download [Only registered and activated users can see links. ] (click on link to download)
Open visual basic and press New Standard Application.
- Once it is open. Shape your application and get it ready for hack making.

2. At the top of VB, Press Project > Add module
- click on module and press Open.

add the following code to it (It is long, make shure u get it all)

Option Explicit
Public Declare Function D8A681DE Lib "user32" Alias "GetWindowThreadProcessId" (ByVal hWnd As Long, lpdwID As Long) As Long
Public Declare Function B99B9EEF Lib "kernel32" Alias "OpenProcess" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwID As Long) As Long
Public Declare Function DBE400D1 Lib "kernel32" Alias "WriteProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function AE3F95B9 Lib "kernel32" Alias "CloseHandle" (ByVal hObject As Long) As Long
Public Declare Function F1B2AAF1 Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long
Public Declare Function D80555F3 Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function E6FE487C Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
'WriteALong
Public Function E2BE9DB7(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&
AE3F95B9 A199DFD1
End Function
'WriteAByte
Public Function CB21D5D8(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
DBE400D1 A199DFD1,AC1DD600,EA69628F,1, 0&
AE3F95B9 A199DFD1
End Function
'WriteAFloat
Public Function A55D798B(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
DBE400D1 A199DFD1,AC1DD600,EA69628F,4, 0&
AE3F95B9 A199DFD1
End Function
'ReadALong
Public Function C2646E6D(AC1DD600 As Long, EA69628F As Long)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&
AE3F95B9 A199DFD1
End Function
'ReadAByte
Public Function A4D2B04C(AC1DD600 As Long, EA69628F As Byte)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
D80555F3 A199DFD1,AC1DD600,EA69628F,1, 0&
AE3F95B9 A199DFD1
End Function
'ReadAFloat
Public Function D298A93C(AC1DD600 As Long, EA69628F As Double)
Dim B8AE2B13 As Long
Dim A199DFD1 As Long
Dim A4EF8B4D As Long
B8AE2B13= F1B2AAF1(vbNullString, "WarRock")
If (B8AE2B13= 0) Then
Exit Function
End If
D8A681DE B8AE2B13,A4EF8B4D
A199DFD1= B99B9EEF(&H1F0FFF, False,A4EF8B4D)
If (A199DFD1= 0) Then
Exit Function
End If
D80555F3 A199DFD1,AC1DD600,EA69628F,4, 0&
AE3F95B9 A199DFD1
End Function
'WriteASM
Public Function A2E8481F(Address As Long, ASM As String)
Dim i As Integer
Dim i2 As Integer
i2 = 1
While i < (Len(ASM) / 2)
Call CB21D5D8(&H0, Val("&H" & Mid$(" & ASM & ", i2, 2)))
i = i + 1
i2 = i2 + 2
Wend
End Function


(I reccomend putting that code in a text file for later use)

What that long ass code does is lets ur hack edit warrock settings (memory)

Once that long code is in there.. Just Close out of the module box (it will save automatically)


Step THREE..

In visual basic In the general tab at the left side of visual basic. Press Command Button (double click to make one)

A new command button should show up in your application area..

After you made the button you probbaly want to make it say something else than Command1 right? Well ok.

Click on the button once so it is selected. In the Properties box (Right)
DO NOT CHANGE THE (NAME) OF THE BUTTON
Change the Caption of the button. As shown here.


Ok congratultions you made the button but it does nothing..

So lets make it do something. Lets make it have us Unlimited stamina.

But before we start doing this, you need to make a new timer.

That is also in the general tab

Make one ( do not name it or anything because it does not show up in the finished hack so dont even worry about it just ignore it )

So after you made the Timer, Double click on it. Enter the following code:
(This is for no recoil/no spread)


Quote:
Call E2BE9DB7(&HAEFF34, 0)
Call E2BE9DB7(&HAEFF3C, 0)

So your wondering what this means.

Well E2BE9DB7 means WriteALong so it means to write a value inside or warrock.
Well &HAEFF34 is the address for recoil, and 0 is no recoil.


After you did that.. Make a NOTHER button. Name it OFF or something that means no more or off (duh)

So you should now have:

two buttons
and a timer

Double click on the first button you made.

Type in the following code:


Quote:
Timer1.Interval = 1
What that code does is takes the Timer that we made and puts it into gear

the syntax is like this.
(timer name).interval = (1/0)
1 = ON
0 = OFF

So it is kind of self explanitory what we will do for the Off button?

For the de da dees who dont know what to do for the off button..
well put this code in it..


Quote:
Timer1.Interval = 0
That takes the timer and makes the stamina go back to normal state.

CONGRATULATIONS you just made an no recoil/spread hack.
BUT u are probbaly saying "Yea thats cool but i want more!"

Well you read the right tutorial for that..

Ok.

Place your buttons nicely and evenly if you want it to be cool
Like i said earlier dont worry about the timer as it will not show up.


now a 5th slot hack

Ok. First you need to make 1 timer and 2 buttons again




Open the timer and put in this code and put

Quote:
Call E2BE9DB7(&HD1A4A8, 4)

ok like you see this code for fifth slot is almost the same as the no recoil and
no spread code the difference is 1A4A8 that is the adress and the 4 that is the value

Now what you want to do is make a new button and name it like
Now since we made a timer1 already ( nospread/recoil) We will not have timer1 in this. So this one is timer2.
So it will be.

Quote:
Timer2.Interval = 1
that makes u can put in a fifth gun (normally for premium)
Now you want to make a new button and name it like no spread off
double click on it and put in ( If you have been paying attention you would know what to put)

Quote:
Timer2.Interval = 0
now u know how to make that hacks u also know how to make hacks for other thing but you ust need the adresses and the value's for it i'll give it now..


Player Pointer:
1332A20

Stamina:
1332A20 + 288 : Value = Freeze to 1120403456

Weapons:
1332A20 + 4C : Value = Change from 1-82

Sky Walker:
1332A20 + 178 : Value = Freeze to 500+

Super Jump:
1332A20 + 178 : Value = Write 500+

No Fall Damage:
1332A20 + 260 : Value = Freeze to -2000

Scope:
AFB76A : Value = Freeze to 1 (1x Zoom)
AFB76A : Value = Freeze to 2 (2x Zoom)

Player Boxes:
AFB792 : Value = Freeze to 1

Vehicle/Gps/Site/Flag... Circles:
AFB791 : Value = Freeze to 1

Spread:
AFB7B8 : Value = Freeze to 0
AFB7BC : Value = Freeze to 0

Fast Flag:
AFB780 : Value = Freeze to 1092779973

Fast Ammo:
AFB774 : Value = Freeze to 1092779973

Fast Repair:
AFB77C : Value = Freeze to 1092779973

Fast Health:
AFB778 : Value = Freeze to 1092779973

Full Bright:
B16888 : Value = Freeze to 1
B1688C : Value = Freeze to 1
B16890 : Value = Freeze to 1

No Fog:
B16804 : Value = 100000

Glass Walls:
B16804 : Value = 0

Crosshair:
AFB790 : Value = Freeze to 1

Instant Spawn:
D78158 : Value = Freeze to 0
10824DC : Value = Freeze to 0

Slots:
D6D9C8 : Value = Freeze to 4 (Slot 5)
D6D9C8 : Value = Freeze to 5 (Slot 6)
D6D9C8 : Value = Freeze to 6 (Slot 7)
D6D9C8 : Value = Freeze to 7 (Slot

Invisibility:


ok if u have questions ask it to me if I helped you thank me
ps: i"ll update the adresses after updates



I copied somethings of jdogg's tut I give some credits to him and to tm from **** for adresses, but i made this tut with working adresses and undetected module so this is not leeched!!!

[seth26jan]

This is leeched..like everything in this forum.

[luddie]

no that is not true i made it by myself but i just copied some things of the tut of jdogg and gave him some credits but that tut didn't had working adresses and an undetected module so this is not leached!!!!!!!!!!!

[Dimondz]

Dude Give Credits To Dxt- Str8-soulja He Got Those Addies

[luddie]

o ya i forgot to give credits to him srry thanx diamondz.

[terrence111]

Wow, nice tutorial; hopefully this will obliterate the point of begging... Very nice!

[luddie]

Originally Posted by terrence111

Wow, nice tutorial; hopefully this will obliterate the point of begging... Very nice!

thanx
man

[terrence111]

Glass Walls... Call E3BE9DB7(&B0AF90, 0) = Red, Compile Error :(
Some of these addresses give me errors...

[krzysiekcompl]

wow very nice turtorial

[luddie]

Originally Posted by terrence111

Glass Walls... Call E3BE9DB7(&B0AF90, 0) = Red, Compile Error :(
Some of these addresses give me errors...

you need to to Call E3BE9DB7(H&B0AF90, 0)