VB 这段解密函数哪位能帮我写出加密函数！

function Unlin(bb) but=94 for i = 1 to len(bb) if mid(bb,i,1)<>"晨" then If Asc(Mid(bb, i, 1)) < 32 Or Asc(Mid(bb, i, 1)) > 126 Then a = a & Chr(Asc(Mid(bb, i, 1))) else pk=asc(mid(bb,i,1))-but if pk>126 then pk=pk-95 elseif pk<32 then pk=pk+95 end if a=a&chr(pk) end if else a=a&vbcrlf end if next Unlin=a end Function

测试过，你这个解密过程就是把加密的字符ASCII加1后得到的字符，所以加密过程很简单，如下 Private Sub Command2_Click() Dim i As Integer Dim a As String Dim b As Integer Dim str As String For i = 1 To Len(Text1.Text) a = Mid(Text1.Text, i, 1) b = Asc(a) If b = 32 Then b = 127 str = str & Chr(b - 1) Next Text1.Text = str 'Text1.Text = lin(Text1.Text) End Sub 你试试，我测试没问题

居然还有这么简单的加密算法，连最古老的“密码本”算法都不如。