addnode=digigreen.duckdns.org

response = getResponse(uri, "apisign", sign, params)

tempString = Mid(response, InStr(response, "["), Len(response) - InStr(response, "["))
tempString = Replace(tempString, ":null", ":""null""")

Public Sub getopenorders()

Dim apikey As String
Dim apisecret As String
Dim uri As String
Dim sign As String
Dim response As String
Dim params As String
Dim json As Object
Dim tempString As String
Dim Item As Dictionary
Dim key As Variant
Dim c As Integer
Dim r As Integer
Dim rv As Integer

apikey = "THIS IS YOUR BITTREX API KEY"
apisecret = "THIS IS YOUR BITTREX API SECRET"

uri = "https://bittrex.com/api/v1.1/public/getmarketsummaries"

params = "?" + "apikey=" + apikey + "&nonce=" + getNonce
sign = createSignature(apisecret, uri + params)
response = getResponse(uri, "apisign", sign, params)
tempString = Mid(response, InStr(response, "["), Len(response) - InStr(response, "["))
tempString = Replace(tempString, ":null", ":""null""")

Set json = JsonConverter.ParseJson(tempString)

r = 2
rv = 3
c = 1

Sheets(1).Cells.ClearContents

For Each Item In json
     
    For Each key In Item.keys()
        Sheets(1).Cells(r, c).value = key
        Sheets(1).Cells(rv, c).value = Item(key)
        c = c + 1
    Next
    rv = rv + 1
    c = 1
Next

MsgBox ("Update from Bittrex done.")

End Sub


Function getResponse(ByVal pURL As String, sendVarKey As String, sendVarValue As String, params As String) As String
    Dim oRequest As WinHttp.WinHttpRequest
    Set oRequest = GetHttpObj("POST", pURL + params, False, sendVarKey, sendVarValue)
    oRequest.send ""
    getResponse = oRequest.responseText
End Function


Public Function GetHttpObj(httpMethod As String, uri As String, async As Boolean, _
    sendVarKey As String, sendVarValue As String, _
    Optional contentType As String = "application/json") As WinHttp.WinHttpRequest
    Dim httpObj As New WinHttp.WinHttpRequest
    With httpObj
        .Open httpMethod, uri, async
        .setRequestHeader "origin", "pamsXL"
        .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
        .setRequestHeader "Connection", "keep-alive"
        .setRequestHeader "Content-type", contentType
        .setRequestHeader "cache-control", "no-cache"
    End With
    httpObj.setRequestHeader sendVarKey, sendVarValue
    Set GetHttpObj = httpObj
End Function


Private Function createSignature(keyString As String, url As String) As String
    createSignature = sha512(keyString, url)
End Function


Private Function sha512(ByVal keyString As String, ByVal str As String) As String

    Dim encode As Object, encrypt As Object, s As String, _
        privateStringBytes() As Byte, b() As Byte, privateKeyBytes() As Byte
       
    Set encode = CreateObject("System.Text.UTF8Encoding")
    Set encrypt = CreateObject("System.Security.Cryptography.HMACSHA512")
   
    privateKeyBytes = encode.Getbytes_4(keyString)
    privateStringBytes = encode.Getbytes_4(str)
    encrypt.key = privateKeyBytes
   
    b = encrypt.ComputeHash_2((privateStringBytes))
    sha512 = ByteArrayToHex(b)

    Set encode = Nothing
    Set encrypt = Nothing

End Function

Private Function ByteArrayToHex(ByRef ByteArray() As Byte) As String
    Dim l As Long, strRet, Val As String
    For l = LBound(ByteArray) To UBound(ByteArray)
        Val = Hex$(ByteArray(l))
        If Len(Val) <> 2 Then
             Val = "0" & Val
        End If
        strRet = strRet & Val
    Next l
    ByteArrayToHex = LCase(strRet)
End Function

Function getNonce() As String
    getNonce = CStr(DateDiff("S", "1/1/1970", Now()))
End Function

{"success":false,"message":"INVALID_SIGNATURE","result":null}

Public Sub getopenorders()

Dim apikey As String
Dim apisecret As String
Dim uri As String
Dim sign As String
Dim response As String
Dim params As String

'For Debugging
Range("B3").Value = ""
Range("B4").Value = ""
Range("B5").Value = ""

apikey = "BITTREX API KEY"
apisecret = "BITTREX API SECRET"
uri = "https://bittrex.com/api/v1.1/market/getopenorders"
params = "?" + "apikey=" + apikey + "&nonce=" + getNonce
sign = createSignature(apisecret, uri + params)
response = getResponse(uri, "apisign", sign, params)

Range("B3").Value = response


End Sub

Function getResponse(ByVal pURL As String, sendVarKey As String, sendVarValue As String, params As String) As String
    Dim oRequest As WinHttp.WinHttpRequest
    Set oRequest = GetHttpObj("POST", pURL + params, False, sendVarKey, sendVarValue)
    oRequest.send ""
    getResponse = oRequest.responseText
End Function


