DELPHI程序里面运行一个汇编BIN文件(200人民币现金) (50分)

  • 主题发起人 主题发起人 storney
  • 开始时间 开始时间
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
 
后退
顶部