PC Toledo

Blz, deu certo,
Muito obrigado

Mas ai como fica quando o arquivo tiver sub niveis ?
Com hb_hash da pra montar os sub niveis

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 ...

... description":"Missing or duplicate parameters"
}



*-------------------------
#include 'inkey.ch'
function main()
local getlist:={},oData:=hb_Hash(),cResposta,oJson,vteste
local curl:='https://apigateway.digitalcomm.com.br:8443/auth/oauth/v2/token'
cls
oData["client_id"]:="b11817f1-36c5-4119 ...

... findFirst( "structure" )
? oXmlNode:cName

oXmlNode := oXmlDoc:findFirst( "field" )

DO WHILE oXmlNode <> NIL
// attributes are stored in a hash
AAdd( aStruct, { oXmlNode:aAttributes[ "name" ] , ;
oXmlNode:aAttributes[ "type" ] , ;
Val( oXmlNode:aAttributes[ "len" ] ), ;
Val( oXmlNode ...

... IF ! RLOCK()
PSW->( DbDelete() )
DbSelectArea( nOld )
RETURN NIL
ENDIF

PSW->USUARIO := PadR( cUsu, Len( PSW->USUARIO ) )
PSW->SENHA := PswHash( cUsu, cNew, Len( PSW->SENHA ) )

nRecSalvo := PSW->( RecNo() )
g_nRecno := nRecSalvo

DBUNLOCK()

ELSE

IF g_nRecno > 0
PSW->( DbGoTo( g ...

... que os atacantes podem pré-calcular todas as respostas possíveis para esse desafio e armazená-las em uma tabela enorme. Depois de capturar o hash, você pesquisa na tabela e obtém a senha sem precisar adivinhar.
O que a Mandiant lançou foi um conjunto completo dessas tabelas, hospedado no ...

... que todos os objetos têm uma propriedade cargo, perceba que com isso, você pode dar um grande salto com pouco código;

Se ainda não conhece hash; procure conhecer, vejo muita economia de código usando esse tipo de dado;

...pasta DOC só encontro arquivos HTML que fazem parte da ajuda do IDE ...

Sim — é totalmente possível usar CAPICOM sem MSXML5, mas com uma diferença importante:
✅ Você consegue gerar a assinatura digital (hash + assinatura RSA) usando CAPICOM
❌ Mas CAPICOM sozinho NÃO monta o XMLDSIG (o bloco <Signature> com SignedInfo, Reference, DigestValue, etc.)
Ou seja:
- CAPICOM ...

... 00000000000120070103TNN00000000205000000000000050000002658100013167474254”
2º - Converta a cadeia de caracteres ASCII para bytes.
3º - Gere o HASH (array de bytes) utilizando SHA1.
4º - Assine o HASH (array de bytes) utilizando RSA-SHA1.
Manual de Utilização – Web Service
Versão do Manual: 3 ...

... rsa);
MessageBox.Show(rsaf);
SHA1CryptoServiceProvider sha1 = new SHA1CryptoServiceProvider();
MessageBox.Show(sha1);

//cria a variavel hash que armazena o resultado do sha1
byte[] hash;
hash = sha1.ComputeHash(sAssinaturaByte);
MessageBox.Show(hash);

//definimos o metodo a ser ...

Quando forem criar variavéis para Json, criem com Hash() e depois convertam para cJson se desejam transmitir por algum body:http
apllication/json, sem precisar criar com: cJson := '{ hnfe: { num: '+cNum+', Emissao: '+Dtoc(date)... dá muito trabalho criar cjson
dessa maneira.

// Criando exemplo ...

... do produto, último da lista, etc.
Pode dizer lista do mercado, lista da farmácia, lista do açougue.

Notou alguma semelhança ?
ARRAY
#define
HASH
CLASSE / OBJETO

Antigamente.... eram só variáveis básicas


lista01 := "tomate 1kg"
lista02


um pouco pra frente vieram os arrays - listas ...

... ainda.

Nessa primeira fase de mudança, tanto faz, tá sempre compatível.
Só nos blocos acima poderão ser meses pra mexer.

Se fosse mudar pra HASH... vixe... já acabaria toda compatibilidade logo na primeira alteração.


Entendeu ?
É alterar uma coisa em qualquer fonte, e continuar usando.
Não ...

... que o Array da forma que está, precisa a todo tempo consultar a tabela de referencia dos elementos (saber sua função).

Mudar _HMG_SYSDATA para Hash vai quebrar compatibilidade com qualquer código de usuário que utilize o Array diretamente.
Mudar _HMG_SYSDATA para Static idem, pois muda a forma ...

... X'
If oHmgApp():FormByIndex( i ):Handle != ModalHandle
DisableWindow ( oHmgApp():FormByIndex( i ):Handle )
EndIf
EndIf
EndIf
Next i


Com hash:

For i := 1 To Len( _HMG_SYSDATA[ "form_name" ] )
If ! _HMG_SYSDATA [ "form_deleted" ] [i]
IF _HMG_SYSDATA [ "form_handle" ] [i] != 'X'
IF ...