小白破解插件过程

wei5383079

有违规的地方请版主删贴!!!

这是个没有壳的VB软件，就不查壳了。

打开程序

打开程序

找关键词

找到关键词

往上看找跳转

让它跳转

nop掉

成功第一步

成功

注册成功还有功能限制

有功能限制找关键词

找关键词

找跳转

NOP掉

nop掉

NOP掉

找跳转

NOP掉

NOP掉

NOP掉

NOP掉

成功去掉限制

成功去掉限制

这是全部改善的图

成功去掉限制

有帮助的朋友们多多送点热心和CB!!!!!

送个WIN7虚拟U盘软件给大家https://pan.baidu.com/s/1wDttLF2eEldlvQz73TDijA

wei5383079

610100 发表于 2018-5-12 23:06
破解版计算结果是错误的，你确定完美破解了吗？暗桩都去除了吗？

破解软件是错误的，这是人都知道，完不完美只有用的人知道！

wei5383079

Public Sub Proc_6_0_110D2AD0
  loc_110D2B1E: On Error Resume Next
  loc_110D2B33: var_D8 = Chr$(0)
  loc_110D2B6E: var_60 = String$(255, Chr$(0))
  loc_110D2B8F: var_D8 = Chr$(0)
  loc_110D2BCA: var_50 = String$(255, Chr$(0))
  loc_110D2C2E: var_1C4 = CLng(var_B4)
  loc_110D2C46: var_ret_2 = CLng(Len(var_50))
  loc_110D2C66: var_ret_3 = CStr(var_50)
  loc_110D2C94: var_ret_4 = CLng(Len(var_60))
  loc_110D2CB4: var_ret_5 = CStr(var_60)
  loc_110D2CD4: var_ret_6 = CStr("c:\")
  loc_110D2CDB: var_eax = GetVolumeInformation(var_ret_6, var_ret_5, var_ret_4, var_1C4, var_1C8, var_1CC, var_ret_3, var_ret_2)
  loc_110D2D1A: var_64 = GetVolumeInformation(var_ret_6, var_ret_5, var_ret_4, var_1C4, var_1C8, var_1CC, var_ret_3, var_ret_2)
  loc_110D2D96: var_B4 = Mid(var_1C4, 2, 10)
  loc_110D2E4D: var_B4 = var_B4 * 3 + 1 + var_B4 * 2
  loc_110D2EC3: For var_30 = 1 To Len(var_B4) Step 1
  loc_110D2EC9: var_20C = var_30
  loc_110D2ECF: GoTo loc_110D3004
  loc_110D2ED4:
  loc_110D2F31: var_84 = Int(Mid(var_B4, CLng(var_30), 1))
  loc_110D2F69: If IsNumeric(var_84) = 0 Then GoTo loc_110D2FDF
  loc_110D2FCD: var_74 = var_74 + var_84 * var_B4 + 654
  loc_110D2FDF: 'Referenced from: 110D2F69
  loc_110D2FF8: Next var_30
  loc_110D2FFE: var_20C = Next var_30
  loc_110D3004: 'Referenced from: 110D2ECF
  loc_110D300B: If var_20C <> 0 Then GoTo loc_110D2ED4
  loc_110D308C: var_94 = GetSetting("compro", "cl", "pro", var_154)
  loc_110D3099: var_158 = vbNullString
  loc_110D30C6: If (var_94 = vbNullString) = 0 Then GoTo loc_110D30CC
  loc_110D30C8: GoTo loc_110D30D1
  loc_110D30CA: GoTo loc_110D30D1
  loc_110D30CC: 'Referenced from: 110D30C6
  loc_110D30CC: GoTo loc_110D3477
  loc_110D30D1: 'Referenced from: 110D30C8
  loc_110D312F: var_158 = "机器码:"
  loc_110D3189: var_F0 = "请输入注册码"
  loc_110D31F7: var_A4 = InputBox(var_F0, "测量内页程序", "机器码:" & var_B4, 10, 10, 10, 10)
  loc_110D3240: var_158 = vbNullString
  loc_110D326D: If (var_A4 = vbNullString) = 0 Then GoTo loc_110D3279
  loc_110D326F: GoTo loc_110D3477
  loc_110D3274: GoTo loc_110D3477
  loc_110D3279: 'Referenced from: 110D326D
  loc_110D3284: var_ret_C = CStr(var_74)
  loc_110D328A: var_D8 = var_ret_C
  loc_110D32AE: var_1D4 = (var_A4 = var_ret_C)
  loc_110D32CA: nop
  loc_110D32CB: nop
  loc_110D32CC: nop
  loc_110D32CD: nop
  loc_110D32CE: nop
  loc_110D32CF: nop
  loc_110D32F8: SaveSetting("compro", "cl", "pro", CStr(var_74))
  loc_110D3391: MsgBox("OK   ,关闭Excel 重新打开", 0, var_F0, 10, 10)
  loc_110D33BE: GoTo loc_110D3477
  loc_110D344A: MsgBox("注册码不对", 0, var_F0, 10, 10)
  loc_110D3477: 'Referenced from: 110D30CC
  loc_110D347C: GoTo loc_110D34F7
  loc_110D34F6: Exit Sub
  loc_110D34F7: 'Referenced from: 110D347C
  loc_110D3573: var_eax = %fobj
End Sub

66210080

联系我下  求指点

wei5383079

66210080 发表于 2018-5-12 22:34
联系我下  求指点

我也是小白一个，我本来是找注册码的，后来还是爆破了！

A羽飞

666，电气专业能用到吗？

wei5383079

A羽飞 发表于 2018-5-12 22:52
666，电气专业能用到吗？

内有CAD插件，你看看，我也只是找练手的

hullua

学习了，可以老哥

610100

破解版计算结果是错误的，你确定完美破解了吗？暗桩都去除了吗？

3683057

学习了  棒棒的

木舟

感谢一起讨论