|
|
Postada em 08/06/2005 19:28 hs
Pessoal, estou precisando proteger um soft para que ele seja instalado apenas em um cpu, protegido ate mesmo no caso de clonar o hd.... Tenho um que protege baseado na condiçao apenas na data q esta liberada para uso... so q estou precisando de algo q nao permita instalar em outro cpu... Verifiquei o modelo do PC.. mas estou com muitas duvidas!!! Alguem pode me ajudar
"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"
|
|
|
|
|
|
|
|
Postada em 08/06/2005 19:50 hs
O do PC é muito bom... mas tb tem restriçoes...
Eu uso um meu proprio... nao sei se é melhor q o do pc, pois nunca comparei...
Se vc nao precisar de um nivel de seguranca muito alto, vc pode usar o ActiveLock, que é open-source, ai vc pode adaptar pra sua necessidade... mas se vc precisar de algo mais seguro, sugiro q vc compre um, pois ai a responsabilidade passa a empresa q vendeu... tem um bom de fabricacao brasileira, do grupo q desenvolve o GAS... eu nao me lembro o site agora...
Devem haver outros, mas eu nao conheço...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
 "O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
Léia
|
GOIANIA
GO - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 08/06/2005 20:13 hs
Entao.. tenho um q controla pela data.. mas preciso q trave se for instalado em outra maquina... Quer dar uma olhadinha no meu....e se tiver como modificar para verificar o serial dai vc me ajuda!
"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"
|
|
|
|
Jefferson
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 08/06/2005 21:58 hs
Coloque isto na seção General Declarations
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
Public Function DriveSerialNumber(strDrive As String) As String
Dim x As Long, lngSerialNum As Long
Dim strRoot As String
strRoot = Left$(strDrive, 1) & ":"
x = GetVolumeInformation(strRoot, "", 0, lngSerialNum, 0, 0, "", 0)
DriveSerialNumber = Hex$(lngSerialNum)
End Function
-----------------------------
Código do botão de Comando
Private Sub Command1_Click()
Text1.Text = DriveSerialNumber("C:")
End Sub
Observe o resultado. Será mostrado o número da HD.
Utilize este código p/ validar o seu sistema. OK!
|
|
|
|
Léia
|
GOIANIA
GO - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 09/06/2005 11:23 hs
Jeferson, testei dai o numero q ele esta devolvendo é o 0... Explica para mim... estou com tantas duvidas! Esses anti-pirataria eles tem q estar em qual parte no programa (mdi, form, modulos)... pq estou implementando eles sempre antes da execuçao do mdi ou form principal.. entao toda vez o usuario executa o programa ele pede essa liberaçao.. acredito q esteja errado! Ai...como é dificil é o primeiro soft q estou vendendo, tenho varios outros na empresa do meu pai dai nunca tive esse tipo de problema, mas agora estou precisando de ajuda urgente!!
"Quem tem o Filho de Deus tem a vida ! (I Joao5:12)"
|
|
|
|
|
|
Postada em 09/06/2005 16:22 hs
Léia,
Vou te dar um conselho pratico. Usa o ActiveLock... é pouco seguro (qq usuario com conhecimento medio de Windows altera seus valores no registro) mas pelo menos vai quebrar um galho ate vc poder usar outro, ou desenvolver o seu mesmo...
Nao lembro o link onde baixar o ActiveLock, mas no site do Macoratti tem um artigo q ensina usar, e ainda traz o link de download...
http://www.macoratti.net/locking.htm
Espero q isso te ajude...
Elieser Carlos Topassi
Analista de Sistemas - Desenvolvedor VB/ASP/.Net
e-mail/msn: elieser_topassi@yahoo.com.br
São José do Rio Preto,SP - Brasil
_____________________________________________________
"O caminho do tolo aos seus prórios olhos lhe parece reto, mas o sábio ouve conselhos" (Pv 12:15)
|
|
|
|
|
