xudongqing 发表于 2016-11-17 16:37
测试了一下。下面是说明：
1.用蓝点系统里面的离线更新直接导入楼主提供的文件，顺利更新完成并且提示已经 ...
兄弟，蓝电能转发一份吗，15088488@qq.com，论坛我也注册了很多年了，怎么你能下到，我下不到。
lf0339 发表于 2016-11-25 14:15
兄弟，蓝电能转发一份吗，，论坛我也注册了很多年了，怎么你能下到，我下不到。
测试了一下，有些功能不能用。所以还在研究。好了发你。
好东西，谢谢楼主分享，就怕有暗桩，会害死人啦
' ims.License
Private Shared Function getRegCode(machineCode As String, license As LicenseType) As String
Dim a_ As Integer = 10
Select Case license
Case 0
Return""
Case 1
machineCode = machineCode.Remove(4, 1) + machineCode.Substring(4, 1)
machineCode = machineCode.Insert(machineCode.Length - 2, TaskAttrs.b(ChrW(20267) & ChrW(21549) & ChrW(18223) & ChrW(7217) & ChrW(23859) & ChrW(23349) & ChrW(19255) & ChrW(5177) & ChrW(31035) & ChrW(20541) & ChrW(13375) & ChrW(10049) & ChrW(13891) & ChrW(13893) & ChrW(14919) & ChrW(9033) & ChrW(16203) & ChrW(11085) & ChrW(4687) & ChrW(13137) & ChrW(10067) & ChrW(13141) & ChrW(30295) & ChrW(27481) & ChrW(28251) & ChrW(28509) & ChrW(21087) & ChrW(20577) & ChrW(21603), a_))
Return FormsAuthentication.HashPasswordForStoringInConfigFile(machineCode, TaskAttrs.b(ChrW(24875) & ChrW(27181) & ChrW(1327), a_))
Case 2
machineCode = machineCode.Remove(3, 2) + machineCode.Substring(3, 2)
machineCode = machineCode.Insert(machineCode.Length - 6, TaskAttrs.b(ChrW(20267) & ChrW(21549) & ChrW(18223) & ChrW(7217) & ChrW(20531) & ChrW(23349) & ChrW(21047) & ChrW(5177) & ChrW(24379) & ChrW(19773) & ChrW(14655) & ChrW(27713) & ChrW(30019) & ChrW(29765) & ChrW(31047) & ChrW(30793) & ChrW(32331) & ChrW(32333), a_))
Return FormsAuthentication.HashPasswordForStoringInConfigFile(machineCode, TaskAttrs.b(ChrW(24875) & ChrW(27181) & ChrW(1327), a_))
Case 3
machineCode = machineCode.Remove(8, 2) + machineCode.Substring(8, 2)
machineCode = machineCode.Insert(machineCode.Length - 2, TaskAttrs.b(ChrW(17707) & ChrW(17197) & ChrW(17199) & ChrW(27953) & ChrW(25651) & ChrW(21301) & ChrW(18999) & ChrW(18745) & ChrW(21307) & ChrW(20541) & ChrW(8511) & ChrW(11841) & ChrW(27203) & ChrW(30533) & ChrW(31303) & ChrW(31561) & ChrW(32331) & ChrW(31821) & ChrW(24655), a_))
Return FormsAuthentication.HashPasswordForStoringInConfigFile(machineCode, TaskAttrs.b(ChrW(24875) & ChrW(27181) & ChrW(1327), a_))
Case 4
machineCode = machineCode.Remove(11, 2) + machineCode.Substring(11, 3)
machineCode = machineCode.Insert(machineCode.Length - 3, TaskAttrs.b(ChrW(17707) & ChrW(17197) & ChrW(17199) & ChrW(27953) & ChrW(28723) & ChrW(24373) & ChrW(19255) & ChrW(23865) & ChrW(18747) & ChrW(22333) & ChrW(13119) & ChrW(10049) & ChrW(1859) & ChrW(13381) & ChrW(10567) & ChrW(10569) & ChrW(10059) & ChrW(11085) & ChrW(13391), a_))
Return FormsAuthentication.HashPasswordForStoringInConfigFile(machineCode, TaskAttrs.b(ChrW(24875) & ChrW(27181) & ChrW(1327), a_))
Case Else
Throw New Exception(TaskAttrs.b(ChrW(9034) & ChrW(14452) & ChrW(46169) & ChrW(35514) & ChrW(56160) & ChrW(19785) & ChrW(45920) & ChrW(15302), a_))
End Select
End Function
private delegate uint v40OEV3wAYClqIhtNQ(IntPtr hHandle, byte[] pucSN);
private delegate uint ItKgeX2RBbt6QBF5Ce(ref IntPtr hHandle, byte[] pid, int index);
private delegate uint EwxfkbU10smChqbZH5(IntPtr hHandle);
public const int RecordLimitOnFree = 200;
public const int UsersLimitOnFree = 5;
public const int RecordLimitOnPersonal = 100000;
public const int UsersLimitOnPersonal = 10;
public const int RecordLimitOnDisguiseCracked = 2000;
public const int DaysLimitOnDisguiseCracked = 90;
破解 dll文件直接改注册限制。一个是注册算码dll文件，另一个是配置dll文件。
期待楼主出个注册机！！！！！！！！！！！！！！
xudongqing 发表于 2016-11-17 16:37
测试了一下。下面是说明：
1.用蓝点系统里面的离线更新直接导入楼主提供的文件，顺利更新完成并且提示已经 ...
能不能提供一下方法，没有权限看不了。私信6848650 @qq.com
xudongqing 发表于 2016-11-17 16:37
测试了一下。下面是说明：
1.用蓝点系统里面的离线更新直接导入楼主提供的文件，顺利更新完成并且提示已经 ...
感谢测试，下来来看看了，谢谢！。。。。。。。。。。。
没有权限，哪位大哥能发一个给我吗？谢谢了