|
懂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 哎,翻来翻去,你还是自己在网上查一下就知道了, 高手都不来回答,我是菜鸟,给你点意思!! 不对的地方,多多指教吧。 |
|
|
|
|
|
|
|
这种壳怎么脱啊?高手们
我用脱PE壳的工具都试过了,不行啊。 |
操作理由
RANk
{{ user_info.golds == '' ? 0 : user_info.golds }}
雪币
{{ experience }}
课程经验
{{ score }}
学习收益
{{study_duration_fmt}}
学习时长
基本信息
荣誉称号:
{{ honorary_title }}
能力排名:
No.{{ rank_num }}
等 级:
LV{{ rank_lv-100 }}
活跃值:
在线值:
浏览人数:{{ visits }}
最近活跃:{{ last_active_time }}
注册时间:{{ user_info.create_date_jsonfmt }}
勋章
兑换勋章
证书
证书查询 >
能力值