C#

Option Explicit On
Option Strict On

Imports System.IO
Imports System.Text
Imports System.Security.Cryptography
Imports Microsoft.VisualBasic

Public Class clsLicenseEngine
    Public Structure TYPE_LicenseFile
        ' License Information
        Private m_LicenseName As String
        Private m_LicenseCompany As String
        Private m_LicenseFlags As String
        Private m_LicenseNumber As String
        Private m_Hash() As Byte
        Private m_Signature() As Byte

        Public Property LicenseName() As String
            Get
                Return m_LicenseName
            End Get
            Set(ByVal value As String)
                m_LicenseName = value
            End Set
        End Property
        Public Property LicenseCompany() As String
            Get
                Return m_LicenseCompany
            End Get
            Set(ByVal value As String)
                m_LicenseCompany = value
            End Set
        End Property
        Public Property LicenseFlags() As String
            Get
                Return m_LicenseFlags
            End Get
            Set(ByVal value As String)
                m_LicenseFlags = value
            End Set
        End Property
        Public Property LicenseNumber() As String
            Get
                Return m_LicenseNumber
            End Get
            Set(ByVal value As String)
                m_LicenseNumber = value
            End Set
        End Property
        Public ReadOnly Property Hash() As Byte()
            Get
                Return m_Hash
            End Get
        End Property
        Public Function LicenseSplitFlags() As String()
            Dim retVal() As String
            Dim splitter() As Char = {Chr(Asc("~"))}

            retVal = m_LicenseFlags.Split(splitter, StringSplitOptions.RemoveEmptyEntries)
            Return retVal
        End Function

        Private Function HashCalculate() As Byte()
            Dim SHA1 As New SHA1Managed
            Dim utf8 As New UTF8Encoding
            Dim retVal() As Byte
            Dim LicenseBuffer() As Byte = utf8.GetBytes(m_LicenseName + vbCrLf + m_LicenseCompany + vbCrLf + m_LicenseFlags + vbCrLf + m_LicenseNumber)

            retVal = SHA1.ComputeHash(LicenseBuffer)

            Return retVal
        End Function

        Private Sub HashSet()
            m_Hash = HashCalculate()
        End Sub

        Public Function AdminSignLicense(ByVal PrivateKey As TYPE_Key) As Boolean
            If PrivateKey.PrivateKeySet = False Then
                Return False
            End If

            HashSet()

            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(PrivateKey.PrivateKey)
            Dim Sign As New RSAPKCS1SignatureFormatter(m_rsa)

            Sign.SetHashAlgorithm("SHA1")
            m_Signature = Sign.CreateSignature(m_Hash)

            Return True
        End Function

        Public Function CheckSignature(ByVal PublicKey As TYPE_Key) As Boolean
            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(PublicKey.PublicKey)
            Dim sign As New RSAPKCS1SignatureDeformatter(m_rsa)

            sign.SetHashAlgorithm("SHA1")
            Return sign.VerifySignature(m_Hash, m_Signature)
        End Function

        Public Function AdminWriteLicenseFile(ByVal FileName As String) As Boolean
            Dim fs As Stream
            Dim utf8 As New UTF8Encoding
            Dim lines() As String = {m_LicenseName, m_LicenseCompany, m_LicenseFlags, m_LicenseNumber}
            Dim buffer() As Byte

            ReDim Preserve lines(lines.Length + 1)

            lines(lines.Length - 2) = ArrayToHexString(m_Hash)
            lines(lines.Length - 1) = ArrayToHexString(m_Signature)

            Try
                fs = New FileStream(FileName, FileMode.Create)
                For Each line As String In lines
                    buffer = utf8.GetBytes(line + vbLf)
                    fs.Write(buffer, 0, buffer.Length)
                Next

                fs.Flush()
                fs.Close()
            Catch ex As Exception
                Return False
            End Try
            Return True
        End Function

        Public Function ReadLicenseFile(ByVal FileName As String) As Boolean
            Dim fs As Stream
            Dim utf8 As New UTF8Encoding
            Dim lines() As String
            Dim LongLine As String
            Dim lf() As Char = {CType(vbLf, Char)}

            Try
                fs = New FileStream(FileName, FileMode.Open)
                Dim buffer(CType(fs.Length - 1, Integer)) As Byte
                fs.Read(buffer, 0, CType(fs.Length, Integer))
                LongLine = utf8.GetString(buffer)
                lines = LongLine.Split(lf, StringSplitOptions.None)
            Catch ex As Exception
                Return False
            End Try
            m_LicenseName = lines(0)
            m_LicenseCompany = lines(1)
            m_LicenseFlags = lines(2)
            m_LicenseNumber = lines(3)
            m_Hash = HexStringToArray(lines(4))
            HashSet()
            m_Signature = HexStringToArray(lines(5))


            Return True
        End Function

        Private Function ArrayToHexString(ByVal data() As Byte) As String
            Dim retVal As String = ""
            Dim i As Integer

            For i = 0 To data.Length - 1
                If Hex(data(i)).Length = 1 Then
                    retVal = retVal + "0"
                End If
                retVal = retVal + Hex(data(i))
            Next

            Return retVal
        End Function

        Private Function HexStringToArray(ByVal HexString As String) As Byte()
            Dim retVal(CType(((HexString.Length) / 2) - 1, Integer)) As Byte
            Dim i As Integer

            For i = 1 To HexString.Length Step 2
                retVal(CType((i - 1) / 2, Integer)) = CType(Val("&H" + Mid(HexString, i, 2)), Byte)
            Next
            Return retVal
        End Function
    End Structure

    Public Structure TYPE_Key
        Private m_PrivateKey As RSAParameters
        Private m_PublicKey As RSAParameters
        Private m_PrivateKeySet As Boolean

        Public Property PrivateKey() As RSAParameters
            Get
                Return m_PrivateKey
            End Get
            Set(ByVal value As RSAParameters)
                m_PrivateKey = value
                m_PrivateKeySet = True
                SetPublicKey()
            End Set
        End Property
        Public Property PublicKey() As RSAParameters
            Get
                Return m_PublicKey
            End Get
            Set(ByVal value As RSAParameters)
                m_PublicKey = value
                m_PrivateKeySet = False
            End Set
        End Property
        Public ReadOnly Property PrivateKeySet() As Boolean
            Get
                Return m_PrivateKeySet
            End Get
        End Property

        Public Sub Clear()
            m_PrivateKey = Nothing
            m_PublicKey = Nothing
            m_PrivateKeySet = False
        End Sub
        Private Sub SetPublicKey()
            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(m_PrivateKey)
            m_PublicKey = m_rsa.ExportParameters(False)
        End Sub
        Public Function WritePrivateKey(ByVal FileName As String) As Boolean
            If m_PrivateKeySet = False Then
                Return False
            End If

            Dim fs As Stream
            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(m_PrivateKey)
            Dim m_privKey() As Byte = m_rsa.ExportCspBlob(True)

            Try
                fs = New FileStream(FileName, FileMode.Create)
                fs.Write(m_privKey, 0, m_privKey.Length)
                fs.Flush()
                fs.Close()
            Catch ex As Exception
                Return False
            End Try
            Return True
        End Function

        Public Function WritePublicKeyVB(ByVal FileName As String) As Boolean

            Dim utf8 As New UTF8Encoding
            Dim tmp As String
            Dim buffer() As Byte
            Dim fs As Stream
            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(m_PublicKey)
            Dim m_PubKey() As Byte = m_rsa.ExportCspBlob(False)

            Try
                fs = New FileStream(FileName, FileMode.Create)

                tmp = "Public LicenseEnginePubKey() As Byte = { _" + vbCrLf
                buffer = utf8.GetBytes(tmp)
                fs.Write(buffer, 0, buffer.Length)

                Dim i As Integer
                For i = 0 To m_PubKey.Length - 1
                    tmp = "&H" + Hex(m_PubKey(i))
                    If i < m_PubKey.Length - 1 Then
                        tmp = tmp + ", "
                        If (i Mod 20 = 0) And (i > 0) Then
                            tmp = tmp + "_" + vbCrLf
                        End If
                    Else
                        tmp = tmp + " _ " + vbCrLf + "}"
                    End If
                    buffer = utf8.GetBytes(tmp)
                    fs.Write(buffer, 0, buffer.Length)
                Next

                fs.Flush()
                fs.Close()
            Catch ex As Exception
                Return False
            End Try
            Return True
        End Function
        Public Function WritePublicKey(ByVal FileName As String) As Boolean
            Dim fs As Stream
            Dim m_rsa As New RSACryptoServiceProvider
            m_rsa.ImportParameters(m_PublicKey)
            Dim m_pubKey() As Byte = m_rsa.ExportCspBlob(False)

            Try
                fs = New FileStream(FileName, FileMode.Create)
                fs.Write(m_pubKey, 0, m_pubKey.Length)
                fs.Flush()
                fs.Close()
            Catch ex As Exception
                Return False
            End Try
            Return True
        End Function
        Public Sub SetKeyBinary(ByVal key() As Byte)
            Dim m_rsa As New RSACryptoServiceProvider

            m_rsa.ImportCspBlob(key)
            Try
                PrivateKey = m_rsa.ExportParameters(True)
            Catch ex As Exception
                PublicKey = m_rsa.ExportParameters(False)
            End Try
        End Sub
        Public Function ReadKey(ByVal FileName As String) As Boolean
            Dim fs As Stream
            Dim m_rsa As New RSACryptoServiceProvider

            Try
                fs = New FileStream(FileName, FileMode.Open)
                Dim keylenght As Integer = CType(fs.Length, Integer)
                Dim key(keylenght - 1) As Byte
                fs.Read(key, 0, keylenght)
                fs.Close()
                Clear()


                m_rsa.ImportCspBlob(key)
            Catch ex As Exception
                Return False
            End Try

            Try
                PrivateKey = m_rsa.ExportParameters(True)
            Catch ex As Exception
                PublicKey = m_rsa.ExportParameters(False)
            End Try
            Return True
        End Function
        Public Sub GenerateNewKey()
            Dim m_rsa As New RSACryptoServiceProvider
            PrivateKey = m_rsa.ExportParameters(True)
        End Sub

    End Structure


