Displaying 1 result from an estimated 1 matches for "k_bin".
Did you mean:
_bin
2010 Oct 19
0
R script help needed for RFC 2104 HMAC algorithm
...quot;
##key_len = 16 bytes
data <- "Hi There"
##data_len = 8 bytes
## digest = "0x9294727a3638bb1c13f48ef8158bfc9d"
ipad <- rep("36",64)
opad <- rep("5c",64)
k <- rep("0b", 16)
zeros <- rep("00",48)
K <- c(k, zeros)
K_bin <- cbind(K, sapply( strsplit(K,'') , function(x) paste( bin[x],
collapse='' ) ) )
ipad_bin <- cbind(ipad, sapply( strsplit(ipad,'') , function(x) paste(
bin[x], collapse='' ) ) )
#cbind(K_bin, sapply( strsplit(K_bin[,2],'') , as.numeric) )
K_binnum &l...