Displaying 1 result from an estimated 1 matches for "outerxorhex".
2010 Oct 19
0
R script help needed for RFC 2104 HMAC algorithm
...e(
bin[x], collapse='' ) ) )
opad_binnum <- sapply( strsplit(opad_bin[,2],'') , as.numeric)
OuterXOR <- as.numeric(xor(K_binnum, opad_binnum))
OuterXOR <- matrix(OuterXOR, 4, 128)
OuterXOR <- t(OuterXOR)
OuterXORbin <- apply(OuterXOR, 1, paste, collapse='')
OuterXORhex <- cbind(OuterXORbin, sapply(OuterXORbin, function(x)
paste(hex[x], collapse='') ))
OuterXORhex <- t(matrix(OuterXORhex[,2],2,64))
OuterXORhex <- apply(OuterXORhex, 1, paste, collapse='')
OuterXORhex <- paste(OuterXORhex, collapse='')
outercmb <- paste(OuterX...