End Class

public static class SingletonApp
{
	[DllImport( "user32.dll" )]
	static extern bool SetForegroundWindow( IntPtr hWnd );
	
	[DllImport( "user32.dll" )]
	static extern bool ShowWindowAsync( IntPtr hWnd , int nCmdShow );

	[DllImport( "user32.dll" )]
	static extern bool IsIconic( IntPtr hWnd ); 

        const int SW_RESTORE = 9;

	static Mutex m_Mutex;

	public static void Run( Form mainForm )
	{
	     bool first = IsFirstInstance( );
	     if( first )
	     {
		  Application.ApplicationExit += OnExit;
		  Application.Run( mainForm );
	     }
	     else
	     {
		  Process current = Process.GetCurrentProcess( );
		  Process[ ] procs = Process.GetProcessesByName( current.ProcessName );
		  IntPtr mainWindowHandle = procs[0].MainWindowHandle;
		  if( IsIconic( mainWindowHandle ) )
		  {
			ShowWindowAsync( mainWindowHandle , SW_RESTORE );
                  }
			SetForegroundWindow( mainWindowHandle ); 
	     }
        }

	static bool IsFirstInstance( )
	{
	      Assembly assembly = Assembly.GetEntryAssembly( );
	      string name = assembly.FullName;

	      m_Mutex = new Mutex( false , name );
	      bool owned = false;
	      owned = m_Mutex.WaitOne( TimeSpan.FromSeconds(0) , false );
	      return owned;
	}

	static void OnExit( object sender , EventArgs args )
	{
	      m_Mutex.ReleaseMutex( );
	      m_Mutex.Close( );
	}
}

nelsonpaixao wrote:

but i want this way and i really dont know where the codes goes wrong