Displaying 1 result from an estimated 1 matches for "k_binnum".
Did you mean:
binnum
2010 Oct 19
0
R script help needed for RFC 2104 HMAC algorithm
...ros)
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],'') , as.numeric)
InnerXOR <- as.numeric(xor(K_binnum, ipad_binnum))
InnerXOR <- matrix(InnerXOR, 4, 128)
InnerXOR <- t(InnerXOR)
InnerXORbin <- apply(InnerXOR, 1, paste,...