帖子沉了，自己顶下

我帮你顶一下他.....

我也来帮忙。

很快就要沉了，我不懂PB，也进来顶一下！

[QUOTE]最初由 yhhwx 发布
                    定义类型
long i
long j
long ll
string ls_xkzh

              sle_1.text应该是程序窗口中的某个文本控件文本
ls_xkzh = trim(parent.sle_1.text)
               
for i = 1 to 16
                 循环开始，如果I的值小于5,J=I*3
if i < 5 then
j = i * 3
end if
                   I大于15,J=J-15
if j > 15 then
j = j - 5
end if
                       replace内容替换，具体的，网上查一下就知道了，
                       mid取ls_xkzh的第I位和1位。
        ls_xkzh = replace(ls_xkzh,i,1,char(asc(mid(ls_xkzh,i,1)) - j - 16))
next
               left取lx_xkzh左十位，ll等于结果转换为long
ll = long(left(ls_xkzh,10))
                  right取右，
if right(ls_xkzh,6) <> right(string(ll / 23 - gl_mc),6) or mod(ll,gl_mc) <> 0 or len(ls_xkzh) <> 16 or isnull(ls_xkzh) then
messagebox("","非法许可证号!")
parent.ii_serial_times ++

if parent.ii_serial_times > 3 then
halt
end if

return
end if

ls_xkzh = parent.sle_1.text

if len(ls_xkzh) <> 16 then
return
end if

update syst02 set xkzh =' ' using sqlca;
/* SQL Parameters List
0-> :ls_xkzh
*/
close(parent)
return

哎，翻来翻去，你还是自己在网上查一下就知道了，
高手都不来回答，我是菜鸟，给你点意思！！
不对的地方，多多指教吧。

多谢大哥了，我下了PB的函数手册。意思已经全弄明白了。可是程序中找不到 GL_MC这个控件，还是无法逆算。郁闷中。

多谢前面那位给我解释源码的朋友，通过查询PB函数手册我已经能读懂PB程序了，语句其实和 VB差不多。再次感谢您，在短期内我又掌握了一门语言。