blob: fa26ba5501889b263c93640bdae717362e63ebce [file] [log] [blame]
Bram Moolenaar680e0152016-09-25 20:54:11 +02001" Tests for encryption.
Bram Moolenaar1eceada2016-09-26 20:14:56 +02002
Bram Moolenaarb46fecd2019-06-15 17:58:09 +02003source check.vim
4CheckFeature cryptv
Bram Moolenaar680e0152016-09-25 20:54:11 +02005
6func Common_head_only(text)
7 " This was crashing Vim
8 split Xtest.txt
9 call setline(1, a:text)
10 wq
11 call feedkeys(":split Xtest.txt\<CR>foobar\<CR>", "tx")
12 call delete('Xtest.txt')
13 call assert_match('VimCrypt', getline(1))
14 bwipe!
15endfunc
16
17func Test_head_only_2()
18 call Common_head_only('VimCrypt~02!abc')
19endfunc
20
21func Test_head_only_3()
22 call Common_head_only('VimCrypt~03!abc')
23endfunc
Bram Moolenaar17777852016-09-27 21:30:22 +020024
25func Crypt_uncrypt(method)
26 exe "set cryptmethod=" . a:method
27 " If the blowfish test fails 'cryptmethod' will be 'zip' now.
28 call assert_equal(a:method, &cryptmethod)
29
30 split Xtest.txt
31 let text = ['01234567890123456789012345678901234567',
32 \ 'line 2 foo bar blah',
33 \ 'line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx']
34 call setline(1, text)
35 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
Bram Moolenaar987411d2019-01-18 22:48:34 +010036 call assert_equal('*****', &key)
Bram Moolenaar17777852016-09-27 21:30:22 +020037 w!
38 bwipe!
39 call feedkeys(":split Xtest.txt\<CR>foobar\<CR>", 'xt')
40 call assert_equal(text, getline(1, 3))
41 set key= cryptmethod&
42 bwipe!
43 call delete('Xtest.txt')
44endfunc
45
46func Test_crypt_zip()
47 call Crypt_uncrypt('zip')
48endfunc
49
50func Test_crypt_blowfish()
51 call Crypt_uncrypt('blowfish')
52endfunc
53
54func Test_crypt_blowfish2()
55 call Crypt_uncrypt('blowfish2')
56endfunc
57
58func Uncrypt_stable(method, crypted_text, key, uncrypted_text)
59 split Xtest.txt
60 set bin noeol key= fenc=latin1
61 exe "set cryptmethod=" . a:method
62 call setline(1, a:crypted_text)
63 w!
64 bwipe!
65 set nobin
66 call feedkeys(":split Xtest.txt\<CR>" . a:key . "\<CR>", 'xt')
67 call assert_equal(a:uncrypted_text, getline(1, len(a:uncrypted_text)))
68 bwipe!
69 call delete('Xtest.txt')
70 set key=
71endfunc
72
73func Test_uncrypt_zip()
74 call Uncrypt_stable('zip', "VimCrypt~01!\u0006\u001clV'\u00de}Mg\u00a0\u00ea\u00a3V\u00a9\u00e7\u0007E#3\u008e2U\u00e9\u0097", "foofoo", ["1234567890", "aábbccddeëff"])
75endfunc
76
77func Test_uncrypt_blowfish()
78 call Uncrypt_stable('blowfish', "VimCrypt~02!k)\u00be\u0017\u0097#\u0016\u00ddS\u009c\u00f5=\u00ba\u00e0\u00c8#\u00a5M\u00b4\u0086J\u00c3A\u00cd\u00a5M\u00b4\u0086!\u0080\u0015\u009b\u00f5\u000f\u00e1\u00d2\u0019\u0082\u0016\u0098\u00f7\u000d\u00da", "barbar", ["asdfasdfasdf", "0001112223333"])
79endfunc
80
81func Test_uncrypt_blowfish2()
82 call Uncrypt_stable('blowfish', "VimCrypt~03!\u001e\u00d1N\u00e3;\u00d3\u00c0\u00a0^C)\u0004\u00f7\u007f.\u00b6\u00abF\u000eS\u0019\u00e0\u008b6\u00d2[T\u00cb\u00a7\u0085\u00d8\u00be9\u000b\u00812\u000bQ\u00b3\u00cc@\u0097\u000f\u00df\u009a\u00adIv\u00aa.\u00d8\u00c9\u00ee\u009e`\u00bd$\u00af%\u00d0", "barburp", ["abcdefghijklmnopqrstuvwxyz", "!@#$%^&*()_+=-`~"])
83endfunc
Bram Moolenaar987411d2019-01-18 22:48:34 +010084
85func Test_uncrypt_unknown_method()
86 split Xuncrypt_unknown.txt
87 set bin noeol key= fenc=latin1
88 call setline(1, "VimCrypt~93!\u001e\u00d1")
89 w!
90 bwipe!
91 set nobin
92 call assert_fails(":split Xuncrypt_unknown.txt", 'E821:')
93
94 bwipe!
95 call delete('Xuncrypt_unknown.txt')
96 set key=
97endfunc
98
99func Test_crypt_key_mismatch()
100 set cryptmethod=blowfish
101
102 split Xtest.txt
103 call setline(1, 'nothing')
104 call feedkeys(":X\<CR>foobar\<CR>nothing\<CR>", 'xt')
105 call assert_match("Keys don't match!", execute(':2messages'))
106 call assert_equal('', &key)
107 call feedkeys("\<CR>\<CR>", 'xt')
108
109 set cryptmethod&
110 bwipe!
111endfunc
112
Bram Moolenaar76cb6832020-05-15 22:30:38 +0200113func Test_crypt_set_key_changes_buffer()
114
115 new Xtest1.txt
116 call setline(1, 'nothing')
117 set cryptmethod=blowfish2
118 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
119 call assert_fails(":q", "E37:")
120 w
121 set key=anotherkey
122 call assert_fails(":bw")
123 w
124 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
125 call assert_fails(":bw")
126 w
127 let winnr = winnr()
128 wincmd p
129 call setwinvar(winnr, '&key', 'yetanotherkey')
130 wincmd p
131 call assert_fails(":bw")
132 w
133
134 set cryptmethod&
135 set key=
136 bwipe!
137 call delete('Xtest1.txt')
138endfunc