Mercurial > vim

annotate src/testdir/test_crypt.vim @ 32669:448aef880252

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
normalize line endings
author Christian Brabandt <cb@256bit.org>
date Mon, 26 Jun 2023 09:54:34 +0200
parents 5d07e7e9580f
children 695b50472e85
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
32669
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
1 " Tests for encryption.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
3 source shared.vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
4 source check.vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
5 CheckFeature cryptv
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
6
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
7 " Use the xxd command from:
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
8 " 1: $XXDPROG if set and it is executable
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
9 " 2: the ../xxd directory if the executable is found there
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
10 if !empty($XXDPROG) && executable($XXDPROG)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
11 let s:xxd_cmd = $XXDPROG
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
12 elseif executable('..\xxd\xxd.exe')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
13 " we're on MS-Windows
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
14 let s:xxd_cmd = '..\xxd\xxd.exe'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
15 elseif executable('../xxd/xxd')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
16 " we're on something like Unix
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
17 let s:xxd_cmd = '../xxd/xxd'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
18 else
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
19 " looks like xxd wasn't build (yet)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
20 let s:xxd_cmd = ''
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
21 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
22
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
23 func Common_head_only(text)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
24 " This was crashing Vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
25 split Xtest.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
26 call setline(1, a:text)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
27 wq
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
28 call feedkeys(":split Xtest.txt\<CR>foobar\<CR>", "tx")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
29 call delete('Xtest.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
30 call assert_match('VimCrypt', getline(1))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
31 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
32 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
33
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
34 func Test_head_only_2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
35 call Common_head_only('VimCrypt~02!abc')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
36 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
37
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
38 func Test_head_only_3()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
39 call Common_head_only('VimCrypt~03!abc')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
40 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
41
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
42 func Test_head_only_4()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
43 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
44 call Common_head_only('VimCrypt~04!abc')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
45 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
46
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
47 func Crypt_uncrypt(method)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
48 exe "set cryptmethod=" . a:method
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
49 " If the blowfish test fails 'cryptmethod' will be 'zip' now.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
50 call assert_equal(a:method, &cryptmethod)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
51
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
52 split Xtest.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
53 let text =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
54 01234567890123456789012345678901234567,
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
55 line 2 foo bar blah,
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
56 line 3 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
57 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
58 call setline(1, text)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
59 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
60 call assert_equal('*****', &key)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
61 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
62 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
63 call feedkeys(":split Xtest.txt\<CR>foobar\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
64 call assert_equal(text, getline(1, 3))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
65 set key= cryptmethod&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
66 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
67 call delete('Xtest.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
68 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
69
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
70 func Test_crypt_zip()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
71 call Crypt_uncrypt('zip')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
72 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
73
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
74 func Test_crypt_blowfish()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
75 call Crypt_uncrypt('blowfish')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
76 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
77
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
78 func Test_crypt_blowfish2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
79 call Crypt_uncrypt('blowfish2')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
80 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
81
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
82 func Test_crypt_sodium()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
83 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
84 call Crypt_uncrypt('xchacha20')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
85 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
86
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
87 func Test_crypt_sodium_v2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
88 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
89 call Crypt_uncrypt('xchacha20v2')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
90 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
91
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
92 func Test_crypt_sodium_v2_startup()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
93 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
94 CheckRunVimInTerminal
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
95
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
96 let buf = RunVimInTerminal('--cmd "set cm=xchacha20v2" -x Xfoo', #{wait_for_ruler: 0, rows: 6})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
97 call g:TermWait(buf, g:RunningWithValgrind() ? 1000 : 50)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
98 call term_sendkeys(buf, "foo\<CR>foo\<CR>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
99 call term_sendkeys(buf, "ifoo\<Esc>")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
100 call term_sendkeys(buf, "ZZ")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
101 call TermWait(buf)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
102
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
103 " Wait for Vim to write the file and exit. Then wipe out the terminal buffer.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
104 call WaitForAssert({-> assert_equal("finished", term_getstatus(buf))})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
105 exe buf .. 'bwipe!'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
106 call assert_true(filereadable('Xfoo'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
107
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
108 let buf = RunVimInTerminal('--cmd "set ch=3 cm=xchacha20v2 key=foo" Xfoo', #{rows: 10})
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
109 call g:TermWait(buf, g:RunningWithValgrind() ? 1000 : 50)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
110 call StopVimInTerminal(buf)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
111
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
112 call delete('Xfoo')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
113 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
114
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
115 func Uncrypt_stable(method, crypted_text, key, uncrypted_text)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
116 split Xtest.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
117 set bin noeol key= fenc=latin1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
118 exe "set cryptmethod=" . a:method
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
119 call setline(1, a:crypted_text)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
120 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
121 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
122 set nobin
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
123 call feedkeys(":split Xtest.txt\<CR>" . a:key . "\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
124 call assert_equal(a:uncrypted_text, getline(1, len(a:uncrypted_text)))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
125 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
126 call delete('Xtest.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
127 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
128 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
129
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
130 func Uncrypt_stable_xxd(method, hex, key, uncrypted_text, verbose)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
131 if empty(s:xxd_cmd)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
132 throw 'Skipped: xxd program missing'
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
133 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
134 " use xxd to write the binary content
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
135 call system(s:xxd_cmd .. ' -r >Xtest.txt', a:hex)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
136 let cmd = (a:verbose ? ':verbose' : '') ..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
137 \ ":split Xtest.txt\<CR>" . a:key . "\<CR>"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
138 call feedkeys(cmd, 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
139 call assert_equal(a:uncrypted_text, getline(1, len(a:uncrypted_text)))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
140 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
141 call delete('Xtest.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
142 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
143 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
144
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
145 func Test_uncrypt_zip()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
146 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"])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
147 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
148
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
149 func Test_uncrypt_blowfish()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
150 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"])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
151 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
152
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
153 func Test_uncrypt_blowfish2a()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
154 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", "!@#$%^&*()_+=-`~"])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
155 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
156
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
157 func Test_uncrypt_blowfish2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
158 call Uncrypt_stable('blowfish2', "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", "!@#$%^&*()_+=-`~"])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
159 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
160
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
161 func Test_uncrypt_xchacha20()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
162 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
163 let hex =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
164 00000000: 5669 6d43 7279 7074 7e30 3421 6b7d e607 vimCrypt~04!k}..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
165 00000010: 4ea4 e99f 923e f67f 7b59 a80d 3bca 2f06 N....>..{Y..;./.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
166 00000020: fa11 b951 8d09 0dc9 470f e7cf 8b90 4310 ...Q....G.....C.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
167 00000030: 653b b83b e493 378b 0390 0e38 f912 626b e;.;..7....8..bk
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
168 00000040: a02e 4697 0254 2625 2d8e 3a0b 784b e89c ..F..T&%-.:.xK..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
169 00000050: 0c67 a975 3c17 9319 8ffd 1463 7783 a1f3 .g.u<......cw...
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
170 00000060: d917 dcb3 8b3e ecd7 c7d4 086b 6059 7ead .....>.....k`Y~.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
171 00000070: 9b07 f96b 5c1b 4d08 cd91 f208 5221 7484 ...k\.M.....R!t.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
172 00000080: 72be 0136 84a1 d3 r..6...
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
173 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
174 " the file should be in latin1 encoding, this makes sure that readfile()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
175 " retries several times converting the multi-byte characters
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
176 call Uncrypt_stable_xxd('xchacha20', hex, "sodium_crypt", ["abcdefghijklmnopqrstuvwxyzäöü", "ZZZ_äüöÄÜÖ_!@#$%^&*()_+=-`~"], 0)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
177 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
178
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
179 func Test_uncrypt_xchacha20v2_custom()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
180 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
181 " Test, reading xchacha20v2 with custom encryption parameters
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
182 let hex =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
183 00000000: 5669 6d43 7279 7074 7e30 3521 934b f288 VimCrypt~05!.K..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
184 00000010: 10ba 8bc9 25a0 8876 f85c f135 6fb8 518b ....%..v.\.5o.Q.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
185 00000020: b133 9af1 0300 0000 0000 0000 0000 0010 .3..............
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
186 00000030: 0000 0000 0200 0000 b973 5f33 80e9 54fc .........s_3..T.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
187 00000040: 138f ba3e 046b 3135 90b7 7783 5eac 7fe3 ...>.k15..w.^...
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
188 00000050: 0cd2 14df ed75 4b65 8763 8205 035c ec81 .....uKe.c...\..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
189 00000060: a4cf 33d2 7507 ec38 ba62 a327 9068 d8ad ..3.u..8.b.'.h..
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
190 00000070: 2607 3fa6 f95d 7ea8 9799 f997 4820 0c &.?..]~.....H .
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
191 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
192 call Uncrypt_stable_xxd('xchacha20v2', hex, "foobar", ["", "foo", "bar", "1", "2", "3", "4", "5", "6", "7", "8", "9", "10"], 1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
193 call assert_match('xchacha20v2: using custom \w\+ "\d\+" for Key derivation.', execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
194 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
195
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
196 func Test_uncrypt_xchacha20v2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
197 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
198 " Test, reading xchacha20v2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
199 let hex =<< trim END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
200 00000000: 5669 6d43 7279 7074 7e30 3521 9f20 4e14 VimCrypt~05!. N.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
201 00000010: c7da c1bd 7dea 8fbc db6c 38e6 7a77 6fef ....}....l8.zwo.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
202 00000020: 82dd 964b 0300 0000 0000 0000 0000 0010 ...K............
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
203 00000030: 0000 0000 0200 0000 a97c 2f00 0b9d 19eb .........|/.....
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
204 00000040: 1d92 1ea5 3f22 c179 4b3e 870a eb19 6380 ....?".yK>....c.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
205 00000050: 63f8 222d b5d1 3c73 7be5 d580 47ea 44cc c."-..<s{...G.D.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
206 00000060: 6c25 8078 3fd5 d836 c700 0122 bb30 7a59 l%.x?..6...".0zY
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
207 00000070: b184 2ae8 e7db 113a f732 938f 7a34 1333 ..*....:.2..z4.3
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
208 00000080: dc89 1491 51a0 67b9 0f3a b56c 1f9d 53b0 ....Q.g..:.l..S.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
209 00000090: 2416 205a 8c4c 5fde 4dac 2611 8a48 24f0 $. Z.L_.M.&..H$.
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
210 000000a0: ba00 92c1 60 ....`
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
211 END
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
212 call Uncrypt_stable_xxd('xchacha20v2', hex, "foo1234", ["abcdefghijklmnopqrstuvwxyzäöü", 'ZZZ_äüöÄÜÖ_!@#$%^&*()_+=-`~"'], 0)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
213 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
214
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
215 func Test_uncrypt_xchacha20_invalid()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
216 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
217
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
218 " load an invalid encrypted file and verify it can be decrypted with an
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
219 " error message
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
220 try
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
221 call feedkeys(":split samples/crypt_sodium_invalid.txt\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
222 call assert_false(1, 'should not happen')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
223 catch
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
224 call assert_exception('pre-mature')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
225 endtry
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
226 call assert_match("Note: Encryption of swapfile not supported, disabling swap file", execute(':5messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
227
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
228 call assert_equal(0, &swapfile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
229 call assert_equal("xchacha20", &cryptmethod)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
230 call assert_equal('311111111111111111111111', getline('$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
231 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
232 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
233
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
234 func Test_uncrypt_xchacha20_2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
235 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
236
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
237 sp Xcrypt_sodium.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
238 " Create a larger file, so that Vim will write in several blocks
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
239 call setline(1, range(1, 4000))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
240 call assert_equal(1, &swapfile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
241 set cryptmethod=xchacha20
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
242 call feedkeys(":X\<CR>sodium\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
243 " swapfile disabled
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
244 call assert_equal(0, &swapfile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
245 call assert_match("Note: Encryption of swapfile not supported, disabling swap file", execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
246 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
247 " encrypted using xchacha20
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
248 call assert_match("\[xchacha20\]", execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
249 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
250 call feedkeys(":sp Xcrypt_sodium.txt\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
251 " successfully decrypted
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
252 call assert_equal(range(1, 4000)->map( {_, v -> string(v)}), getline(1,'$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
253 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
254 w! ++ff=unix
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
255 " encryption removed (on MS-Windows the .* matches [unix])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
256 call assert_match('"Xcrypt_sodium.txt".*4000L, 18893B written', execute(':message'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
257 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
258 call delete('Xcrypt_sodium.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
259 set cryptmethod&vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
260
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
261 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
262
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
263 func Test_uncrypt_xchacha20v2_2()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
264 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
265
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
266 sp Xcrypt_sodium_v2.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
267 " Create a larger file, so that Vim will write in several blocks
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
268 call setline(1, range(1, 4000))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
269 call assert_equal(1, &swapfile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
270 set cryptmethod=xchacha20v2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
271 call feedkeys(":X\<CR>sodium\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
272 " swapfile disabled
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
273 call assert_equal(0, &swapfile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
274 call assert_match("Note: Encryption of swapfile not supported, disabling swap file", execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
275 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
276 " encrypted using xchacha20
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
277 call assert_match("\[xchachav2\]", execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
278 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
279 call feedkeys(":verbose :sp Xcrypt_sodium_v2.txt\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
280 " successfully decrypted
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
281 call assert_equal(range(1, 4000)->map( {_, v -> string(v)}), getline(1,'$'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
282 call assert_match('xchacha20v2: using default \w\+ "\d\+" for Key derivation.', execute(':messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
283 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
284 w! ++ff=unix
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
285 " encryption removed (on MS-Windows the .* matches [unix])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
286 call assert_match('"Xcrypt_sodium_v2.txt".*4000L, 18893B written', execute(':message'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
287 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
288 call delete('Xcrypt_sodium_v2.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
289 set cryptmethod&vim
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
290
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
291 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
292
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
293 func Test_uncrypt_xchacha20_3_persistent_undo()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
294 CheckFeature sodium
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
295 CheckFeature persistent_undo
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
296
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
297 for meth in ['xchacha20', 'xchacha20v2']
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
298
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
299 sp Xcrypt_sodium_undo.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
300 exe "set cryptmethod=" .. meth .. " undofile"
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
301 call feedkeys(":X\<CR>sodium\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
302 call assert_equal(1, &undofile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
303 let ufile=undofile(@%)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
304 call append(0, ['monday', 'tuesday', 'wednesday', 'thursday', 'friday'])
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
305 call cursor(1, 1)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
306
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
307 set undolevels=100
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
308 normal dd
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
309 set undolevels=100
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
310 normal dd
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
311 set undolevels=100
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
312 normal dd
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
313 set undolevels=100
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
314 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
315 call assert_equal(0, &undofile)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
316 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
317 call feedkeys(":sp Xcrypt_sodium_undo.txt\<CR>sodium\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
318 " should fail
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
319 norm! u
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
320 call assert_match('Already at oldest change', execute(':1mess'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
321 call assert_fails('verbose rundo ' .. fnameescape(ufile), 'E822')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
322 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
323 set undolevels& cryptmethod& undofile&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
324 call delete('Xcrypt_sodium_undo.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
325
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
326 endfor
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
327 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
328
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
329 func Test_encrypt_xchacha20_missing()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
330 if has("sodium")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
331 return
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
332 endif
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
333 sp Xcrypt_sodium_undo.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
334 call assert_fails(':set cryptmethod=xchacha20', 'E474')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
335 call assert_fails(':set cryptmethod=xchacha20v2', 'E474')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
336 bw!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
337 set cm&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
338 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
339
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
340 func Test_uncrypt_unknown_method()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
341 split Xuncrypt_unknown.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
342 set bin noeol key= fenc=latin1
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
343 call setline(1, "VimCrypt~93!\u001e\u00d1")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
344 w!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
345 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
346 set nobin
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
347 call assert_fails(":split Xuncrypt_unknown.txt", 'E821:')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
348
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
349 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
350 call delete('Xuncrypt_unknown.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
351 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
352 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
353
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
354 func Test_crypt_key_mismatch()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
355 set cryptmethod=blowfish
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
356
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
357 split Xtest.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
358 call setline(1, 'nothing')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
359 call feedkeys(":X\<CR>foobar\<CR>nothing\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
360 call assert_match("Keys don't match!", execute(':2messages'))
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
361 call assert_equal('', &key)
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
362 call feedkeys("\<CR>\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
363
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
364 set cryptmethod&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
365 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
366 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
367
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
368 func Test_crypt_set_key_changes_buffer()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
369
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
370 new Xtest1.txt
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
371 call setline(1, 'nothing')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
372 set cryptmethod=blowfish2
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
373 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
374 call assert_fails(":q", "E37:")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
375 w
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
376 set key=anotherkey
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
377 call assert_fails(":bw")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
378 w
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
379 call feedkeys(":X\<CR>foobar\<CR>foobar\<CR>", 'xt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
380 call assert_fails(":bw")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
381 w
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
382 let winnr = winnr()
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
383 wincmd p
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
384 call setwinvar(winnr, '&key', 'yetanotherkey')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
385 wincmd p
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
386 call assert_fails(":bw")
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
387 w
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
388
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
389 set cryptmethod&
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
390 set key=
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
391 bwipe!
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
392 call delete('Xtest1.txt')
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
393 endfunc
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
394
448aef880252 normalize line endings
Christian Brabandt <cb@256bit.org>
parents: 32503
diff changeset
395 " vim: shiftwidth=2 sts=2 expandtab