was genau falsch war -> kann ich nicht sagen...
It was the Bitcointalk forum that inspired us to create Bitcointalksearch.org - Bitcointalk is an excellent site that should be the default page for anybody dealing in cryptocurrency, since it is a virtual gold-mine of data. However, our experience and user feedback led us create our site; Bitcointalk's search is slow, and difficult to get the results you need, because you need to log in first to find anything useful - furthermore, there are rate limiters for their search functionality.
The aim of our project is to create a faster website that yields more results and faster without having to create an account and eliminate the need to log in - your personal data, therefore, will never be in jeopardy since we are not asking for any of your data and you don't need to provide them to use our site with all of its capabilities.
We created this website with the sole purpose of users being able to search quickly and efficiently in the field of cryptocurrency so they will have access to the latest and most accurate information and thereby assisting the crypto-community at large.
{"error": "Missing key, signature and nonce parameters"}
Dim api_key As String = "zkhzfkxfjxfjkzzzfjkxjfjnxfj"
Dim api_secret As String = "zkhzfkxfjxfjkzzzfjkxjfjnxfj"
Dim client_id As String = "10203040"
Public Function check_balance()
Try
Dim NONCE As String = DateTime.Now.Ticks
Dim SIGNATURE As String = CreateSignature(NONCE)
Dim request As HttpWebRequest
request = DirectCast(WebRequest.Create("https://www.bitstamp.net/api/balance/"), HttpWebRequest)
request.Accept = True
request.Method = "POST"
request.Headers("key") = api_key
request.Headers("nonce") = NONCE
request.Headers("signature") = SIGNATURE
request.AllowAutoRedirect = True
request.AllowWriteStreamBuffering = True
request.KeepAlive = True
Dim response As HttpWebResponse = Nothing
Dim reader As StreamReader = Nothing
Dim result As String = Nothing
Try
response = DirectCast(request.GetResponse(), HttpWebResponse)
reader = New StreamReader(response.GetResponseStream())
result = reader.ReadToEnd()
RichTextBox1.Text = (result)
Catch ex As Exception
Return ex.ToString()
Finally
If Not response Is Nothing Then response.Close()
End Try
Return result
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Function
Private Function CreateSignature(ByVal Nonce As String) As String
Dim msg As String = String.Format("{0}{1}{2}", Nonce, client_id, api_key)
Return ByteArrayToString(SignHMACSHA256(api_secret, StringToByteArray(msg))).ToUpper()
End Function
Private Shared Function SignHMACSHA256(key As [String], data As Byte()) As Byte()
Dim hashMaker As New HMACSHA256(Encoding.ASCII.GetBytes(key))
Return hashMaker.ComputeHash(data)
End Function
Private Shared Function StringToByteArray(str As String) As Byte()
Return System.Text.Encoding.ASCII.GetBytes(str)
End Function
Private Shared Function ByteArrayToString(hash As Byte()) As String
Return BitConverter.ToString(hash).Replace("-", "").ToLower()
End Function