PC Toledo

... ao chat GPT
Interessando que para o token me passou e funcionou assim
O corpo entra assim

cBody := "client_id=" + cClientId + ;
"&client_secret=" + cClientSecret + ;
"&scope=dclogg-internal" + ;
"&grant_type=client_credentials"

oHttp := CreateObject("WinHttp.WinHttpRequest.5.1")
oHttp ...

Com certeza alterei.
O que era hash array/json virou string


oData := "?client_id=b11817f1-36c5-4119-b0a8-d95e8c960e1b"
oData += "&client_secret=f3b469c2-88a0-4eca-9116-fdc92d936e17"
oData += "&scope=dclogg-internal"
oData += "&grant_type=client_credentials"


Foi acrescentado no endereço, sem ...

... apigateway.digitalcomm.com.br:8443/auth/oauth/v2/token'

CLS
oData := "?client_id=b11817f1-36c5-4119-b0a8-d95e8c960e1b"
oData += "&client_secret=f3b469c2-88a0-4eca-9116-fdc92d936e17"
oData += "&scope=dclogg-internal"
oData += "&grant_type=client_credentials"

cResposta:=mandaserv('POST ...

... header 'Content-Type: application/x-www-form-urlencoded' \
--data-urlencode 'client_id=b11817f1-36c5-4119-b0a8-d95e8c960e1b' \
--data-urlencode 'client_secret=f3b469c2-88a0-4eca-9116-fdc92d936e17' \
--data-urlencode 'scope=dclogg-internal' \
--data-urlencode 'grant_type=client_credentials'

... fazer:

oWeb :SetRequestHeader( "Content-Type", "application/json")
oWeb :Send( hb_JsonEncode( oData ) )


Você expôs suas client_id e client_secret e este vazamento permite a qualquer um disparar comandos para API e travar o seu acesso.

Nunca divulgue estes valores desta forma. Troque-os ...

... https://apigateway.digitalcomm.com.br:8443/auth/oauth/v2/token'
cls
oData["client_id"]:="b11817f1-36c5-4119-b0a8-d95e8c960e1b"
oData["client_secret"]:="f3b469c2-88a0-4eca-9116-fdc92d936e17"
oData["scope"]:="dclogg-internal"
oData["grant_type"]:="client_credentials"

cResposta:=mandaserv('POST ...

... cSQL+="flag.PIX_RECEBEDOR, "
cSQL+="flag.PIX_CIDADE, "
cSQL+="flag.PIX_CERTIFICADO, "
cSQL+="flag.PIX_CLIENT_ID, "
cSQL+="flag.PIX_CLIENT_SECRET, "
cSQL+="flag.NOMEUSUARIO "
cSQL+="FROM flag WHERE flag.FLAG_Id = 1 "
oSQL_FLAG := Connections():ExecuteSQL(::oServer, cSQL)

IF ! EMPTY(oSQL ...

... connection, response
local content_type := "application/x-www-form-urlencoded"
local client_id := empresa:nuvemfiscal_client_id
local client_secret := empresa:nuvemfiscal_client_secret
local scope := "cte mdfe cnpj empresa cep conta"
local hResp, objError, msgError, body

begin sequence ...

... DE PIX GENERICO

*** como utilizar a class ***
oPIX := PIXClass( ):New( )
oPIX:Setup(sBanco, nEnviroment, sCertificado, sClient_Id, sClient_Secret, sPIX_Key, sPIX_Receive, sPIX_City, sPIX_Amount, sPIX_Description, sPIX_Identification, sPDF_Linha1, sPDF_linha2, stxid)
oPIX:Execute( )
if oPIX ...

... APP deles.

nao é cobrado nada pela abertura da conta

pela conta voce pode gerar:
KEY_CLIENT_ID ( para producao e para homologacao )
KEY_CLIENT_SECRET ( para producao e para homologacao )
MY_CERTIFICATE ( certificado digital )

INFORMAÇÕES SOBRE PIX DO ACBR
Com esse novo componente, todos agora ...

... ed25519.c
* contrib/hbcrypto/tests/ed25519.prg
! HB_ED25519_SIGN()/ed25519_sign(): fix vulnerability by deriving the
public key from the passed secret key instead of expecting a matching
pair by the caller. Both of these functions now ignore the passed
public key value. HB_ED25519_SIGN() can now ...

... catch
Alert("Erro na criacao do objeto MSXML2.XMLHTTP : " + Ole2TxtError())
end

cComando := '{ "client_id":' + '"' + <id_cliente> + '", "client_secret":"' + <secret_cliente> + '" }'

cHttp:Open( "POST", "https://service.sitemercado.com.br/api/v1/oauth/token", .F. )
cHttp:SetRequestHeader( "Accept ...

Olá amigos!
Estou com problema para resolver igual do ifood. Afinal de contas, alguém conseguiu resolver o problema usando Harbour (Estou usando IDE HMG 3.5).
https://integracao.assertivasolucoes.co ... oc/oauth2/
Tenho que enviar o ClientID e Secret para Gerar um TOKEN e validá-lo em seguida.
Obrigado

... gzip, deflate, br" )
oServer:SetRequestHeader( "Connection", "keep-alive" )

cCredentials := "client_id=" + ::cClientID + ;
"&client_secret=" + ::cClientSecret + ;
"&grant_type=client_credentials" + ;
"&scope=partner_all"

TRY
oServer:Send(cCredentials)
oServer:WaitForResponse ...

... Czajczynski (hb fki.pl)
* source/server/leto_2.c
! fix/sort of a workaround quality
In certain conditions set up with Leto_ToggleZip( 1, "secret" )
which was enabling encryption for LZ4 code path: server still
sent out unencrypted packet. Client totally expects encrypted
here on the other ...