用VB做一个加密程序。

你这个不是已经有了加密的算法吗？做加法接可以了？

加密前　0 1 2 3 4 5 6 7 8 9 a b c d e f

相加值　1 2 1 6 4 0 8 7 4 3 1 2 1 6 4 0

加密后　1 3 3 9 8 5 d d b b b d d 4 3 f

就是：

加密前0、2、a、c，就加上1

加密前1、b，就加上2

加密前9，就加上3

加密前4、8、e，就加上4

加密前3、d，就加上6

加密前7，就加上7

加密前6，就加上8

加密前5、f，就加上0

'图上的控件,你就照着摆上去,然后再把以下代码拷进去,就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

---