1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
|
context("Test salting works with various algorithms")
test_that("MD4 salts single values", {
skip_if(fips_mode())
expect_false(md4("foo") == md4("foo","bar"))
})
test_that("MD4 salts multiple values", {
skip_if(fips_mode())
salted_hashes <- md4(c("foo","bar"), "baz")
unsalted_hashes <- md4(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
test_that("MD5 salts single values", {
skip_if(fips_mode())
expect_false(md5("foo") == md5("foo","bar"))
})
test_that("MD5 salts multiple values", {
skip_if(fips_mode())
salted_hashes <- md5(c("foo","bar"), "baz")
unsalted_hashes <- md5(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
test_that("RIPEMD160 salts single values", {
skip_if(fips_mode())
expect_false(ripemd160("foo") == ripemd160("foo","bar"))
})
test_that("RIPEMD160 salts multiple values", {
skip_if(fips_mode())
salted_hashes <- ripemd160(c("foo","bar"), "baz")
unsalted_hashes <- ripemd160(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
test_that("SHA1 salts single values", {
expect_false(sha1("foo") == sha1("foo","bar"))
})
test_that("SHA1 salts multiple values", {
salted_hashes <- sha1(c("foo","bar"), "baz")
unsalted_hashes <- sha1(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
test_that("SHA256 salts single values", {
expect_false(sha256("foo") == sha256("foo","bar"))
})
test_that("SHA256 salts multiple values", {
salted_hashes <- sha256(c("foo","bar"), "baz")
unsalted_hashes <- sha256(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
test_that("SHA512 salts single values", {
expect_false(sha512("foo") == sha512("foo","bar"))
})
test_that("SHA512 salts multiple values", {
salted_hashes <- sha512(c("foo","bar"), "baz")
unsalted_hashes <- sha512(c("foo","bar"))
expect_that(length(salted_hashes), equals(2))
expect_false(salted_hashes[1] == unsalted_hashes[1])
expect_false(salted_hashes[2] == unsalted_hashes[2])
})
|
