Option Explicit
Private Sub Command1_Click()
Dim i As Long
For i = 1 To 100
Text2.Text = encode(Text1.Text)
Next
End Sub

Private Function encode(ByVal s As String) As String
If Len(s) = 0 Then Exit Function
Dim buff() As Byte
buff = StrConv(s, vbFromUnicode)
Dim k As Byte
Dim i As Long
Dim mstr As String
mstr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789abcdefghijklmnopqrstuvwxyz"
Dim res As String
Dim temps As String
i = UBound(buff) + 1
res = Space(2 * i)
For i = 0 To UBound(buff)
  k = buff(i) Xor 2
  Text3.Text = k
  temps = Mid(mstr, k + 1, 1)
  Mid(res, i + 1, 1) = temps
Next
encode = res
End Function


[ 此贴被X在2007-05-05 23:32重新编辑 ]

为什么只支持数字...不支持字母跟汉字

算法思路就是直接

buff(i) Xor 2

求修改意见

Quote:

引用第7楼yinx于2007-05-08 13:30发表的:
或者你不管原来是什么东东,全部都按字节加密,保存成一个文件,
对文件按字节解密得原文,这样多好啊.

听起来很不错的方法,怎么按字节加密存?

求祥解ASC跟UNICO跟汉字编码...