double i
string ls_pass
For i = 1 to len(ls_logpass)
if mod(i,2) = 0 then
ls_pass = ls_pass + char(255 - asc(mid(ls_logpass,i,1)))
else
ls_pass = ls_pass + char(254 - asc(mid(ls_logpass,i,1)))
end if
NEXT
return ls_pass
到百度搜一下，很多现成的代码，拷贝过来就可以用。
您好，我是有问必答小助手，您的问题已经有小伙伴解答了，您看下是否解决，可以追评进行沟通哦~
如果有您比较满意的答案 / 帮您提供解决思路的答案，可以点击【采纳】按钮，给回答的小伙伴一些鼓励哦～～
ps:问答VIP仅需29元，即可享受5次/月 有问必答服务，了解详情>>>https://vip.csdn.net/askvip?utm_source=1146287632