Chave de segurança em funções públicas
Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).
Funções com escopo Public devem receber sua especial atenção, pois podem oferecer uma brecha na segurança, mesmo no caso do aplicativo estar na extensão ACCDE.
Se o invasor estiver acesso ao Painel de Navegação e chegar até a Janela Imediata do VBA é possível que tente executar tais funções, com a intenção de extrair algo.
Por exemplo: vamos supor que você tenha a função abaixo no seu aplicativo para descriptografar senha ou outros tipos de informações sigilosas.
Public Function fncDCrip(varChave) As Variant Dim i%, k%, strBuff$, strpwd$ On Error GoTo trataErro strpwd = "MNBVCXZLKJ039RTY4U6W" For i = 1 To Len(varChave) k = Asc(Mid$(varChave, i, 1)) k = k - Asc(Mid$(strpwd, i, 1)) strBuff = strBuff & Chr$(k) Next i fncDCrip = strBuff sair: Exit Function trataErro: fncDCrip = 0: Resume sair End Function
Da forma como se encontra a função acima, qualquer programador com um pouco de experiência poderá utilizar a função, que você deixou com livre acesso, para decifrar os dados criptografados que você tenha armazenado em uma tabela.
fncDcrip("®Ä§Â¬ÆÉ") :::::> avelino
Solução: Crie uma chave numérica que impeça o funcionamento da função, caso esta não seja informada corretamente. Veja a alteração da função:
Public Function fncDCrip(varChave, Optional lngChave as long =0) As Variant Dim i%, k%, strBuff$, strpwd$ On Error GoTo trataErro
'------------------------------------------------------
'Se não informar a correta chave de segurança, a função
'passará ao valor 0(zero)
'------------------------------------------------------
if lngChave <> 131520 then
fncDCrip = 0
Exit Function
end if
strpwd = "MNBVCXZLKJ039RTY4U6W" For i = 1 To Len(varChave) k = Asc(Mid$(varChave, i, 1)) k = k - Asc(Mid$(strpwd, i, 1)) strBuff = strBuff & Chr$(k) Next i fncDCrip = strBuff sair: Exit Function trataErro: fncDCrip = 0: Resume sair End Function
O programador ao executar a função sem a chave ou com a chave incorreta receberá como resultado o valor 0.
fncDcrip("®Ä§Â¬ÆÉ") :::::> 0
fncDcrip("®Ä§Â¬ÆÉ",131520) :::::> avelino
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Vídeo - Aprenda sobre filtragens
Trabalhando com Registros - DAO e ADO
Adquira o kit UsandoAccess e aprenda em alta velocidade
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
| Não há comentário |