- 15 Luglio 2008
- 638
- 0
- Miglior risposta
- 0
In questa guida vediamo come creare un codificatore e decodificatore di stringhe in vb.net.
Allora per prima cosa creiamo
2 textbox
e
2 bottoni
un bottone chiamiamolo Codifica e l'altro Decodifica.
poi le textbox lasciatele come sono ( textbox1 e textbox2 )
Facciamo doppio click sul bottone Codifica e inseriamo questo codice:
Poi di nuovo doppio click su decodifica e inseriamo:
Creiamo una funzione ( questa decodifica )
Questa funzione decodifica
Ecco il codice completo perfettamente funzionante creato man mano nella guida
Eseguibile di esempio:
Codici originali:
Ci ho solo fatto la guida
Allora per prima cosa creiamo
2 textbox
e
2 bottoni
un bottone chiamiamolo Codifica e l'altro Decodifica.
poi le textbox lasciatele come sono ( textbox1 e textbox2 )
Facciamo doppio click sul bottone Codifica e inseriamo questo codice:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Poi di nuovo doppio click su decodifica e inseriamo:
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Creiamo una funzione ( questa decodifica )
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Questa funzione decodifica
Codice:
Perfavore,
Entra
oppure
Registrati
per vedere i codici!
Ecco il codice completo perfettamente funzionante creato man mano nella guida
Public Class Form1
Private Sub Codifica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Codifica.Click
Me.TextBox2.Text = Encode(Me.TextBox1.Text)
End Sub
Function Encode(ByVal dec As String) As String
Dim bt() As Byte
ReDim bt(dec.Length)
bt = System.Text.Encoding.ASCII.GetBytes(dec)
Dim enc As String
enc = System.Convert.ToBase64String(bt)
Return enc
End Function
Function Decode(ByVal enc As String) As String
Dim bt() As Byte
bt = System.Convert.FromBase64String(enc)
Dim dec As String
dec = System.Text.Encoding.ASCII.GetString(bt)
Return dec
End Function
Private Sub Codificare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DECodifica.Click
Me.TextBox1.Text = Decode(Me.TextBox2.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Private Sub Codifica_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Codifica.Click
Me.TextBox2.Text = Encode(Me.TextBox1.Text)
End Sub
Function Encode(ByVal dec As String) As String
Dim bt() As Byte
ReDim bt(dec.Length)
bt = System.Text.Encoding.ASCII.GetBytes(dec)
Dim enc As String
enc = System.Convert.ToBase64String(bt)
Return enc
End Function
Function Decode(ByVal enc As String) As String
Dim bt() As Byte
bt = System.Convert.FromBase64String(enc)
Dim dec As String
dec = System.Text.Encoding.ASCII.GetString(bt)
Return dec
End Function
Private Sub Codificare_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DECodifica.Click
Me.TextBox1.Text = Decode(Me.TextBox2.Text)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Codici originali:
Perfavore,
Entra
oppure
Registrati
per vedere i Link!
Ci ho solo fatto la guida
Ultima modifica:
