帮忙写 PB加密机

Samrv.W Samrv.W 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
/*
*密码 加密,解密
* SQL SERVER 2000 CODE
*/
declare @pwd varchar(30) /*加密文件内容*/
declare @str varchar(30) /*接收原密码字符串*/
declare @i int
declare @ii int /* 密匙 */
set @pwd='7%0%6='
-- set @pwd='salary'
set @i=1
set @ii=60
set @str=''
while (@i<=len(@pwd))
begin
-- set @str=@str + cast( char(ascii( substring(@pwd,@i,1) ) - @ii ) as varchar(30) ) /*解密*/
set @str=@str + cast( char(ascii( substring(@pwd,@i,1) ) + @ii ) as varchar(30) ) /*加密*/
set @i=@i+1
end
print @str

请 PowerBuilder 工程师们按照上SQL SERVER 2000 CODE 的算法 帮忙 写 加密机(EXE文件),需要有输入 密码原文、密匙,加密按钮、解密按钮 ,显示 密文,
可以理解为一个注册机。

本人不会使用POWERBUILDER。
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
Samrv.W
数据库相关 754 成员 12,762 内容