The R Project SVN R

Rev

Rev 87178 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 87178 Rev 88268
Line 27... Line 27...
27 
  "cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0"))
 27 
  "cdc76e5c9914fb9281a1c7e284d73e67f1809a48a497200e046d39ccc7112cd0"))
28 
 
 28 
 
29 
## let's see if there are hidden HMAC functions - if so, test them
 29 
## let's see if there are hidden HMAC functions - if so, test them
30 
if (!is.null(environment(tools::sha256sum)[["hmac"]])) {
30 
if (!is.null(environment(tools::sha256sum)[["hmac"]])) {
31 
 
 31 
 
32 
## [[ we have not expoorted HMAC functions yet ]]
 32 
## [[ we have not exported HMAC functions yet ]]
33 
hmac.md5 <- tools:::hmac.md5
 33 
hmac.md5 <- tools:::hmac.md5
34 
hmac.sha256 <- tools:::hmac.sha256
 34 
hmac.sha256 <- tools:::hmac.sha256
35 
 
 35 
 
36 
## -- HMAC test vectors
 36 
## -- HMAC test vectors
37 
## RFC 2202 HMAC-MD5
 37 
## RFC 2202 HMAC-MD5