Imports System

Imports System.Net

Imports System.Security.Cryptography

Imports System.Text

​

Public Module Module1

    Public Sub Main()

        ' Replace these with your actual API key and secret, ensure they are correctly formatted

        Dim apiKey As String = "V0QVQwt8wDEl650VSlt6BSl0cNJ8uSQmrxZm5dTViiHi"

        Dim apiSecret As String = "q08bxpYKS6XdE4QfiPiNAi5aMMfPnzIV15CaA80FQe0y"

        ' Check and print the base64 status

        Console.WriteLine("API Key Length: " & apiKey.Length)

        Console.WriteLine("API Secret Length: " & apiSecret.Length)

        ' Base URL for the API

        Dim baseUrl As String = "https://davincilockdev.com/api/facilities"

        ' Generate nonce and timestamp

        Dim nonce As String = Guid.NewGuid().ToString()

        Dim timeStamp As Integer = CType((DateTime.UtcNow - New DateTime(1970, 1, 1)).TotalSeconds, Integer)

        ' Prepare the string to sign

        Dim method As String = "GET"

        Dim stringToSign As String = apiKey + "+" + method + "+" + Uri.EscapeDataString(baseUrl).ToLower() + "+" + timeStamp.ToString() + "+" + nonce + "+"

        Try

            ' Compute the HMAC hash

            Dim keyBytes As Byte() = Convert.FromBase64String(apiSecret)

            Dim stringBytes As Byte() = Encoding.UTF8.GetBytes(stringToSign)

            Dim hmac As New HMACSHA512(keyBytes)

            Dim hashBytes As Byte() = hmac.ComputeHash(stringBytes)

            Dim base64Hash As String = Convert.ToBase64String(hashBytes)

            ' Prepare the Authorization header

            Dim authHeader As String = String.Format("dvl {0}:{1}:{2}:{3}", apiKey, base64Hash, nonce, timeStamp)

            ' Create the web request and set the headers

            Dim request As HttpWebRequest = CType(WebRequest.Create(baseUrl), HttpWebRequest)

            request.Method = method

            request.Headers.Add("Authorization", authHeader)

            ' Send the request and get the response

            Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

            Dim responseStream As System.IO.Stream = response.GetResponseStream()

            Dim reader As New System.IO.StreamReader(responseStream)

            Dim responseBody As String = reader.ReadToEnd()

            ' Output the result

            Console.WriteLine("Response: " + responseBody)

        Catch ex As Exception

            Console.WriteLine("Error: " + ex.Message)

        End Try

    End Sub

End Module

​