[求助]VB的简单加密我来我网·5come5 Forum

我来我网·5come5 Forum » 电脑技术 » 程序员之家 » [求助]VB的简单加密

本页主题: [求助]VB的简单加密	显示签名 \| 打印 \| 加为IE收藏 \| 收藏主题 \| 上一主题 \| 下一主题

∷ 性别:

∷ 状态:

∷ 头衔: 这一刻,我......

∷ 等级: 管理员

∷ 家族: 活动仔

∷ 发贴: 22586

∷ 威望: 10

∷ 浮云: 142

∷ 在线等级:

∷ 注册时间: 2005-10-10

∷ 最后登陆: 2024-04-15

【复制此帖地址只看此人回复】

5come5帮你背单词 [ push /pu∫/ n. 推，推动，推进，促使，催促；vt. 推，推动，促进，突袭，攻击 ]

[求助]VB的简单加密

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重新编辑 ]