Text aus Video Datei auslesen.

  • VB.NET

    Text aus Video Datei auslesen.

    Hallo erst mal.

    Ich programiere schon einige Zeit.

    Seit neuestem, versuche ich einen eigenen Encrypter zu Programmieren.

    Habe es schon versucht mit "My.Computer.Filesystem.Readalltext(Pfad)".

    Hat aber nicht funktioniert.

    Mein Code ist folgender:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.IO
    3. Imports System.Text
    4. Public Class Form1
    5. Inherits System.Windows.Forms.Form
    7. ' Encrypt using stream (binary)
    8. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim rd As New RijndaelManaged
    11. Dim md5 As New MD5CryptoServiceProvider
    12. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    14. md5.Clear()
    15. rd.Key = key
    16. rd.GenerateIV()
    18. Dim iv() As Byte = rd.IV
    19. Dim ms As New MemoryStream
    21. ms.Write(iv, 0, iv.Length)
    23. Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
    24. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
    26. cs.Write(data, 0, data.Length)
    27. cs.FlushFinalBlock()
    29. Dim encdata() As Byte = ms.ToArray()
    30. TextBox3.Text = Convert.ToBase64String(encdata)
    31. cs.Close()
    32. rd.Clear()
    33. TextBox1.Text = ""
    34. End Sub
    36. ' Decrypt using stream (binary)
    37. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    39. On Error GoTo err
    40. Dim rd As New RijndaelManaged
    41. Dim rijndaelIvLength As Integer = 16
    42. Dim md5 As New MD5CryptoServiceProvider
    43. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    45. md5.Clear()
    47. Dim encdata() As Byte = Convert.FromBase64String(TextBox1.Text)
    48. Dim ms As New MemoryStream(encdata)
    49. Dim iv(15) As Byte
    51. ms.Read(iv, 0, rijndaelIvLength)
    52. rd.IV = iv
    53. rd.Key = key
    55. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    57. Dim data(ms.Length - rijndaelIvLength) As Byte
    58. Dim i As Integer = cs.Read(data, 0, data.Length)
    60. TextBox3.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
    61. cs.Close()
    62. rd.Clear()
    63. Exit Sub
    65. err:
    66. TextBox3.Text = "Error: Falsches Passwort"
    67. End Sub
    69. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    70. OpenFileDialog1.ShowDialog()
    71. ListView1.Items.Add(OpenFileDialog1.FileName)
    72. Dim test As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
    73. MsgBox(test)
    74. End Sub
    76. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    77. For i = 0 To ListView1.CheckedItems.Count - 1
    79. Dim nix As String = My.Computer.FileSystem.ReadAllText(ListView1.Items.Item(i).Text.ToString)
    80. MsgBox(nix)
    82. Next
    83. End Sub
    85. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    87. For i = 0 To ListView1.CheckedItems.Count - 1
    88. Dim test As String = ListView1.Items.Item(i).Text.ToString
    89. My.Computer.FileSystem.WriteAllText(test, TextBox3.Text, False)
    90. Next
    91. End Sub
    92. End Class


    Also sozusagen, das gleiche ergebnis, wenn man die videodatei mit dem Editor öffnet.
    Könnt Ihr mir helfen?

Facebook
Telefonspende