MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Ajuda para melhorias em registrar aplicativo pelo registro do Windows

    Compartilhe
    avatar
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Ajuda para melhorias em registrar aplicativo pelo registro do Windows

    Mensagem  Mylton em 10/12/2018, 12:11

    Bom dia
    Encontrei nos meus guardados esse exemplo do Harysohn.

    http://www.maximoaccess.com/t9114-registro-de-software-feito-no-registro-do-windows?highlight=unlocker#73070

    Resolvi adaptar.
    Precisava de algumas ajudas e pretendo disponibilizarei depois no repositório.
    Esse aplicativo registra no ambiente de registro do Windows.

    Qual a vantagem e desvantagem?
    Dessa forma é mais fácil ou não de quebrar o registro?

    Quanto ajuda...
    Realmente não possuo capacidade de finalizar, por isso peço o pitaco de vcs.

    1) Onde poderia anular a mensagem inicial?
    2) Quando finalizo o registro consegui implementar a abertura do Form 1, mas não o fechamento do Form de registro.
    Este abre diretamente e sem preencher o campo com o registro efetuado. Fica em branco.
    Penso que talvez seja um bug, não sei.
    3) Sua rotina de proteção me parece estar contida nesse módulo:

    Option Compare Database
    Option Explicit

    Function Version() As String
       Dim A, B, C
       Dim version2
       Dim RegObj
       Set RegObj = CreateObject("WScript.Shell")


    'A versão está no formato X.X.X
    'Leia a Cadeia de Registro e remova o arquivo.

       A = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\Version"), 1, 1)
       B = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\Version"), 3, 1)
       C = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\Version"), 5, 1)

       Version = A & B & C
    End Function

    Function DateInstalled() As String
       Dim D, E, F, G, H, I, J, K

       Dim RegObj
       Set RegObj = CreateObject("WScript.Shell")

       D = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 1, 1)
       E = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 2, 1)
       F = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 3, 1)
       G = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 4, 1)
       H = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 5, 1)
       I = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 6, 1)
       J = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 7, 1)
       K = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 8, 1)

    'Scramble up a data armazenada no registro
    'Formato = DDMMYYYY
    'D1 Y1 D2 Y2 M1 Y3 M2 Y4

       DateInstalled = D & H & E & I & F & J & G & K

    End Function

    Function DaysInstalled()
       Dim RegObj, DateInst
       Set RegObj = CreateObject("WScript.Shell")

       Dim A, B, C

       A = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 1, 2)
       B = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 3, 2)
       C = Mid(RegObj.RegRead("HKCU\SOFTWARE\MyApp\DateInstalled"), 5, 4)

    'Mostra o número de dias em que o aplicativo foi instalado

       DateInst = A & "/" & B & "/" & C
       DaysInstalled = DateDiff("d", DateInst, Date)
    End Function

    Function Unlocker1()

    'Cria a primeira parte do código de registro
    'Isso usa o número da versão e converte em Hex

       Dim hexno1, x1

       hexno1 = Version
       For x1 = 1 To Len(hexno1) Step 2

       Next
       Unlocker1 = CLng("&h" & hexno1)
    End Function

    Function Unlocker2()

    'Cria a segunda parte do código de registro
    'Isso usa a data instalada, embaralhada e converte em hexadecimal

       Dim hexno2, x2

       hexno2 = DateInstalled
       For x2 = 1 To Len(hexno2) Step 2

       Next

       Unlocker2 = CLng("&h" & hexno2)
    End Function




    Onde poderia "mudar" algo para não ficar igual a outros que possam ter esse mecanismo? E assim buscar o serial de liberação?

    4) Adiantei a data do sistema para verificar se está funcionando e não deu problema, manteve o mesmo comportamento.
    É isso mesmo?

    Obrigado.
    Anexos
    Unlocker.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 3 vez(es)

      Data/hora atual: 18/1/2019, 00:02