VOU TENTAR FAZER UM SISTEMA DE SEGURANCA
estou tentando fazer um esquema tipo o do weber so que bem amis simples
o banco nao tem senha
o prog abrira por 30 vezes
assim que eu terminar vou liberar o exe e quero ver se alguem descobre o codigo
para eu ver se funciona
claro que o do meu colega weber é bem melhor foi ver oque ele consegue fazer que me fez pensar nisso se alguem quiser me ajudar fico agradecido
o banco nao tem senha
o prog abrira por 30 vezes
assim que eu terminar vou liberar o exe e quero ver se alguem descobre o codigo
para eu ver se funciona
claro que o do meu colega weber é bem melhor foi ver oque ele consegue fazer que me fez pensar nisso se alguem quiser me ajudar fico agradecido
manda ai: jean@mormaii.com.br
Manda para mim tb...
Valeu.
Até mais...
Valeu.
Até mais...
só to com um problema como numero de serie do hd no winXP assim que eu resolver eu envio
para obter o numero do hd no computador
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
'declaração da variavel para obter o nome do computador
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim vhd As Long 'numero de serie do H.D.
Dim vhdn As String 'nome do H.D.
Dim vhdt As String 'tipo de H.D.
Dim vhdc As String * 255 'nome do computador
Public Function DriveSerialNumber(strDrive As String) As String
Dim X As Long, lngSerialNum As Long 'numero serial H.D.
Dim strRoot As String 'rota do H.D.
'obtendo a rota do serial
strRoot = Left$(strDrive, 1) & ":\"
'obtendo o caminho da rota
X = GetVolumeInformation(strRoot, "", 0, lngSerialNum, 0, 0, "", 0)
'definição do drive padrão
DriveSerialNumber = Hex$(lngSerialNum)
End Function
'montando o nome HD
vhdn = String$(255, Chr$(0))
'montadno o tipo HD
vhdt = String$(255, Chr$(0))
'obtendo as informações do HD
GetVolumeInformation "C:\", vhdn, 255, vhds1, 0, 0, vhdt, 255
'carrega o número do H.D.
label1.Caption = vhds
'se fosse para carregar o nome ou o tipo
text1.Text = vhdn ou vhdt
'carrega o nome do computador
If (GetComputerName(vcpn1, 255)) Then
nomecomp.cpation = vcpn1
End If
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
'declaração da variavel para obter o nome do computador
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim vhd As Long 'numero de serie do H.D.
Dim vhdn As String 'nome do H.D.
Dim vhdt As String 'tipo de H.D.
Dim vhdc As String * 255 'nome do computador
Public Function DriveSerialNumber(strDrive As String) As String
Dim X As Long, lngSerialNum As Long 'numero serial H.D.
Dim strRoot As String 'rota do H.D.
'obtendo a rota do serial
strRoot = Left$(strDrive, 1) & ":\"
'obtendo o caminho da rota
X = GetVolumeInformation(strRoot, "", 0, lngSerialNum, 0, 0, "", 0)
'definição do drive padrão
DriveSerialNumber = Hex$(lngSerialNum)
End Function
'montando o nome HD
vhdn = String$(255, Chr$(0))
'montadno o tipo HD
vhdt = String$(255, Chr$(0))
'obtendo as informações do HD
GetVolumeInformation "C:\", vhdn, 255, vhds1, 0, 0, vhdt, 255
'carrega o número do H.D.
label1.Caption = vhds
'se fosse para carregar o nome ou o tipo
text1.Text = vhdn ou vhdt
'carrega o nome do computador
If (GetComputerName(vcpn1, 255)) Then
nomecomp.cpation = vcpn1
End If
Iceman esse seu sistema é para proteger o EXE ou MDB, pois pelo que entendi ele ficará aberto para acesso pelo próprio ACCESS?
Acho que há uma grande diferença nas duas coisas, e ambas devem estar ligadas, proteger o MDB e o EXE para uso ou Decompilação.
- Sobre proteção o MDB estamos com o projeto promissor do WEBER
- Sobre decompilação existem programas, inclusive um aqui no site UPX, para compressão do EXE o que impede sua leitura Hexa.
- Sobre uso do programa sem registro, bem aqui já é outro papo e cada colega tem seu "esquema" que para hackers não são muito difÃceis de burlar.
Acho que há uma grande diferença nas duas coisas, e ambas devem estar ligadas, proteger o MDB e o EXE para uso ou Decompilação.
- Sobre proteção o MDB estamos com o projeto promissor do WEBER
- Sobre decompilação existem programas, inclusive um aqui no site UPX, para compressão do EXE o que impede sua leitura Hexa.
- Sobre uso do programa sem registro, bem aqui já é outro papo e cada colega tem seu "esquema" que para hackers não são muito difÃceis de burlar.
sim vai proteger o programa
para poder rodar em outro pc será necessário pedir um código a quem fez o programa
resumindo
os pirateiros que se f......
para poder rodar em outro pc será necessário pedir um código a quem fez o programa
resumindo
os pirateiros que se f......
ai que esta caro weber o número do hd em windows xp fica como 0
De uma olhada nesse endereço:
http://www.vbmania.com.br/vbmdetail.php?varID=2360
coloquei um exemplo pra pegar nº de serie do fabricante do HD...funciona no XP tb.
Ate...
Lucila
http://www.vbmania.com.br/vbmdetail.php?varID=2360
coloquei um exemplo pra pegar nº de serie do fabricante do HD...funciona no XP tb.
Ate...
Lucila
vou enviar para todo mundo.
quero que temtem abrir e fazer o prog se encerar descobrindo o codigo
quem nao conseguir peço uma resposta de cada um com o numero que vai aparecer
na tela paço a chave para vcs
quero que temtem abrir e fazer o prog se encerar descobrindo o codigo
quem nao conseguir peço uma resposta de cada um com o numero que vai aparecer
na tela paço a chave para vcs
mais alguem?????
Tópico encerrado , respostas não são mais permitidas