[TuT] How to make PW and value box for Guns/Superjump/SkyStormer(VB6)

[jokuvaan11]

Do nOT LEECH THIS
INFORMATION
Clause after ' is instruction
DON'T COPY THIS RIGHT TO YOUR TRAINER CUZ IT DON'T WORK THEN
Here it comes:

Value Box:
1.Start VB6
2.Open project or start new
3.First you make button for Guns and write code:

    Dim gun As Long
    Dim gun1 As Long
    Dim gun2 As Long
    Call ReadALong("WarRock", &H¤address¤, gun)
    gun1 = gun + &H¤pointer¤
    gun2 = TextX 'TextX is text box where you write number of your gun
    Call WriteALong("WarRock", gun1, gun2)

Then you just make textbox and run program
you can write number of gun to the textbox!

PassWord:
1.start VB6
2.open project or start new
3.Make new Form, create textbox and timer
4.Set timer interval to 100
5.write this code to timer:

If GetKeyPress(vbKeyReturn) Then   'return mean "ENTER"
   If Text1.Text = "write password here" Then  'here you write your own PW
      Form1.Hide   'If your password Form Is called Form1 write Form1 here
      Form2.Show  'If your Trainer Form Is called Form2 write Form2 here
End If
End If   'remember 2x end if

now just start program and write your password

HAVE A NICE DAY!!!

[dikketr0l]

The password doesn't work....

[dezer]

better password protection:
on ur project, click on Form1 or however its colled for u, chose Add, then Form, chose Log in Dialog. Doubleclick OK, here's where u set the password:

If txtPassword = "password" Then

just change the "password" to any string or combination of letters/numbers, so it can be like:

If txtPassword = "asd12a234" Then

password will be asd12a234
the username doesnt matter, can be left as empty blank.
thats the OK code:

Private Sub cmdOK_Click()
    'check for correct password
    If txtPassword = "asd" Then
        'place code to here to pass the
        'success to the calling sub
        'setting a global var is the easiest
        LoginSucceeded = True
        Me.Hide
    Else
        MsgBox "Invalid Password, try again!", , "Login"
        txtPassword.SetFocus
        SendKeys "{Home}+{End}"
    End If
End Sub

After Me.Hide place YourFormName.Show.

on the right side of ur screen there's a tree listing, right click Project1 or however ur project is called, then do YourProjectName Properties... and at Startup Object choose frmLogin. U can simply delete the username textbox or code it so it will check for username too.

Attached example app with login

[jokuvaan11]

It Is Your Style I Have My Own!!

[dezer]

some1 said ur isnt working

[mains3rv3r]

the password code looks very familiar...

[dezer]

its yours :/

[mains3rv3r]

its yours :/

oh well... what's new...

[kyo]

note that any clear text password in VB6 can be cracked by anyone with a little brain in about 2 minutes
(if you don't believe it, make one and send it to me )

[mains3rv3r]

Hmmm you're thinking of using a decompiler... if I really wanted to I could easily encrypt the entire file and you wouldn't be able to decompile anything... yes I know it can be done because I do it with others that are made this way, but if you can do this, then I don't see why you're not trusted to have the hack... but it can be stopped the way you're thinking.

[kyo]

personaly i prefer to just encrypt the password into an md5 hash.
works perfectly

[ltkort213]

so..............
this is the wright code??:

Private Sub Command1_Click()
Dim gun As Long
    Dim gun1 As Long
    Dim gun2 As Long
    Call ReadALong("WarRock", &H896E28, gun)
    gun1 = gun + &H4C
    gun2 = Text1
    Call WriteALong("WarRock", gun1, gun2)
End Sub

[jokuvaan11]

so..............
this is the wright code??:

Private Sub Command1_Click()
Dim gun As Long
    Dim gun1 As Long
    Dim gun2 As Long
    Call ReadALong("WarRock", &H896E28, gun)
    gun1 = gun + &H4C
    gun2 = Text1
    Call WriteALong("WarRock", gun1, gun2)
End Sub

YES THAT IS RIGHT CODE I THINK!!
You must cheack just address and pointer

[M-Tune]

The password doesn't work....

Damn that 'value box' thing was Copy-pasted from my topic!
LEECHER BAN HIM HES' NOOB

[jokuvaan11]

I did this TUT myself