none
Decodificar RRS feed

  • Pregunta

  • tengo esta función para codificar que me pasaron 

      Public Function Codifica(Pwd As String) As String
            Dim Metodo As New SHA1CryptoServiceProvider
            Dim Arreglo() As Byte
            Dim Res As String = ""
            Arreglo = System.Text.Encoding.ASCII.GetBytes(Pwd)
            Arreglo = Metodo.ComputeHash(Arreglo)
            Res = Convert.ToBase64String(Arreglo)
            Return Res
        End Function

     el problema es que quiero decodificar la contraseña pero no he encontrado como me podrían ayudar

    jueves, 8 de diciembre de 2016 21:37

Respuestas

  • HOla Jorge Luis zamora medrano

    Lo que hace seguro a estos métodos de encriptación, es que luego no puedan desencriptar, pero si quieres si existen muchas maneras y con diferentes de codificaciones

    aquí un ejemplo:

    Public Function Encriptar(ByVal Input As String) As String
     
      Dim IV() As Byte = ASCIIEncoding.ASCII.GetBytes("qualityi")'La clave debe ser de 8 caracteres
      Dim EncryptionKey() As Byte = Convert.FromBase64String("rpaSPvIvVLlrcmtzPU9/c67Gkj7yL1S5")'No se puede alterar la cantidad de caracteres pero si la clave
      Dim buffer() As Byte = Encoding.UTF8.GetBytes(Input)
      Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
      des.Key = EncryptionKey
      des.IV = IV
     
      Return Convert.ToBase64String(des.CreateEncryptor().TransformFinalBlock(buffer, 0, buffer.Length()))
     
    End Function
    
    Public Function Desencriptar(ByVal Input As String) As String
     
      Dim IV() As Byte = ASCIIEncoding.ASCII.GetBytes("qualityi") 'La clave debe ser de 8 caracteres
      Dim EncryptionKey() As Byte = Convert.FromBase64String("rpaSPvIvVLlrcmtzPU9/c67Gkj7yL1S5")'No se puede alterar la cantidad de caracteres pero si la clave
      Dim buffer() As Byte = Convert.FromBase64String(Input)
      Dim des As TripleDESCryptoServiceProvider = New TripleDESCryptoServiceProvider
      des.Key = EncryptionKey
      des.IV = IV
      Return Encoding.UTF8.GetString(des.CreateDecryptor().TransformFinalBlock(buffer, 0, buffer.Length()))
     
    End Function

    La una sirve para encriptar un string y la otra desencripta el string encriptado.

    suert y saludos


    Javier

    jueves, 8 de diciembre de 2016 21:53