Murillo Petry mukasc
mukasc
/ exemplo primeira interação anna.txt
Last active
July 18, 2020 12:23
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| ANNAEXEC: 'O6VMaT2M9Pk=', | |
| ExecutionCompanyHash: 'Fmg7HPvMqouPQZ8/6VrGsw==', | |
| ExecutionPhoneNumber: 'XAWHNurb7eQRxbA/vuC09Q==', | |
| ExecutionCallBackURL: 'iyBQkEoEQNC9RAOAxkKum8BjbXxYbXsbJXQMyF+DaQ53LIss4fn9rvT49JgrTzyZ', | |
| ExecutionCallBackMsg: 'Bd8DPpCC570=', | |
| Place: 'aNwsjalhzHnZc0UvMjt8CA==', | |
| PhoneNumber: 'XAWHNurb7eQRxbA/vuC09Q==', | |
| ModuleCode: 'Sz6v/rW70phOMIESfT5Xag==', | |
| GoMenu: 'U4gcotTDnGg=' |
mukasc
/ json_anna_post_testes.txt
Created
July 6, 2020 01:19
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| { | |
| "ANNAEXEC": "rhGY1xiNqEL=", | |
| "LASTANSWER": { | |
| "ClientStatus": "OK", | |
| "ClientMessage": "", | |
| "Containers": [ | |
| { | |
| "Type": "WS", | |
| "Phrase": "", | |
| "Alias": "TqEU8cbSn_WS6UihRUqA3_", |
mukasc
/ TEC_AnnaGravaLog.txt
Created
July 3, 2020 19:22
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm(in:&LogType,in:&LogUser,in:&LogDescription); | |
| for each | |
| order (TEC_AnnaLogSeq) | |
| defined by TEC_AnnaLogType | |
| &newTEC_AnnaLogSeq = TEC_AnnaLogSeq + 1 | |
| exit | |
| when none | |
| &newTEC_AnnaLogSeq = 1 |
mukasc
/ TEC_AnnaCallBack.txt
Created
July 3, 2020 19:22
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Sem parm | |
| main program = true | |
| call protocol = HTTP | |
| java try{ | |
| TEC_AnnaGravaLog.Call('ANNAINTEGRATIONLOG','',&Pgmname+ ' / "CALLBACK"') | |
| &AuxVar = &HttpRequest.GetVariable(!"CALLBACK") | |
| &CallBackCollection.FromJson(&AuxVar) | |
| if &CallBackCollection.Count = 0 |
mukasc
/ TEC_AnnaComputeHash.txt
Created
July 3, 2020 19:21
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm(in:&InInputString, out:&Key); | |
| &InputString = &InInputString.TrimStart().TrimEnd() | |
| java String myStringVar = [!&InputString!]; | |
| java try { | |
| java java.security.MessageDigest algorithm = java.security.MessageDigest.getInstance("SHA-1"); | |
| java byte messageDigest[] = algorithm.digest(myStringVar.getBytes("UTF-8")); | |
| java [!&Key!] = br.com.delsoftsistemas.comum.Base64.encodeBytes(messageDigest); | |
| java } catch (Exception ex) { |
mukasc
/ TEC_AnnaGetHash.txt
Last active
July 3, 2020 19:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| parm(out:&CallHash); | |
| &Agora = now() | |
| &AgoraStr = &Agora.Year().ToString().Trim() | |
| &AgoraStr += substr(trim(str(&Agora.Month() + 100)),2,2) | |
| &AgoraStr += substr(trim(str(&Agora.Day() + 100)),2,2) | |
| &AgoraStr += substr(trim(str(&Agora.Hour() + 100)),2,2) | |
| &AgoraStr += substr(trim(str(&Agora.Minute() + 100)),2,2) | |
| &AgoraStr += substr(trim(str(&Agora.Second() + 100)),2,2) | |
| &RandomStr = trim(str(int(Random()*9))) |
mukasc
/ TEC_AnnaWSAnnAGetWsContainer.txt
Last active
July 3, 2020 19:26
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm( | |
| in:&WSPlace, | |
| inout:&NextPlace, | |
| inout:&Saudacao, | |
| inout:&CallHash, | |
| out:&json_out); | |
| do 'AnnaParametros' | |
| &LinkWSIntegracao = &TEC_AnnaParamWSIntegracao | |
| &LinkWSCallBack = &TEC_AnnaParamWSCallBack |
mukasc
/ TEC_AnnaEncryptTripleDES.txt
Last active
July 3, 2020 19:26
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm(In:&Text, In:&Key, In:&IV, Out:&OutText); | |
| //Encrypted using the TripleDES algorithm using CBC mode (Cipher Block Chaining). | |
| &OutText = &DelsoftTripleDES.gxencrypt(&Text, &Key, &IV) |
mukasc
/ TEC_AnnaDecryptTripleDES.txt
Last active
July 3, 2020 19:25
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm(In:&Text, In:&Key, In:&IV, Out:&OutText); | |
| //Decrypted using the TripleDES algorithm using CBC mode (Cipher Block Chaining). | |
| &OutText = &DelsoftTripleDES.gxdecrypt(&Text, &Key, &IV) |
mukasc
/ TEC_AnnaHttpResponseEnc.txt
Last active
July 3, 2020 19:24
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| Parm(In: &Json, In: &EncKEY, In: &DecKEY, In: &IV, Out: &StringResponse); | |
| &NewIV = &DelsoftTripleDES.gxcriaIvDummy() | |
| &NewIVCript = TEC_AnnaEncryptTripleDES.Udp(&NewIV, &DecKEY, &IV) | |
| &Retorno = TEC_AnnaEncryptTripleDES.Udp(&Json, &EncKEY, &NewIV) | |
| &StringResponse = &Retorno + '' + &IV + '' + &NewIVCript |
NewerOlder