vb程序设计 加密解密字符串

'对文本框的MultiLine=True和ScrollBars=3的设置，要在属性窗口中进行，在第一个文本框中输入回车，即可执行 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer, i As Integer, pwd As String, oByte() As Byte, temp() As String If KeyAscii = 13 Then i = 0 pwd = Text1 n = Len(p