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:
Also sozusagen, das gleiche ergebnis, wenn man die videodatei mit dem Editor öffnet.
Könnt Ihr mir helfen?
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
- Imports System.Security.Cryptography
- Imports System.IO
- Imports System.Text
- Public Class Form1
- Inherits System.Windows.Forms.Form
- ' Encrypt using stream (binary)
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Dim rd As New RijndaelManaged
- Dim md5 As New MD5CryptoServiceProvider
- Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
- md5.Clear()
- rd.Key = key
- rd.GenerateIV()
- Dim iv() As Byte = rd.IV
- Dim ms As New MemoryStream
- ms.Write(iv, 0, iv.Length)
- Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
- Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(TextBox1.Text)
- cs.Write(data, 0, data.Length)
- cs.FlushFinalBlock()
- Dim encdata() As Byte = ms.ToArray()
- TextBox3.Text = Convert.ToBase64String(encdata)
- cs.Close()
- rd.Clear()
- TextBox1.Text = ""
- End Sub
- ' Decrypt using stream (binary)
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- On Error GoTo err
- Dim rd As New RijndaelManaged
- Dim rijndaelIvLength As Integer = 16
- Dim md5 As New MD5CryptoServiceProvider
- Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
- md5.Clear()
- Dim encdata() As Byte = Convert.FromBase64String(TextBox1.Text)
- Dim ms As New MemoryStream(encdata)
- Dim iv(15) As Byte
- ms.Read(iv, 0, rijndaelIvLength)
- rd.IV = iv
- rd.Key = key
- Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
- Dim data(ms.Length - rijndaelIvLength) As Byte
- Dim i As Integer = cs.Read(data, 0, data.Length)
- TextBox3.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
- cs.Close()
- rd.Clear()
- Exit Sub
- err:
- TextBox3.Text = "Error: Falsches Passwort"
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- OpenFileDialog1.ShowDialog()
- ListView1.Items.Add(OpenFileDialog1.FileName)
- Dim test As String = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
- MsgBox(test)
- End Sub
- Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
- For i = 0 To ListView1.CheckedItems.Count - 1
- Dim nix As String = My.Computer.FileSystem.ReadAllText(ListView1.Items.Item(i).Text.ToString)
- MsgBox(nix)
- Next
- End Sub
- Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
- For i = 0 To ListView1.CheckedItems.Count - 1
- Dim test As String = ListView1.Items.Item(i).Text.ToString
- My.Computer.FileSystem.WriteAllText(test, TextBox3.Text, False)
- Next
- End Sub
- End Class
Also sozusagen, das gleiche ergebnis, wenn man die videodatei mit dem Editor öffnet.
Könnt Ihr mir helfen?