Spanish Autenticación php en b4a [SOLUCIONADO]

$apikey='xxx';
$apisecret='xxx';
$nonce=time();
$uri='https://bittrex.com/api/v1.1/market/getopenorders?apikey='.$apikey.'&nonce='.$nonce;
$sign=hash_hmac('sha512',$uri,$apisecret);
$ch = curl_init($uri);
curl_setopt($ch, CURLOPT_HTTPHEADER, array('apisign:'.$sign));
$execResult = curl_exec($ch);
$obj = json_decode($execResult);

Sub HashHmac(data As String, secret As String) As Byte()
    Dim m As Mac                                                                                            'm As Message Authentication Code
    Dim kg As KeyGenerator                                                                        'kg As KeyGenerator
    kg.Initialize("HmacSHA512")                                                                'initialize kg using HmacSHA512 algorithm
    kg.KeyFromBytes(secret.GetBytes("UTF8"))                                    'encode string "secret" to an array of Bytes using UTF8
    m.Initialise("HmacSHA512", kg.Key)                                                'initialize m using HmacSHA512 algorithm and the secret key
    m.Update(data.GetBytes("UTF8"))                                                        'encodes post data to an array of Bytes and loads it to be signed
    Return m.Sign                                                                                            'sign the loaded data using the secret key, return the calc signature data
End Sub

Sub ButtonLogin_Click
'    $apikey='xxx';
'    $apisecret='xxx';
'    $nonce=time();
'    $uri='https://bittrex.com/api/v1.1/market/getopenorders?apikey='.$apikey.'&nonce='.$nonce;
'    $sign=hash_hmac('sha512',$uri,$apisecret);
'    $ch = curl_init($uri);
'    curl_setopt($ch, CURLOPT_HTTPHEADER, Array('apisign:'.$sign));
'    $execResult = curl_exec($ch);
'    $obj = json_decode($execResult);

    Dim API_Key  As String
    Dim API_Secret  As String
    Dim nonce As Int  
    Dim Post_URL As String
    Dim sign() As Byte
    Dim API_Signed As String
    Dim Byte_Conv As ByteConverter
    Dim Post_Data As String
    Dim uri As String
  
    EditTextJson.Text = ""
    EditTextOut.Text = ""
  
    Post_URL = "https://bittrex.com/api/v1.1/market/getopenorders"
    Post_Data = "apikey=" & API_Key  & "&nonce=" & nonce
  
  
    'Read Only
    'Key:00e2ccecef704aa683563f6bb91567e8
    'Secret:224559c2a1c14200938dc9bf5bb69d4b
   
    '    $apikey='xxx';
    API_Key    = "00e2ccecef704aa683563f6bb91567e8"
    '    $apisecret='xxx';
    API_Secret = "224559c2a1c14200938dc9bf5bb69d4b"
    '    $nonce=time();
    nonce = DateTime.Now/1000
    '    $uri='https://bittrex.com/api/v1.1/market/getopenorders?apikey='.$apikey.'&nonce='.$nonce;
    uri = Post_URL & "?apikey=" & API_Key & "&nonce=" & nonce
    '    $sign=hash_hmac('sha512',$uri,$apisecret);
    sign = HashHmac(uri, API_Secret)
  
    API_Signed = Byte_Conv.HexFromBytes(sign) 'convert to HEX
    API_Signed = API_Signed.ToLowerCase
  
    Dim job_GetInfo As HttpJob

    job_GetInfo.Initialize("job_GetInfo", Me)
    job_GetInfo.PostString(Post_URL, Post_Data)
    job_GetInfo.GetRequest.SetHeader("apisign", API_Signed)
    job_GetInfo.GetRequest.SetHeader("apikey", API_Key)

    'Stuff that appears unnecessary but since others use it.....
    job_GetInfo.GetRequest.SetHeader("User-Agent","Mozilla/4.0 (compatible; Cryptsy API B4A client)")
    job_GetInfo.GetRequest.SetContentType("application/x-www-form-urlencoded")
End Sub

private Sub jobDone (job1 As HttpJob)
    Log(job1.Success)
    Log(job1.GetString)
  
    If (job1.JobName == "job_GetInfo" ) Then
        Try
            EditTextOut.Text = job1.GetString
        Catch
            Log(LastException)
        End Try
    End If
End Sub