0

vb.net コードを使用して電子メール アドレスを暗号化する方法を知りたいです。

特殊文字でうまく機能しないサンプルを 1 つ見つけましたが、次のエラーが発生しています。

The input is not a valid Base-64 string as it contains a non-base 64 character, more than two padding characters, or a non-white space character among the padding characters.

これが私が試しているコードです:

  'The function used to encrypt the text
    Private Function Encrypt(ByVal strText As String, ByVal strEncrKey _
             As String) As String
        Dim byKey() As Byte = {}
        Dim IV() As Byte = {&H12, &H34, &H56, &H78, &H90, &HAB, &HCD, &HEF}

        Try
            byKey = System.Text.Encoding.UTF8.GetBytes(Left(strEncrKey, 8))

            Dim des As New DESCryptoServiceProvider()
            Dim inputByteArray() As Byte = Encoding.UTF8.GetBytes(strText)
            Dim ms As New MemoryStream()
            Dim cs As New CryptoStream(ms, des.CreateEncryptor(byKey, IV), CryptoStreamMode.Write)
            cs.Write(inputByteArray, 0, inputByteArray.Length)
            cs.FlushFinalBlock()
            Return Convert.ToBase64String(ms.ToArray())

        Catch ex As Exception
            Return ex.Message
        End Try

    End Function

皆さんはどう思いますか？私は何を間違っていますか？ありがとう、ラツィアーレ

更新: 完全なスタック トレース:

System.FormatException がキャッチされました Message=Base64 以外の文字、3 つ以上のパディング文字、またはパディング文字の間に空白以外の文字が含まれているため、入力は有効な Base-64 文字列ではありません。ソース = mscorlib StackTrace: D:\Website\Account\Login.aspx.vb:line 213 InnerException の WEBsite.Login.Decrypt(String strText, String sDecrKey) の System.Convert.FromBase64String(String s) で:

更新 2:

追加された暗号化方法:

'テキストの復号化に使用される関数

  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(sDecrKey, 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

2 に答える 2

1

暗号化されたテキストと同じキーを入力として使用して、復号化を試みました。
期待どおりに動作します。私があなたのコードに加えた唯一の変更は、左の代わりに Substring メソッドを使用することです

byKey = System.Text.Encoding.UTF8.GetBytes(strDecrKey.Substring(0, 8))

この 2 つのメソッドを次のように呼び出します。

Dim result as String = Encrypt("test@gmail.com", "ABCD9876") 
Dim decrypted = Decrypt(result, "ABCD9876")

「test@gmail.com」が返ってきます。
-ブォン・ウィークエンド アンチェ・ア・テ-

于 2012-09-21T22:40:47.250 に答える
0

特殊文字を含むパラメータとして、string の代わりに String Builder を使用します。

よろしくお願いします。

于 2012-09-24T18:33:47.880 に答える