某 PB 9.0 程序 ******* 公积金管理系统注册分析

donpps · 发表于 2008-4-24 14:35:54

----------------------------------------- 程序简介 -----------------------------------------
《******* 公积金管理系统》是为了配合住房公积金管理工作，提高管理水平，减轻公积金经办人员工作量，确保公积金帐务准确无误，结合住房公积金有关政策，参照部分单位住房公积金管理的实际情况，而开发的一套计算机软件。该系统具有较好的规范性和通用性，适合于各行政企事业、外资单位管理职工住房公积金。通过几年的应用，不仅提高了单位住房公积金的管理质量和水平，解决了手工难以建立住房公积金个人分户帐的实际问题，加强了规范化管理，并使住房公积金管理人员从复杂的手工劳动中解放出来，提高了工作效率，深受广大公积金管理人员的欢迎。
----------------------------------------- 注册判断 -----------------------------------------
PBKiller V2.5.18 反编译后查找到关键点:
********************************************************************************************
//gongjj.pbd\w_reg\Events\open ()
string ls_txt
string ls_name
string ls_mail
string ls_mid
string ls_regcode
string ls_regdate
long ll_mid

ls_txt = "" + "This software is shareware." + "~r~n" + "To get rid of the 30 day limit and registration info, " + "~r~n" + "you should register it. The registration fee is only ￥280.00 " + "~r~n" + "You can click the order button below to make an online " + "~r~n" + "purchase or order by phone/fax/check/money order. After you " + "~r~n" + "pay the registration fee and receive your name and code, please " + "~r~n" + "enter the name and the code here EXACTLY as it appears in the " + "~r~n" + "notification. For more information, you can read " + "~r~n" + "the help file or visit our web site at:" + "~r~n" + "http://www.qunom.com" + "~r~n"
ls_txt = "~r~n" + " 注册费用~r~n" + " ~r~n" + " 采用了使用用户名和机器码进行注册的方法，一个用户名和机器码使用一个注册号。~r~n" + " 注册号：1200元/个~r~n" + " ~r~n" + " ~r~n" + " 付款方式~r~n" + "~r~n" + " 招商银行一**（立即到帐，推荐使用）：~r~n" + " 开户行：招商银行昆明分行~r~n" + " 帐  户：李淳~r~n" + " 帐  号：0871 20532771~r~n" + "~r~n" + " 中国建设银行（2小时到帐）：~r~n" + " 开户行：云南省昆明市城西支行泰和分理处~r~n" + " 帐  户：李淳~r~n" + " 帐  号：3860 7700 0000 0059 560~r~n" + "~r~n" + " 通过银行汇款时，请加个零头以便与同时汇到的其他用户区分，如xx.18元。汇款后，请来EMAIL告知汇款方式、发款日期、金额、地址、姓名、邮编、欲注册名称等信息。收到汇款后，立即发送注册码，并随时解答安装和使用中的技术问题。~r~n" + " ~r~n" + " 邮箱：[[email protected]~r~n][email protected]~r~n[/email]"
mle_1.text = ls_txt
dw_1.settransobject(sqlca)
if dw_1.retrieve() > 0 then
ls_name = dw_1.getitemstring(1,1)
ls_mail = dw_1.getitemstring(1,2)
ls_mid = dw_1.getitemstring(1,3)
ls_regcode = dw_1.getitemstring(1,4)
ls_regdate = dw_1.getitemstring(1,5)
end if
if len(ls_name) > 0 then
sle_1.text = i_vl_cst_encryptor.of_decrypt(gf_asc2str(ls_name))
end if
if len(ls_mail) > 0 then
sle_2.text = i_vl_cst_encryptor.of_decrypt(gf_asc2str(ls_mail))
end if
if len(ls_mid) > 0 then
sle_3.text = ls_mid
end if
if len(ls_regcode) > 0 then
sle_4.text = ls_regcode
end if
ll_mid = getcpuid() //调用动态 pbsys.DLL 文件，获取 CPU 序列号。
if string(ll_mid) = i_vl_cst_encryptor.of_decrypt(gf_asc2str(ls_regcode)) then  //注册码比较。
cb_cancel.text = "关闭(&C)"
sle_1.displayonly = true
sle_2.displayonly = true
sle_4.displayonly = true
cb_reg.visible = false
cb_reg.enabled = false
else
sle_4.text = ""
sle_3.text = string(ll_mid)
end if
return
********************************************************************************************
查找调用的相关函数。
------------------------------------ 函数 gf_asc2str() -------------------------------------
//gongjj.pbd\gf_asc2str
string ls_rtn
string ls_tmp
string tstr
integer i
integer li_len
integer j

ls_rtn = ""
j = int(len(as_asc) / 3)
for i = 1 to j
ls_tmp = mid(as_asc,(i - 1) * 3 + 1,3)
tstr = char(integer(ls_tmp))
ls_rtn = ls_rtn + tstr
next
return ls_rtn
------------------------------------ 函数 of_decrypt() -------------------------------------
//gongjj.pbd\vl_cst_encryptor\Functions\of_decrypt
string retval
string tempstr
string tstr
integer sourceptr
integer keyptr
integer keylen
integer sourcelen
integer tempval
integer tempkey
public string is_raw
public string is_encrypted
public string is_key = "`\|08!@#&^_^%$*';LiChun"
is_encrypted = thestr
keyptr = 1
keylen = len(is_key)
sourcelen = len(is_encrypted)
is_raw = ""
for sourceptr = 1 to sourcelen
tempval = asc(right(is_encrypted,len(is_encrypted) - sourceptr + 1))
tempkey = asc(right(is_key,len(is_key) - keyptr + 1))
tempval -= tempkey
do while tempval < 0
  if tempval < 0 then
tempval = tempval + 255
  end if
loop
tstr = char(tempval)
is_raw = is_raw + tstr
keyptr ++
if keyptr > len(is_key) then
  keyptr = 1
end if
next
retval = is_raw
return retval
********************************************************************************************
----------------------------------------- 注册逆算 -----------------------------------------
注册算法，采用CPU序号做机器码（与用户名，电子邮箱无关），包括第一位连字符号 "-" 共11位，看起来有点晕头转向，实际上记住以下码表（10 进制值），口算都行，就不写注册机了。
第  1 个字符 ASCII 值 + 608，
第  2 个字符 ASCII 值 + 604，
第  3 个字符 ASCII 值 + 636，
第  4 个字符 ASCII 值 + 560，
第  5 个字符 ASCII 值 + 568，
第  6 个字符 ASCII 值 + 545，
第  7 个字符 ASCII 值 + 576，
第  8 个字符 ASCII 值 + 547，
第  9 个字符 ASCII 值 + 550，
第 10 个字符 ASCII 值 + 606，
第 11 个字符 ASCII 值 + 607，
将 11 组数字连接成字符串即为注册码。

jiller · 发表于 2008-4-24 17:19:11

还有这样的不加混淆的pb软件

		自动登录	找回密码
密码			加入我们

[原创] 某 PB 9.0 程序 ******* 公积金管理系统注册分析

评分

相关帖子

[原创] 某 PB 9.0 程序 ******* 公积金管理系统 注册分析

评分

相关帖子

[原创] 某 PB 9.0 程序 ******* 公积金管理系统注册分析