Segurança

[Elbrinner 0]

Tenho um cliente com o programa pronto ele quer apenas que coloque uma forma seguro que permita instalar apenas uma licença por pc. Tem como fazer isso?Estava pensando em pegar o numero da placa mãe e criar um código.É difícil fazer?O que vcs me recomendam

[Elbrinner 0]

Vejo que é complicado, alguma diga por onde começar?

[Tameirão 0]

Pegue o Serial Number do HD.

Feito isso, só deixe rodar se for nesse SNº.

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 LongPrivate Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Function funcaoHD_SERIAL(ByVal vStrDrive As String) As String'Funcao responsavel por retornar o numero Serial do HD      Dim NumSerial As Long    Dim HDNameBuffer As String * 256  'Nome do HD    Dim FSBuffer As String * 256      'FileSystem do HD    Dim VarA As Variant, VarB As Long     'Auxiliar        Call GetVolumeInformation(Drive, HDNameBuffer, 256, vLngNumSerial, VarA, VarB, FSBuffer, 256)        funcaoHD_SERIAL = NumSerial    End Function

[blac3r 0]

ou use o activelock.www.activelock.com