前往Shuct.Net首页

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

关于shudepb的搜索

【原创】一个PB程序的破解与注册机编写 - 看雪安全论坛 看雪安全论坛 > 初学者园地 > 『求助问答』 【原创】一个PB程序的破解与注册机编写 用户名 记住 密 码 忘记密码? KSSD 注册账号 搜索论坛 日历事件 论坛帮助 转到页面... 该主题: "【原创】一个PB程序的破解与注册机编写" 因在一定的时间里没有任何回复而自动关闭。如果您还对该主题感兴趣或者想参与对此主题的讨论,请您重新发表一篇相关的新主题。 主题工具 显示模式 御剑逍遥 初级会员 资 料: 注册日期: Oct 2008 帖子: 40 精华: 0 现金: 202 Kx 资产: 202 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 1 2008-12-28, 11:19:00 【原创】一个PB程序的破解与注册机编写 这是我在看雪发的第一篇完全原创的破解过程文章,虽然对于大多数高手来说是小菜一碟,望大大们不要见笑.快过年了 版主加个精吧 软件名称:gearbox齿轮减速器设计系统 下载地址:见附件,我是一个学习破解的QQ群里发给我这软件的 编程语言:PB10 壳:无 看了大家回复下 让更多的新手来学习下 破解过程: [HIDE]1.OD载入,开始调试,下断点等,能断下,但是经过调试,发现绕不出PB虚拟机,发现验证注册码的代码显示不了,一直在PB的解释器中打转,CALL EAX 根据EAX的值不同 调用不同的函数,反正最后失败告终. 2.上网找到一个PB反编译器shudepb,虽然是试用版 但是够强大了,呵呵 3.用SHUDPB打开主程序,反编译 找到注册按钮的代码如下 string ls_rn IF PARENT.rb_ever.checked THEN //4 IF (((len(PARENT.em_1.text) <> 4 OR len(PARENT.em_2.text) <> 4) OR len(PARENT.em_3.text) <> 4) OR len(PARENT.em_4.text) <> 4) THEN //6 messagebox("注册码错误","请输入完整的注册码!") RETURN END IF //6 ELSE //4 IF len(PARENT.em_5.text) <> 4 THEN //13 messagebox("注册码错误","请输入完整的注册码!") RETURN END IF //13 END IF //4 IF PARENT.rb_ever.checked THEN //24 ls_rn = PARENT.em_1.text + PARENT.em_2.text + PARENT.em_3.text + PARENT.em_4.text ELSE //24 ls_rn = PARENT.em_5.text END IF //24 setprofilestring(gs_win_dir + acad.is_file_name,"wadxz","rn",ls_rn) acad.ib_inreg = TRUE acad.indoor() IF acad.ib_redrawed = TRUE THEN //82 messagebox("软件注册","软件注册注册成功!~n您已经拥有 Gearbox 5.0 的全部功能!") IF isvalid(w_gbox_input) = FALSE AND isvalid(w_gbox_cust) = FALSE AND isvalid(w_frame) = FALSE THEN //85 open(w_start) END IF //85 close(PARENT) RETURN ELSE //82 messagebox("软件注册","您输入的注册码无效!请与供应商联系获得正确的注册码!") END IF //82 RETURN 然后根据代码中的函数名称找到对应的函数代码,逐步阅读, 最后用VB改写成注册机代码如下 Private Sub Command1_Click() Dim li_lcw As Integer Dim li_ls2e As Integer Dim li_lam As Integer Dim li_mp As Integer Dim ls_matrix As String Dim ls_mov1 As String Dim ls_mov2 As String Dim ls_codeword As String Dim ls_cwl As String Dim ls_encryptedstring As String Dim ls_encryptedletter As String Dim lsa_cryptmatrix(1 To 97) As String Dim li_x As Integer Dim li_y As Integer Dim li_z As Integer Dim li_w As Integer Dim ls_c2e As String Dim ls_str2encrypt As String ls_codeword = "ilikedress" ls_matrix = "73ColinabcdefghjkmpqrstuvwxyzABDEFGHIJKLMNOPQRSTUVWXYZ 12456890-.#/\!@$<>&*()[]{}';:,?=+`^|%_" ls_matrix = ls_matrix + Chr(34) li_w = 1 li_lam = Len(ls_matrix) lsa_cryptmatrix(1) = ls_matrix For li_x = 2 To li_lam ls_mov1 = Left(lsa_cryptmatrix(li_w), 1) ls_mov2 = Right(lsa_cryptmatrix(li_w), li_lam - 1) lsa_cryptmatrix(li_x) = ls_mov2 + ls_mov1 li_w = li_w + 1 Next ls_str2encrypt = "$!o{&<}${]966@-9$8@!XVV6ZX" li_ls2e = Len(ls_str2encrypt) li_lcw = Len(ls_codeword) ls_encryptedletter = "" ls_encryptedstring = "" li_y = 1 For li_x = 1 To li_ls2e ls_c2e = Mid(ls_str2encrypt, li_x, 1) li_mp = InStr(ls_matrix, ls_c2e) ls_cwl = Mid(ls_codeword, li_y, 1) For li_z = 1 To li_lam If Mid(lsa_cryptmatrix(li_z), li_mp, 1) = ls_cwl Then ls_encryptedletter = Left(lsa_cryptmatrix(li_z), 1) ls_encryptedstring = ls_encryptedstring + ls_encryptedletter End If Next li_y = li_y + 1 If li_y > li_lcw Then li_y = 1 Next MsgBox ls_encryptedstring End Sub Private Sub Command2_Click() Dim as_in As String Dim ls_out As String Dim ls_number_code As String Dim ls_string_code As String Dim ls_matrix As String Dim ll_no As Long Dim ll_len As Long Dim ll_code_no As Long Dim ll_code_len As Long Dim ll_sum As Long Dim ls_digit As String Dim ls_digit_revert As String Dim ls_code_char As String Dim ls_encrypt_char As String Dim li_code_pos As Integer Dim li_matrix_pos As Integer as_in = Trim(Text1.Text) ls_string_code = "WZBNCHSDXR" ls_number_code = "0123456789" ls_matrix = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" ll_len = Len(as_in) For ll_no = 1 To ll_len ls_digit = Mid(as_in, ll_no, 1) ls_digit_revert = Mid(as_in, ll_len - ll_no + 1, 1) li_code_pos = InStr(ls_number_code, ls_digit) ls_code_char = Mid(ls_string_code, li_code_pos, 1) ll_sum = 1.67 * ll_sum + Val(ls_digit_revert) + li_code_pos li_matrix_pos = (InStr(ls_matrix, ls_code_char) + ll_sum) Mod 26 'MsgBox str(ll_sum) If li_matrix_pos < 1 Then li_matrix_pos = 1 End If ls_encrypt_char = Mid(ls_matrix, li_matrix_pos, 1) If ll_no = 1 Or ll_no = 2 Or ll_no = 3 Or ll_no = 5 Or ll_no = 6 Or ll_no = 7 Or ll_no = 8 Or ll_no = 9 Or ll_no = 11 Then Select Case ls_encrypt_char Case "A" ls_encrypt_char = "1" Case "B" ls_encrypt_char = "2" Case "C" ls_encrypt_char = "3" Case "D" ls_encrypt_char = "4" Case "E" ls_encrypt_char = "5" Case "F" ls_encrypt_char = "6" Case "G" ls_encrypt_char = "7" Case "H" ls_encrypt_char = "8" Case "I" ls_encrypt_char = "9" Case "J" ls_encrypt_char = "1" Case "K" ls_encrypt_char = "2" Case "L" ls_encrypt_char = "3" Case "M" ls_encrypt_char = "4" Case "N" ls_encrypt_char = "5" Case "O" ls_encrypt_char = "6" Case "P" ls_encrypt_char = "7" Case "Q" ls_encrypt_char = "8" Case "R" ls_encrypt_char = "9" Case "S" ls_encrypt_char = "1" Case "T" ls_encrypt_char = "2" Case "U" ls_encrypt_char = "3" Case "V" ls_encrypt_char = "4" Case "W" ls_encrypt_char = "5" Case "X" ls_encrypt_char = "6" Case "Y" ls_encrypt_char = "7" Case "Z" ls_encrypt_char = "8" End Select End If ls_out = ls_out + ls_encrypt_char Next Text2.Text = ls_out End Sub Private Sub Form_Load() End Sub [/HIDE] 哈哈 成功了,恩因为算法比较简单,所以这里不详细说明了 都是高级语言 虽然本人没学过PB,但是学过VB,看看都差不多的 ,感兴趣的可以自己学习下 本人把注册机源代码共享了 [公告]如果你觉得有人语言挑衅,请点每帖右上角的“举报”按钮! 御剑逍遥 查看公开信息 查找 御剑逍遥 发表的帖子 查找 御剑逍遥 发表的所有主题 xyzliuin 初级会员 资 料: 注册日期: Jun 2004 帖子: 49 精华: 0 现金: 202 Kx 资产: 202 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 2 2008-12-29, 14:59:17 pb的程序都是这么破解的 只要你能看懂pb代码,它的破解最easy [招生]"麦洛克菲"内核驱动开发培训(第五期招生中)! xyzliuin 查看公开信息 查找 xyzliuin 发表的帖子 查找 xyzliuin 发表的所有主题 lzq1973 普通会员 资 料: 注册日期: May 2004 帖子: 50 积分:2 --> 精华: 3 现金: 202 Kx 资产: 202 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 3 2009-01-19, 13:26:19 学习了,谢~~~ [招生]15PB开始接受第003期报名(3.10开课)! lzq1973 查看公开信息 查找 lzq1973 发表的帖子 查找 lzq1973 发表的所有主题 查看 lzq1973 发表的精华帖 狼头头 初级会员 资 料: 注册日期: Jan 2009 帖子: 58 精华: 0 现金: 212 Kx 资产: 212 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 4 2009-01-19, 13:48:06 额,算是能看懂代码的。。。 [公告]如果你觉得有人语言挑衅,请点每帖右上角的“举报”按钮! 狼头头 查看公开信息 查找 狼头头 发表的帖子 查找 狼头头 发表的所有主题 linxiangwu 初级会员 资 料: 注册日期: Jan 2009 帖子: 9 精华: 0 现金: 200 Kx 资产: 200 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 5 2009-01-19, 14:35:26 初学者完全路过·~ [招生]"麦洛克菲"内核驱动开发培训(第五期招生中)! linxiangwu 查看公开信息 查找 linxiangwu 发表的帖子 查找 linxiangwu 发表的所有主题 linxiangwu 初级会员 资 料: 注册日期: Jan 2009 帖子: 9 精华: 0 现金: 200 Kx 资产: 200 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 6 2009-01-19, 14:36:02 看看叫教程再回头看 [招生]15PB开始接受第003期报名(3.10开课)! linxiangwu 查看公开信息 查找 linxiangwu 发表的帖子 查找 linxiangwu 发表的所有主题 5151 初级会员 资 料: 注册日期: May 2004 帖子: 152 精华: 0 现金: 202 Kx 资产: 202 Kx--> 致谢数: 0 获感谢文章数:0获会员感谢数:0 7 2009-04-02, 14:40:29 学习班.......... [招生]15PB开始接受第003期报名(3.10开课)! 5151 查看公开信息 查找 5151 发表的帖子 查找 5151 发表的所有主题 logkiller 初级会员 资 料: 注册日期: Apr 2006 帖子: 679 精华: 0 现金: 344 Kx 资产: 344 Kx--> 致谢数: 11 获感谢文章数:9获会员感谢数:9 8 2009-04-03, 12:34:31 没看见附件学习不了 [招生]15PB开始接受第003期报名(3.10开课)! logkiller 查看公开信息 查找 logkiller 发表的帖子 查找 logkiller 发表的所有主题 添加到书签 Digg del.icio.us StumbleUpon Google 百度搜藏 QQ 书签 雅虎收藏 该主题: "【原创】一个PB程序的破解与注册机编写" 因在一定的时间里没有任何回复而自动关闭。如果您还对该主题感兴趣或者想参与对此主题的讨论,请您重新发表一篇相关的新主题。 &laquo; 上一主题 | 下一主题 &raquo; 主题工具 显示可打印版本 显示模式 平板模式 切换到混合模式 切换到树形模式 发帖规则 您不可以发表主题 您不可以回复帖子 您不可以上传附件 您不可以编辑自己的帖子 论坛论坛启用 vB 代码 论坛启用 表情图标 论坛启用 [IMG] 代码 论坛规则 论坛跳转 --> 用户控制面板 悄悄话 收藏夹 会员在线状态 搜索论坛 论坛首页 初学者园地 『求助问答』 『经典问答』 『资料导航』 Windows 『软件调试逆向』 『编程技术』 『C32Asm』 『MDebug』 『安全工具开发』 『加壳与脱壳』 『CrackMe&ReverseMe』 移动平台 『Android 开发』 『Android 安全』 『iOS安全』 『Windows Phone安全』 信息安全 『密码学』 学术会议版 『WEB安全』 『漏洞分析』 『云计算安全』 『外文翻译』 『资源下载』 职场风云 『招聘专区』 『职业生涯』 『15PB培训专区』 论坛生活 『茶余饭后』 『安全资讯』 『论坛活动』 6)PEDIY Crackme竞赛2009 7)看雪十周年专版 8)腾讯公司2010软件安全竞赛 9)2011 Exploit Me竞赛 安全图书 『图书项目版』 《加密与解密(第三版)》 《C++反汇编与逆向分析技术揭秘》 《Android软件安全与逆向分析》 『图书出版商』 『电子工业出版社』 『机械工业出版社』 站务管理 『论坛版务』 所有时间均为北京时间, 现在的时间是 11:05:45. -- VBB3 -- Wap -- 大字体 -- English -- 简体中文 -- 繁體中文 联系我们 - 看雪学院 - 文字模式 - 返回顶端 &copy;2000-2013 看雪学院(PEdiy.com) |关于我们 |京ICP备11035376号 微信公众帐号:ikanxue 手机客户端: