|
Private Sub cmdCripta_Click() Dim Testo As String Open txtPercorso.Text For Input As #1 Input #1, Testo Close #1 Open txtPercorso.Text For Output As #2 Testo = Cripta(Testo) Print #2, Testo Close #2 MsgBox "File criptato" End Sub Private Sub Command1_Click() Dim Testo As String Open txtDecripta.Text For Input As #1 Input #1, Testo Close #1 Open txtDecripta.Text For Output As #2 Testo = DeCripta(Testo) Print #2, Testo Close #2 MsgBox "File decriptato" End Sub
|
|
