帮忙写 PB加密机
/*
*密码 加密,解密
* 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。