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

    Gerador de Serial

    avatar
    igadino
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 31/01/2011

    Gerador de Serial Empty Gerador de Serial

    Mensagem  igadino 8/8/2015, 19:24

    Estou fazendo um sisteminha e preciso gerar serial para ativar o sistema e somente o serial gerado por este código sera aceito no sistema.
    tem como validar os seriais gerado por este código

    Dim n As Integer
    Dim Keygen(26) As Long
    Dim Newkey, Finalkey As String
    Randomize
    For n = 1 To 26
    Keygen(n) = Int(Rnd * 26) + 1
    Keygen(n) = Keygen(n) + 64
    Newkey = Chr$(Keygen(n))
    Finalkey = Finalkey + Newkey
    Next
    Texto3 = Left(Finalkey, 5)
    Texto4 = Mid(Finalkey, 6, 5)
    Texto5 = Mid(Finalkey, 11, 5)
    Texto6 = Mid(Finalkey, 17, 5)
    Texto7 = Mid(Finalkey, 19, 5)
    Texto8 = Mid(Finalkey, 21, 5)



    Última edição por igadino em 26/8/2015, 02:12, editado 1 vez(es)
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8251
    Registrado : 05/11/2009

    Gerador de Serial Empty Re: Gerador de Serial

    Mensagem  Alexandre Neves 8/8/2015, 23:14

    Boa noite,
    Movi-lhe a dúvida para esta sala
    Com o tempo que tem no fórum, já devia saber que a sala de repositório não serve para tirar dúvidas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 5/12/2022, 18:06