MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

2 participantes

    Ajuda com criptografia

    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 834
    Registrado : 23/08/2010

    Ajuda com criptografia Empty Ajuda com criptografia

    Mensagem  Mylton 27/2/2022, 23:07

    Para melhorar o nível de segurança das informações gravadas, qual a rotina necessária em VBA, para que ao clicar num botao, que todos os campos sejam criptografados e ao clicar em outro sejam descriptografados.
    Sei que existem alguns exemplos, mas nao consigo adaptar com esse codigo abaixo.
    Caso possuam algo mais forte agradeceria.

    Alguém poderia dar um help ou um exemplo

    Form

    Option Compare Database

    Private Sub cmdCrypt_Click()
       Me.Nome.Value = Crypt(Trim(Text.Value))
       Me.Data.Value = Crypt(Trim(Text.Value))
       Me.endereco.Value = Crypt(Trim(Text.Value))
    End Sub

    Private Sub cmdDecrypt_Click()
       Me.Nome.Value = Decrypt(Trim(Nome.Value))
       Me.Data.Value = Decrypt(Trim(Data.Value))
       Me.endereco.Value = Decrypt(Trim(endereco.Value))
    End Sub


    Modulo

    Option Compare Database

    'Função para criptografar senha de usuário
    Public Function Crypt(Text As String) As String
    Dim strTempChar As String
    Dim I As Integer

       For I = 1 To Len(Text)
           If Asc(Mid$(Text, I, 1)) < 128 Then
              strTempChar = Asc(Mid$(Text, I, 1)) + 128
           ElseIf Asc(Mid$(Text, I, 1)) > 80 Then
              strTempChar = Asc(Mid$(Text, I, 1)) - 128
           End If
           
           Mid$(Text, I, 1) = Chr(strTempChar)
       Next I

       Crypt = Trim(Text)

    End Function

    'Função para descriptografar senha de usuário
    Public Function Decrypt(Text As String) As String

    Dim strTempChar As Variant
    Dim I As Integer

       For I = 1 To Len(Text)
           If Asc(Mid$(Text, I, 1)) > 128 Then
              strTempChar = Asc(Mid$(Text, I, 1)) - 128
           ElseIf Asc(Mid$(Text, I, 1)) > 80 Then
              strTempChar = Asc(Mid$(Text, I, 1)) + 128
           End If
           
           Mid$(Text, I, 1) = Chr(Abs(strTempChar))
       Next I

       Decrypt = Text

    End Function


    exemplo anexado

    obrigado
    Anexos
    Ajuda com criptografia Attachmentexemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (29 Kb) Baixado 5 vez(es)
    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 834
    Registrado : 23/08/2010

    Ajuda com criptografia Empty Re: Ajuda com criptografia

    Mensagem  Mylton 27/2/2022, 23:48

    Consegui os textos. Mas campo data nao foi. Em anexo.
    FormTabela1 as mudanças.
    Anexos
    Ajuda com criptografia Attachmentexemplo2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (66 Kb) Baixado 8 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    Ajuda com criptografia Empty Re: Ajuda com criptografia

    Mensagem  Alexandre Fim 28/2/2022, 00:05

    Olá Mylton,

    A criptografia de dados em sistema é mais utilizada em dados de login e senha, arquivos .INI (arquivos também usados para conexão em bd) e etc.
    Para criptografar os dados é necessário que os campos sejam do tipo Texto. Campos numéricos, data, data/hora, moeda e etc não aceitam caracteres criptografados.
    Não é comum criptografar dados das tabelas, pois será necessário toda vez descriptografá-los na geração de relatórios, consultas e etc.
    Se você possui senha de banco, senha de código, bloqueio de tecla SHIFT e etc, já é o suficiente.

    Espero ter ajudado.

    É isso
    []'s
    FIM


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    Ajuda com criptografia Setinf11
    Sistemas e Tecnologia Ltda
    Mylton
    Mylton
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 834
    Registrado : 23/08/2010

    Ajuda com criptografia Empty Re: Ajuda com criptografia

    Mensagem  Mylton 28/2/2022, 02:01

    Alexandre.
    Boa noite.
    Estou tentando desenvolver uma forma de proteger alguns campos de uma tabela só.
    Não irei utilizar em nenhuma necessidade do exposto.
    Penso em evitar que vejam informações do sistema do PC.

      Data/hora atual: 24/9/2022, 21:16