Fehler beim übersetzen mit case

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von picoflop.

    Fehler beim übersetzen mit case

    Hallo Leute!
    Ich arbeite seit letztens an einem crypter, der zuerst den Text mit Rijndael und dann zusätzlich nochmal mit einem Case verschlüsselt. hier der aktuelle code:

    VERSCHLÜSSELN:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim rd As New RijndaelManaged
    3. Dim md5 As New MD5CryptoServiceProvider
    4. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(PasswordToCrypt.Text))
    6. md5.Clear()
    7. rd.Key = key
    8. rd.GenerateIV()
    10. Dim iv() As Byte = rd.IV
    11. Dim ms As New MemoryStream
    13. ms.Write(iv, 0, iv.Length)
    15. Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
    16. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(TextToCrypt.Text)
    18. cs.Write(data, 0, data.Length)
    19. cs.FlushFinalBlock()
    21. Dim encdata() As Byte = ms.ToArray()
    22. TextToCrypt.Text = ""
    23. TextToCrypt.Text = Convert.ToBase64String(encdata)
    24. cs.Close()
    25. rd.Clear()
    26. UseCase = 1
    27. If UseCase = 1 Then
    28. Dim str As String, Newstr As String = Nothing
    29. str = TextToCrypt.Text
    30. For Each StrText As String In str
    31. Select Case True
    32. 'chars
    33. Case StrText = "a"
    34. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 1)
    35. .
    36. .
    37. .
    38. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 25)
    39. Case StrText = "z"
    40. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 26)
    41. 'nums
    42. Case StrText = "1"
    43. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 27)
    44. .
    45. .
    46. .
    47. Case StrText = "9"
    48. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 35)
    49. Case StrText = "0"
    50. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 36)
    52. 'UPER CASE
    53. Case StrText = "A"
    54. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 37)
    55. .
    56. .
    57. .
    58. .
    59. Case StrText = "Z"
    60. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 62)
    61. 'Secial Char
    63. Case StrText = "½"
    64. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 63)
    65. .
    66. .
    67. .
    68. Case StrText = "|"
    69. StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 98)
    70. Case True
    71. For I = 0 To X.Length - 1
    72. StrText = StrText.Replace(V.ElementAt(I), _
    73. X.ElementAt(I))
    74. Next
    75. End Select
    76. Newstr &= StrText
    77. Next
    78. TextToCrypt.Text = Newstr
    79. UseCase = 0
    80. End If



    ENTSCHLÜSSELN:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dim str As String, Newstr As String = Nothing
    2. str = TextToDecrypt.Text
    3. For Each StrText As String In str
    4. Select Case True
    5. 'chars
    6. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 1)
    7. StrText = "a"
    8. .
    9. .
    10. .
    11. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 26)
    12. StrText = "z"
    13. 'nums
    14. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 27)
    15. StrText = "1"
    16. .
    17. .
    18. .
    19. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 35)
    20. StrText = "9"
    21. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 36)
    22. StrText = "0"
    24. 'UPER CASE
    25. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 37)
    26. StrText = "A"
    27. .
    28. .
    29. .
    30. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 62)
    31. StrText = "Z"
    32. 'Secial Char
    34. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 63)
    35. StrText = "½"
    36. .
    37. .
    38. .
    39. Case StrText = ReadLine(Path.GetDirectoryName(Application.ExecutablePath) + "\CrypterData\EnDeCase.dll", 98)
    40. StrText = "|"
    41. Case True
    42. For I = 0 To X.Length - 1
    43. StrText = StrText.Replace(V.ElementAt(I), _
    44. X.ElementAt(I))
    45. Next
    46. End Select
    47. Newstr &= StrText
    48. Next
    49. TextToDecrypt.Text = Newstr
    50. Dim rd As New RijndaelManaged
    51. Dim rijndaelIvLength As Integer = 16
    52. Dim md5 As New MD5CryptoServiceProvider
    53. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(PasswordToDecrypt.Text))
    55. md5.Clear()
    56. Try
    57. Dim encdata() As Byte = Convert.FromBase64String(TextToDecrypt.Text)
    58. Dim ms As New MemoryStream(encdata)
    59. Dim iv(15) As Byte
    61. ms.Read(iv, 0, rijndaelIvLength)
    62. rd.IV = iv
    63. rd.Key = key
    64. Try
    65. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    67. Dim data(ms.Length - rijndaelIvLength) As Byte
    68. Dim i As Integer = cs.Read(data, 0, data.Length)
    70. TextToDecrypt.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
    71. cs.Close()
    72. rd.Clear()
    73. Catch CryptographicExceptionParameter As CryptographicException
    74. MessageBox.Show("Decrypting Process failure!" + vbCrLf + "(Password incorrect or wrong type?)", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    75. End Try
    76. Catch formatExceptionParameter As FormatException
    77. MessageBox.Show("Decrypting Process failure!" + vbCrLf + "(Password incorrect or wrong type?)", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    78. End Try



    EnDeCase.dll:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. z
    2. y
    3. x
    4. w
    5. v
    6. u
    7. t
    8. s
    9. r
    10. q
    11. p
    12. o
    13. n
    14. m
    15. l
    16. k
    17. j
    18. i
    19. h
    20. g
    21. f
    22. e
    23. d
    24. c
    25. b
    26. a
    27. 0
    28. 9
    29. 8
    30. 7
    31. 6
    32. 5
    33. 4
    34. 3
    35. 2
    36. 1
    37. Z
    38. Y
    39. X
    40. W
    41. V
    42. U
    43. T
    44. S
    45. R
    46. Q
    47. P
    48. O
    49. N
    50. M
    51. L
    52. K
    53. J
    54. I
    55. H
    56. G
    57. F
    58. E
    59. D
    60. C
    61. B
    62. A
    63. |
    64. _
    65. :
    66. ;
    67. <
    68. ~
    69. ¨
    70. ´
    71. \
    72. }
    73. ]
    74. [
    75. {
    76. €
    77. $
    78. £
    79. @
    80. §
    81. -
    82. .
    83. ,
    84. >
    85. *
    86. ^
    87. `
    88. ?
    89. =
    90. )
    91. (
    92. /
    93. &
    94. %
    95. ¤
    96. #
    97. !
    98. ½



    auf die function ReadLine möchte ich jetzt nicht weiter eingehen, diese steht woanders.
    Das verschlüsseln klappt fehlerlos.
    Beim entschlüsseln tritt jedoch der fehler auf, dass im case als EINZIGES das z zu einem a übersetzt wird. der rest wird nicht übersetzt. --> fehler beim entschlüsseln mit rijndael.
    kann mir einer beim finden des fehlers helfen?
    danke im vorraus!

    //EDIT: Überall, wo im code 3zeilen lang . steht, ist die reihenfolge klar, und es wurde wegen max. 15000 zeichen gekürzt.

    1. Ist die weitere Verschlüsselung eines mit AES verschlüsselten Textes unsinnig. Um so unsinniger, wenn ein einfacher Zeichentauscher verwendet wird.
    2. Ist die Verwendung von Select-Case für eine Zeichenvertauschung aber sowas von unschön ... Fleiß: 9/10, Hirnschmalz: 0/10

    EDIT:
    3. Die VERÄNDERUNG der Iterationsvariable IN der Schleife ist Mega-Murks

Facebook
Telefonspende