前往Shuct.Net首页

Shudepb PB反编译专家长时间以来,为业内同类软件事实上的唯一选择.细节,彰显专业.态度,决定品质.

关于shudepb的搜索

【原创】还是PB(前些天搞的一个)_Eddy's Blog-www.rrgod.com_百度空间 相册 广场游戏 登录注册 关注此空间 Eddy's Blog-www.rrgod.com平凡的小事铸就不平凡的人生…… 2009-09-28 19:01 【原创】还是PB(前些天搞的一个) 主程序用peid查是VC的,但你用OD跟下就发现总在pbvm90.dll里打转。基本可以确定是PB程序了。对付PB程序的利器:shudepb虽说是试用版,但功能已经足够强大打开shudepb,载入程序主文件,进行全局搜索(当然是搜索敏感字符串了),这样就可以定位到关键代码处:引用//clicked (none) returns long [pbm_bnclicked]//long ancestorreturnvaluestring ls_keystring ls_reg_codeCALL SUPER::clickedls_reg_code = trim(PARENT.regedit_code.text)ls_key = "HKEY_LOCAL_MACHINE\SOFTWARE\FYSOFT"registryset(ls_key,"registcode",regstring!,ls_reg_code)registryget(ls_key,"registcode",regstring!,ls_regedit_code)IF mid(f_regedit_reg_success("fy5.0"),1,15) = ls_regedit_code THEN //6 messagebox("注册","软件注册成功!感谢你使用XXXXX软件!")ELSE //6 messagebox("注册","软件注册失败!请检查你输入的注册码!")END IF //6RETURN稍微懂点编程的就能看懂是什么意思,基本是源码了嘛^_f_regedit_reg_success()这个是个关键函数,搜索“f_regedit_reg_success”引用//Public function f_regedit_reg_success (string soft_ver) returns string //string soft_verstring ls_disk_serialls_disk_serial = f_regedit("c:")IF len(ls_disk_serial) > 5 THEN //4 ls_disk_serial = mid(ls_disk_serial,1,5)END IF //4ls_disk_serial = ls_disk_serial + soft_verRETURN gf_md5string(ls_disk_serial)以上就是这个函数的原型了。下面用VB写个注册机:注册机源码(VB):引用Function f_regedit_reg_success(soft_ver As String) As StringDim ls_disk_serial As Stringls_disk_serial = Text1.TextIf Len(ls_disk_serial) > 5 Then ls_disk_serial = Mid(ls_disk_serial, 1, 5)End Ifls_disk_serial = ls_disk_serial + soft_verf_regedit_reg_success = ls_disk_serialEnd FunctionPrivate Sub Command1_Click()Dim strMd5 As StringstrMd5 = DigestStrToHexStr(f_regedit_reg_success("fy5.0")) 'MD5加密Text2.Text = Mid(strMd5, 1, 15)End Sub #加密解密 分享到: 举报 浏览(180) 评论 转载 你可能也喜欢 冰封九寨沟 鸟图177:红嘴鸥 云压大海 贵州观鸟旅行记(20)六盘水的矶鹬 晨曲 美哉黄山之云雾飘渺。。。。。。 SCI、EI、ISTP简介 评论 帮助中心 | 空间客服 | 投诉中心 | 空间协议©2014 Baidu