Utilizar código vba para ingresar a Deribit
Tengo un problema que no se como resolver. Se trata de ingresar los datos de mi cuenta en Deribit en una hoja de Excel. He consultado al soporte y en la respuesta me dicen que debo utilizar vba y me mandaron tres funciones que pego a continuación:
Private Function ConvToBase64String(vIn As Variant) As Variant
Dim oD As Object
Set oD = CreateObject("MSXML2.DOMDocument")
With oD
.LoadXML "<root />"
.DocumentElement.DataType = "bin.base64"
.DocumentElement.nodeTypedValue = vIn
End With
ConvToBase64String = Replace(oD.DocumentElement.Text, vbLf, "")
Set oD = Nothing
End Function
Public Function SHA256(sIn As String) As String
'Set a reference to mscorlib 4.0 64-bit
'Test with empty string input:
'44 Base-64: 47DEQpj8HBSa+/...etc
Dim oT As Object, oSHA256 As Object
Dim TextToHash() As Byte, bytes() As Byte
Set oT = CreateObject("System.Text.UTF8Encoding")
Set oSHA256 = CreateObject("System.Security.Cryptography.SHA256Managed")
TextToHash = oT.GetBytes_4(sIn)
bytes = oSHA256.ComputeHash_2((TextToHash))
SHA256 = ConvToBase64String(bytes)
Set oT = Nothing
Set oSHA256 = Nothing
End Function
Public Function GetDeribitAccount()
Dim xmlhttp As New MSXML2.XMLHTTP60
Dim myUrl As String, apiKey As String, apiSecret As String, sigBase As String
Dim sig As String
Dim hash64 As String
myUrl = "https://test.deribit.com/api/v1/private/account"
apiKey = "API_KEY"
apiSecret = "API_SECRET"
sigBase = "_=1530860845050&_ackey=" + apiKey + "&_acsec=" + apiSecret + "&_action=/api/v1/private/account"
hash64 = SHA256(sigBase)
sig = apiKey + ".1530860845050." + hash64
xmlhttp.Open "GET", myUrl, False
xmlhttp.setRequestHeader "x-deribit-sig", sig
xmlhttp.send
MsgBox (xmlhttp.responseText)
End Function
Realmente esto supera mis conocimientos sobre vba. Pensé que colocando en la celda (A1) "=GetDeribitAccount()" iba a lograr algo pero lo único que consigo es un error en la primer línea:
Dim xmlhttp As New MSXML2.XMLHTTP60
Aclaro que utilizo Excel 2016 si eso sirve para algo.
Por supuesto se que para que realmente entre en mi cuenta debo reemplazar las API por las verdaderas que dispongo.
Realmente no se como sigue, porque de esto no entiendo ni jota pero no creo que sea muy difícil conectar estos códigos en una hoja de excel.
Desde ya agradezco a todos los que me puedan echar una mano al respecto.