Criptare stringhe di testo

[oregon]

Nella TestDecoding devi passare la keyword

    Sub TestDecoding(ByVal riga As String, ByVal k As String)
        Dim cipherText As String = riga
        Dim wrapper As New Simple3Des(k)

così nel click del button

        Dim leggi As System.IO.StreamReader
        Dim riga As String


        leggi = IO.File.OpenText("C:\...")
        riga = leggi.ReadLine()
        leggi.Close()
        Call TestDecoding(riga, My.Settings.pass)