好友
阅读权限10
听众
最后登录1970-1-1
|
本帖最后由 wei5383079 于 2022-5-19 20:28 编辑
慕若曦 发表于 2022-5-6 15:01
ReadLic方法有个catch，在这里可以做点儿手脚。
this._lic = new LicInfo(this.GetLicenseID(), this.Soft ...
因为有违规发不了贴，大佬看看这个怎么改成一步到位？每次都要用Dnspy去找试用注册码。
https://www.lanzoux.com/b015bjrji提取码C90w
' Token: 0x06000483 RID: 1155 RVA: 0x003B7CD4 File Offset: 0x003B60D4
Public Sub Activation(ID1 As String, ID2 As String, mDay As String, mType As String)
Dim num As Integer
Dim num2 As Integer
Dim obj As Object
Try
ProjectData.ClearProjectError()
num = 2
Dim wrapper As c_Simple3Des = New c_Simple3Des("abcdefghi")
M_Main.Reuse1 = False
Dim flag As Boolean = Operators.CompareString(ID2, M_Main.mGetResult(ID1), False) = 1
If flag Then(注册码输入对比弹出）
Interaction.MsgBox(M_Main.NumToStr("1034919758195261802523651105511461900084001350011400116001231384512136", 15), MsgBoxStyle.Information, Nothing)（弹出注册成功后边还有验证）
M_Main.Reuse1 = True
M_Main.mSaveSetting(M_Main.NewID, "")
M_Main.WriteT("000000")
M_Main.NewTime = ""
M_Main.mSavesetting1(M_Main.DayN, M_Main.StrToNum(mDay, 15), "Software\LeCxe")
M_Main.mSavesetting1(wrapper.EncryptData("REUSE"), wrapper.EncryptData(mType), "Software\LeCxe")
M_Main.GenerateRegistrationFile(mDay, mType)
M_Main.mSaveSetting("注册日期", Strings.Format(DateAndTime.Now, "yyyyMMdd"))
Else
IL_D2:
Interaction.MsgBox(M_Main.NumToStr("131021802219019103491975812106123971979618747", 15), MsgBoxStyle.Information, Nothing)（弹出注册失败）
End If
GoTo IL_12C
IL_EB:
num2 = -1
switch(ICSharpCode.Decompiler.ILAst.ILLabel[], num)
IL_FF:
Catch obj2 When endfilter(TypeOf obj Is Exception And num <> 0 And num2 = 0)
Dim ex As Exception = CType(obj2, Exception)
GoTo IL_EB
End Try
Throw ProjectData.CreateProjectError(-2146828237)
IL_12C:
If num2 <> 0 Then
ProjectData.ClearProjectError()
End If
End Sub
下边的是试用版注册算法过程
Public Function GetRePort(RegistCode As String) As Boolean
Dim mDay As String = Strings.Format(DateAndTime.Now, "dd_HH")
Dim mTmpText As String = M_Main.GetResourceText1("Excel工具.Report.ini")
Dim flag As Boolean = Operators.CompareString(mTmpText, "", False) = 0
Dim GetRePort As Boolean
If Not flag Then
Dim mTmpArr As Object = Strings.Split(mTmpText, vbCrLf, -1, CompareMethod.Binary)
Dim Successful As Boolean = False
Dim num As Integer = 0
Dim num2 As Integer = Information.UBound(CType(mTmpArr, Array), 1)
Dim i As Integer = num
Dim mTmpArr2 As Object
While True
Dim num3 As Integer = i
Dim num4 As Integer = num2
If num3 > num4 Then
GoTo IL_10D
End If
Dim mText As String = M_Main.NumToStr(Conversions.ToString(NewLateBinding.LateIndexGet(mTmpArr, New Object() { i }, Nothing)), 42)
mTmpArr2 = Strings.Split(mText, "|", -1, CompareMethod.Binary)
flag = Operators.ConditionalCompareObjectEqual(mDay, NewLateBinding.LateIndexGet(mTmpArr2, New Object() { 0 }, Nothing), False)
If flag Then
Exit For
End If
i += 1
End While
Dim flag2 As Boolean = Operators.ConditionalCompareObjectEqual(RegistCode, NewLateBinding.LateIndexGet(mTmpArr2, New Object() { 1 }, Nothing), False)
If flag2 Then
Successful = True
End If
IL_10D:
GetRePort = Successful
End If
Return GetRePort
End Function
|
-
-
|
发表于 2022-4-9 14:03
发表于 2022-4-9 15:12
|
发表于 2022-4-9 19:27
