Dim gp As New PasswordDeriveBytes(PasswordTextBox.Text, Nothing)
        Dim des3 As New TripleDESCryptoServiceProvider
 
        des3.Key = gp.GetBytes(196 / 8)
        des3.IV = gp.GetBytes(8)
 
        ' Write
        Dim fs As New FileStream("c:\encdata.txt", FileMode.Create)
        Dim cs As New CryptoStream(fs, des3.CreateEncryptor(), _
          CryptoStreamMode.Write)
        Dim sw As New StreamWriter(cs)
        sw.Write(TextBox1.Text)
        sw.Close()
 
        ' Read
        fs = New FileStream("c:\encdata.txt", FileMode.Open)
        cs = New CryptoStream(fs, des3.CreateDecryptor, CryptoStreamMode.Read)
        Dim sr As StreamReader = New StreamReader(cs)
        TextBox2.Text = sr.ReadLine()
        sr.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist