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

    Descobrir serial ativação windows

    Compartilhe
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Descobrir serial ativação windows

    Mensagem  Mylton em 9/12/2018, 22:47

    Boa noite

    Se colocarmos essa rotina num bloco de notas e mudarmos para vbs irá aparecer quando executado o serial de ativação do windows.

    Código:
    Set WshShell = CreateObject("WScript.Shell")

    MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

    Function ConvertToKey(Key)

    Const KeyOffset = 52

    I = 28

    Chars = "BCDFGHJKMPQRTVWXY2346789"

    Do

    Cur = 0

    x = 14

    Do

    Cur = Cur * 256

    Cur = Key(x + KeyOffset) + Cur

    Key(x + KeyOffset) = (Cur \ 24) And 255

    Cur = Cur Mod 24

    x = x - 1

    Loop While x >= 0

    I = I - 1

    KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput

    If (((29 - I) Mod 6) = 0) And (I <> -1) Then

    I = I - 1

    KeyOutput = "-" & KeyOutput

    End If

    Loop While I >= 0

    ConvertToKey = KeyOutput

    End Function

    Existe alguma forma de obtermos isso usando o VBA...
    Objetivo seria adaptar uma proteção anti cópia.

    Obrigado.
    lol!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5819
    Registrado : 15/03/2013

    Re: Descobrir serial ativação windows

    Mensagem  ahteixeira em 18/12/2018, 08:48

    Olá Mylton,

    Pode colar esse código num modulo e adaptar numa função para obter o serial do SO.
    Talvez seja necessario ativar referência.

    Depois será usar a imaginação no seu aplicativo para verificar e ter a proteção.

    Abraço
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 01:16

    Por curiosidade resolvi tentar, mas a chave a ser lida está em binary e não consegui fazer o Access ler.

    Tentei manter o VBS que geraria um TXT com o serial e depois o Access leria o TXT com o resultado, mas ao chamar o VBS pelo Access dá erro informando que a chave não pode ser lida na rotina do VBS. O intrigante é que se o usuário clicar duas vezes no VBS criado pelo código ele gera o TXT sem erro.

    Mesmo chamando o VBS de outras formas acontece o erro. Desisti. Se alguém quiser prosseguir dessa forma, eis até onde fui

    Código:
    Private strArqVBS As String
    Private strArqTXT As String

    Public Function fncNumeroSerialWindows() As String

        Dim k As String
        
        strArqVBS = CurrentProject.Path & "\TempVBS.vbs"
        strArqTXT = CurrentProject.Path & "\TempTXT.txt"

        Call fncCriaExecVBS
        Call fncLerDelArqsGerado(k)
        
        'MsgBox k
        fncNumeroSerialWindows = k
        Call Kill(strArqVBS)
        Call Kill(strArqTXT)

    End Function

    Private Sub fncLerDelArqsGerado(k As String)
    On Error Resume Next

        Dim strLinhas As String
        
        Open strArqTXT For Input As #1
              Line Input #1, k
        Close #1
        
        If Err.Number <> 0 Then
            k = Err.Description
            Err.Clear
        End If
        
    End Sub

    Private Sub fncCriaExecVBS()

        Open strArqVBS For Append As #1
            Print #1, "Set k = CreateObject(""Scripting.FileSystemObject"").CreateTextFile(""" & strArqTXT & """, True)"
            Print #1, "k.WriteLine(ConvertToKey(CreateObject(""WScript.Shell"").RegRead(""HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"")))"
            Print #1, "k.Close"
            Print #1, "Function ConvertToKey(Key)"
            Print #1, "Const KeyOffset = 52"
            Print #1, "I = 28"
            Print #1, "Chars = ""BCDFGHJKMPQRTVWXY2346789"""
            Print #1, "Do"
            Print #1, "Cur = 0"
            Print #1, "x = 14"
            Print #1, "Do"
            Print #1, "Cur = Cur * 256"
            Print #1, "Cur = Key(x + KeyOffset) + Cur"
            Print #1, "Key(x + KeyOffset) = (Cur \ 24) And 255"
            Print #1, "Cur = Cur Mod 24"
            Print #1, "x = x - 1"
            Print #1, "Loop While x >= 0"
            Print #1, "I = I - 1"
            Print #1, "KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput"
            Print #1, "If (((29 - I) Mod 6) = 0) And (I <> -1) Then"
            Print #1, "I = I - 1"
            Print #1, "KeyOutput = ""-"" & KeyOutput"
            Print #1, "End If"
            Print #1, "Loop While I >= 0"
            Print #1, "ConvertToKey = KeyOutput"
            Print #1, "End Function"
        Close #1
        
        'Call Shell("cmd /c """ & strArqVBS & """", vbHide)
        'Call Shell("cmd /c """ & "d:\Users\ivan.junior\Documents\exec.cmd" & """", vbHide)
        Call CreateObject("WScript.Shell").Run("""" & strArqVBS & """", 0, 0)

    End Sub


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 01:38

    Penso que seja o caminho para a proteção dos nossos sistemas.
    Eu como medico não.tenho nesse campo nada a fazer.
    Não possuo o conhecimento básico para esse.desenvolvimento.
    Mas, creio que com esse serial e alguma rotina simples chegaremos a um bingo.
    Aguardo os Mestre.
    Gde Abs a todos.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3767
    Registrado : 06/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  Assis em 19/12/2018, 10:06

    Bom dia

    Por quantos caracteres é composto o dito Serial ?

    É a chamada Key do Windows tipo 25DF - DGT6 - GHY5 - KJU - ????'etc

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 11:51

    25DF - DGT6 - GHY5 - KJU - ?????

    Exatamente assim. 25.


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 13:22

    Bom dia.
    Exemplo de chave ativação do Windows
    NKJFK-GPHP7-G8C3J-P6JXR-HQRJR
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5819
    Registrado : 15/03/2013

    Re: Descobrir serial ativação windows

    Mensagem  ahteixeira em 19/12/2018, 16:11

    Olá a todos,

    Assis é a chave de ativação do produto, neste caso do SO, veja exemplo:


    Ivan, a partir do MS Access tembém não consegui. Mesmo criando o TXT diretamente através do "script"
    Veja o código do meu teste:
    Código:
    'Adaptado por ahteixeira 2018 para maximoaccess
    Set WshShell = CreateObject("WScript.Shell")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Dim sFicheiro, sChave

    sChave = ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
    sFicheiro = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".") & "\tmpSerial.txt"

    Set objFile = objFSO.CreateTextFile(sFicheiro, True)
    objFile.Write sChave
    objFile.Close

    Function ConvertToKey(Key)
    Const KeyOffset = 52
        
        i = 28
        Chars = "BCDFGHJKMPQRTVWXY2346789"
            
            Do
                Cur = 0
                x = 14
                Do
                    Cur = Cur * 256
                    Cur = Key(x + KeyOffset) + Cur
                    Key(x + KeyOffset) = (Cur \ 24) And 255
                    Cur = Cur Mod 24
                    x = x - 1
                Loop While x >= 0
                
                i = i - 1
                KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
                
                If (((29 - i) Mod 6) = 0) And (i <> -1) Then
                    i = i - 1
                    KeyOutput = "-" & KeyOutput
                End If
            Loop While i >= 0
        
        ConvertToKey = KeyOutput
    End Function

    Mylton, não falta exemplos de proteção, mas se a ideia era comparar a Chave do windows para verificar se é uma máquina autorizada, pode verificar através de outros componentes, veja tópico abaixo:
    http://www.maximoaccess.com/t33280-ip-local-publico-mac-address-id-processador-serie-motherboard

    Abraço a todos
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 16:25

    Ah Teixeira.
    Obrigado pelo exemplo.
    Na 1 msg obtemos com a escrita descrita.
    Existe alguma forma de torná-la oculta e buscar na caixa de mensagem com a chave para compararmos?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 16:34

    Pois é, mestre Alvaro, ainda estou intrigado com isso.

    Mylton, estou desenvolvendo um exemplo aos moldes do artigo oferecido no link abaixo. Mas somente com algumas das técnicas de proteção e usando o MySQL, logo postarei no repositório.

    usandoaccess.com.br/tutoriais/video-sistema-shareware-com-libercao-online.asp


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5819
    Registrado : 15/03/2013

    Re: Descobrir serial ativação windows

    Mensagem  ahteixeira em 19/12/2018, 16:42

    Olá a todos,

    Ivan, ficamos aguardar.
    Mylton, não compreendi a pergunta.

    Abraço
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 16:55

    Ah Teixeira
    Em minha 1 msg disponibilizei um código. Se colocarmos esse código num bloco de notas e trocarmos a extensão p VBS ao rodarmos aparece a chave numa caixa de msg.
    Pergunto
    Existe possibilidade de rodarmos isso de forma oculta e capturarmos essa msg afim de guardarmos numa tabela qualquer?
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  JPaulo em 19/12/2018, 17:10

    Boas festas para todos;

    Veja se é isto que pretende.
    Não necessita de criar VBScript nem txt, ele faz tudo sozinho.

    Download


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 17:14

    Boa tarde JPaulo.
    Estou no celular. Em 3 horas em casa. Baixo, vejo e respondo.
    Obrigado.
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 17:23

    A bendita chamada kkkkk
    Obrigado por essa alternativa de chamada mestre JPaulo... coloquei no meu código e deu certinho também. Cada dia aprendo mais aqui.

    Código:
    Shell "Explorer.exe ""C:\temp\vbskey.vbs""", 1


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  JPaulo em 19/12/2018, 17:37

    Para quem já fez o download, é favor fazer de novo.

    Exemplo retificado, para criar a pasta "temp" em "C:" se não existir.

    Funciona em todas as versão do windows e office.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3767
    Registrado : 06/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  Assis em 19/12/2018, 17:41

    Agora sim



    .................................................................................
    *** Só sei que nada sei ***
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  JPaulo em 19/12/2018, 17:45

    Exemplo adicionado ao repositorio de exemplos.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 17:50

    Mestre, ainda não baixei... estou no celular. O nova versão faz a exclusão do VBS e TXT criado em tempo de execução?


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  JPaulo em 19/12/2018, 19:28

    No final do código para quem quiser excluir é só inserir o
    'Kill "c:\tem\vbskey.vbs"
    'Kill "c:\tem\key.txt"

    Não vejo necessidade.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 19:34

    JPaulo
    Se Deus criasse uma mesa de programadores ao seu redor...
    Pessoas como Vc, AH Teixeira, Ivan, Assis e muitos outros estariam presentes nessa mesa.
    Parabéns aos mestres. cheers
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 491
    Registrado : 22/11/2016

    Re: Descobrir serial ativação windows

    Mensagem  IvanJr. em 19/12/2018, 19:36

    Grato mestre JPaulo. Very Happy

    Valeu Mylton. Very Happy


    .................................................................................
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Sempre tente entender o código, não somente copie e cole.
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    [Resolvido]Descobrir serial ativação windows

    Mensagem  toyebom em 19/12/2018, 21:03

    Então e para o office?


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10439
    Registrado : 04/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  JPaulo em 19/12/2018, 22:56

    Tópico resolvido.
    Fico feliz.
    Boas festas


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Utilize o Sistema de Busca do Fórum...
    102 Códigos VBA Gratuitos...
    Instruções SQL como utilizar...
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 19/12/2018, 23:20

    A todos um excelente Natal e 2019.
    Obrigado.
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5819
    Registrado : 15/03/2013

    Re: Descobrir serial ativação windows

    Mensagem  ahteixeira em 20/12/2018, 08:36

    Olá a todos,

    Grande JPaulo, matou a charada, nunca é demais "Obrigado por tanta dedicação e partilha do conhecimento".

    Com disse o colega Ivan "Cada dia aprendo mais aqui.".
    Isto é Maximoaccess, sempre aprender Wink

    Aproveiro para desejar Boas Festas

    cheers
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3767
    Registrado : 06/11/2009

    Re: Descobrir serial ativação windows

    Mensagem  Assis em 13/3/2019, 11:26

    Bom dia Amigos

    O Toyebom ficou sem resposta na mensagem Nº 23.

    Pergunto o mesmo Very Happy

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5819
    Registrado : 15/03/2013

    Re: Descobrir serial ativação windows

    Mensagem  ahteixeira em 13/3/2019, 15:55

    Olá a todos,

    Respondendo à questão anterior e á nº 23, em VBA para o Office eu desconheço.
    Se pretendem apenas obter o serial do Office instalado, fazer uma pesquisa no google "Nirsoft Product Key".

    Lembro que este fórum é de Access.

    Abraço
    toyebom
    toyebom
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 1118
    Registrado : 18/07/2012

    [Resolvido]Descobrir serial ativação windows

    Mensagem  toyebom em 13/3/2019, 20:22

    E o Access não é Office??? Razz
    Só coloquei a duvida e é outra coisa que se pode aprender em vba.


    .................................................................................
    Gente Simples, fazendo coisas pequenas, em lugares pouco importantes, consegue mudanças extraordinárias.
    Mylton
    Mylton
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

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

    Re: Descobrir serial ativação windows

    Mensagem  Mylton em 13/3/2019, 21:59

    Meninos....
    O post foi encerrado pelo M. João Paulo, e iniciado por mim.
    Que tal abrirem outro?

      Data/hora atual: 26/3/2019, 15:04