'Bitcointalk.org - шестигранная, GPL
Открытый класс MtGoxAPI
	Открытое ApiKey Свойства As String 
	Открытое ApiSecretKey Свойства As String
	Открытое UserName Свойства As String
	Пароль публичной собственности As String

	Public Enum Urls
		GetTicker
		GetDepth
		GetTrades
		GetFunds
		BuyBTC
		SellBTC
		GetOrders
		Информация
		»...
	Конец Enum

	Private Function GetURL (URL Как URLS) As String
		Select Case URL
			Дело Urls.GetTicker
				Вернуть "http://mtgox.com/api/0/data/ticker.php"
			Дело Urls.GetDepth
				Вернуть "http://mtgox.com/api/0/data/getDepth.php"
			Дело Urls.GetTrades
				Вернуть "http://mtgox.com/api/0/data/getTrades.php"
			Дело Urls.GetFunds
				Вернуть "https://mtgox.com/api/0/getFunds.php"
			Дело Urls.BuyBTC
				Вернуть "https://mtgox.com/api/0/buyBTC.php"
			Дело Urls.SellBTC
				Вернуть "https://mtgox.com/api/0/sellBTC.php"
			Дело Urls.GetOrders
				Вернуть "https://mtgox.com/api/0/getOrders.php"
			Дело Urls.Info
				Вернуть "https://mtgox.com/api/0/info.php"
			Case Else
				Певд NotImplementedException ()
		End Select
	End Function

	Public Shared Function UrlEncode (URL As String) As String
		Дим г = url.Replace ("!", "% 21")
		г = r.Replace ("*", "% 2A")
		г = r.Replace ("'", "% 27")
		г = r.Replace ("(", "% 28")
		г = r.Replace (")", "% 29")
		г = r.Replace (";", "% 3B")
		г = r.Replace (":", "% 3A")
		г = r.Replace ("@", "% 40")
		г = r.Replace ("&", "% 26")
		г = r.Replace ("знак равно", "% 3D")
		г = r.Replace ("+", "% 2B")
		г = r.Replace ("$", "% 24")
		г = r.Replace (",", "% 2C")
		г = r.Replace ("/", "% 2F")
		г = r.Replace ("?", "% 3F")
		г = r.Replace ("#", "% 23")
		г = r.Replace ("[", "% 5B")
		г = r.Replace ("]", "% 5D")
		Возврат г
	End Function

	Открытый запрос Функции (URL Как URLS, Params В перечне (кортежи (Of String, String))) Как Newtonsoft.Json.Linq.JObject

		Dim strUrl = GetURL (URL)
		Если PARAMS ничего после этого PARAMS = Новый список (из кортежей (Of String, String))

		Dim REQ Как Net.HttpWebRequest = System.Net.HttpWebRequest.Create (strUrl)
		req.UserAgent = "Mozilla / 5.0 (Windows NT 6.1; WOW64; с.в.: 8.0) Gecko / 20110920 Firefox / 8.0"

		Dim authRequired = нет (URL = Urls.GetTicker Или URL = Urls.GetDepth Или URL = Urls.GetTrades)

		Если authRequired Тогда
			Если String.IsNullOrEmpty (ApiKey) Или String.IsNullOrEmpty (ApiSecretKey) или _
			 String.IsNullOrEmpty (UserName) Или String.IsNullOrEmpty (Password) Затем Throw New ArgumentNullException ("Свойства аутентификации не установлены")

			req.Headers.Add ("Rest-Key", ApiKey)
			params.Add (Tuple.Create ("данное время", DateTime.Now.Ticks.ToString ()))
			params.Add (Tuple.Create ("имя", ИмяПользователь))
			params.Add (Tuple.Create ("проходить", Пароль))
		End If

		Если params.Count Тогда
			'Мы должны POST
			req.AllowWriteStreamBuffering = True
			req.Method = "ПОСЛЕ"
			req.ContentType = "применение / х-WWW-форм-urlencoded"
			Dim postSB As New System.Text.StringBuilder ()
			Для каждых паров В Params
				Если postSB.Length Тогда postSB.Append ("&")
				postSB.Append (UrlEncode (param.Item1))
				postSB.Append ("знак равно")
				postSB.Append (UrlEncode (param.Item2))
			следующий
			Тусклое postBin = System.Text.Encoding.ASCII.GetBytes (postSB.ToString ())

			Если authRequired Тогда
				Тусклое HMAC = System.Security.Cryptography.HMACSHA512.Create ()
				hmac.Key = Convert.FromBase64String (ApiSecretKey)
				Дим хэш = hmac.ComputeHash (postBin)
				req.Headers.Add ("Rest-Sign", Convert.ToBase64String (хэш))
			End If

			req.GetRequestStream.Write (postBin, 0, postBin.Length)
		End If



		Дим ответ = req.GetResponse.GetResponseStream ()
		Dim читатель Как IO.StreamReader = Новый IO.StreamReader (ответ)
		«Возвращение reader.ReadToEnd ()

		Возвращение Newtonsoft.Json.Linq.JObject.Parse (reader.ReadToEnd ())

	End Function



End Class