申 请 会员I D：zyyujq
1、申请标题：Setup IDBE Ribbon Creator2019_x64_V1.1003破解2、申 请 会员I D：zyyujq
3、个人邮箱：zyyujq@qq.com
4、原创技术文章
一、Ribbon Creator是所见所得的 Office 功能区编辑器工具
RibbonCreator是用于开发功能区的WYSIWYG接口。RibbonCreator是在VB2005中开发的，需要.NET Framework 2.0版 .
对于Microsoft Access 2007、Microsoft Excel 2007、Microsoft Word 2007
RibbonCreator 2010 对于 Microsoft Access 2010、Excel 2010、PowerPoint 2010、Word 2010
RibbonCreator 2016 对于 Microsoft Access 2013 & 2016、Microsoft Excel 2013 & 2016、Microsoft Word 2013 & 2016、Microsoft PowerPoint 2013 & 2016
RibbonCreator 2019 对于 Microsoft Access 2019、Excel 2019、PowerPoint 2019、Word 2019
它支持为以下控件创建自定义功能区：
标签，组，对话框启动器，标签，按钮（大或小），切换按钮（大或小），编辑框，复选框，下拉控件，组合框控件，按钮组按钮和切换按钮，拆分按钮（大或小），
画廊（大或小），菜单（大或小），动态菜单（大或小）和分隔符（在带有文本的菜单中）
您可以使用适当的对话框（Office IdMso内部图像）为控件选择图像。此外，还可以选择功能区控件的用户定义图像并将其写入Access数据库中的表中。
您可以为支持此功能的控件创建屏幕提示、超级提示和按键提示。
共享版本限制了Office自定义 2个 TAB菜单、5个组合框、10个控件。
二、破解 Ribbon Creator2019_x64_V1.1003
1、先安装Setup IDBE Ribbon Creator2019_x64_V1.1003，主程序为Ribbon2019.exe
1、再用de4dot脱壳，获得Ribbon2019-cleaned.exe
2、dnSpy打开已经脱壳的Ribbon2019-cleaned.exe程序，按数字/字符串搜索 SHAREWARE 后，在其中查找 2、5、10关键字，匹配特征
例如：在 AddMRU 过程中有下面代码，Not Class21.smethod_20(True) ，为 验证是否注册，进入Class21.smethod_20(True) 类，编辑IL代码
If Not Class21.smethod_20(True) Then
Me.Text = strCaption + " - SHAREWARE - " + strNewFile
Return
End If
Me.Text = strCaption + " - " + strNewFile
在 CheckControls函数中： Class10.bool_19 应为 True 才不是共享软件的限制。 False为限制。查找该布尔开关的过程，破解此过程。
Public Function CheckControls() As Boolean
Dim result As Boolean
If Class10.bool_19 Then
result = True
Else
Dim strErrorControl1a As String = Class7.strErrorControl1a
Dim strErrorControl2a As String = Class7.strErrorControl2a
If Class10.int_5 <= 9 Then
result = True
Else
Interaction.MsgBox("SHAREWARE: " + strErrorControl1a + " 10 " + strErrorControl2a, MsgBoxStyle.Information, Class10.string_20)
result = False
End If
End If
Return result
End Function
通过Form1.AddMRU 、Form1.CheckControls、Form1.iuAjgosejh、Form1.method_18、frmOptions.method_3、Form1.method_3、Form1.method_342、Form1.method_5 过程代码分析
三、重点
Class21.smethod_20(True)和Class10.bool_19的布尔值为 True 就破除了共享软件的限制。
dnSpy导出源代码，所有文件搜索 bool_19，还有Form1.StartForm、Form1.method_87、frmOptions.CheckLic中有此字符(dnSpy不支持搜索变量名称)
Public Sub CheckLic() '证书验证注册过程
Dim flag As Boolean = False
Dim flag2 As Boolean = True
Dim text As String = Application.StartupPath
If Not text.EndsWith("\") Then
text += "\"
End If
Me.lblWarning.Visible = False
If Operators.CompareString(Me.txtLicence.Text, "", False) <> 0 Then
Try
Me.lblWarning.Visible = False
Dim text2 As String = Class16.smethod_1(Me.txtLicence.Text)
If Strings.InStr(text2, "joshtewalt@msn.com", CompareMethod.Binary) > 0 Then
flag = False
ElseIf Strings.InStr(text2, "ednardo.mail@gmail.com", CompareMethod.Binary) > 0 Then
flag = False
Else
Dim value As String = Strings.Left(text2, 1)
Dim num As Integer
Try
num = Conversions.ToInteger(value)
Catch ex As Exception
flag = False
GoTo IL_17C
End Try
Dim num2 As Integer = Conversions.ToInteger(Class10.string_23)
If Operators.CompareString(FileSystem.Dir(text + Class10.string_19, FileAttribute.Normal), "", False) = 0 Then
Using frmLicFehlt As frmLicFehlt = New frmLicFehlt()
frmLicFehlt.ShowDialog(Me)
End Using
flag2 = False
flag = False
ElseIf num >= num2 Then
flag = True
If Strings.InStr(text2, "HeLL 2008", CompareMethod.Binary) = 0 And Strings.InStr(text2, "=", CompareMethod.Binary) = 0 Then
flag = True
If Class10.bool_18 Then
flag = (Operators.CompareString(FileSystem.Dir(text + Class10.string_19, FileAttribute.Normal), "", False) <> 0 AndAlso Class21.smethod_58(text + Class10.string_19))
End If
Else
flag = False
End If
Else
flag = False
End If
End If
IL_17C:
If flag Then
Class16.smethod_4(Me.txtLicence.Text)
Dim text3 As String = Strings.Mid(text2, 3)
Me.txtLicenceName.Text = text3
Me.txtLicenceName.Visible = True
Me.lblAddLicence.Visible = False
Me.txtLicence.Visible = False
Me.btnAddLicence.Visible = False
Me.btnBuy.Visible = False
Me.btnSelectFiles.Visible = False
Class10.bool_19 = True
Else
Class10.bool_19 = False
End If
GoTo IL_230
Catch ex2 As Exception
Class10.bool_19 = False
GoTo IL_230
End Try
End If
If flag2 Then
Me.lblWarning.Visible = True '修改为False,不显示警告,即为注册
End If
Me.txtLicence.Text = ""
IL_230:
If Operators.CompareString(Me.txtLicenceName.Text, Me.string_0, False) = 0 Then
If flag2 Then
Me.lblWarning.Visible = True '修改为False,不显示警告,即为注册
End If
Me.txtLicence.Text = ""
Class10.bool_19 = False '修改为True,即为注册
End If
End Sub
Public Function smethod_20(Optional bool_0 As Boolean = False) As Boolean
Dim text As String = Application.StartupPath
If Not text.EndsWith("\") Then
text += "\"
End If
Dim text2 As String = Class16.smethod_2()
If Operators.CompareString(text2, "", False) <> 0 Then
text2 = Class16.smethod_1(text2)
Else
text2 = ""
End If
Dim result As Boolean
If Strings.InStr(text2, "joshtewalt@msn.com", CompareMethod.Binary) > 0 Then
result = True
ElseIf Strings.InStr(text2, "kondorosy.csanad@gmail.com", CompareMethod.Binary) > 0 Then
result = True
ElseIf Strings.InStr(text2, "dimitriska@gmail.com", CompareMethod.Binary) > 0 Then
result = True
ElseIf Strings.InStr(text2, "ednardo.mail@gmail.com", CompareMethod.Binary) > 0 Then
result = True
ElseIf Operators.CompareString(text2, "", False) <> 0 Then
Dim value As String = Strings.Left(text2, 1)
Dim num As Integer
Try
' The following expression was wrapped in a checked-expression
num = CInt(Conversions.ToLong(value))
If Operators.CompareString(FileSystem.Dir(text + Class10.string_19, FileAttribute.Normal), "", False) = 0 Then
If Not bool_0 Then
Using frmLicFehlt As frmLicFehlt = New frmLicFehlt()
frmLicFehlt.ShowDialog()
End Using
End If
Return False
End If
Catch ex As Exception
Return False
End Try
Dim num2 As Integer = Conversions.ToInteger(Class10.string_23)
If num >= num2 Then
result = True
result = (Strings.InStr(text2, "HeLL 2008", CompareMethod.Binary) = 0 And Strings.InStr(text2, "=", CompareMethod.Binary) = 0)
If Class10.bool_18 Then
result = (Operators.CompareString(FileSystem.Dir(text + Class10.string_19, FileAttribute.Normal), "", False) <> 0 AndAlso Class21.smethod_58(text + Class10.string_19))
End If
Else
result = False
End If
Else
result = False '修改为True,即为注册
End If
Return result
End Function
在 frmOptions.method_3中 改:text = "这是完整注册版：洞庭鱼",注册成功后显示注册。
现在已经完美破解注册了
链接：https://pan.baidu.com/s/1DPTDP5WR_nvWI3aU2RZuRg
提取码：yujq
抱歉，未能达到申请要求，申请不通过，可以关注论坛官方微信（吾爱破解论坛），等待开放注册通知。
页:
[1]