'Der Encryper
    Sub EncryptToSingleFile(ByVal Path() As String, ByVal Desination As String)
 
        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
 
        Dim header As String = Path.Length & vbCrLf
 
        For i As Integer = 0 To Path.Length - 1
 
            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 = FileIO.FileSystem.ReadAllBytes(Path(i))
 
            cs.Write(data, 0, data.Length)
            cs.FlushFinalBlock()
 
            Dim encdata() As Byte = ms.ToArray
 
            If Not FileIO.FileSystem.DirectoryExists("C:\Temp\TPC\") Then
 
                MkDir("C:\Temp\TPC\")
 
            End If
 
            Dim StrEncdata As String = Encoding.UTF8.GetString(encdata)
 
            FileIO.FileSystem.WriteAllText("C:\Temp\TPC\" & i & ".aes", _
              StrEncdata, False)
 
            Dim Filename As String = Path(i).Remove(0, Path(i).LastIndexOf("\"))
 
            header += Filename & "?" & StrEncdata.Length & vbCrLf
 
        Next
 
        header = header.Length + header.Length.ToString.Length + 5 & vbCrLf & _
          header
 
        FileIO.FileSystem.WriteAllText(desination & ".header", header, False)
 
        For i As Integer = 0 To Path.Length - 1
 
            Dim Current As String = FileIO.FileSystem.ReadAllText( _
              "C:\Temp\TPC\" & i & ".aes")
            Dim test As Integer = Current.Length
            FileIO.FileSystem.WriteAllText(desination, Current, True)
 
        Next
 
    End Sub

 
' Der Decrypter
    Sub DecryptFromFile(ByVal File As String, ByVal TargetDirectory As String)
 
        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()
 
        ' Auslesen der Headerinformationen
        Dim header As String = FileIO.FileSystem.ReadAllText(File & ".header")
        Dim headerLength As Integer = Split(header, vbCrLf)(0)
 
        Dim FileCount As Integer = Split(header, vbCrLf)(1)
        Dim position As Integer
        For j As Integer = 0 To FileCount - 1
 
            Dim dataLength As Integer = Split(header, vbCrLf)(j + 2).Split("?")( _
              1)
            Dim dataName As String = Split(header, vbCrLf)(j + 2).Split("?")(0)
 
 
            Dim iv(15) As Byte
            Dim encdata() As Byte = FileIO.FileSystem.ReadAllBytes(File)
            ' Hier habe ich schon X codes drin gehabt um eine einzelne Datei an 
            ' den Memorystream zu reichen
            ' was bisher nur bei einzel Datein funktioniert hat.
            Dim ms As New MemoryStream(encdata)
            ms.Read(iv, 0, RijndaelIVLength)
            rd.IV = iv
            rd.Key = key
 
            Dim cs As New CryptoStream(ms, rd.CreateDecryptor, _
              CryptoStreamMode.Read)
 
            Try
                Dim data(ms.Length - RijndaelIVLength) As Byte
                Dim i As Integer = cs.Read(data, 0, data.Length)
                FileIO.FileSystem.WriteAllBytes(dataName, data, False)
                cs.Close()
                rd.Clear()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Next
 
    End Sub