Imports System.Collections.Generic
Imports System.Linq
Imports System.Text
Imports System.Threading.Tasks
Imports System.Web
Imports System.Security.Cryptography
Imports System.IO
Imports System.Net


Module Module1
    Public Function Encrypt(toEncrypt As String, key As String, iv As String) As String
        Dim encrypted As String = Nothing

        Try
            Dim keyArray As Byte() = UTF8Encoding.UTF8.GetBytes(key)
            ' 128-AES key
            Dim ivArray As Byte() = Encoding.UTF8.GetBytes(iv)
            Dim toEncryptArray As Byte() = UTF8Encoding.UTF8.GetBytes(toEncrypt)

            Using rijAlg As New RijndaelManaged()
                rijAlg.KeySize = 128
                rijAlg.BlockSize = 128
                rijAlg.Key = keyArray
                rijAlg.IV = ivArray
                rijAlg.Padding = PaddingMode.PKCS7
                rijAlg.Mode = CipherMode.CBC

                Dim encryptor As ICryptoTransform = rijAlg.CreateEncryptor(rijAlg.Key, rijAlg.IV)
                Dim resultArray As Byte() = encryptor.TransformFinalBlock(toEncryptArray, 0, toEncryptArray.Length)

                encrypted = Convert.ToBase64String(resultArray, 0, resultArray.Length)
            End Using
        Catch
        End Try

        Return encrypted
    End Function

    Sub Main()
	Dim dt As String = DateTime.UtcNow.ToString("u")
        Dim user As String = "user1"
        Dim blankIv As String = Encoding.UTF8.GetString(New Byte(15) {})
        Dim key As String = "0123456789012345"
        Dim msg As String = Encrypt(dt, key, blankIv)
        Dim URL As String = "http://dmmx2.nba-hq.com/Games/?date=03/01/2013&league=nba"
        Dim HeaderMSG As String = Convert.ToString((Convert.ToString("MEDIAARCHIVE ") & user) + ":") & msg

        Dim serviceRequest As New WebClient()
        serviceRequest.Headers.Add("Authorization", HeaderMSG)
        Dim response As String = serviceRequest.DownloadString(New Uri(URL))
	End Sub

End Module