Displaying 1 result from an estimated 1 matches for "datahex".
Did you mean:
datahet
2010 Oct 19
0
R script help needed for RFC 2104 HMAC algorithm
...nerXOR)
InnerXORbin <- apply(InnerXOR, 1, paste, collapse='')
InnerXORhex <- cbind(InnerXORbin, sapply(InnerXORbin, function(x)
paste(hex[x], collapse='') ))
InnerXORhex <- t(matrix(InnerXORhex[,2],2,64))
InnerXORhex <- apply(InnerXORhex, 1, paste, collapse='')
dataHex <- charToRaw(data)
cmb <- c(InnerXORhex, dataHex)
cmb <- paste(cmb, collapse='')
InnerHash <- digest(cmb, algo="md5")
opad_bin <- cbind(opad, sapply( strsplit(opad,'') , function(x) paste(
bin[x], collapse='' ) ) )
opad_binnum <- sapply( strsp...