TA的每日心情 | 开心 2017-1-5 21:41 |
---|
签到天数: 3 天 [LV.2]偶尔看看I
|
发表于 2016-12-13 11:13:30
|
显示全部楼层
' 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
|
|