Displaying 1 result from an estimated 1 matches for "ipad_bin".
Did you mean:
opad_bin
2010 Oct 19
0
R script help needed for RFC 2104 HMAC algorithm
...27a3638bb1c13f48ef8158bfc9d"
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 <- sapply( strsplit(K_bin[,2],'') , as.numeric)
ipad_binnum <- sapply( strsplit(ipad_bin[,2],'...