Mensajes

Porque nunca dejo de ser colaborador.

Como dice Dr. No es un huevo de pascua de smf, cuando tienes 1337 mensajes te muestra "leet"

Pero los superheroes sí.

Si son moderadores o STAFF, ese boton les da super poderes de super heroe.

Solo aparece con el nuevo theme y tienes que tener javascript para que salga, nos da ciertas opciones extras a los que tenemos privilegios en el foro.

Bueno pues me he puesto a tratar de comprender y traducir el pseudocódigo que aparece en wikipedia de la función para calcular hmac, osea este:

Código [Seleccionar] Expandir

function hmac (key, message)
    opad = [0x5c * blocksize] // Where blocksize is that of the underlying hash function
    ipad = [0x36 * blocksize]

    if (length(key) > blocksize) then
        key = hash(key) // keys longer than blocksize are shortened
    end if

    for i from 0 to length(key) - 1 step 1
        ipad[i] = ipad[i] ⊕ key[i] // Where ⊕ is exclusive or (XOR)
        opad[i] = opad[i] ⊕ key[i]
    end for

    return hash(opad ++ hash(ipad ++ message)) // Where ++ is concatenation
end function


Y me ha quedado esto:

Código (vb) [Seleccionar] Expandir

Function hmac(cadena As String, llave() As String)
    Dim key As String
    key = ""
    For j = 0 To UBound(llave())
        key = key & llave(I)
    Next j
    Dim a As New clsSHA
    Dim opad(&H5C * &H200), ipad(&H36 * &H200)
    'opad = (&H5C * &H200)
    'ipad = (&H36 * &H200)
    If Len(key) > &H200 Then
        key = a.SHA1(key)
    End If
    For I = 0 To Len(key)
        ipad(I) = ipad(I) Xor llave(I)
        opad(I) = opad(I) Xor llave(I)
    Next I
    hmac = a.SHA1(opad & a.SHA1(ipad & cadena))
End Function

Le he hecho tantos cambios que ya no se donde mismo está el error. xD Las únicas 2 líneas de código que no se que significan son las dos primeras.

Código [Seleccionar] Expandir

    opad = [0x5c * blocksize] // Where blocksize is that of the underlying hash function
    ipad = [0x36 * blocksize]

Se que opad y ipad tienen que ser arrays, 0x5c y 0x36 son valores hexadecimales fijos, y blocksize es un valor fijo (512) que en hex sería 200. Lo que no se es que significan esas lineas, como tengo que declarar esos arrays y de que tamaño tienen que ser.

Algún alma caritativa se apiade de mí y me pueda ayudar un poco.

Gracias!

Pero lo que ahora necesito es algo para calcular hmacs.

http://en.wikipedia.org/wiki/HMAC

De hecho ahí mismo hay un pseudocódigo de cómo se podría hacer una implementación:

Código [Seleccionar] Expandir

function hmac (key, message)
    opad = [0x5c * blocksize] // Where blocksize is that of the underlying hash function
    ipad = [0x36 * blocksize]

    if (length(key) > blocksize) then
        key = hash(key) // keys longer than blocksize are shortened
    end if

    for i from 0 to length(key) - 1 step 1
        ipad[i] = ipad[i] ⊕ key[i] // Where ⊕ is exclusive or (XOR)
        opad[i] = opad[i] ⊕ key[i]
    end for

    return hash(opad ++ hash(ipad ++ message)) // Where ++ is concatenation
end function


Lo que pasa es que no entiendo nada. xD ¿Se puede pasar ese código a vb6?

Sip, está en EE.UU. para que nadie intente hacer hack físico.

Funciona perfecto, lo que pasa es que hay contenido sin autentificar, como dice ahí. xD Como algunas imágenes.

\\\WHK/// dice:
Bueno, se que te gustan las mascotas y en especial los gatos , que raza te gusta mas?
sirdarckcat dice:
Nunca he tenido un gato de mascota. jajajaja