Imports System.IO
Imports System.Net
Imports System.Security.Cryptography
Imports System.Text

Module Status

    Private Const ACCESS_KEY_ID As String = "xxxxxxxxxxxxxxxxxxxx"
    Private Const SECRET_ACCESS_KEY As String = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

    Sub Main()
        REM Generate the HMAC-SHA1 signature.
        Dim timestamp As String = DateTime.UtcNow.ToString("r")
        Dim request As String = "/" & ACCESS_KEY_ID & "/status"
        Dim clearText As String = "GET" & vbLf & ACCESS_KEY_ID & vbLf & timestamp & vbLf & request
        Dim hmac As HMACSHA1 = New HMACSHA1(ASCIIEncoding.UTF8.GetBytes(SECRET_ACCESS_KEY))
        Dim signature As String = Convert.ToBase64String(hmac.ComputeHash(ASCIIEncoding.UTF8.GetBytes(clearText)))

        REM Request the status from PDF Alchemy.
        Dim req As HttpWebRequest = HttpWebRequest.Create("https://www.pdfalchemy.com" & request)
        req.Headers.Add("X-PDF-Alchemy-Date", timestamp)
        req.Headers.Add("X-PDF-Alchemy-Signature", signature)
        Try
            Dim response As HttpWebResponse = req.GetResponse()
            Console.Write(New StreamReader(response.GetResponseStream()).ReadToEnd())
            response.Close()
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try
    End Sub

End Module