S
storney
Unregistered / Unconfirmed
GUEST, unregistred user!
以下为FOXBASE 程序，请大侠帮我转成DELPHI程序，谢谢！
回复请附上你的银行帐号，本人定当酬谢！
LOAD XHDELKTG * 载入汇编编译文件 XHDELKTG.bin
USE YXM.DBF * 两个字段,XH为11位字符长未加密编号字段，PPXH为已经加密编号字段
GO TOP
DO WHILE .not. EOF()
L1= ASC(SUBSTR(XH,3))+ASC(SUBSTR(XH,6))+ASC(SUBSTR(XH,9))-95
L1= IIF(L1<1,1,L1)
L1= IIF(L1>108,108,L1)
PP= CHR(L1)+XH
CALL XHDELKTG WITH PP * 调用汇编程序进行加密
REPL PPXH WITH PP * 替换加密箱号字段
SKIP
ENDDO
回复请附上你的银行帐号，本人定当酬谢！
LOAD XHDELKTG * 载入汇编编译文件 XHDELKTG.bin
USE YXM.DBF * 两个字段,XH为11位字符长未加密编号字段，PPXH为已经加密编号字段
GO TOP
DO WHILE .not. EOF()
L1= ASC(SUBSTR(XH,3))+ASC(SUBSTR(XH,6))+ASC(SUBSTR(XH,9))-95
L1= IIF(L1<1,1,L1)
L1= IIF(L1>108,108,L1)
PP= CHR(L1)+XH
CALL XHDELKTG WITH PP * 调用汇编程序进行加密
REPL PPXH WITH PP * 替换加密箱号字段
SKIP
ENDDO