MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Codigo Sha1

    Compartilhe

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    [Resolvido]Codigo Sha1

    Mensagem  NADIRONUNES em Sex 14 Nov 2014, 17:22

    boa Tarde

    Alguem tem algum exemplo com codigo sha1

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2488
    Registrado : 29/06/2012

    Re: [Resolvido]Codigo Sha1

    Mensagem  Noobezinho em Sex 14 Nov 2014, 17:57

    Olá

    Com desconheço ao assunto, vou dar dois links que talvez
    ajude.
    Enquanto isso talvez  outros membro possam te ajudar:


    Encontrei isso.

    Abraços

    Noob


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    Re: [Resolvido]Codigo Sha1

    Mensagem  NADIRONUNES em Seg 17 Nov 2014, 13:04

    Achei este codigo mas como usa?

    Sub SHA1(Message() As Byte, ByVal Key1 As Long, ByVal Key2 As Long, ByVal Key3 As Long, ByVal Key4 As Long, H1 As Long, H2 As Long, H3 As Long, H4 As Long, H5 As Long)
    'CA62C1D68F1BBCDC6ED9EBA15A827999 + "abc" = "A9993E36 4706816A BA3E2571 7850C26C 9CD0D89D"
    '"abc" = "A9993E36 4706816A BA3E2571 7850C26C 9CD0D89D"

    Dim U As Long, P As Long
    Dim FB As FourBytes, OL As OneLong
    Dim I As Integer
    Dim W(80) As Long
    Dim A As Long, B As Long, C As Long, D As Long, E As Long
    Dim T As Long

    H1 = &H67452301: H2 = &HEFCDAB89: H3 = &H98BADCFE: H4 = &H10325476: H5 = &HC3D2E1F0

    U = UBound(Message) + 1: OL.L = U32ShiftLeft3(U): A = U \ &H20000000: LSet FB = OL 'U32ShiftRight29(U)

    ReDim Preserve Message(0 To (U + 8 And -64) + 63)
    Message(U) = 128

    U = UBound(Message)
    Message(U - 4) = A
    Message(U - 3) = FB.D
    Message(U - 2) = FB.C
    Message(U - 1) = FB.B
    Message(U) = FB.A

    While P < U
    For I = 0 To 15
    FB.D = Message(P)
    FB.C = Message(P + 1)
    FB.B = Message(P + 2)
    FB.A = Message(P + 3)
    LSet OL = FB
    W(I) = OL.L
    P = P + 4
    Next I

    For I = 16 To 79
    W(I) = U32RotateLeft1(W(I - 3) Xor W(I - Cool Xor W(I - 14) Xor W(I - 16))
    Next I

    A = H1: B = H2: C = H3: D = H4: E = H5

    For I = 0 To 19
    T = U32Add(U32Add(U32Add(U32Add(U32RotateLeft5(A), E), W(I)), Key1), ((B And C) Or ((Not B) And D)))
    E = D: D = C: C = U32RotateLeft30(B): B = A: A = T
    Next I
    For I = 20 To 39
    T = U32Add(U32Add(U32Add(U32Add(U32RotateLeft5(A), E), W(I)), Key2), (B Xor C Xor D))
    E = D: D = C: C = U32RotateLeft30(B): B = A: A = T
    Next I
    For I = 40 To 59
    T = U32Add(U32Add(U32Add(U32Add(U32RotateLeft5(A), E), W(I)), Key3), ((B And C) Or (B And D) Or (C And D)))
    E = D: D = C: C = U32RotateLeft30(B): B = A: A = T
    Next I
    For I = 60 To 79
    T = U32Add(U32Add(U32Add(U32Add(U32RotateLeft5(A), E), W(I)), Key4), (B Xor C Xor D))
    E = D: D = C: C = U32RotateLeft30(B): B = A: A = T
    Next I

    H1 = U32Add(H1, A): H2 = U32Add(H2, B): H3 = U32Add(H3, C): H4 = U32Add(H4, D): H5 = U32Add(H5, E)
    Wend
    End Sub

    NADIRONUNES
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 408
    Registrado : 30/08/2010

    Re: [Resolvido]Codigo Sha1

    Mensagem  NADIRONUNES em Seg 17 Nov 2014, 16:34

    Consegui obrigado

      Data/hora atual: Dom 04 Dez 2016, 01:57