Spanish ¿Cómo escribir estas líneas en B4A?

[interlnk]

¿Cómo podría escribir las dos últimas líneas de Visual Basic en B4A? [SOLUCIONADO]

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")

Gracias anticipadas

 

[bgsoft]

¿Cómo podría escribir las dos últimas líneas de Visual Basic en 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")

Gracias anticipadas

Hola, ya que parece que Erel te ha dado una solución, seria interesante que la pusieras aqui y asi el resto de compañeros se beneficia de tu pregunta.

Saludos

 

[interlnk]

Ya he encontrado la solución. Se trata de firmar las URL's desde una app, a partir de la URL y una clave que proporciona Google, para que se carguen en un WebView mapas de Google Maps Static API. Muy agradecido a Erel.

https://www.b4x.com/android/forum/threads/¿cómo-escribir-estas-líneas-en-b4a.86614/#post-548676

Dim m As Mac
Dim k As KeyGenerator
Dim strUt As StringUtils
Dim st As String
Dim DescB64 As Base64
Dim clavedesc() As Byte

clavedesc = DescB64.DecodeStoB("Aquí, la clave")
k.Initialize("HMACSHA1")
k.KeyFromBytes(clavedesc)
m.Initialise("HMACSHA1", k.Key)
m.Update("/maps/api/staticmap?center=40.4167284,-3.7029707&zoom" & _
"=15&size=355x400&markers=color:blue%7Csize:mid%7Clabel:S%7C40.4167284,-3.7029707%path" & _
"=color:0x0000ff80%7Cweight:5&key=AquíLaClaveApi".GetBytes("UTF8"))
Dim b() As Byte
b = m.Sign
st = strUt.EncodeBase64(b) 'st es la firma

 

[bgsoft]

Gracias por el aporte, para que los compañeros sepan que está resuelto, seria interesante que añadieras al título [SOLUCIONADO].


Gracias