Question

用VB写个简单加密/解密程序

分两种加密方式：1、对字串加密（有可能很长，一篇文章）；2、对*.TXT文件加密
加密要求：1、将原文中所有空格删除后，把字符逐个用其区位码代替
2、从"A,B,C,D"中随机取一字母代替数字"0"；从"E,F,G,H"中随机取一字母代替数字"1"；从"I,J,K,L"中随机取一字母代替数字"3"；......从"m,n,o,p"中随机取一字母代替数字"9"
解密要求：与上述过程相反（不用详述了吧），但要求在解出来的文本前加入特定字符"ABC..."不包括引号且不需补充加密前的空格

Answer 1

'图上的控件,你就照着摆上去,然后再把以下代码拷进去,就OK了
Dim lg As Integer
'加密
Private Sub Command1_Click()
Text2 = ""
Dim a(), b() As String
lg = Len(Text1)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text1, i, 1)
b(i) = AscW(a(i)) Xor 4
Text2 = Text2 & ChrW(b(i))
Next
End Sub
'解密
Private Sub Command2_Click()
Text3 = ""
Dim a(), b() As String
lg = Len(Text2)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text2, i, 1)
b(i) = AscW(a(i)) Xor 4
Text3 = Text3 & ChrW(b(i))
Next
End Sub

Answer 2

Private function x2n(oteout) ' 加密
oteout = Replace(oteout,