Descriptografar

[danyort]

Galera, estou com um problema e preciso de um help!!!

Seguinte: a empresa onde trabalho tem um fórum para os clientes esclarecerem suas dúvidas. quando entrei aqui isso já estava pronto.

Quando um usuário se cadastra, o código criptografa a senha dele. E agora eu estou precisando descriptografar essas senhas e não consigo de jeito nenhum.

Eu não sei certo o que ele usa para criptografar, mas é algo do tipo:

' Function takes an ASCII string less than 2^61 characters long and

' one way hash encrypts it using 160 bit encryption into a 40 digit hex value.

' The encoded hex value cannot be decoded to the original string value.

Pelo que entendi, ele transforma para hexadecimal.

Se alguém puder me ajudar, eu ficarei muitíssimo agradecida!!

[cyberalexxx]

você tem que postar o código de criptografia pra ver se alguém consegue interpretar.

[danyort]

Aí está o código:

Function HashEncode(strSecret)

    Dim strEncode, strH(4)
    Dim intPos
    
    
    If len(strSecret) = 0 or len(strSecret) >= 2^61 then
  HashEncode = "0000000000000000000000000000000000000000"
  exit function
    end if
    
    
    'Initial Hex words are used for encoding Digest.  
    'These can be any valid 8-digit hex value (0 to F)
    strH(0) = "FB0C14C2"
    strH(1) = "9F00AB2E"
    strH(2) = "991FFA67"
    strH(3) = "76FA2C3F"
    strH(4) = "ADE426FA"
    
    For intPos = 1 to len(strSecret) step 56
  
  strEncode = Mid(strSecret, intPos, 56) 'get 56 character chunks
  strEncode = WordToBinary(strEncode) 'convert to binary
  strEncode = PadBinary(strEncode) 'make it 512 bites
  strEncode = BlockToHex(strEncode) 'convert to hex value
  
  strEncode = DigestHex(strEncode, strH(0), strH(1), strH(2), strH(3), strH(4))

  'Combine the old digest with the new digest
  strH(0) = HexAdd(left(strEncode, 8), strH(0))
  strH(1) = HexAdd(mid(strEncode, 9, 8), strH(1))
  strH(2) = HexAdd(mid(strEncode, 17, 8), strH(2))
  strH(3) = HexAdd(mid(strEncode, 25, 8), strH(3))
  strH(4) = HexAdd(right(strEncode, 8), strH(4))
  
    Next
    
    HashEncode = strH(0) & strH(1) & strH(2) & strH(3) & strH(4)
    
End Function

EDITADO: Use as tagas CODE ou QUOTE quando postar códigos

Editado Outubro 21, 2004 por cyberalexxx