C#

kensai wrote:

Am I understanding async calls wrong?

private void ReadFileLink_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
    StreamReader ReadFile = new StreamReader("C:\\Users\\Jase\\Desktop\\File.txt");
    textBox1.Text = ReadFile.ReadToEnd();
    ReadFile.Close();
}

private void PerformSearchLink_LinkClicked(object sender, LinkLabelLinkClickedEventArgs e)
{
    // Define a regular expression for repeated words.
    Regex rx = new Regex(@"\b(?<word>\w+)\s+(\k<word>)\b",
      RegexOptions.Compiled | RegexOptions.IgnoreCase);

    // Define a test string.
    string text = textBox1.Text;

    // Find matches.
    MatchCollection matches = rx.Matches(text);

    // write the number of matches found.
    Streamwriter jt = new StreamWriter(C:\\Users\\Jase\\Desktop\\NEW_File.txt");
    jt.Write("{0} matches found in:\n   {1}" + matches.Count + text);
    jt.Close();

    // Report on each match.
    foreach (Match match in matches)
    {
        GroupCollection groups = match.Groups;
        textBox1.Text = ("'{0}' repeated at positions {1} and {2}" + groups["word"].Value + groups[0].Index + groups[1].Index);
    }

}

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