哪位能解释一下

[ahbbdbc]

function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
具体是什么意识呀 多谢各位

[tantaiyizu]

把字符串转换为 ascii码

[tantaiyizu]

把字符串转换为 ascii码

[heshengfen123]

看似加密函数

[什么都不能]

凯撒加密算法？

[一把编程的菜刀]

function encrypt(ecode)
Dim texts '定义接受数据变量
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i) '次为把传送过来的字符串经过转换，可以得到一定得加密效果
next
encrypt = texts '最都得到加密结果
end function

[ahbbdbc]

chr(asc(mid(ecode,i,2))+i)这句话里面的
Asc 函数可返回与字符串的第一个字母对应的 ANSI 字符代码 可以看懂asc(mid(ecode,i,2))
但是为什么要取两位ecode的值呢

[一把编程的菜刀]

mid你查看一下这个你就明白了！

[一把编程的菜刀]

mid和midB的区别，再说，你这是加密过程！你自己也可以定夺