Program security (preventing sharing)

[Savio]

Hi there,

I have written a program in VB 6.0 and I want to sell it to a client. I do not wish that the client distributes my program to someone else. Can anyone guide me to code in a program that will recognise only that clients computer to whom I am selling it to?

Pls help.

[jamesd0142]

Hi there,

I have written a program in VB 6.0 and I want to sell it to a client. I do not wish that the client distributes my program to someone else. Can anyone guide me to code in a program that will recognise only that clients computer to whom I am selling it to?

Pls help.

Im new to vb.net but...

i dont know how to do it but how about detecting their windows seriel key.

you could...

detect the seriel key encrypt it and store in a txt file, then everytime the programme loads retrieves the seriel key, encrypt it again and run a compare statement to check if it matches that stored in the text file.

Thanks
thanks

[Ali Rizwan]

Im new to vb.net but...

i dont know how to do it but how about detecting their windows seriel key.

you could...

detect the seriel key encrypt it and store in a txt file, then everytime the programme loads retrieves the seriel key, encrypt it again and run a compare statement to check if it matches that stored in the text file.

Thanks
thanks

Two persons also have same key or they can solve it by using the same copy of windows.
I think if we use the computer name it can solve the problem or computer configuartion or any thing else but not windows serial key.
OK
GOODLUCK

[Killer42]

Two persons also have same key or they can solve it by using the same copy of windows.

If that's the case, then at least one of them is an illegal copy and you should not support it.

[kZero]

Try this code

Private Declare Function GetVolumeInformation Lib "Kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Private Sub Form_Load()
    Dim Serial As Long, VName As String, FSName As String
    VName = String$(255, Chr$(0))
    FSName = String$(255, Chr$(0))
    GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
    VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
    FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
    Serial = Replace(Trim(Str$(Serial)), "-", "")
    MsgBox "Your Serial Number is " & Serial
    x = InputBox("Enter Activation Code for the serial " & Serial)
    ''' Make other Application for you to make the activation code and put in it this small code
    ' Serial = the serial that the customer will give you
   ' Activation = Val(Serial) * 50 / 5454 + 1542
    If x = Val(Serial) * 50 / 5454 + 1542 Then MsgBox "Activated" Else MsgBox "Invalid Activation Code"
End Sub

[Savio]

Thanks kZero. Shall try this out and see what I can do.

Try this code ...