小白破解插件过程
本帖最后由 wei5383079 于 2018-5-12 23:06 编辑有违规的地方请版主删贴!!!这是个没有壳的VB软件，就不查壳了。
打开程序找到关键词让它跳转成功第一步注册成功还有功能限制找关键词NOP掉NOP掉NOP掉NOP掉成功去掉限制这是全部改善的图有帮助的朋友们多多送点热心和CB!!!!!送个WIN7虚拟U盘软件给大家https://pan.baidu.com/s/1wDttLF2eEldlvQz73TDijA 610100 发表于 2018-5-12 23:06
破解版计算结果是错误的，你确定完美破解了吗？暗桩都去除了吗？
破解软件是错误的，这是人都知道，完不完美只有用的人知道！ 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 发表于 2018-5-12 22:34
联系我下求指点
我也是小白一个，我本来是找注册码的，后来还是爆破了！ 666，电气专业能用到吗？ A羽飞 发表于 2018-5-12 22:52
666，电气专业能用到吗？
内有CAD插件，你看看，我也只是找练手的
学习了，可以老哥 破解版计算结果是错误的，你确定完美破解了吗？暗桩都去除了吗？ 学习了棒棒的 感谢一起讨论