Private Sub PasswortDateiSpeichern()
        Dim i As Integer
        Dim DES As New DESCryptoServiceProvider
        With DES
            .Key = System.Text.Encoding.ASCII.GetBytes(pwd)
            .IV = System.Text.Encoding.ASCII.GetBytes(pwd)
        End With
 
        Dim fstream As New FileStream(MMI.SettingsDIR & "\Passwort.txt", _
          FileMode.Create)
        Dim cstream As New CryptoStream(fstream, DES.CreateEncryptor(), _
        CryptoStreamMode.Write)
        Dim swriter As New StreamWriter(cstream)
 
        Try
            For i = 1 To 4
                swriter.WriteLine(PasswortArray(i))
            Next
            swriter.Close()
        Catch ex As Exception
        End Try
end sub

    Private Sub PasswortDateiLaden()
        Dim i As Integer = 1
        Dim DES As New DESCryptoServiceProvider
        With DES
            .Key = System.Text.Encoding.ASCII.GetBytes(pwd)
            .IV = System.Text.Encoding.ASCII.GetBytes(pwd)
        End With
        Dim fstream As New FileStream(MMI.SettingsDIR & "\Passwort.txt", _
          FileMode.Open)
        Dim cstream As New CryptoStream(fstream, DES.CreateDecryptor, _
        CryptoStreamMode.Read)
        Dim sreader As New StreamReader(cstream)
 
        Try
            'Dim sr As New IO.StreamReader(MMI.SettingsDIR & "\Passwort.txt")
 
            For i = 1 To 4
                PasswortArray(i) = sreader.ReadLine
            Next
            sreader.Close()
        Catch ex As Exception
        End Try
    End Sub

mfg
rt