Rijndael und UTF8

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von 112marv.

    Rijndael und UTF8

    Hallo,
    ich verschlüssel eine txt über php mit Rijndael. Ich entschlüssle die txt dann wieder mit vb. Diese werden dann in eine ListBox geladen. Das funktioniert auch. Nur werden Wörter mit ä,ö,ü, usw. als ? dargestellt. Ich meiner Version ohne Verschlüsselung habe ich es hinbekommen, dass er mir die Zeichen richtig anzeigt. Weiß aber leider nicht mehr wie. Kann jemand helfen? Danke.

    VB.NET-Quellcode

    1. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    2. 'start.Hide()
    4. Dim downloadString As String
    6. Me.Cursor() = Cursors.Default
    8. ListBox1.Items.Clear()
    9. ListBox2.Items.Clear()
    12. ' Entschlüsseln der verteiler.txt
    14. downloadString = start.downloadString
    16. Dim sEncryptedString As String = downloadString
    18. Dim myRijndael As New RijndaelManaged
    19. myRijndael.Padding = PaddingMode.Zeros
    20. myRijndael.Mode = CipherMode.CBC
    21. myRijndael.KeySize = 256
    22. myRijndael.BlockSize = 256
    24. Dim toEncrypt() As Byte
    25. Dim encrypted() As Byte
    27. Dim IV() As Byte = System.Text.Encoding.UTF8.GetBytes("11111111111111111111111111111111")
    28. Dim key() As Byte = System.Text.Encoding.UTF8.GetBytes("jdlskajdlkasdjalksjdalksdjlakappo")
    31. Dim decryptor As ICryptoTransform = myRijndael.CreateDecryptor(key, IV)
    33. Dim sEncrypted As Byte() = Convert.FromBase64String(sEncryptedString)
    35. Dim fromEncrypt() As Byte = New Byte(sEncrypted.Length) {}
    37. Dim msDecrypt As New MemoryStream(sEncrypted)
    38. Dim csDecrypt As New CryptoStream(msDecrypt, decryptor, CryptoStreamMode.Read)
    40. csDecrypt.Read(fromEncrypt, 0, fromEncrypt.Length)
    42. Dim entext As String = System.Text.Encoding.UTF8.GetString(fromEncrypt)
    43. ' ______________________________________________________________________________________________________________
    45. 'MsgBox(entext)
    47. System.Threading.Thread.Sleep(2000)
    50. ListBox1.Items.Clear()
    52. loadfinish = True
    54. For i As Integer = 0 To entext.Split(";").Length
    56. 'TextBox_text.Text = TextBox_text.Text & "|" & entext.Split(";").GetValue(i)
    57. Dim Data() As String = entext.Split(";").GetValue(i).Split(",")
    58. If Data(0) = "" Then
    59. Else
    60. If i = entext.Split(";").Length - 1 Then
    61. Else
    62. Namen.Add(Data(0))
    63. ListBox1.Items.Insert(i, Data(0))
    64. Email.Add(Data(1))
    65. Wache.Add(Data(2))
    66. End If
    67. End If
    69. Next
    72. Me.Cursor() = Cursors.Default
    74. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „112marv“ ()

    Spontan würde ich sagen das es am Text encoding liegt.
    Hast du mal geprüft mit welchem Text.encoding php den Text in die Verschlüsselung schickt?
    Da es im englisch sprachigen Raum kein Umlaute gibt, führt das immer wieder zu Problemen.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    In der php steht nichts von einer Codierung.

    PHP-Quellcode

    1. /* Datei Verschlüsseln */
    3. // Liest eine Datei in ein Array.
    4. $lines = file("verteiler.txt");
    6. // Durchgehen des Arrays und Anzeigen des Quelltexts
    7. foreach ($lines as $line_num => $line)
    9. //Verschlüsseln
    10. $iv = "11111111111111111111111111111111"; // 32 * 8 = 256 bit iv
    11. $key = "jdlskajdlkasdjalksjdalksdjlakappo"; // 32 * 8 = 256 bit key
    13. $text = $line;
    15. $crypttext = mcrypt_encrypt(MCRYPT_RIJNDAEL_256, $key, $text, MCRYPT_MODE_CBC, $iv);
    17. //echo base64_encode($crypttext);
    20. ?>


    Das passiert übrigens noch im Hintergrund:

    VB.NET-Quellcode

    1. Dim wc As New System.Net.WebClient
    2. wc.DownloadString(".../mail5.php")
    3. Using wc2 As New Net.WebClient()
    4. wc2.Encoding = System.Text.Encoding.UTF8
    5. downloadString = wc2.DownloadString(".../verteiler.txt")
    6. End Using

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „112marv“ ()

    112marv schrieb:

    Dim entext As String = System.Text.Encoding.UTF8.GetString(fromEncrypt)

    Ich würde an der Stelle ansetzen und mal andere Encodings versuchen, allen voran Ansi und wenn das nicht hilft auch Unicode. Obwohl man eigentlich annehmen sollte, dass gerade sowas wie PHP von Haus aus UTF8 als Standard verwendet. Aber vielleicht wird ja vor dem Verschlüsseln des Textes noch seine Codierung geändert?
    Weltherrschaft erlangen: 1%
    Ist dein Problem erledigt? -> Dann markiere das Thema bitte entsprechend.
    Waren Beiträge dieser Diskussion dabei hilfreich? -> Dann klick dort jeweils auf den Hilfreich-Button.
    Danke.

    Ah jetzt hab ichs wieder. Ich darf warum auch immer nicht UTF8 benutzen sondern Default.

    Bsp:
    Nicht: Dim entext As String = System.Text.Encoding.UTF8.GetString(fromEncrypt)
    Sondern: Dim entext As String = System.Text.Encoding.Default.GetString(fromEncrypt)

    Funktioniert jetzt.

    Trotzdem danke.