HowTo: FingerPrints for your program.

[VB Code]

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

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:

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

Now add a third textbox and the following 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.

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:

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:

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

To

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