R: Examples for 'digest::getVDigest'

### ** Examples

stretch_key <- function(d, n) {
    md5 <- getVDigest()
    for (i in seq_len(n))
        d <- md5(d, serialize = FALSE)
    d
}
stretch_key('abc123', 65e3)

[1] "342092becf80e5bbd7cb80f013b9abc8"

sha1 <- getVDigest(algo = 'sha1')
sha1(letters)

 [1] "1f9928593251410322823fefea8c3ef79b4d0254"
 [2] "ee6e7fdb03a0d35b3a6f499d0f8f610686551d51"
 [3] "8e7f9fe32c49050c5ca146150fc58b93fbeea245"
 [4] "e59165f73b7dc7e0d6ae94ec9aac9e8e95fd8a2c"
 [5] "7f608bde8f0e308aa8866d737ddebbfae9674163"
 [6] "86e99e22d003547538a5f446165488f7861fa2c3"
 [7] "ce27dce0e84ad90d3e90e9b571a73720d0fb4890"
 [8] "221799200137b7d72dfc4a618465bec71333a58b"
 [9] "13b5c7533cccc95d2f7cd18df78ea78ed9111c02"
[10] "88b7c7c5f6921ec9e914488067552829a17a42a4"
[11] "6127e4cdbf02f18898554c037f0d4acb95c608ab"
[12] "984ca0fd9ed47ac08a31aeb88f9c9a5f905aeaa2"
[13] "954da0ea9a5d0aa42516beebc5542c638161934c"
[14] "7d1e34387808d9f726efbb1c8eb0819a115afb52"
[15] "2e21764867596d832896d9d28d6e6489a0b27249"
[16] "666881f1f74c498e0292ccf3d9d26089ee79dae7"
[17] "966dbbe6cf1c43ac784a8257b57896db9fd3f357"
[18] "4ab40e0c23010553e9e4c058ef58f50088f9e87c"
[19] "bfa0e51b33ebd3b9a823368b7e4c357b2b98790b"
[20] "fc1ba0a4718421f0050cc5e159703838f733aa59"
[21] "25cce9eca8abedab78a765b49e74fba77f4463d4"
[22] "9d453f3128cb2fd55684b979a11d47c97f12dc87"
[23] "d612108f47c8accbeffd2d9d54c1fa7f74fb432d"
[24] "ef60fa66262167e7a31398b16fa762151c6d1b28"
[25] "a235e3cc7109def777a99e660b9829cea48ce9a4"
[26] "d19d82f849bad81a39da932d3087a60c78de82c1"

md5Input <-
    c("",
      "a",
      "abc",
      "message digest",
      "abcdefghijklmnopqrstuvwxyz",
      "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",
      paste("12345678901234567890123456789012345678901234567890123456789012",
            "345678901234567890", sep=""))
md5Output <-
    c("d41d8cd98f00b204e9800998ecf8427e",
      "0cc175b9c0f1b6a831c399e269772661",
      "900150983cd24fb0d6963f7d28e17f72",
      "f96b697d7cb7938d525a2f31aaf161d0",
      "c3fcd3d76192e4007dfb496cca67e13b",
      "d174ab98d277d9f5a5611c2c9f419d9f",
      "57edf4a22be3c955ac49da2e2107b67a")

md5 <- getVDigest()
stopifnot(identical(md5(md5Input, serialize = FALSE), md5Output))
stopifnot(identical(digest(list("abc")),
                 md5(list(list("abc")))))

sha512Input <-c(
    "",
    "The quick brown fox jumps over the lazy dog."
    )
sha512Output <- c(
    paste0("cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a921d36ce9ce",
           "47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47417a81a538327af927da3e"),
    paste0("91ea1245f20d46ae9a037a989f54f1f790f0a47607eeb8a14d12890cea77a1bb",
           "c6c7ed9cf205e67b7f2b8fd4c7dfd3a7a8617e45f3c463d481c7e586c39ac1ed")
    )

sha512 <- getVDigest(algo = 'sha512')
stopifnot(identical(sha512(sha512Input, serialize = FALSE), sha512Output))

Examples for 'digest::getVDigest'

Set a vectorised function for creating hash function digests