dim s1 as string
s1="abcde"
dim s2 as string
dim i as integer
s2=""
for i=1 to len(s1)
s2=s2+chr(asc(mid(s1,i,1)) xor 100)
next
debug.print s2
s1="abcde"
dim s2 as string
dim i as integer
s2=""
for i=1 to len(s1)
s2=s2+chr(asc(mid(s1,i,1)) xor 100)
next
debug.print s2
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货