1

VB.NET で電子メール アドレスを復号化しようとしていますが、「Base-64 文字配列の長さが無効です」というエラーが表示されます。

エラーが発生したメールアドレス: abcadmin@googlemail.com

問題なく動作するメールアドレス: admin@yahoo.com

解読するためのコード:

  Private Function Decrypt(ByVal strText As String, ByVal sDecrKey _
               As String) As String
        Dim byKey() As Byte = {}
        Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}
        Dim inputByteArray(strText.Length) As Byte

        Try


            byKey = System.Text.Encoding.UTF8.GetBytes(Left("ABCD9876_", 8))
            Dim des As New DESCryptoServiceProvider()
            inputByteArray = Convert.FromBase64String(strText)
            Dim ms As New MemoryStream()
            Dim cs As New CryptoStream(ms, des.CreateDecryptor(byKey, IV), CryptoStreamMode.Write)

            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Dim encoding As System.Text.Encoding = System.Text.Encoding.UTF8

            Return encoding.GetString(ms.ToArray())

        Catch ex As Exception
            Return ex.Message
        End Try

    End Function

前もって感謝します、 ラツィアーレ

4

0 に答える 0