HowTo: FingerPrints for your program.

Here is a very simple way to add a finger print system to your. This is my first contribute to this forum, so PLEASE give me lots of feedback :wave:

First make a new project and add two text boxes. For text1, make it locked. Add a winsock1 control, and put the following code on form load:

Code:

---

Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP
End Sub

---

Now add a third textbox and the following code:

Code:

---

Private Sub Text1_Change()
       
    Dim result As Long
    For calc = 1 To Len(Text1)
        result = result + Asc(Mid(Text1, calc, 1)) * 123456 + Len(Text1)
    Next calc
    Text3 = Hex(result) + Hex(Len(Text1))
    If Text1 = "" Then
    Text3 = ""
    End If

End Sub

---

************************
Now... Text3 is what the users code is going to be, so you will need to resize your form so the user can't see it. The code depends on what the IP is, making it so you can limit to who gets your application. So one person can't get a code and give to someone else(all ip's are different). You should know on from here on how to make your fingerprint system,if no, then continue.
************************
Add a command button with its caption saying verify, and add the following code.

Code:

---

Private Sub Command1_Click()
If Text2.Text = Text3.Text Then
MsgBox "Correct, now use my program!"
'show the main form of ur program
Else
MsgBox "Sorry, but the verification code is not correct"
End If
End Sub

---

Now run the program :) If you get the right verification code, you can use program, but if not you cant :(. When your done with this whole thing, the code should look somewhat like this:

Code:

---

Private Sub Command1_Click()
If Text2.Text = Text3.Text Then
MsgBox "Correct, now use my program!"
Else
MsgBox "Sorry, but the verification code is not correct"
End If
End Sub

Private Sub Form_Load()
Text1.Text = Winsock1.LocalIP
End Sub
Private Sub Text1_Change()
       
    Dim result As Long
    For calc = 1 To Len(Text1)
        result = result + Asc(Mid(Text1, calc, 1)) * 123456 + Len(Text1)
    Next calc
    Text3 = Hex(result) + Hex(Len(Text1))
    If Text1 = "" Then
    Text3 = ""
    End If

End Sub

---

There, see!! its not alot, you now have your own verifying system, keep in mind that you can change what the verify outcome will be if people try to crack it, just change:

Code:

---

result = result + Asc(Mid(Text1, calc, 1)) * 123456 + Len(Text1)

---

To

Code:

---

result = result + Asc(Mid(Text1, calc, 1)) * 12345678 + Len(Text1)

---

cool, so now on my trainers for games it wont get leaked + etc

Where is the value for Text2 set?