dim b1() as byte,b2() as byte
dim s1 as string ,s2 as string
dim i as long
s1="..."
s2="..."
b1=s1
b2=s2
for i=0 to ubound(b1)
b1(i)=b1(i) xor b2(i)
next如何显示加密后的字串呢??我用debug.print b1只是显示ppp.
dim s1 as string ,s2 as string
dim i as long
s1="..."
s2="..."
b1=s1
b2=s2
for i=0 to ubound(b1)
b1(i)=b1(i) xor b2(i)
next如何显示加密后的字串呢??我用debug.print b1只是显示ppp.
阿弥陀佛……