Tutek jak zrobic hacka

[Gość]

tutka nie ja robilem mam do z innej strony.

 

Step ONE.

first u need visual basic here is a download link (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 unlimited stamina 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..

No Spread : AEFF34 : Value = Freeze to 0

 

No Recoil : AEFF3C : Value = Freeze to 0

 

Full Bright :

B0B010 : Value = Freeze to 1

B0B014 : Value = Freeze to 1

B0B018 : Value = Freeze to 1

 

No Fog : B0AF8C : Value = Freeze to 1176256512

 

Glass Walls : B0AF90 : Value = Freeze to 0

 

Fast Ammo, Flag, Health, Vechile Repair :

AEFEF0 : Value = Freeze to 1092779973

AEFEF8 : Value = Freeze to 1092779973

AEFEF4 : Value = Freeze to 1092779973

AEFEFC : Value = Freeze to 1092779973

 

5th Slot : D1A4A8 : Value = Freeze to 4

 

Scope : AEFEE6 : Value = Freeze to 1

 

Instant Spawn : 104690C D24C38 : Value = Freeze both to 0

 

 

 

ok if u have questions ask it to me if I helped you thank me

ps: i"ll update the adresses after updates

Crosshair : AEFF0C : Value = Freeze to 1

 

Vehicle GPS/Circles : AEFF0D : Value = Freeze to 1

 

Player Boxes : AEFF0E : Value = Freeze to 1

 

Xhair : AEFF12 : Value = Freeze to 1

 

 

mam nadziej na *****

[ramzess_lodz]

Fajny tut, ale jakbyś napisał strone z której masz go to by było fajnie, bo linki nie chodzą ;/.

[error94]

Sorki za Spam ale jeżeli ktoś chce sie dołączyć to możemy razem coś stworzyć wiem jak to sie robi jednak mam problem z modułem jednak razem możemy dać rade tak wieć GG 8557274 . Jeżeli ktoś nie iwem oco w tym chodzi niech nie pisze

[Gość]

to byl robione w vb6