ListView verschlüsselt speichern bzw. laden

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    ListView verschlüsselt speichern bzw. laden

    Hallo,

    ich arbeite schon länger an einem kleinem Projekt und benötige nun etwas hilfe. Ich versuche meine ListView-Einträge verschlüsselt zu speichern, was ich auch geschafft habe:

    VB.NET-Quellcode

    1. Public Function ListViewSave(ByRef LstVw As ListView, ByVal Path As String)
    2. Dim ListViewContent As String = ""
    4. For I As Integer = 0 To LstVw.Items.Count - 1
    5. ListViewContent += LstVw.Items.Item(I).Text & "|"
    6. For Int As Integer = 0 To LstVw.Items.Item(I).SubItems().Count - 1
    7. ListViewContent += LstVw.Items.Item(I).SubItems(Int).Text & "|"
    8. Next
    9. ListViewContent += vbNewLine
    10. Next
    11. If System.IO.File.Exists(Path) Then
    12. System.IO.File.Delete(Path)
    13. End If
    17. 'Verschlüsselung
    19. Dim rd As New RijndaelManaged
    20. Dim EncString As String
    21. Dim md5 As New MD5CryptoServiceProvider
    22. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("bb43da1314aae739ba84b19b5a8525ba"))
    24. md5.Clear()
    25. rd.Key = key
    26. rd.GenerateIV()
    28. Dim iv() As Byte = rd.IV
    29. Dim ms As New MemoryStream
    31. ms.Write(iv, 0, iv.Length)
    33. Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
    34. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(ListViewContent)
    36. cs.Write(data, 0, data.Length)
    37. cs.FlushFinalBlock()
    39. Dim encdata() As Byte = ms.ToArray()
    40. EncString = Convert.ToBase64String(encdata)
    41. cs.Close()
    42. rd.Clear()
    45. System.IO.File.AppendAllText(Path, EncString)
    47. End Function


    Nun will ich das ganze wieder entschlüsseln und die Einträge in die Listview zu laden.

    VB.NET-Quellcode

    1. Public Function ListViewLoad(ByRef LstVw As ListView, ByVal Path As String)
    2. Dim sLine As String
    3. Dim sItem() As String
    4. Dim ItemX As ListViewItem
    5. Dim IntCols As Integer
    6. IntCols = LstVw.Columns.Count
    8. FileOpen(1, Path, OpenMode.Input)
    10. With LstVw.Items
    11. While Not EOF(1)
    12. sLine = LineInput(1)
    14. sItem = Split(sLine, "|")
    16. ItemX = .Add(sItem(0), sItem(1))
    18. For I = 2 To IntCols
    19. ItemX.SubItems.Add(sItem(I))
    20. Next I
    21. End While
    22. End With
    23. FileClose(1)
    24. End Function


    Das ganze habe ich versucht mit diesem Tutorial .

Facebook
Telefonspende