AES 256 Bit Verschlüsselungs-Control V 0.3

    • Beta

    Es gibt 25 Antworten in diesem Thema. Der letzte Beitrag () ist von cxxh.

      *hust*
      Bitte nur auf "+" drücken wenn du der eigentümer bist

      VB.NET-Quellcode

      1. Imports System.Security.Cryptography
      3. Public Class Form1
      4. Public Shared Function verschlüssel(ByVal input As String, ByVal passwort As String)
      5. Dim oAesProvider As New AesManaged
      6. Dim btClear() As Byte
      8. ' Das 'Salz' wird verwendet um das Passwort zu 'würzen'. Es müssen
      9. ' hier mindestens 8 Bytes angegeben werden die einen zusätzlich
      10. ' Parameter zur Berechnung des Schlüssels darstellen. Nur wer das
      11. ' richtige Passwort und das verwendete Salz kennt, kann die Daten
      12. ' entschlüsseln.
      13. Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
      15. Dim oKeyGenerator As New Rfc2898DeriveBytes(passwort, btSalt)
      17. ' Durch die Key und IV (Initialisation vector) Eigenschaften wird
      18. ' der Algorithmus initialisiert:
      19. oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
      20. oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
      22. Dim ms As New IO.MemoryStream
      23. Dim cs As New CryptoStream(ms, _
      24. oAesProvider.CreateEncryptor(), _
      25. CryptoStreamMode.Write)
      26. btClear = System.Text.Encoding.UTF8.GetBytes(input)
      27. cs.Write(btClear, 0, btClear.Length)
      28. cs.Close()
      29. Return Convert.ToBase64String(ms.ToArray)
      30. End Function
      32. Public Shared Function enschlüssel(ByVal passwort As String, ByVal input As String)
      33. Dim oAesProvider As New AesManaged
      34. Dim btCipher() As Byte
      36. Dim btSalt() As Byte = New Byte() {1, 2, 3, 4, 5, 6, 7, 8}
      37. Dim oKeyGenerator As New Rfc2898DeriveBytes(passwort, btSalt)
      38. oAesProvider.Key = oKeyGenerator.GetBytes(oAesProvider.Key.Length)
      39. oAesProvider.IV = oKeyGenerator.GetBytes(oAesProvider.IV.Length)
      41. Dim ms As New IO.MemoryStream
      42. Dim cs As New CryptoStream(ms, oAesProvider.CreateDecryptor(), _
      43. CryptoStreamMode.Write)
      44. Try
      45. btCipher = Convert.FromBase64String(Input)
      46. cs.Write(btCipher, 0, btCipher.Length)
      47. cs.Close()
      48. Return System.Text.Encoding.UTF8.GetString(ms.ToArray)
      49. Catch ex As Exception
      50. MsgBox(ex.Message, _
      51. MsgBoxStyle.Exclamation, _
      52. "Fehler!")
      53. End Try
      54. End Function
      55. End Class

      *tiefdurchatmen*
      1. So sieht mein Code nun ganz und gar nicht aus
      2. Ich habe den Code, bzw. die Verschlüsselung, selber geschrieben. Mein Programm liest alles aus, und berechnet die Verschlüsselung selbst (!)
      3. Ich habe keinen Code aus dem Internet verwendet, ich habe mir lediglich folgende Links herangezogen, und etwas Hintergrundwissen aus Seminaren aus meinem Gehirn gekramt:
      - de.wikipedia.org/wiki/Advanced_Encryption_Standard
      - seagate.com/staticfiles/docs/p…bit_versus_256_bit_de.pdf


      (davon ganz abgesehen scheint mir das obere keine AES 256 Bit Verschlüsselung zu sein)

      wozu is dann dieses Forum ^^ irgendjemand wird alles was hier drinn steht schon mal gemacht haben.....
      Aber das Ding was du rausgekramt hast nutzt eine ähnliche Struktur wie meins, zumidest brauche ich die gleichen Variablen.
      Aber niemand stellt unter "Showroom und TESTCENTER" etwas rein, damit die anderen ihm sagen, dass es das schonmal irgendwo gab!!!
      Ausserdem habe ich auch schon veränderungen angekündigt, die du, wie durch den Teil "Was macht deine Lib so besonders", wohl überlesen haben musst...

      Ansonsten wünsche ich ein schönes Restwochenende.

    Facebook
    Telefonspende