这段程序可以将字符加密。
for i = 1 to len(passwd) step 1
mid_str = mid(passwd,i,1)
if ((mid_str >= "A") and (mid_str <= "Z")) or ((mid_str >= "a") and (mid_str <= "z")) then
passwd_position = asc(mid_str) + 5
if passwd_position > 122 then
t_int = passwd_position - 122
passwd_position = 96 + t_int
end if
if (passwd_position < 97) and (passwd_position > 90) then
t_int = passwd_position - 90
passwd_position = 64 + t_int
end if
realypasswd = realypasswd + char(passwd_position)
else
realypasswd = realypasswd + mid_str
end if
next