蓝点通用信息管理系统V13破解
本帖最后由 fuyangshiji 于 2016-10-27 22:21 编辑好久没来阳光网驿了，发个蓝点通用信息管理系统V13破解版，
' 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; 测试了一下。下面是说明：
1.用蓝点系统里面的离线更新直接导入楼主提供的文件，顺利更新完成并且提示已经注册成企业版。
2.用任意字符注册，系统都会提示注册成功。
3.日期调整到2020年，重启蓝点系统，注册有效。
4.导入了7000条数据，重启蓝点系统，注册有效。
其他没测试，不知道有什么暗桩。非常感谢GRZ提供压缩文件给我。我自己没有阅读权限。虽然注册这个网站很多年了，一直没什么贡献。惭愧惭愧。
另：千万不要升级，升级后注册无效。 楼主的东西一向不错，感谢楼主提供。 这个可以试试。 这个软件主要功能是什么，之前没有接触，研究一下 权限还没到！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！ 楼主好久没来了，差不多几年了吧。。。收藏了。 呀，等级不够看不了:'(楼主能私信么？ 没有权限啊。郁闷啊。。。。。这个要什么组的权限呀。。
这个可以试试。
- 本文出自阳光网驿--企业信息化专家，原文地址：http://bbs.sunwy.org/thread-224541-1-1.html