HASH QRCODE NFC-E VB6

KLINGER 26/02/2016 08:11:55
#458235
Bom dia,

Estou com dificuldades em gerar o hash do qrcode da nfc-e em vb6. Alguma dica?
SINCLAIR 26/02/2016 09:09:44
#458237

Colega Klinger,

Primeiramente, me permita lembrar (deve ter sido um esquecimento seu, porque já faz 3 anos que o tópico está aberto).

http://vbmania.com.br/index.php?modulo=forum&metodo=abrir&id=414491&pagina=1

Poderia encerrá-lo, por gentileza?

Montando a URL do QR Code:

Vide anexo, com descritivo item a item.


Função para criar Hexadecimal baseado em string:


  Public Function StringToHex(ByVal StrToHex As String) As String

    Dim strTemp   As String
    Dim strReturn As String
    Dim I         As Long
        For I = 1 To Len(StrToHex)
            strTemp = Hex$(Asc(Mid$(StrToHex, I, 1)))
            If Len(strTemp) = 1 Then strTemp = [Ô]0[Ô] & strTemp
            strReturn = strReturn & strTemp
        Next I
        StringToHex = LCase(strReturn)
    End Function



Classe para criar Hash Code: (em anexo, também)

Use :

Dim str_MD5                                            As String
Dim str_Chave_MD5                                      As New MD5

str_MD5 = str_Chave_MD5.DigestStrToHexStr(conteudo que você quer o hash)



Tudo de bom.
KLINGER 26/02/2016 14:04:01
#458251
Boa tarde,

Fechei o topico referenciado, obrigado.
Postei um código fonte exemplificando a geração do hash do QR Code.

Obrigado,

Klinger
Tópico encerrado , respostas não são mais permitidas
Voltar