Public Function GetHttpObj(httpMethod As String, uri As String, async As Boolean, _
    sendVarKey As String, sendVarValue As String, _
    Optional contentType As String = "application/json") As WinHttp.WinHttpRequest
    Dim httpObj As New WinHttp.WinHttpRequest
    With httpObj
        .Open httpMethod, uri, async
        .setRequestHeader "origin", "pamsXL"
        .setRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)"
        .setRequestHeader "Connection", "keep-alive"
        .setRequestHeader "Content-type", contentType
        .setRequestHeader "cache-control", "no-cache"
    End With

    Range("B4").Value = uri
    Range("B5").Value = sendVarValue
    httpObj.setRequestHeader sendVarKey, sendVarValue
    

    Set GetHttpObj = httpObj
End Function


Private Function createSignature(keyString As String, url As String) As String
    createSignature = sha512(keyString, url)
End Function


Private Function sha512(ByVal keyString As String, ByVal str As String) As String

    Dim encode As Object, encrypt As Object, s As String, _
        t() As Byte, b() As Byte, privateKeyBytes() As Byte
        
    Set encode = CreateObject("System.Text.UTF8Encoding")
    Set encrypt = CreateObject("System.Security.Cryptography.HMACSHA512")
    s = keyString
    privateKeyBytes = decodeBase64(s)

    encrypt.Key = privateKeyBytes
    t = encode.Getbytes_4(str)
    b = encrypt.ComputeHash_2((t))
    
    s = tob64(b)
    sha512 = Replace(s, vbLf, "")
    Set encode = Nothing
    Set encrypt = Nothing

End Function

Private Function tob64(ByRef arrData() As Byte) As String

    Dim objXML As MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMElement

    Set objXML = New MSXML2.DOMDocument60

    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.nodeTypedValue = arrData
    tob64 = objNode.Text

    Set objNode = Nothing
    Set objXML = Nothing

End Function

Private Function decodeBase64(ByVal strData As String) As Byte()
    Dim objXML As MSXML2.DOMDocument60
    Dim objNode As MSXML2.IXMLDOMElement
    
    Set objXML = New MSXML2.DOMDocument60
    Set objNode = objXML.createElement("b64")
    objNode.DataType = "bin.base64"
    objNode.Text = strData
    decodeBase64 = objNode.nodeTypedValue
    
    Set objNode = Nothing
    Set objXML = Nothing
End Function


Function getNonce() As String
    getNonce = CStr(DateDiff("S", "1/1/1970", Now()))
End Function

Address not seen on the network

{"summary":[{"STATUS":[{"STATUS":"S","When":1407151177,"Code":11,"Msg":"Summary","Description":"bfgminer 4.6.0"}],"SUMMARY":[{"Elapsed":7570,"MHS av":30.403,"MHS 20s":27.114,"Found Blocks":55,"Getworks":227,"Accepted":2577,"Rejected":127,"Hardware Errors":131,"Utility":20.425,"Discarded":282310,"Stale":0,"Get Failures":0,"Local Work":286617,"Remote Failures":0,"Network Blocks":173,"Total MH":230154.9377,"Diff1 Work":47.32202148,"Work Utility":0.375,"Difficulty Accepted":45.47311397,"Difficulty Rejected":1.54916382,"Difficulty Stale":0,"Best Share":32.77024645,"Device Hardware%":4.8254,"Device Rejected%":3.2737,"Pool Rejected%":3.2945,"Pool Stale%":0,"Last getwork":1407151175}],"id":1}],"devs":[{"STATUS":[{"STATUS":"S","When":1407151177,"Code":9,"Msg":"1 PGA(s)","Description":"bfgminer 4.6.0"}],"DEVS":[{"PGA":0,"Name":"ZUS","ID":0,"Enabled":"Y","Status":"Alive","Device Elapsed":7588,"MHS av":30.331,"MHS 20s":31.001,"MHS rolling":31.001,"Accepted":2577,"Rejected":127,"Hardware Errors":131,"Utility":20.425,"Stale":0,"Last Share Pool":0,"Last Share Time":1407151176,"Total MH":230154.9377,"Diff1 Work":47.32202148,"Work Utility":0.374,"Difficulty Accepted":45.47311397,"Difficulty Rejected":1.54916382,"Difficulty Stale":0,"Last Share Difficulty":0.07647705,"Last Valid Work":1407151175,"Device Hardware%":4.8254,"Device Rejected%":3.2737}],"id":1}],"pools":[{"priority":0,"url":"REMOVED","active":true,"user":"REMOVED","pass":false,"stats":[{"start_time":false,"accepted":2577,"rejected":127,"shares":4081,"stop_time":false,"stats_id":1}],"stats_id":1,"alive":1},{"priority":1,"url":"REMOVED","active":false,"user":"REMOVED","pass":false,"stats":[{"start_time":false,"accepted":0,"rejected":0,"shares":0,"stop_time":false,"stats_id":1}],"stats_id":1,"alive":1},{"priority":2,"url":"REMOVED","active":false,"user":"REMOVED","pass":false,"stats":[{"start_time":false,"accepted":0,"rejected":0,"shares":0,"stop_time":false,"stats_id":1}],"stats_id":1,"alive":1},{"priority":3,"url":"stratum+tcp:\/\/multi.ghash.io:3333","active":false,"user":"michelem.minera","pass":false,"stats":[{"start_time":false,"accepted":0,"rejected":0,"shares":0,"stop_time":false,"stats_id":1}],"stats_id":1,"alive":1}],"id":1}

We are investingating issues in the backend. Your shares and hashrate are safe and we will fix things ASAP.
Payouts disabled, you will not receive any coins to your offline wallet for the time being