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

    [Resolvido]Criar senha através do CPF do Usuário

    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 13/7/2016, 18:02

    Boa Tarde

    Estou criando um Formulário para cadastro de Usuários, onde ao digitar o CPF do mesmo seja criado uma senha baseado na tabela ascii onde conforme a soma dos números. Ex: o CPF - 121.234.654-69 a soma dos números 121 =4, 234=9, 654=15 e 69= 15 gere uma senha que neste caso seria esta, "04090f0f", mas não estou conseguindo relacionar e somar estes números. Alguem já tentou algo assim?
    Terei que separar numero a numero?
    Desde já agradeço


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 13/7/2016, 18:32

    Olá!

    que código daria o resultado 17 22 14 13 ?

    não entendi 15 virar f. O que usou ?

    Aguardamos



    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 13/7/2016, 18:43

    Boa tarde Avelino Sampaio.

    Baseado na Tabela ASCII, na coluna Hexadecimal os seus números daria a senha "11160E0D".
    o quinze virou 0F no caso, consulte a coluna Hexadecimal da tabela ASCII que você vera esta relação.

    Agradeço o seu retorno



    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 13/7/2016, 19:07

    Samuel,

    segue função:

    Public Function fncGerarSenha(cpf$)
    Dim j%, p(4) As Variant
    cpf = Replace(Replace(cpf, ".", ""), "-", "")
    For j = 1 To 11
    Select Case j
    Case 1 To 3: p(0) = p(0) + Val(Mid(cpf, j, 1))
    Case 4 To 6: p(1) = p(1) + Val(Mid(cpf, j, 1))
    Case 7 To 9: p(2) = p(2) + Val(Mid(cpf, j, 1))
    Case 10 To 11: p(3) = p(3) + Val(Mid(cpf, j, 1))
    End Select
    Next
    p(0) = Hex(p(0)): p(1) = Hex(p(1))
    p(2) = Hex(p(2)): p(3) = Hex(p(3))
    fncGerarSenha = IIf(Len(p(0)) = 1, "0" & p(0), p(0)) & IIf(Len(p(1)) = 1, "0" & p(1), p(1)) & IIf(Len(p(2)) = 1, "0" & p(2), p(2)) & IIf(Len(p(3)) = 1, "0" & p(3), p(3))
    End Function



    Testando:

    me!CampoSenha = fncGerarSenha(me!cpf)


    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 13/7/2016, 21:28

    Oi Avelino

    O cpf da função ó o nome do campo?
    Esta função eu fiz em um modulo separado.
    Depois chamo ela na propriedade apos atualizar do campo?
    To meio perdido com este desafio



    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 13/7/2016, 21:51

    Samuel

    O cpf da função ó o nome do campo? sim
    Esta função eu fiz em um modulo separado.
    Depois chamo ela na propriedade apos atualizar do campo?

    sim, chame no evento após atualizar do campo CPF.

    me!NomeDoCampoSenha = fncGerarSenha(me!NomeDoCampoCpf)

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 13/7/2016, 22:04

    Me desculpe Avelino mas não Funcionou
    Veja os Códigos
    Código:
    ublic Function fncGerarSenha(cpfUsuario$)
    Dim j%, p(4) As Variant
    cpf = Replace(Replace(cpfUsuario, ".", ""), "-", "")
    For j = 1 To 11
        Select Case j
            Case 1 To 3: p(0) = p(0) + Val(Mid(cpfUsuario, j, 1))
            Case 4 To 6: p(1) = p(1) + Val(Mid(cpfUsuario, j, 1))
            Case 7 To 9: p(2) = p(2) + Val(Mid(cpfUsuario, j, 1))
            Case 10 To 11: p(3) = p(3) + Val(Mid(cpfUsuario, j, 1))
        End Select
    Next
    p(0) = Hex(p(0)): p(1) = Hex(p(1))
    p(2) = Hex(p(2)): p(3) = Hex(p(3))
    fncGerarSenha = IIf(Len(p(0)) = 1, "0" & p(0), p(0)) & IIf(Len(p(1)) = 1, "0" & p(1), p(1)) & IIf(Len(p(2)) = 1, "0" & p(2), p(2)) & IIf(Len(p(3)) = 1, "0" & p(3), p(3))
    End Function

    Código:
    Private Sub senhaGerada_AfterUpdate()

    Me!senhaGerada = fncGerarSenha(Me!cpfUsuario)

    End Sub


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 13/7/2016, 22:15

    Samuel, é após atualizar do campo CPF.

    Errado:

    Private Sub senhaGerada_AfterUpdate()

    Certo:

    Private Sub cpfUsuario_AfterUpdate()


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 14/7/2016, 09:51

    Samuel, conseguiu ?

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 14/7/2016, 12:22

    Bom dia Avelino Sampaio

    Nossa Que rata!!!

    Mas mesmo assim muito obrigado, funcionou, foi só mudar o nome do campo.

    Obrigado Avelino


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 14/7/2016, 21:43

    Boa tarde Avelino

    Depois de alguns testes vi que a função esta fazendo o calculo errado. Ex. no cpf 123.456.789-00, Acontece de somar os 03 primeiros campos corretos, e nos outros conjuntos somar só duas casas. Se o resultado correta da senha é "060f1800", esta formando a "06090f08", não esta somando um numero dos últimos conjuntos de números.

    Certo da sua atenção

    Agradeço


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 14/7/2016, 22:34

    Samuel,

    testeai aqui e funcionou como deveria.  Segue um exemplo.  Abra o formulário e insira o CPF 123.456.789-00

    Se funcionar como esperado, vamos fazer um testes com o seu projeto para descobrir a razão.

    Aguardamos
    Anexos
    [Resolvido]Criar senha através do CPF do Usuário AttachmentsamuelSenhaCpf.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (22 Kb) Baixado 22 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 15/7/2016, 12:46

    Bom dia Avelino

    O seu exemplo esta certo, funcionou, vou refazer uns procedimentos aqui, caso não funcione te envio o meu projeto

    Certo de sua atenção

    Agradeço


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 15/7/2016, 13:49

    Bom dia Avelino

    Ajuda ai, eu não sei onde estou errando, deve ser uma coisa muito simples. Me perdoe mas não consigo ver este erro.
    Segue em anexo.
    Anexos
    [Resolvido]Criar senha através do CPF do Usuário AttachmentSistema Gerador de Senhas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (119 Kb) Baixado 16 vez(es)


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Avelino Sampaio 15/7/2016, 14:12

    Samuel

    o erro está nesta linha:

    cpf = Replace(Replace(cpfUsuario, ".", ""), "-", "")

    Altere de CPF para CpfUsuario

    CpfUsuario = Replace(Replace(cpfUsuario, ".", ""), "-", "")

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Samuel Ribeiro
    Samuel Ribeiro
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 584
    Registrado : 05/02/2011

    [Resolvido]Criar senha através do CPF do Usuário Empty Re: [Resolvido]Criar senha através do CPF do Usuário

    Mensagem  Samuel Ribeiro 15/7/2016, 14:56

    Ok Avelino

    Funcionou corretamente agora

    Muito obrigado pela ajuda

    Tópico Resolvido


    .................................................................................
    ______________________________
         Samuel Carlos Ribeiro

      Data/hora atual: 16/4/2021, 21:27