Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
 
Module Module1
 
    Sub Main()
        ' Ein neues DES-Wrapper-Objekt
        Dim MyDESCryptoServiceProvider As New DESCryptoServiceProvider()
        Const Filename As String = "EncryptedFile.txt"
        Dim TextToEncrypt As String = "Encrypt me!"
        Dim DecryptedText As String = String.Empty
        ' Prüfen ob die Datei im Anwendungsverzeichnis bereits existiert
        If Not File.Exists(Filename) Then
            ' Verschlüsseln
            EncryptTextToFile(TextToEncrypt, _
                              Filename, _
                              MyDESCryptoServiceProvider.Key(), _
                              MyDESCryptoServiceProvider.IV())
            ' Verschlüsselt ausgeben
            Console.WriteLine("Verschlüsselt: " & File.ReadAllText(Filename))
            ' Entschlüsseln <- hier funktioniert es
            DecryptedText = DecryptTextFromFile(Filename, _
                                                MyDESCryptoServiceProvider.Key( _
                                                ), _
                                                MyDESCryptoServiceProvider.IV())
            ' Entschlüsselt ausgeben
            Console.WriteLine("Entschlüsselt: " & DecryptedText)
        Else
            Try
                ' Entschlüsseln <- hier funktioniert es nicht mehr
                DecryptedText = DecryptTextFromFile(Filename, _
                                                    MyDESCryptoServiceProvider._
                                                    Key(), _
                                                    MyDESCryptoServiceProvider._
                                                    IV())
                ' Entschlüsselt ausgeben
                Console.WriteLine("Entschlüsselt: " & DecryptedText)
            Catch ex As Exception
                ' Error: Ungültige Daten ???
                Console.WriteLine("Error: " & ex.Message)
            End Try
        End If
        Console.ReadLine()
    End Sub
 
    ' Funktion zur Umwandlung von einem String in ein Byte-Array
    Private Function ConvertStringToByteArray(s As String) As Byte()
        Dim MyUnicodeEncoding As New UnicodeEncoding
        Return MyUnicodeEncoding.GetBytes(s)
    End Function
 
    ' Verschlüsseln
    Private Sub EncryptTextToFile(Text As String, fName As String, myDES_Key() _
      As Byte, myDES_IV() As Byte)
        'Text in Byte-Array umwandeln
        Dim MyByteArray() As Byte = ConvertStringToByteArray(Text)
        ' FileStream, welcher die verschlüsselte Datei schreiben soll, wird 
        ' erzeugt
        Dim MyFileStream As New FileStream(fName, FileMode.Create, _
          FileAccess.Write)
        ' Neue Wrapper-Instanz
        Dim NewDES As New DESCryptoServiceProvider()
        ' Neuer Encryptor
        Dim CryptoStreamEncryptor As New CryptoStream(MyFileStream, _
                                                      NewDES.CreateEncryptor( _
                                                      myDES_Key, myDES_IV), _
                                                      CryptoStreamMode.Write)
        ' Byte-Array in den CryptoStream schreiben
        CryptoStreamEncryptor.Write(MyByteArray, 0, MyByteArray.Length)
        ' Schließen
        CryptoStreamEncryptor.Close()
    End Sub
 
    ' Entschlüsseln
    Private Function DecryptTextFromFile(fName As String, myDES_Key() As Byte, _
      myDES_IV() As Byte) As String
        'Filestream erzeugen, um die verschlüsselte Datei einzulesen
        Dim MyFileStream As New FileStream(fName, FileMode.Open, _
          FileAccess.Read)
        ' Neue Wrapper-Instanz
        Dim NewDES As New DESCryptoServiceProvider()
        'CryptoStream erzeugen, um die verschlüsselten Bytes zu entschlüsseln
        Dim CryptoStreamDecryptor As New CryptoStream(MyFileStream, _
                                                      NewDES.CreateDecryptor( _
                                                      myDES_Key, myDES_IV), _
                                                      CryptoStreamMode.Read)
        Dim MyStreamReader As New StreamReader(CryptoStreamDecryptor, New _
          UnicodeEncoding())
        ' Inhalt in String speichern
        Dim EnryptedText As String = MyStreamReader.ReadToEnd()
        ' Schließen
        CryptoStreamDecryptor.Close()
        ' Inhalt zurückgeben
        Return EnryptedText
    End Function
 
End Module