SENHA EM UM CODIGO FONTE.

USUARIO.EXCLUIDOS 15/09/2006 14:48:19
#171700
Achei a idéia do HARRY interessante, não é algo difícil de fazer e realmente seguro...^^
USUARIO.EXCLUIDOS 15/09/2006 16:38:31
#171741
Citação:

MATIOLI escreveu:
Achei a idéia do HARRY interessante, não é algo difícil de fazer e realmente seguro...^^



??? HARRY?
USUARIO.EXCLUIDOS 15/09/2006 16:41:22
#171744
Ahhhh, entendi!, hehehe

Putz, pra mim é difícil!
Mas se rolar uma senha é melhor.
USUARIO.EXCLUIDOS 15/09/2006 16:59:53
#171758
Mas dá pra vc criptografar com senha...
Se eu tiver um tempinho tento fazer algo do tipo no final de semana...flw
HARRY.POTTER 15/09/2006 17:25:53
#171773
Aí um exemplo de uma criptografia simples.

A sub DES_Cript criptografa e descriptografa o texto, ou seja, se você entrar com o texto, ela criptografa. Se você entrar com o texto criptografado, ela descriptografa.

Para (des)criptografar, a sub usa uma chave, ou seja, uma senha. Se você criptografar com uma senha e depois tentar descriptografar com outra chave, vai obter um texto totalmente diferente do original.

--------------------------


Sub DES_Cript()
Dim Texto As String 'O texto a ser criptografado
Dim Chave As String 'Seria o equivalente à  senha
Dim Res As String 'RESultado
Dim k As Integer 'Um contador

Texto = "VBMania - Vivendo e aprendendo..." 'Um texto qualquer
'Para abrir do arquivo:
'
'Open ARQUIVO For Binary As #1
'    Texto = Input(LOF(1), 1)
'Close #1


Chave = Inputbox("Digite sua 'senha'") 'pega uma 'senha'
Res = "" 'Limpa o resultado (para garantir)
k = 1 'Inicializa o contador

For i = 1 To Len(Texto) 'varre todo o texto, pega cada byte do Texto e um byte da 'senha', então realiza um XOR e retorna o resultado para a variavel RES
    Res = Res & Chr((Asc(Mid(Texto, i, 1)) Xor Asc(Mid(Chave, k, 1))))
    k = k + 1
    If k > Len(Chave) Then k = 1
Next

MsgBox Res 'mostra o texto (des)criptografado
'Se fosse para salvar no arquivo:
'Open ARQUIVO For Output As #1
'    Print #1, Res
'Close #1

End Sub
USUARIO.EXCLUIDOS 15/09/2006 17:29:03
#171774
Pessoal,

aqui na empresa nós temos um servidor com windows 2003,

eu crio uma pasta e na propriedade (segurança) eu apago

todos os direitos (outros usuários) e deixo apenas o meu

usuário com todos os direitos.

Quando alguém tenta acessar a pasta dá a mensagem que a pasta

náo pode ser exibida.

Obs.: Costumo colocar o nome tal como: datsystem ou ntdrvs32

e funciona sem questionamentos.
USUARIO.EXCLUIDOS 15/09/2006 17:31:45
#171776
mas na maioria dos casos temos winxp, e o problema as vezes é deixar a máquina ligada e vem alguém e mexe e talz.. dessa forma realmente seria necessária uma senha de acesso a pasta toda vez que a mesma for acessada.
HARRY.POTTER 15/09/2006 17:33:05
#171777
Então acho que se você criptografar seu fonte e colocá-lo numa pasta assim deve bastar.
USUARIO.EXCLUIDOS 15/09/2006 17:37:02
#171779
RODRIGOGBGOMES, mas eles acessam sua máquina? Pq vc só não põe senha na máquina e boa, daí ninguém nem mexe nela, no meu serviço eu faço isso...flw
RODRIGOGBGOMES 15/09/2006 21:39:26
#171800
Não Posso colocar senha na maquina. "normas"... a unica solução é.. colocar senha no fonte. (que nao sei se tem jeito) ou colocar uma senha na pasta....
estive olhando o programa (protecme) q um colega ai sugeriu.... axei uma boa... agora resta saber se eles vao aceitar isso la no serviço.
Página 2 de 3 [30 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar