SEGURANCA
O que eles estão propondo é vc fazer um programa shareware, seja com tempo de funcionamento limitado ou com funções limitadas, o programa ao rodar em cada maquina gera um numero de registro baseado em numero de hd, bios etc..... o cliente que interessar em comprar seu programa, te manda um e-mail com o numero de registro dele. Aà vc manda o e-mail contendo o serial number baseado no registro dele entende?
tipo assim vc cria um algoritimo cuja chave é o numero do hd + 123456 ele te manda o numero de registro que apareceu no programa dele, este numero é diferente de uma maquina para outra. baseado no numero dele vc sabe que o serial number é o numero que ele te mandou + 123456, aà vc manda o serial number para ele.
é claro que vc tem que bolar um algoritimo mais dificil do q este mas a idéia é esta.
Vc ainda tem que manter o historico dos seus clientes para no caso dele trocar de maquina ele te manda a solicitação do serial de novo.....
tipo assim vc cria um algoritimo cuja chave é o numero do hd + 123456 ele te manda o numero de registro que apareceu no programa dele, este numero é diferente de uma maquina para outra. baseado no numero dele vc sabe que o serial number é o numero que ele te mandou + 123456, aà vc manda o serial number para ele.
é claro que vc tem que bolar um algoritimo mais dificil do q este mas a idéia é esta.
Vc ainda tem que manter o historico dos seus clientes para no caso dele trocar de maquina ele te manda a solicitação do serial de novo.....
joão carlos, gostei da ideia mais o codigo de pegar o serial do hd é mostrado em um msgbox, e não estou conseguindo mudar para q mostre num txt.
alguem sabe como faço para aparecer o serial do hd num txt?
alguem sabe como faço para aparecer o serial do hd num txt?
no lugar de:
MsgBox "O número seirial do HD é: " & lNSerial
coloca:
text1.text = lNSerial
MsgBox "O número seirial do HD é: " & lNSerial
coloca:
text1.text = lNSerial
eu fiz isso, mais quando inicio o form aparece no text = inserial.
tenta com este codigo aÃ
310 - Número de série do HD, sem API
Para pegar o número de série de um HD utilize o seguinte código:
Dim lSerial as LongDim fso As New FileSystemObject, drvDrive As Drive 'Pega as informações do drive c:Set drvDrive = fso.GetDrive(left(fso.GetDriveName("c:\"), 2)) 'Pega o número de série do HDlSerial = drvDrive.SerialNumber
E não esqueça de adicionar aos references do seu projeto a seguinte biblioteca
"Microsoft Scripting Runtime", senão não funciona
Obs. o codigo não foi testado, retirei ele da apostila 456dicasVB.
310 - Número de série do HD, sem API
Para pegar o número de série de um HD utilize o seguinte código:
Dim lSerial as LongDim fso As New FileSystemObject, drvDrive As Drive 'Pega as informações do drive c:Set drvDrive = fso.GetDrive(left(fso.GetDriveName("c:\"), 2)) 'Pega o número de série do HDlSerial = drvDrive.SerialNumber
E não esqueça de adicionar aos references do seu projeto a seguinte biblioteca
"Microsoft Scripting Runtime", senão não funciona
Obs. o codigo não foi testado, retirei ele da apostila 456dicasVB.
está com erro.
Melhorei a tabulação
Private Sub Command1_Click()
Dim lSerial As Long
Dim fso As New FileSystemObject
Dim drvDrive As Drive
Set drvDrive = fso.GetDrive((fso.GetDriveName("c:\")))
lSerial = drvDrive.SerialNumber
MsgBox lSerial
End Sub
deu o seguinte erro:
erro de compilação:
o tipo definido pelo usuario não foi definido.
p q?
erro de compilação:
o tipo definido pelo usuario não foi definido.
p q?
Um sistema de validação de uma chave via internet seria o melhor de que ficar "enfiando" um monte de api para pegar um monte de info do computador!
Se o computador dos cara for formatado ou eles migrar por XP e converter a partição FAT32 para NTFS ... e ai? este sistema falhou!
faça, assim:
para aquele cliente, vc dá uma chave com todas as informações , algo criptografado como:
5f8e1e5fa5ffebc85471177ac8d9f ...
depois de instalar o sistema, na primeira execução o técnico colocaria a chave eo programa faria um autenticação com a mesma chave num site ou servidor asp por exemplo.
Definindo como um licença para cada máquina, se a empresa tiver 50 máquinas, serão 50 validações, se o pessoal usar a mais ou a menos, vc vai investigar. Junto com está validação vc pode até mandar o nome da máquina,a versão do sistema e até mesmo o numero do hd se preferir ...
Muitos programas famosos usam isso, inclusive o proprio Windows com o novo WGA!
entendeu?
é apenas uma sugestão!
pois veja, apenas um valor no registro pode ser craqueado ou coisa parecida ...
Se o computador dos cara for formatado ou eles migrar por XP e converter a partição FAT32 para NTFS ... e ai? este sistema falhou!
faça, assim:
para aquele cliente, vc dá uma chave com todas as informações , algo criptografado como:
5f8e1e5fa5ffebc85471177ac8d9f ...
depois de instalar o sistema, na primeira execução o técnico colocaria a chave eo programa faria um autenticação com a mesma chave num site ou servidor asp por exemplo.
Definindo como um licença para cada máquina, se a empresa tiver 50 máquinas, serão 50 validações, se o pessoal usar a mais ou a menos, vc vai investigar. Junto com está validação vc pode até mandar o nome da máquina,a versão do sistema e até mesmo o numero do hd se preferir ...
Muitos programas famosos usam isso, inclusive o proprio Windows com o novo WGA!
entendeu?
é apenas uma sugestão!
pois veja, apenas um valor no registro pode ser craqueado ou coisa parecida ...
caspereark, boa ideia mais como faço isso.
observação:
pessoal quando vcs mandar uma sugestão mande a solução.
obrigado.
observação:
pessoal quando vcs mandar uma sugestão mande a solução.
obrigado.
Tópico encerrado , respostas não são mais permitidas