Verschlüsselung

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Verschlüsselung

      Ich habe aus langeweile einen verschlüsselungs algorythmus programmiert aber
      irgendwie hat er beim verschlüsseln fehler und ich find einfach nicht den grund

      vllt sieht ja einer von euch den fehler

      Quellcode

      1. Function CryptText(ByVal Text As String, ByVal Password As String, ByVal Pin As String)
      2. Dim STR As String = ""
      3. Dim md5cp As New System.Security.Cryptography.MD5CryptoServiceProvider
      4. Dim md5 As String = System.Text.Encoding.ASCII.GetString(md5cp.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Password)))
      5. md5cp = Nothing
      6. Dim Passwordarray() As Char = md5.ToCharArray
      7. Dim chars(2) As Char
      8. chars(0) = Passwordarray(Pin.Split(";")(0))
      9. chars(1) = Passwordarray(Pin.Split(";")(1))
      10. chars(2) = Passwordarray(Pin.Split(";")(2))
      11. Dim Textarray() As Char = Text.ToCharArray
      12. Dim x As Byte = 0
      13. For Each c As Char In Textarray
      14. Dim b1 As String = Convert.ToByte(c).ToString
      15. Dim b2 As String = Convert.ToByte(Passwordarray(x)).ToString
      16. If b1.Count <> 3 Then
      17. Do Until b1.Count = 3
      18. b1 = "0" + b1
      19. Loop
      20. End If
      21. If b2.Count <> 3 Then
      22. Do Until b2.Count = 3
      23. b2 = "0" + b2
      24. Loop
      25. End If
      26. Dim b1chars() As Char = b1.ToCharArray
      27. Dim b2chars() As Char = b2.ToCharArray
      28. STR += (Convert.ToInt16(b1chars(0)) + (Convert.ToInt16(b2chars(2)))).ToString & ":"
      29. STR += (Convert.ToInt16(b1chars(1)) + (Convert.ToInt16(b2chars(0)))).ToString & ":"
      30. STR += (Convert.ToInt16(b1chars(2)) + (Convert.ToInt16(b2chars(1)))).ToString
      31. STR += ";"
      32. Select Case x
      33. Case 0
      34. x += 1
      35. Case 1
      36. x += 1
      37. Case 2
      38. x = 0
      39. End Select
      40. Next
      41. Return STR
      42. End Function
      43. Function DeCryptText(ByVal Text As String, ByVal Password As String, ByVal Pin As String)
      44. Dim STR As String = ""
      45. Dim md5cp As New System.Security.Cryptography.MD5CryptoServiceProvider
      46. Dim md5 As String = System.Text.Encoding.ASCII.GetString(md5cp.ComputeHash(System.Text.Encoding.ASCII.GetBytes(Password)))
      47. md5cp = Nothing
      48. Dim Passwordarray() As Char = md5.ToCharArray
      49. Dim chars(2) As Char
      50. chars(0) = Passwordarray(Pin.Split(";")(0))
      51. chars(1) = Passwordarray(Pin.Split(";")(1))
      52. chars(2) = Passwordarray(Pin.Split(";")(2))
      53. Dim Textarray() As String = Text.Split(";")
      54. Dim x As Byte = 0
      55. For Each c As String In Textarray
      56. Dim b2 As String = Convert.ToByte(Passwordarray(x)).ToString
      57. If b2.Count <> 3 Then
      58. Do Until b2.Count = 3
      59. b2 = "0" + b2
      60. Loop
      61. End If
      62. MsgBox(c)
      63. Dim b1chars() As String = c.Split(":")
      64. Dim b2chars() As Char = b2.ToCharArray
      65. Dim Newbyte As String = ""
      66. Newbyte = (Convert.ToInt16(b1chars(0)) - (Convert.ToInt16(b2chars(2)))).ToString
      67. Newbyte &= (Convert.ToInt16(b1chars(1)) - (Convert.ToInt16(b2chars(0)))).ToString
      68. Newbyte &= (Convert.ToInt16(b1chars(2)) - (Convert.ToInt16(b2chars(1)))).ToString
      69. MsgBox(Newbyte)
      70. STR += Chr(CByte(Convert.ToInt64(Newbyte)))
      71. Select Case x
      72. Case 0
      73. x += 1
      74. Case 1
      75. x += 1
      76. Case 2
      77. x = 0
      78. End Select
      79. Next
      80. Return STR
      81. End Function
      Alles anzeigen
    • Werbung zur Unterstützung des Forums ( Bitte AddBlocker deaktivieren )