Assinatura (divestvalue e signedvalue vb6)

[KREATIVE]

Ola, pessoal.

Tenho uma aplicação em Visual Basic 6 e estou realizando alguns ajustes no caso estou caçando a tempos uma rotina para gerar o valor de Digestvalue e Signaturevalue para assinar um documento de Ct-e mas a rotina que encontro não bate.

Quando gero a rotina em hash SHA1 e depois para BASE64, os codigos saem muito maior do que o esperado.

Um amigo que conhece a rotina em php me disse que o codigo gerado pelo PhP para depois ser convertido em BASE64 são codigos diferentes do que eu obtive no caso:522EE7FC1A039B63B0C2BB744D6247468736E5F4

No anexo esta o projeto que estou utilizando para gerar o SHA1.

Agradeço desde ja a atenção de todos.