用户口令的加密

qujian 2002-06-11 08:04:38
如何加密自己的程序
...全文
38 2 打赏 收藏 转发到动态 举报
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
confen 2002-06-13
  • 打赏
  • 举报
回复
这段程序可以将字符加密。
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
butter527 2002-06-11
  • 打赏
  • 举报
回复
以前讨论过个问题 ,看看以前的贴子

1,077

社区成员

发帖
与我相关
我的任务
社区描述
PowerBuilder 相关问题讨论
社区管理员
  • 基础类社区
  • WorldMobile
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