Android Question How can I to write this code into B4A?

[interlnk]

How can I to write this code into B4A?

Dim Asc As Object, enc As Object
Dim TextToHash() As Byte
Dim SharedSecretKey() As Byte
Set Asc = CreateObject("System.Text.UTF8Encoding")
Set enc = CreateObject("System.Security.Cryptography.HMACSHA1")

Thanks

 

[Erel]

1. Please don't make duplicate posts.
2. Please use [code]code here...[/code] tags when posting code.

https://www.b4x.com/android/forum/pages/results/?query=HMACSHA1 b4a

(https://www.b4x.com/android/forum/threads/hmacsha1-hash-generation.18600/#post-106868)

 

[interlnk]

1. Please don't make duplicate posts.
2. Please use [code]code here...[/code] tags when posting code.

https://www.b4x.com/android/forum/pages/results/?query=HMACSHA1 b4a

(https://www.b4x.com/android/forum/threads/hmacsha1-hash-generation.18600/#post-106868)

1. ¿How is the post duplicated deleted?
2. Done

Sorry for my clumsiness

 

[Erel]

¿How is the post duplicated deleted?

I've deleted the thread in the code snippets forum.

 

[interlnk]

I've seen the thread and I've written this code:

Dim m As Mac
Dim k As KeyGenerator
Dim stUt As StringUtils
Dim st As String
k.Initialize("HMACSHA1")
k.KeyFromBytes("Secreto de firma de URL".GetBytes("UTF8"))
m.Initialise("HMACSHA1", k.Key)
m.Update("URL".GetBytes("UTF8"))
Dim b() As Byte
b = m.Sign
st = stUt.EncodeBase64(b)
Log(st)

But I don't get exactly the signature I need. I get:
2nzGLUE2HDdbH7/33iE4nAoPDLU=

And I should get:
yFkqfJN-NQm_FCjr91Sq027bSbE=

What's wrong?

 

[Erel]

I've run your code and I get:
f0yJ2HHs9P49sZ2VqbJxXWJhUJ8=

I guess that you changed the password.

Checking it with this online tool: https://www.freeformatter.com/hmac-generator.html#ad-output
I get: 7f4c89d871ecf4fe3db19d95a9b2715d6261509f

This is a hex string.
Converting it to base64:

Dim bc As ByteConverter
Dim b() As Byte = bc.HexToBytes("7f4c89d871ecf4fe3db19d95a9b2715d6261509f")
Dim su As StringUtils
Log(su.EncodeBase64(b))

The output is: f0yJ2HHs9P49sZ2VqbJxXWJhUJ8=

So it seems that the code correctly calculates HMACSHA1.

 

[interlnk]

In my post the key and URL data were not the real ones for confidentiality

In Google Static Maps API console there is a tool to sign URL's. It returns the signature:
yFkqfJN-NQm_FCjr91Sq027bSbE=

My code, however returns the signature:
2nzGLUE2HDdbH7/33iE4nAoPDLU=

 

[Erel]

The code posted in post #5 correctly calculates HMACSHA1.

Your mistake is somewhere else. Are you decoding the key? It is base64 encoded.

 

[interlnk]

The key is the one that Google Static Maps API provides I use it without modifications.

 

[Erel]

Are you using key.GetBytes to convert it to bytes? If so then it is a mistake.

 

[interlnk]

Is this a mistake?

k.KeyFromBytes("key".GetBytes("UTF8"))

 

[Erel]

As I wrote in my last two posts it seems like a base64 string. You should decode it to get the bytes.

 

[interlnk]

It's true! Thank you