帮忙写 PB加密机

[Samrv.W]

/*
*密码 加密,解密
* 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。

[WorldMobile]

直接用sqlserver的这个，然后在程序里用pb调也可

[fuxiaoyang13]

就是！！！！

[Samrv.W]

想将此算法用PB语言写，
PB与MSSQL有一点点区别。