圣罗兰包包价格:VB.net实现简单的加密解密--->该怎么写代码

什么~~这也叫加密啊,那我教你一招超简单的"加密"方法
一个textbox1(输入文本的) button1(名为加密) button2(名为解密)
button1的单击事件 TextBox1.Font = New System.Drawing.Font("Symbol", CType(9, Byte))
button2的单击事件 TextBox1.Font = New System.Drawing.Font("宋体", CType(9, Byte))
如果你要有密码的,你可以dim一个变量用来存储textbox2的值然后用来判断密码是否输入正确

已在VB上调试通过：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim i, j As Integer
Dim et(TextBox1.Text.Length) As Char

j = 0
For i = 0 To TextBox1.Text.Length - 1
et(i) = Chr(AscW(TextBox1.Text.Chars(i)) + AscW(TextBox2.Text.Chars(j)))
j = j + 1
If j >= TextBox2.Text.Length Then j = 0
Next
TextBox1.Text = et
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim i, j As Integer
Dim et(TextBox1.Text.Length) As Char

j = 0
For i = 0 To TextBox1.Text.Length - 1
et(i) = Chr(AscW(TextBox1.Text.Chars(i)) - AscW(TextBox2.Text.Chars(j)))
j = j + 1
If j >= TextBox2.Text.Length Then j = 0
Next
TextBox1.Text = et
End Sub