import httplib 
 import urllib 
 import json 
 import hashlib 
 import hmac 
 import time 
   
 api_key = "your_key" 
 api_secret = "your_secret" 
 

 nonce = int(round(time.time()*1000)) 
   
 params = {"nonce": nonce} 
 params = urllib.urlencode(params) 
   
 H = hmac.new(api_secret, digestmod=hashlib.sha512) 
 H.update(params) 
 sign = H.hexdigest() 
   
 headers = {"Content-type": "application/x-www-form-urlencoded", 
            "Key":api_key, 
            "Sign":sign} 
 conn = httplib.HTTPSConnection("api.exmo.com") 
 conn.request("POST", "/v1/user_info", params, headers) 
 response = conn.getresponse() 
   
 print response.status, response.reason 
 print json.load(response) 
   
 conn.close() 

* API declarations for the CNG API 

* This BCryptSignHash had been added by me. Is it right?
DECLARE BCryptSignHash IN BCrypt.DLL ;
Long hKey, String pPaddingInfo, String pbInput, ;
Long cbInput, String @pbOutput, Long cbOutput, ;
Long @pcbResult, Long dwFlags

*******************************************************************
DECLARE Long BCryptOpenAlgorithmProvider IN BCrypt.DLL ;
Long @phAlgorithm, String pszAlgId, ;
String pszImplementation, Long dwFlags

DECLARE Long BCryptGetProperty IN BCrypt.DLL ;
Long hObject, String pszProperty, Long @pbOutput, ;
Long cbOutput, Long @pcbResult, Long dwFlags

DECLARE Long BCryptCreateHash IN BCrypt.dll ;
Long hAlgorithm, Long @phHash, String @pbHashObject, ;
Long cbHashObject, String pbSecret, Long cbSecret, ;
Long dwFlags

DECLARE Long BCryptHashData IN BCrypt.dll ;
Long hHash, String pbInput, Long cbInput, Long dwFlags

DECLARE Long BCryptFinishHash IN BCrypt.DLL ;
Long hHash, String @pbOutput, Long cbOutput, Long ;
dwFlags

DECLARE Long BCryptDestroyHash IN BCrypt.DLL ;
Long hHash

DECLARE Long BCryptCloseAlgorithmProvider IN BCrypt.DLL;
Long hAlgorithm, Long dwFlags

DECLARE Long BCryptDestroyKey IN BCrypt.DLL ;
Long hKey

DECLARE Long BCryptFinalizeKeyPair IN BCrypt.DLL ;
Long hKey, Long dwFlags

DECLARE Long BCryptGenerateKeyPair IN BCrypt.DLL ;
Long hAlgorithm, Long @phKey, Long dwLength, ;
Long dwFlags

* New picture
DECLARE Long BCryptExportKey IN BCrypt.DLL ;
Long kKey, Long hExportKey, String pszBlobType, ;
String @pbOutput, Long cbOutput, Long @pcbResult, ;
Long dwFlags

DECLARE Long BCryptEncrypt IN BCrypt.DLL ;
Long hKey, String pbInput, Long cbInput, ;
String pPaddingInfo, String @pbIV, Long cbIV, ;
String @pbOutput, Long cbOutput, Long @pcbResult, ;
Long dwFlags

DECLARE Long BCryptImportKeyPair IN BCrypt.DLL ;
Long hAlgorithm, Long hImportKey, String pszBlobType, ;
Long @phKey, String pbInput, Long cbInput, ;
Long dwFlags

DECLARE Long BCryptDecrypt IN BCrypt.DLL ;
Long hKey, String pbInput, Long cbInput, ;
String pPaddingInfo, String @pbIV, Long cbIV, ;
String @pbOutput, Long cbOutput, Long @pcbResult, ;
Long dwFlags

CLEAR 
uz = HASH("MAN", "SHA1") && SHA1, SHA256, MD5, SHA512
&& The result for SHA1 must be: 2FD4E1C67A2D28FCED849EE1BB76E7391B93EB12
&& The result for SHA256 must be: D7A8FBB3 07D78094 69CA9ABC B0082E4F 8D5651E4 6D3CDB76 2D02D0BF 37C9E592
*?[SHA: ] + uz && Converts single-byte characters in cExpression to encoded hexBinary.
*_cliptext = uz
* FOR i = 1 TO 16
* ?STR(i)+[: ]+STRCONV(STRCONV(uz,16), i) && 16 from hexbinary(16) to ANSI and ....
* ENDFOR 

FUNCTION HASH 
* Creates a SHA 256 hash value
LPARAMETERS tcData, tcHashAlg
* Initialize API
LOCAL m.llOK
m.llOK = .T.
DO c:\arb\CNG.prg
* Get a handle to the hashing algorithm provider
LOCAL m.lnAlg
m.lnAlg = 0
IF m.llOK
m.llOK= BCryptOpenAlgorithmProvider( ;
@lnAlg, STRCONV(tcHashAlg,5)+CHR(0), NULL, 0 ) == 0 && @lnAlg, STRCONV("SHA256",5)+CHR(0), NULL, 0 ) == 0
ENDIF 
* Determine how many bytes we need to store hash object
LOCAL m.lnSizeObj, m.lnData
IF m.llOK
	m.lnSizeObj = 0
	m.lnData = 0
	m.llOK = BCryptGetProperty(m.lnAlg, ;
	STRCONV("ObjectLength",5)+CHR(0), @lnSizeObj, ;
	4, @lnData, 0 ) == 0
ENDIF 
* Determine length of the hash value
LOCAL m.lnSizeHash
IF m.llOK
	m.lnSizeHash = 0
	m.llOK = BCryptGetProperty( m.lnAlg, ;
	STRCONV("HashDigestLength",5)+CHR(0), ;
	@lnSizeHash, 4, @lnData, 0 ) == 0
ENDIF 
* Create the hash object (ostagiisii yangii suratta', itia', bitta')
LOCAL m.lnHash, m.lcHashObj
m.lnHash = 0
IF m.llOK
	m.lcHashObj = SPACE(m.lnSizeObj)
	m.llOK = BCryptCreateHash( m.lnAlg, @lnHash, ;
	@lcHashObj, m.lnSizeObj, NULL, 0, 0) == 0
ENDIF 
* To create the hash value we add data to the hash
* object. You can repeat this step as needed
IF m.llOK
m.llOK=BCryptHashData( ;
	m.lnHash, m.tcData, LEN(m.tcData), 0 ) == 0
ENDIF 
* Tell the hash object that we are done. The algorithm
* now calculates the hash value and returns it.
LOCAL m.lcHash
IF m.llOK
m.lcHash = SPACE(m.lnSizeHash)
m.llOK = BCryptFinishHash( ;
	m.lnHash, @lcHash, m.lnSizeHash, 0 ) == 0
ENDIF 
* Cleanup
IF m.lnAlg != 0
BCryptCloseAlgorithmProvider( m.lnAlg, 0 )
ENDIF 
IF m.lnHash != 0
BCryptDestroyHash( m.lnHash )
ENDIF 
IF NOT m.llOK
lcHash = ""
ENDIF 
?m.lcHash
m.lcHash15 = STRCONV(m.lcHash,15) && HexBinary ~ 16 format
RETURN m.lcHash15 && m.lcHash
ENDFUNC