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

Discussion in 'Spanish Forum' started by interlnk, Nov 28, 2017.

  1. interlnk

    interlnk Member Licensed User

    ¿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
     
    Last edited: Dec 4, 2017
  2. bgsoft

    bgsoft Well-Known Member Licensed User

    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
     
  3. interlnk

    interlnk Member Licensed User

    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
     
    Last edited: Dec 2, 2017
    carlos7000 and bgsoft like this.
  4. bgsoft

    bgsoft Well-Known Member Licensed User

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


    Gracias
     
    Johan Hormaza and edgar_ortiz like this.
Loading...
  1. This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
    By continuing to use this site, you are consenting to our use of cookies.
    Dismiss Notice