[Tutorial]Making an Integer Unchangable[Vb.net]
Hi! Today im going to show you how to keep those pesky hackers away
!!
(FOR MORE INFO READ THE DETAILS AFTER EVERY LINE OF CODE)
Picture:

Ok first your gonna want to lay down some Dims!
(PUT THIS UNDER "Public Class Form1")
Ok Now if you ever wanted to change the Base integer this is what you will need to do so your program doesn't detect a force change.
(YOU CAN ADD THIS TO A BUTTON TO MAKE A RANDOM NUMBER)
Now for the Detection, your going to want to make a timer for this and set the interval to 1 milisecond.
(ALWAYS HAVE THE TIMER ENABLED FOR FULL PROTECTION)
And your done! I've provided the EXE file in the atachment 
Scans:
1: cant hack me.exe - Jotti's malware scan
2: VirusTotal - Free Online Virus, Malware and URL Scanner
!!(FOR MORE INFO READ THE DETAILS AFTER EVERY LINE OF CODE)
Picture:

Ok first your gonna want to lay down some Dims!
(PUT THIS UNDER "Public Class Form1")
Code:
Dim Integer1 As Integer = 0 'The Base integer Dim Integer2 As Integer = Integer1 * 2 'The Base integer Multiplied by 2 to make it harder to crack Dim AllowChange As Boolean = False 'if True you will be free to change the number Dim oldNumber As Integer = 0 'The Number that the hacker is trying to change. Dim RandomNumbers As New Random() 'This Will be the base for generating a random number!
(YOU CAN ADD THIS TO A BUTTON TO MAKE A RANDOM NUMBER)
Code:
oldNumber = Integer1 'So We know what to change the number back to allowChange = True 'Allow us to change the variable Integer1 = RandomNumbers.Next(0, 100) 'Change the number (Minumum random, Max Random) allowChange = False 'Stop anybody from changing the integer Integer2 = Integer1 * 2 'Set the Multiplied Variable
(ALWAYS HAVE THE TIMER ENABLED FOR FULL PROTECTION)
Code:
Label2.Text = Integer1 'Refresh the number
If Integer1 = Integer2 / 2 = False Then 'If the number is changed then...
If allowChange = False Then 'If it is forced then...
Integer1 = oldNumber 'Change the number back to the original
Integer2 = Integer1 * 2 'Reset integer2 back to the original * 2
MsgBox("Stop Trying...") 'Give them a message xD
End If 'End the second If statement
End If 'End the first If statement

Scans:
1: cant hack me.exe - Jotti's malware scan
2: VirusTotal - Free Online Virus, Malware and URL Scanner
cant hack me.rar


