单位电脑设备管理系统 - 下载频道 - CSDN.NET 首页 资源分类 排行榜 帮助 高级搜索 讲义下载 下载频道>资源分类>信息化>IT管理>单位电脑设备管理系统 单位电脑设备管理系统 资源大小：290B 上传日期：2011-06-20 资源积分：2分 下载次数：47 上 传 者：aroco 标　　签： 单位 电脑设备 管理系统 分 享 到： --> 下　　载：VIP下载 --> 收藏(4) 评论(4) 举报 --> 举报 我的待评论资源 资源简介 使用说明：直接导入附件现将破解过程及方法书写如下： 1、到“医药软件园”网下载“单位电脑设备管理系统”文件： 文件名称:　pcgl02.rar 下载路径: http://www.yysoft.net/downsoft/pcgl02.rar 引用页面:　http://www.yysoft.net/ 文件大小:　9.88MB 注释: 单位电脑设备管理系统 2、解压缩pcgl02.rar文件后，运行pcgl.exe文件安装软件； 3、用fi查看pcglxt.exe文件，发现软件是用powerbuilder7开发的； 4、用PBKILLER.exe反编译pcglxt.exe和pcglxt.dll文件，可以导出所有窗口文件、菜单文件、函数文件等源程序； 5、经分析注册窗口文件是w_number5，注册按钮的源代码如下： string s_zcm0 string s_zcm1 string ls_zcb string s_1 string s_2 string s_3 string s_jqh string s_tmp integer i_zcm4 integer i_sj integer i_ss integer i_zcm5 integer wz string ss[9] string tt[9] string ww[9] string s_ppp string s_ooo double d_qq s_zcm0 = trim(parent.em_1.text) + trim(parent.em_2.text) + trim(parent.em_3.text) i_zcm4 = mod(integer(trim(parent.em_4.text)),1214) i_zcm5 = mod(integer(trim(parent.em_4.text)),1328) s_jqh = trim(parent.sle_1.text) if len(s_jqh) > 9 then s_jqh = left(trim(parent.sle_1.text),9) end if ss[1] = mid(s_jqh,1,1) select xx4 from rs_system_tabled_group where y3 =' ' using sqlca; /* SQL Parameters List 0-> :tt[1] 1-> :ss[1] */ ww[1] = mid(tt[1],integer(ss[1]) + 1,2) ss[2] = mid(s_jqh,2,1) select xx1 from rs_system_tabled_group where x5 =' ' using sqlca; /* SQL Parameters List 0-> :tt[2] 1-> :ss[2] */ ww[2] = mid(tt[2],integer(ss[2]) + 2,2) ss[3] = mid(s_jqh,3,1) select xx3 from rs_system_tabled_group where x1 =' ' using sqlca; /* SQL Parameters List 0-> :tt[3] 1-> :ss[3] */ ww[3] = mid(tt[3],integer(ss[3]) + 3,2) ss[4] = mid(s_jqh,4,1) select xx2 from rs_system_tabled_group where y4 =' ' using sqlca; /* SQL Parameters List 0-> :tt[4] 1-> :ss[4] */ ww[4] = mid(tt[4],integer(ss[4]) + 3,2) ss[5] = mid(s_jqh,5,1) select xx5 from rs_system_tabled_group where y1 =' ' using sqlca; /* SQL Parameters List 0-> :tt[5] 1-> :ss[5] */ ww[5] = mid(tt[5],integer(ss[5]) + 2,2) ss[6] = mid(s_jqh,6,1) select yy3 from rs_system_tabled_group where x2 =' ' using sqlca; /* SQL Parameters List 0-> :tt[6] 1-> :ss[6] */ ww[6] = mid(tt[6],integer(ss[6]) + 1,2) ss[7] = mid(s_jqh,7,1) select yy4 from rs_system_tabled_group where x3 =' ' using sqlca; /* SQL Parameters List 0-> :tt[7] 1-> :ss[7] */ ww[7] = mid(tt[7],integer(ss[7]) + 1,2) ss[8] = mid(s_jqh,8,1) select yy2 from rs_system_tabled_group where y2 =' ' using sqlca; /* SQL Parameters List 0-> :tt[8] 1-> :ss[8] */ ww[8] = mid(tt[8],integer(ss[8]) + 3,2) ss[9] = mid(s_jqh,9,1) select yy1 from rs_system_tabled_group where x4 =' ' using sqlca; /* SQL Parameters List 0-> :tt[9] 1-> :ss[9] */ ww[9] = mid(tt[9],integer(ss[9]) + 2,2) s_ooo = mid(ww[1] + ww[2] + ww[3] + ww[4] + ww[5] + ww[6] + ww[7] + ww[8] + ww[9],1,9) s_ppp = mid(ww[1] + ww[2] + ww[3] + ww[4] + ww[5] + ww[6] + ww[7] + ww[8] + ww[9],10,9) d_qq = sqrt(long(s_ppp)) if ((d_qq < 0) or (isnull(d_qq))) then d_qq = 8848.2718 end if s_tmp = string(d_qq) wz = pos(s_tmp,".",1) s_jqh = mid(s_tmp,wz + 1,3) s_1 = mid(s_jqh,2,1) s_2 = mid(s_jqh,4,1) s_3 = mid(s_jqh,6,1) i_sj = rand(7) i_ss = i_sj * 1328 + 7 ls_zcb = "130172096198848" if s_zcm0 = "430602650101" and i_zcm4 = 0 then registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","price2",regstring!,ls_zcb) messagebox("恭喜","注册成功!感谢你使用本软件!~n~n请退出后重新运行,所有项目即可生效!") close(parent) else if s_zcm0 = s_ooo + s_jqh and i_zcm5 = 0 then registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","price2",regstring!,ls_zcb) messagebox("恭喜","注册成功!感谢你使用本软件!~n~n请退出后重新运行,所有项目即可生效!") close(parent) else messagebox("警告","注册码输入错误，请使用正版软件!",stopsign!) end if end if return 6、经算法分析，只有在注册表的"HKEY_LOCAL_MACHINE\Software\agzsoft"的分支下，新建"price2"键值，类型用REG_SZ，值为130172096198848，就可以满足注册条件； 7、但经过试验以后发现并不行，再进行分析w_main.open事件发现这个系统是无法注册成功的，只能改变试用的限制次数达到永久使用，具体代码如下： string slv string s_zzc string rlr string sbz string snr string sos ulong l_buf string dd string ls_zcb string sj_t string sj_1 string sj_b string s_ts string s_t2 string c_blet string c_ddd string c_eee string c_yer string c_mon string c_day string c_date integer i_ben integer i integer i_pbaa l_buf = 100 ls_dir = space(l_buf) getcurrentdirectorya(l_buf,ls_dir) registryget("HKEY_CURRENT_USER\huaSoft\sdha_unst","sdh",regstring!,dd) dwmc = ini_pass(dd) title = dwmc + "计算机设备管理系统" registryget("HKEY_LOCAL_MACHINE\Software\agzsoft","pcgl",regstring!,ls_zcb) select xx from xxb where bm ='3001' using sqlca; /* SQL Parameters List 0-> :sbz */ if ls_zcb = "317" then /*关键点*/ ls_zcb = "1" registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","pcgl",regstring!,ls_zcb) sj_t = string(today(),"yyyy/mm/dd") sj_1 = mid(sj_t,1,4) + mid(sj_t,6,2) + mid(sj_t,9,2) c_eee = "" i_ben = len(sj_1) for i = 1 to i_ben c_blet = mid(sj_1,i,1) i_pbaa = asc(c_blet) - 13 c_ddd = char(i_pbaa) c_eee = c_eee + c_ddd next registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","pcuser",regstring!,c_eee) s_ts = "1" registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","pcdate",regstring!,s_ts) else if ls_zcb = "1" then sj_t = string(today(),"yyyy/mm/dd") registryget("HKEY_LOCAL_MACHINE\Software\agzsoft","pcuser",regstring!,sj_1) i_ben = len(sj_1) for i = 1 to i_ben c_blet = mid(sj_1,i,1) i_pbaa = asc(c_blet) + 13 c_ddd = char(i_pbaa) c_eee = c_eee + c_ddd sj_b = c_eee next c_yer = mid(c_eee,1,4) c_mon = mid(c_eee,5,2) c_day = mid(c_eee,7,2) c_date = c_yer + "/" + c_mon + "/" + c_day i_ts = daysafter(date(c_date),date(sj_t)) if i_ts < 0 then select xx from xxb where bm ='1001' using sqlca; /* SQL Parameters List 0-> :sbz */ select xx from xxb where bm ='2001' using sqlca; /* SQL Parameters List 0-> :snr */ messagebox(sbz,snr,stopsign!) disconnect using sqlca; halt end if i_ts = i_ts + 1 if i_ts > 30 then select xx from xxb where bm ='1002' using sqlca; /* SQL Parameters List 0-> :sbz */ select xx from xxb where bm ='2002' using sqlca; /* SQL Parameters List 0-> :snr */ messagebox(sbz,snr,stopsign!) open(w_number5) close(this) end if registryget("HKEY_LOCAL_MACHINE\Software\agzsoft","pcdate",regstring!,s_t2) if i_ts >= integer(s_t2) then registryset("HKEY_LOCAL_MACHINE\Software\agzsoft","pcdate",regstring!,string(i_ts)) open(w_ts) else select xx from xxb where bm ='1001' using sqlca; /* SQL Parameters List 0-> :sbz */ select xx from xxb where bm ='2001' using sqlca; /* SQL Parameters List 0-> :snr */ disconnect using sqlca; halt end if else if ((ls_zcb = sbz) or (ls_zcb = "130172096198848")) then select yy5 from rs_system_tabled_group where y5 ='h' using sqlca; /* SQL Parameters List 0-> :sos */ if trim(sos) <> ")lx\&ai(bpOv[m^s" then select xx from xxb where bm ='1003' using sqlca; /* SQL Parameters List 0-> :sbz */ select xx from xxb where bm ='2004' using sqlca; /* SQL Parameters List 0-> :snr */ messagebox(sbz,snr,stopsign!) disconnect using sqlca; halt end if else select xx from xxb where bm ='1003' using sqlca; /* SQL Parameters List 0-> :sbz */ select xx from xxb where bm ='2004' using sqlca; /* SQL Parameters List 0-> :snr */ messagebox(sbz,snr,stopsign!) disconnect using sqlca; halt end if end if end if return 8、最终解决方法，运行regedit打开注册表，在[HKEY_LOCAL_MACHINE\SOFTWARE\agzsoft]下将 "pcgl"键值改为"317"，然后导出这个项，保存为一个注册表文件，等下次软件再次过期时，只有双击这个文件，系统又可以正常使用了！9、附件为可以重复使用的注册表文件。 【招】应届生,入职年薪5-10万 【有奖】嵌入式开发从业人员大调查 云端邮件发送服务30天免费体验 2013年热门Android应用 Android 游戏教程:让人物动起来 跟燕青一起学Android应用开发 相关资源 数据分析：企业的贤内助 700多张PPT背景图片 1024x768 电商架构分析 2014迅雷校园招聘笔试题（选择题） JMS-任务管理系统 一本写给IT项目经理的好书 从word导出图片的几种方式 华丽丽的按钮大全 J2EE 网上商城 FS6X(Qt演示版) IT求职宝典 个人月度计划管理工具 0.2.5.0 EAVID杀软申请180天试用 优化搜索引擎SEO的六步骤 热门招聘 你目前积分：8，下载后评论将有机会获得返分。 FAQ 为什么我点的下载下不了,但积分却被扣了 由于下载人数众多,下载服务器做了并发的限制。若发现下载不了,请稍后再试,多次下载是不会重复扣分的。 我的积分不多了，如何获取积分？ 上传优质资源可以获取积分，详细见 积分规则。 选择完成有奖的任务，可以获取积分。 http://task.csdn.net 选择购买VIP会员服务，无需积分下载资源 。 http://vip.csdn.net 评价资源返积分： 立即评价 第一次绑定手机，将获50下载积分及100论坛可用分。 立即绑定 论坛可用分兑换下载积分。 立即兑换 下载资源意味着您已经同意遵守以下协议 1. 资源的所有权益归上传用户所有 2. 未经权益所有人同意，不得将资源中的内容挪作商业或盈利用途 3. CSDN下载频道仅提供交流平台，并不能对任何下载资源负责 4. 下载资源中如有侵权或不适当内容，请 5. 本站不保证本站提供的资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。 下载频道公告 做任务，得下载分 微软必应-英雄会在线编程 欢迎订阅CSDN社区周刊 本周热点资源 提高C++性能的编程技术.pdf Java数据结构和算法（第二版） C#控件大全 程序员表白程序，开放源码，不断更新 Java设计模式奥妙揭秘文档汇总 程序员2014年第1期，完整扫描版 站群工具结合包 Android动画效果集合开源APP CrawlScript-bin-beta0.1 JAVA的爬虫脚本语言 Android 使用NineOldAndroids实现绚丽的ListView左右滑动删除Item效果 信息化热门Tag sap pdf 汉化版 java 破解 vmware svn excel itil 云计算 上传者其他资源 多多淘宝客 商城返利V7.1 UTF-8 BATE3 举报 若举报审核通过，可奖励20下载分 举报人： kenshu 被举报人： aroco 举报的资源分： 2 * 类型： 请选择类型 资源无法下载 资源无法使用 标题与实际内容不符 含有危害国家安全内容 含有反动色情等内容 含广告内容 版权问题，侵犯个人或公司的版权 其他 请您提供公司营业执照和软件相关版权到webmaster@csdn.net * 详细原因： 提交取　消 您还没有登录！登录　　注册 您目前的积分不够下载该资源 您下载资源过于频繁，请输入验证码 输入错误, 请重新输入 先来了解　　直接下载 您已经下载过该资源，再次下载不需要扣除积分 下载 BAIDU_CLB_SLOT_ID = "214752"; -->