您的位置：程序门 -> vb -> 网络编程

vb问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

vb问题

发表于：2007-04-28 16:36:59 楼主

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 i as long
dim j as byte
dim k as byte, m as byte
dim mstr as string
mstr= "abcdefghijklmnopqrstuvwxyz0123456789abcdefghijklmnopqrstuvwxyz "
dim outs as string
i = ubound（buff) + 1
outs = space（2 * i)
dim temps as string
for i = 0 to ubound（buff)
randomize time
j = cbyte（5 * （math.rnd（)) + 0) '最大产生的随机数只能是5，不能再大了,再大的话，就要多用一个字节
buff（i) = buff（i) xor j
k = buff（i) mod len（mstr)
m = buff（i) \ len（mstr)
m = m * 2 ^ 3 + j
temps = mid（mstr, k + 1, 1) + mid（mstr, m + 1, 1)
mid（outs, 2 * i + 1, 2) = temps
next
encode = outs
end function

发表于：2007-04-28 17:48:561楼得分:0

什么问题

下一篇：菜鸟提问~~~
上一篇：问一下为什么编译可以运行生成后出错

其他资讯