Public Shared Function AiWkiLZ() As Boolean
    Dim str As String = blAlGPZ.COzXmRZ
    If (str Is Nothing) Then
        Dim time As DateTime = DateTime.Now
        Dim time2 As DateTime = New DateTime(&H7D0, 1, 1).AddDays(CDbl((GetType(blAlGPZ).Assembly.GetName.Version.Build + 210)))
        Return (time < time2)
    End If
    Dim numArray As Integer() = New Integer(&H10  - 1) {}
    Dim str2 As String = "RVWX2AD3J4BC5KL6P7EF8MN9QUSGHTYZ-"
    Dim i As Integer
    For i = 0 To &H10 - 1
        Dim index As Integer = str2.IndexOf(str.Chars(i))
        If (index < 0) Then
            Throw New CLunCmZ(RqnUd.InvalidKey)
        End If
        If (((index = &H20) AndAlso (i <> 4)) AndAlso (i <> 10)) Then
            Throw New CLunCmZ(RqnUd.InvalidKey)
        End If
        numArray(i) = index
    Next i
    Dim num3 As Integer = (((numArray(0) << 10) + ((&H1F - numArray(14)) << 5)) + (&H1F - numArray(8)))
    Dim num4 As Integer = (((numArray(1) << 10) + (numArray(5) << 5)) + numArray(11))
    Dim num5 As Integer = ((((&H1F - numArray(3)) << 10) + (numArray(13) << 5)) + numArray(12))
    Dim num6 As Integer = (((numArray(7) << 10) + ((&H1F - numArray(9)) << 5)) + numArray(2))
    If (numArray(6) <> ((num3 >> 7) And &H1F)) Then
        Throw New CLunCmZ(RqnUd.InvalidKey)
    End If
    If (numArray(15) <> ((num4 >> 9) And &H1F)) Then
        Throw New CLunCmZ(RqnUd.InvalidKey)
    End If
    Dim num7 As Integer = (((num4 And &H7E00) >> 9) + ((num4 And &H1FF) << 6))
    num6 = (num6 Xor num3)
    num5 = (num5 Xor num7)
    num3 = (num3 Xor num4)
    If (num3 <> num5) Then
        Throw New CLunCmZ(RqnUd.InvalidKey)
    End If
    Dim time3 As DateTime = New DateTime(&H7D0, 1, 1).AddDays(CDbl(num3))
    Dim now As DateTime = DateTime.Now
    If ((Environment.OSVersion.Platform <> PlatformID.WinCE) AndAlso (now < time3.AddDays(-50))) Then
        Throw New CLunCmZ(RqnUd.InvalidDate)
    End If
    Return (now < time3)
End Function