PC SOFT

GRUPOS DE DISCUSSÃO PROFISSIONAL
WINDEVWEBDEV e WINDEV Mobile

Inicio → WINDEV 25 → WX (Windev, Webdev e Windev Mobile) - Cálculo do Pix para QRCODE
WX (Windev, Webdev e Windev Mobile) - Cálculo do Pix para QRCODE
Iniciado por Boller, jun., 02 2021 11:34 PM - 1 resposta
Membro registado
3.304 mensagems
Popularité : +89 (91 votes)
Publicado em junho, 02 2021 - 11:34 PM
Boa noite a todos

Abaixo segue o código enviado pelo Paulo Viana

PROCEDURE rot_pix(chave)

meuvalor is string=chave

nTamanho is int = Length(meuvalor)
nPoly is 2-byte unsigned int = 0x1021
Wcrc is 2-byte unsigned int = 0xFFFF

FOR i=1 _TO_ Length(meuvalor)
Wcrc = BinaryXOR(Wcrc, Asc(meuvalor[[i]]) bitLeftShift 8)
FOR j = 0 TO 7
IF (Wcrc & 0x8000) THEN
Wcrc=(Wcrc bitLeftShift 1) || 0x1021
ELSE
Wcrc=Wcrc bitLeftShift 1
END
END
END

RESULT(chave+IntToHexa(Wcrc)[[5 TO ]])


--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/
Membro registado
3.304 mensagems
Popularité : +89 (91 votes)
Publicado em junho, 02 2021 - 11:43 PM




muito obrigado Paulo Viana da i9 sempre ajudando com exemplos

show de bola

--
Adriano José Boller
______________________________________________
Consultor e Representante Oficial da
PcSoft no Brasil
+55 (41) 99949 1800
adrianoboller@gmail.com
skype: adrianoboller
http://wxinformatica.com.br/