Public Shared Function jiekai() As Object
Dim num As Integer
Dim num2 As Integer
Dim num3 As Integer
Dim num4 As Integer
Dim time As DateTime
Dim numArray As Integer() = New Integer(30) {}
Dim numArray2 As Integer() = New Integer(30) {}
Dim numArray3 As Integer() = New Integer(30) {}
Dim str2 As String = "4mt1jx14" '这是计算密码文件用的客户端序列号
Dim str3 As String = str2
numArray(17) = (Strings.Asc(str2.Substring(0, 1)) * 175)
numArray(8) = (Strings.Asc(str2.Substring(1, 1)) * 175)
numArray(2) = (Strings.Asc(str2.Substring(2, 1)) * 175)
numArray(20) = (Strings.Asc(str2.Substring(3, 1)) * 175)
numArray(23) = (Strings.Asc(str2.Substring(4, 1)) * 175)
numArray(12) = (Strings.Asc(str2.Substring(5, 1)) * 175)
numArray(1) = (Strings.Asc(str2.Substring(6, 1)) * 175)
numArray(9) = (Strings.Asc(str2.Substring(7, 1)) * 175)
numArray(6) = (Strings.Asc(str2.Substring(8, 1)) * 175)
numArray(10) = (Strings.Asc(str2.Substring(9, 1)) * 175)
numArray(5) = (Strings.Asc(str2.Substring(10, 1)) * 175)
numArray(7) = (Strings.Asc(str2.Substring(11, 1)) * 175)
numArray(4) = (Strings.Asc(str2.Substring(0, 1)) * 175)
numArray(19) = (Strings.Asc(str2.Substring(1, 1)) * 175)
numArray(22) = (Strings.Asc(str2.Substring(2, 1)) * 175)
numArray(24) = (Strings.Asc(str2.Substring(3, 1)) * 175)
numArray(11) = (Strings.Asc(str2.Substring(4, 1)) * 175)
numArray(15) = (Strings.Asc(str2.Substring(5, 1)) * 175)
numArray(21) = (Strings.Asc(str2.Substring(6, 1)) * 175)
numArray(3) = (Strings.Asc(str2.Substring(7, 1)) * 175)
numArray(18) = (Strings.Asc(str2.Substring(8, 1)) * 175)
numArray(14) = (Strings.Asc(str2.Substring(9, 1)) * 175)
numArray(13) = (Strings.Asc(str2.Substring(10, 1)) * 175)
numArray(16) = (Strings.Asc(str2.Substring(11, 1)) * 175)
numArray3(1) = 412231
numArray3(2) = 463868
numArray3(3) = 676596
numArray3(4) = 209182
numArray3(5) = 79209
numArray3(6) = 32873
numArray3(7) = 291191
numArray3(8) = 568813
numArray3(9) = 29497
numArray3(10) = 54939
numArray3(11) = 201155
numArray3(12) = 391652
numArray3(13) = 521732
numArray3(14) = 65165
numArray3(15) = 95221
numArray3(16) = 15542
numArray3(17) = 18370
numArray3(18) = 92649
numArray3(19) = 46179
numArray3(20) = 4865
numArray3(21) = 2383
numArray3(22) = 28756
numArray3(23) = 19428
numArray3(24) = 34153
FileSystem.FileOpen(1, ("d:\101\mima.pas"), OpenMode.Random, OpenAccess.Default, OpenShare.Default, 20) '随机访问打开密码文件
Module1.mi(1) = FileSystem.FileLen("d:\101\mima.pas")
If (Module1.mi(1) > 1500) Then
Dim num5 As Integer
Dim type As ValueType
num = 1
Do
num5 = num
type = Module1.mima_insert(num5)
FileSystem.FileGet(1, type, -1)
Module1.mima_insert(num5) = DirectCast(type, mima_insert_type)
num += 1
Loop While (num <= 17)
type = Module1.mima_time1
FileSystem.FileGet(1, type, -1)
Module1.mima_time1 = DirectCast(type, Module1.mima_time_type)
num2 = (Module1.mima_time1.t - Module1.mima_insert(9).c2)
num = 1
Do
Select Case num
Case 11
type = Module1.mima_time2
FileSystem.FileGet(1, type, -1)
Module1.mima_time2 = DirectCast(type, Module1.mima_time_type)
num3 = (Module1.mima_time2.t - Module1.mima_insert(3).c2)
Exit Select
Case 22
type = Module1.mima_time3
FileSystem.FileGet(1, type, -1)
Module1.mima_time3 = DirectCast(type, Module1.mima_time_type)
num4 = (Module1.mima_time3.t - Module1.mima(15).c2)
Exit Select
End Select
num5 = num
type = Module1.mima(num5)
FileSystem.FileGet(1, type, -1)
Module1.mima(num5) = DirectCast(type, Module1.mima_type)
num += 1
Loop While (num <= 24)
End If
FileSystem.FileClose(New Integer() {1})
Dim dateValue As String = String.Concat(New String() {Conversions.ToString(2), Conversions.ToString(0), Conversions.ToString(0), Conversions.ToString(4), "/", Conversions.ToString(1), Conversions.ToString(2), "/", Conversions.ToString(3), Conversions.ToString(0)})
If ((num2 = num3) And (num3 = num4)) Then
time = DateAndTime.DateAdd("d", CDbl(num2), dateValue)
Else
time = Module1.gust_ut
End If
num = 1
Do
numArray2(num) = ((numArray3(num) - Module1.mima(num).c1) + Module1.mima(num).c2)
num += 1
Loop While (num <= 24)
num = 1
Do
If (numArray(num) <> numArray2(num)) Then
time = Module1.gust_ut
num = 100
End If
num += 1
Loop While (num <= 24)
Return time
End Function
Public Structure mima_insert_type
Public c1 As Integer
Public c2 As Integer
End Structure
Public Structure mima_time_type
Public t As Integer
End Structure
Public Structure mima_type
Public c1 As Integer
Public c2 As Integer
End Structure
