Imports System.Text.ASCIIEncoding

Module PerformanceTest
    Private cRunning As Boolean = True
    Private cSleepThread As New System.Threading.Thread(AddressOf DoSleep)

    Sub Main()
        Dim count As Integer = 0
        Dim Hasher As New System.Security.Cryptography.MD5CryptoServiceProvider
        Dim teststring As String = "Testing...1....2...3..."

        Dim start As Long = Date.Now.Ticks
        cSleepThread.Start()
        While (cRunning)
            Hasher.ComputeHash(ASCII.GetBytes(teststring))
            count += 1
        End While

        System.Console.WriteLine(count)
        System.Console.WriteLine(Date.Now.Ticks - start)
    End Sub

    Private Sub DoSleep()
        System.Threading.Thread.Sleep(5000)
        cRunning = False
    End Sub
End Module