//o Passo 1: Concatenar o CSRT com a chave de acesso da NF-e/NFC-e que está sendo emitida.
sChave is string = "41180678393592000146558900000006041028190697"
sCSRT is string = "G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO"
sConcatena is string = sCSRT+sChave
Trace("G8063VRTNDMO886SFNK5LDUDEI24XJ22YIPO41180678393592000146558900000006041028190697"+CR+sConcatena)

//o Passo 2: Aplicar o algoritmo SHA-1 sobre o Resultado da concatenação do passo 1, gerando uma string de 40 caracteres em hexadecimal.
sHashCSRT_SHA1 is string
sHashCSRT_SHA1 = Lower(StringDelete(BufferToHexa(HashString(HA_SHA_160,sConcatena),NoGrouping,NoLine)," "))
Trace("696bfa2de10ce17eaee3ea8123639867c82b8a0c"+CR+sHashCSRT_SHA1)

//o Passo 3: Converter o Resultado do passo anterior para Base64, resultando em uma string de 28 caracteres (20 bytes).
sHashCSRT_B64 is string = Encode(HexaToBuffer(sHashCSRT_SHA1),encodeBASE64)
Trace("aWv6LeEM4X6u4+qBI2OYZ8grigw="+CR+sHashCSRT_B64)