|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Hungary NAV Token ExchangeDemonstrates the tokenExchange request for the Hungarian NAV Online Invoicing System REST API v2.0. Note: This example requires Chilkat v9.5.0.83 or greater. For more information, see https://onlineszamla.nav.gov.hu/api/files/container/download/Online%20Szamla_Interfesz%20specifik%C3%A1ci%C3%B3_EN_v2.0.pdf
IncludeFile "CkDateTime.pb" IncludeFile "CkPrng.pb" IncludeFile "CkXml.pb" IncludeFile "CkCrypt2.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkHttpResponse.pb" IncludeFile "CkHttp.pb" Procedure ChilkatExample() ; This example assumes the Chilkat API to have been previously unlocked. ; See Global Unlock Sample for sample code. ; Build the following XML: ; Use this online tool to generate code from sample XML: ; Generate Code to Create XML ; <?xml version="1.0" encoding="UTF-8"?> ; <TokenExchangeRequest xmlns="http://schemas.nav.gov.hu/OSA/2.0/api"> ; <header> ; <requestId>RID896801578348</requestId> ; <timestamp>2019-09-11T10:55:31.440Z</timestamp> ; <requestVersion>2.0</requestVersion> ; <headerVersion>1.0</headerVersion> ; </header> ; <user> ; <login>lwilsmn0uqdxe6u</login> ; <passwordHash>2F43840A882CFDB7DB0FEC07D419D030D864B47B6B541DC280EF81B937B7A176E33C052B0D26638CC18A7A2C08D8D311733078A774BF43F6CA57FE8CD74DC28E</passwordHash> ; <taxNumber>11111111</taxNumber> ; <requestSignature>B4B5E0F197BFFD3DF69BCC98D3BE775F65FD5445EEF95C9D6B6C59425F2B81C4F6DA1FD563B0C7E7D98AF1E1725E5C63C2803B5D3A93D1C02ED354AC92F2CC94</requestSignature> ; <!--<signKey>ac-ac3a-7f661bff7d342N43CYX4U9FG</signKey>--> ; </user> ; <software> ; <softwareId>123456789123456789</softwareId> ; <softwareName>string</softwareName> ; <softwareOperation>LOCAL_SOFTWARE</softwareOperation> ; <softwareMainVersion>string</softwareMainVersion> ; <softwareDevName>string</softwareDevName> ; <softwareDevContact>string</softwareDevContact> ; <softwareDevCountryCode>HU</softwareDevCountryCode> ; <softwareDevTaxNumber>string</softwareDevTaxNumber> ; </software> ; </TokenExchangeRequest> success.i crypt.i = CkCrypt2::ckCreate() If crypt.i = 0 Debug "Failed to create object." ProcedureReturn EndIf dtNow.i = CkDateTime::ckCreate() If dtNow.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkDateTime::ckSetFromCurrentSystemTime(dtNow) Debug CkDateTime::ckGetAsTimestamp(dtNow,0) ; The hash algorithm for the password is SHA512 (not SHA3-512). CkCrypt2::setCkHashAlgorithm(crypt, "sha512") CkCrypt2::setCkEncodingMode(crypt, "hex") myPassword.s = "my-password" passwordHash.s = CkCrypt2::ckHashStringENC(crypt,myPassword) ; Generate a random request ID like "RID215118906689" prng.i = CkPrng::ckCreate() If prng.i = 0 Debug "Failed to create object." ProcedureReturn EndIf sbRequestId.i = CkStringBuilder::ckCreate() If sbRequestId.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkStringBuilder::ckAppend(sbRequestId,"RID") CkStringBuilder::ckAppend(sbRequestId,CkPrng::ckRandomString(prng,12,1,0,0)) Debug "generated requestId = " + CkStringBuilder::ckGetAsString(sbRequestId) ; Calculate the requestSignature CkCrypt2::setCkHashAlgorithm(crypt, "sha3-512") signatureKey.s = "ce-8f5e-215119fa7dd621DLMRHRLH2S" sbFinalHashBase.i = CkStringBuilder::ckCreate() If sbFinalHashBase.i = 0 Debug "Failed to create object." ProcedureReturn EndIf ; First append the timestamp because we are going to remove certain chars/parts. CkStringBuilder::ckAppend(sbFinalHashBase,CkDateTime::ckGetAsTimestamp(dtNow,0)) numReplaced.i = CkStringBuilder::ckReplace(sbFinalHashBase,"Z","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"-","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,":","") numReplaced = CkStringBuilder::ckReplace(sbFinalHashBase,"T","") ; Prepend the requestId and append the signatureKey CkStringBuilder::ckPrepend(sbFinalHashBase,CkStringBuilder::ckGetAsString(sbRequestId)) CkStringBuilder::ckAppend(sbFinalHashBase,signatureKey) requestSignature.s = CkCrypt2::ckHashStringENC(crypt,CkStringBuilder::ckGetAsString(sbFinalHashBase)) xml.i = CkXml::ckCreate() If xml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::setCkTag(xml, "TokenExchangeRequest") CkXml::ckAddAttribute(xml,"xmlns","http://schemas.nav.gov.hu/OSA/2.0/api") CkXml::ckUpdateChildContent(xml,"header|requestId",CkStringBuilder::ckGetAsString(sbRequestId)) CkXml::ckUpdateChildContent(xml,"header|timestamp",CkDateTime::ckGetAsTimestamp(dtNow,0)) CkXml::ckUpdateChildContent(xml,"header|requestVersion","2.0") CkXml::ckUpdateChildContent(xml,"header|headerVersion","1.0") CkXml::ckUpdateChildContent(xml,"user|login","lwilsmn0uqdxe6u") CkXml::ckUpdateChildContent(xml,"user|passwordHash",passwordHash) CkXml::ckUpdateChildContent(xml,"user|taxNumber","11111111") CkXml::ckUpdateChildContent(xml,"user|requestSignature",requestSignature) CkXml::ckUpdateChildContent(xml,"software|softwareId","123456789123456789") CkXml::ckUpdateChildContent(xml,"software|softwareName","string") CkXml::ckUpdateChildContent(xml,"software|softwareOperation","LOCAL_SOFTWARE") CkXml::ckUpdateChildContent(xml,"software|softwareMainVersion","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevName","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevContact","string") CkXml::ckUpdateChildContent(xml,"software|softwareDevCountryCode","HU") CkXml::ckUpdateChildContent(xml,"software|softwareDevTaxNumber","string") ; POST the XML to https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/tokenExchange http.i = CkHttp::ckCreate() If http.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkHttp::setCkAccept(http, "application/xml") CkHttp::ckSetRequestHeader(http,"Content-Type","application/xml") endpoint.s = "https://api-test.onlineszamla.nav.gov.hu/invoiceService/v2/tokenExchange" resp.i = CkHttp::ckPostXml(http,endpoint,CkXml::ckGetXml(xml),"utf-8") If CkHttp::ckLastMethodSuccess(http) = 0 Debug CkHttp::ckLastErrorText(http) CkCrypt2::ckDispose(crypt) CkDateTime::ckDispose(dtNow) CkPrng::ckDispose(prng) CkStringBuilder::ckDispose(sbRequestId) CkStringBuilder::ckDispose(sbFinalHashBase) CkXml::ckDispose(xml) CkHttp::ckDispose(http) ProcedureReturn EndIf Debug "Response status code = " + Str(CkHttpResponse::ckStatusCode(resp)) respXml.i = CkXml::ckCreate() If respXml.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkXml::ckLoadXml(respXml,CkHttpResponse::ckBodyStr(resp)) Debug "Response body:" Debug CkXml::ckGetXml(respXml) ; Save our exchange token to a file to be used for subsequent requests. CkXml::ckSaveXml(respXml,"qa_data/tokens/nav_exchange_token.xml") CkHttpResponse::ckDispose(resp) ; The result looks like this: ; <?xml version="1.0" encoding="UTF-8" standalone="yes"?> ; <TokenExchangeResponse xmlns="http://schemas.nav.gov.hu/OSA/2.0/api" xmlns:ns2="http://schemas.nav.gov.hu/OSA/2.0/data"> ; <header> ; <requestId>RID789246611489</requestId> ; <timestamp>2020-03-25T14:14:36Z</timestamp> ; <requestVersion>2.0</requestVersion> ; <headerVersion>1.0</headerVersion> ; </header> ; <result> ; <funcCode>OK</funcCode> ; </result> ; <software> ; <softwareId>123456789123456789</softwareId> ; <softwareName>string</softwareName> ; <softwareOperation>LOCAL_SOFTWARE</softwareOperation> ; <softwareMainVersion>string</softwareMainVersion> ; <softwareDevName>string</softwareDevName> ; <softwareDevContact>string</softwareDevContact> ; <softwareDevCountryCode>HU</softwareDevCountryCode> ; <softwareDevTaxNumber>string</softwareDevTaxNumber> ; </software> ; <encodedExchangeToken>2lR5v57Tl ... 9n4tIWCYgjKQ==</encodedExchangeToken> ; <tokenValidityFrom>2020-03-25T15:14:36.987+01:00</tokenValidityFrom> ; <tokenValidityTo>2020-03-25T15:19:36.987+01:00</tokenValidityTo> ; </TokenExchangeResponse> ; Use this online tool to generate parsing code from sample XML: ; Generate Parsing Code from XML TokenExchangeResponse_xmlns.s = CkXml::ckGetAttrValue(respXml,"xmlns") TokenExchangeResponse_xmlns_ns2.s = CkXml::ckGetAttrValue(respXml,"xmlns:ns2") requestId.s = CkXml::ckGetChildContent(respXml,"header|requestId") timestamp.s = CkXml::ckGetChildContent(respXml,"header|timestamp") requestVersion.s = CkXml::ckGetChildContent(respXml,"header|requestVersion") headerVersion.s = CkXml::ckGetChildContent(respXml,"header|headerVersion") funcCode.s = CkXml::ckGetChildContent(respXml,"result|funcCode") softwareId.s = CkXml::ckGetChildContent(respXml,"software|softwareId") softwareName.s = CkXml::ckGetChildContent(respXml,"software|softwareName") softwareOperation.s = CkXml::ckGetChildContent(respXml,"software|softwareOperation") softwareMainVersion.s = CkXml::ckGetChildContent(respXml,"software|softwareMainVersion") softwareDevName.s = CkXml::ckGetChildContent(respXml,"software|softwareDevName") softwareDevContact.s = CkXml::ckGetChildContent(respXml,"software|softwareDevContact") softwareDevCountryCode.s = CkXml::ckGetChildContent(respXml,"software|softwareDevCountryCode") softwareDevTaxNumber.s = CkXml::ckGetChildContent(respXml,"software|softwareDevTaxNumber") encodedExchangeToken.s = CkXml::ckGetChildContent(respXml,"encodedExchangeToken") tokenValidityFrom.s = CkXml::ckGetChildContent(respXml,"tokenValidityFrom") tokenValidityTo.s = CkXml::ckGetChildContent(respXml,"tokenValidityTo") CkCrypt2::ckDispose(crypt) CkDateTime::ckDispose(dtNow) CkPrng::ckDispose(prng) CkStringBuilder::ckDispose(sbRequestId) CkStringBuilder::ckDispose(sbFinalHashBase) CkXml::ckDispose(xml) CkHttp::ckDispose(http) CkXml::ckDispose(respXml) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.