Mercurial > octave

annotate libinterp/corefcn/hash.cc @ 27919:1891570abac8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
update Octave Project Developers copyright for the new year In files that have the "Octave Project Developers" copyright notice, update for 2020.
author John W. Eaton <jwe@octave.org>
date Mon, 06 Jan 2020 22:29:51 -0500
parents b442ec6dda5c
children bd51beb6205e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
1 /*
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
2
27919
1891570abac8 update Octave Project Developers copyright for the new year
John W. Eaton <jwe@octave.org>
parents: 27918
diff changeset
3 Copyright (C) 2007-2020 The Octave Project Developers
27918
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
4
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
5 See the file COPYRIGHT.md in the top-level directory of this distribution
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
6 or <https://octave.org/COPYRIGHT.html/>.
b442ec6dda5c use centralized file for copyright info for individual contributors
John W. Eaton <jwe@octave.org>
parents: 26376
diff changeset
7
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
8
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
9 This file is part of Octave.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
10
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23573
diff changeset
11 Octave is free software: you can redistribute it and/or modify it
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
12 under the terms of the GNU General Public License as published by
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23573
diff changeset
13 the Free Software Foundation, either version 3 of the License, or
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
14 (at your option) any later version.
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
15
22755
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
16 Octave is distributed in the hope that it will be useful, but
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
17 WITHOUT ANY WARRANTY; without even the implied warranty of
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
18 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3a2b891d0b33 maint: Standardize Copyright formatting.
Rik <rik@octave.org>
parents: 22489
diff changeset
19 GNU General Public License for more details.
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
20
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
21 You should have received a copy of the GNU General Public License
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
22 along with Octave; see the file COPYING. If not, see
24534
194eb4bd202b maint: Update punctuation for GPL v3 license text.
Rik <rik@octave.org>
parents: 23573
diff changeset
23 <https://www.gnu.org/licenses/>.
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
24
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
25 */
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
26
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
27 /*
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
28 Implementation note (Dec, 2015): All supported cryptographic hash
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
29 functions are calling "low-level" inplementations of the GNULIB.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
30
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
31 The GNULIB, contains even more HMAC based algorithms, c.f.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
32 https://www.gnu.org/software/gnulib/MODULES.html#module=crypto/hmac-md5
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
33 so a future project might be including these algorithms as well, adding
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
34 a third key input parameter. There is also a GNULIB "high-level"
21751
b571fc85953f maint: Use two spaces after period to indicate sentence break.
Rik <rik@octave.org>
parents: 21724
diff changeset
35 interface to Libcrypt. It might be easier to use, but it introduces
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
36 a new build dependency, so better stick to the "low-level" functions
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
37 for now.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
38 */
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
39
21724
aba2e6293dd8 use "#if ..." consistently instead of "#ifdef" and "#ifndef"
John W. Eaton <jwe@octave.org>
parents: 21581
diff changeset
40 #if defined (HAVE_CONFIG_H)
21301
40de9f8f23a6 Use '#include "config.h"' rather than <config.h>.
Rik <rik@octave.org>
parents: 21200
diff changeset
41 # include "config.h"
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
42 #endif
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
43
21889
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
44 #include <string>
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
45
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
46 #include "lo-hash.h"
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
47
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
48 #include "defun.h"
21889
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
49 #include "error.h"
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
50 #include "ov.h"
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
51 #include "ovl.h"
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
52
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
53 DEFUN (hash, args, ,
21966
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
54 doc: /* -*- texinfo -*-
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
55 @deftypefn {} {} hash (@var{hfun}, @var{str})
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
56 Calculate the hash value of the string @var{str} using the hash function
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
57 @var{hfun}.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
58
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
59 The available hash functions are given in the table below.
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
60
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
61 @table @samp
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
62 @item MD2
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
63 Message-Digest Algorithm 2 (RFC 1319).
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
64
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
65 @item MD4
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
66 Message-Digest Algorithm 4 (RFC 1320).
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
67
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
68 @item MD5
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
69 Message-Digest Algorithm 5 (RFC 1321).
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
70
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
71 @item SHA1
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
72 Secure Hash Algorithm 1 (RFC 3174)
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
73
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
74 @item SHA224
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
75 Secure Hash Algorithm 2 (224 Bits, RFC 3874)
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
76
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
77 @item SHA256
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
78 Secure Hash Algorithm 2 (256 Bits, RFC 6234)
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
79
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
80 @item SHA384
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
81 Secure Hash Algorithm 2 (384 Bits, RFC 6234)
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
82
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
83 @item SHA512
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
84 Secure Hash Algorithm 2 (512 Bits, RFC 6234)
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
85 @end table
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
86
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
87 To calculate for example the MD5 hash value of the string
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
88 @nospell{@qcode{"abc"}} the @code{hash} function is called as follows:
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
89
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
90 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
91 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
92 hash ("md5", "abc")
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
93 @print{} ans = 900150983cd24fb0d6963f7d28e17f72
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
94 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
95 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
96
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
97 For the same string, the SHA-1 hash value is calculated with:
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
98
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
99 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
100 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
101 hash ("sha1", "abc")
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
102 @print{} ans = a9993e364706816aba3e25717850c26c9cd0d89d
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
103 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
104 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
105
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
106 And to compute the hash value of a file, e.g., @code{file = "file.txt"},
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
107 call @code{hash} in combination with the @code{fileread}:
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
108
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
109 @example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
110 @group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
111 hash ("md5", fileread (file));
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
112 @end group
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
113 @end example
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
114
112b20240c87 move docstrings in C++ files out of C strings and into comments
John W. Eaton <jwe@octave.org>
parents: 21889
diff changeset
115 @end deftypefn */)
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
116 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
117 if (args.length () != 2)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
118 print_usage ();
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
119
21889
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
120 std::string hash_type = args(0).string_value ();
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
121 std::string str = args(1).string_value ();
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
122
21889
69afa5dce885 hide gnulib hash function headers
John W. Eaton <jwe@octave.org>
parents: 21751
diff changeset
123 return ovl (octave::crypto::hash (hash_type, str));
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
124 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
125
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
126 /*
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
127 ## MD2 test suite (RFC 1319)
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
128 %!assert (hash ("md2", ""), "8350e5a3e24c153df2275c9f80692773")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
129 %!assert (hash ("md2", "a"), "32ec01ec4a6dac72c0ab96fb34c0b5d1")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
130 %!assert (hash ("md2", "abc"), "da853b0d3f88d99b30283a69e6ded6bb")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
131 %!assert (hash ("md2", "message digest"), "ab4f496bfb2a530b219ff33031fe06b0")
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
132 %!assert (hash ("md2", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
133 %! "4e8ddff3650292ab5a4108c3aa47940b");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
134 %!assert (hash ("md2", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
135 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
136 %! "da33def2a42df13975352846c30338cd");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
137 %!assert (hash ("md2", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
138 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
139 %! "d5976f79d83d3a0dc9806c3c66f3efd8");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
140
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
141 ## MD4 test suite (RFC 1320)
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
142 %!assert (hash ("md4", ""), "31d6cfe0d16ae931b73c59d7e0c089c0")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
143 %!assert (hash ("md4", "a"), "bde52cb31de33e46245e05fbdbd6fb24")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
144 %!assert (hash ("md4", "abc"), "a448017aaf21d8525fc10ae87aa6729d")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
145 %!assert (hash ("md4", "message digest"), "d9130a8164549fe818874806e1c7014b")
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
146 %!assert (hash ("md4", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
147 %! "d79e1c308aa5bbcdeea8ed63df412da9");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
148 %!assert (hash ("md4", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
149 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
150 %! "043f8582f241db351ce627e153e7f0e4");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
151 %!assert (hash ("md4", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
152 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
153 %! "e33b4ddc9c38f2199c3e7b164fcc0536");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
154
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
155 ## MD5 test suite (RFC 1321)
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
156 %!assert (hash ("md5", ""), "d41d8cd98f00b204e9800998ecf8427e")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
157 %!assert (hash ("md5", "a"), "0cc175b9c0f1b6a831c399e269772661")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
158 %!assert (hash ("md5", "abc"), "900150983cd24fb0d6963f7d28e17f72")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
159 %!assert (hash ("md5", "message digest"), "f96b697d7cb7938d525a2f31aaf161d0")
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
160 %!assert (hash ("md5", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
161 %! "c3fcd3d76192e4007dfb496cca67e13b");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
162 %!assert (hash ("md5", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
163 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
164 %! "d174ab98d277d9f5a5611c2c9f419d9f");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
165 %!assert (hash ("md5", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
166 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
167 %! "57edf4a22be3c955ac49da2e2107b67a");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
168
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
169 ## SHA1 test suite (RFC 3174) and more
21317
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
170 %!assert (hash ("sha1", ""), "da39a3ee5e6b4b0d3255bfef95601890afd80709")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
171 %!assert (hash ("sha1", "a"), "86f7e437faa5a7fce15d1ddcb9eaeaea377667b8")
a4faec57f4c8 maint: remove semicolon after %!assert tests to follow Octave conventions.
Rik <rik@octave.org>
parents: 21301
diff changeset
172 %!assert (hash ("sha1", "abc"), "a9993e364706816aba3e25717850c26c9cd0d89d")
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
173 %!assert (hash ("sha1", ["abcdbcdecdefdefgefghfghighijhi", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
174 %! "jkijkljklmklmnlmnomnopnopq"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
175 %! "84983e441c3bd26ebaae4aa1f95129e5e54670f1");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
176 %!assert (hash ("sha1", ["01234567012345670123456701234567", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
177 %! "01234567012345670123456701234567"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
178 %! "e0c094e867ef46c350ef54a7f59dd60bed92ae83");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
179 %!assert (hash ("sha1", "The quick brown fox jumps over the lazy dog"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
180 %! "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
181
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
182 ## SHA224 test suite (RFC 3874) and more
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
183 %!assert (hash ("sha224", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
184 %! "d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
185 %!assert (hash ("sha224", "a"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
186 %! "abd37534c7d9a2efb9465de931cd7055ffdb8879563ae98078d6d6d5");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
187 %!assert (hash ("sha224", "abc"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
188 %! "23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
189 %!assert (hash ("sha224", ["abcdbcdecdefdefgefghfghighijh", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
190 %! "ijkijkljklmklmnlmnomnopnopq"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
191 %! "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
192
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
193 ## SHA256/384/512 tests (RFC 6234) and more
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
194 %!assert (hash ("sha256", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
195 %! "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
196 %!assert (hash ("sha384", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
197 %! ["38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
198 %! "7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
199 %!assert (hash ("sha512", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
200 %! ["cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
201 %! "921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
202 %! "417a81a538327af927da3e"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
203
22489
93ea313301f9 test: Add bug ids (<#####>) to BIST tests.
Rik <rik@octave.org>
parents: 22407
diff changeset
204 ## Test special character behavior
23573
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
205 %!assert <*31689> (hash ("md2", "abc\0"), "5a636d615002a7874ac1c9e9a43361f7")
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
206 %!assert <*31689> (hash ("md4", "abc\0"), "0ee5201897ecb206c4eaba1d2da5224d")
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
207 %!assert <*31689> (hash ("md5", "abc\0"), "147a664a2ca9410911e61986d3f0d52a")
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
208 %!assert <*31689> (hash ("sha1", "abc\0"), "686483805ac47ca14e03514f7481a7973b401762")
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
209 %!assert <*31689> (hash ("sha224", "abc\0"),
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
210 %! "fbc8e47920e108bb1d0b631d18b36ae9b1549d28362aa15ebe960cfb");
23573
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
211 %!assert <*31689> (hash ("sha256", "abc\0"),
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
212 %! "dc1114cd074914bd872cc1f9a23ec910ea2203bc79779ab2e17da25782a624fc");
23573
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
213 %!assert <*31689> (hash ("sha384", "abc\0"),
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
214 %! ["eba81f2dfba4ec60d3f786c89d91b08e6c0b63d55986874378e385", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
215 %! "e6fac587cce7a520ca9437290fe626cbf75c855e17"]);
23573
1b4f4ec53b4a use new script to tag fixed bugs in tests
John W. Eaton <jwe@octave.org>
parents: 23572
diff changeset
216 %!assert <*31689> (hash ("sha512", "abc\0"),
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
217 %! ["7ce05eda233e545a2d5c626862a5ddaafb09b9d8ec3bec08aa458b", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
218 %! "7c9e7d939d84a57d5a20d8a9002983aabae2457b19c50ba326bf5b", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
219 %! "081f75b41342f42c3383"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
220
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
221 ## Test equivalence to deprecated md5sum offering file hashing
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
222 %!test
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
223 %! tfile = tempname ();
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
224 %! fid = fopen (tfile, "wb");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
225 %! fwrite (fid, "abc\0");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
226 %! fclose (fid);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
227 %! assert (hash ("md5", fileread (tfile)), "147a664a2ca9410911e61986d3f0d52a");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
228 %! unlink (tfile);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
229
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
230 ## Test bad function calls
21581
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
231 %!error hash ()
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
232 %!error hash ("")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
233 %!error hash ("", "")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
234 %!error hash ("", "", "")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
235 %!error hash (1, "")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
236 %!error hash ([1, 0; 0, 1], "")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
237 %!error hash ("unknown", "")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
238 %!error hash ("md5")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
239 %!error hash ("sha1")
6fab85c1538f maint: Follow Octave conventions for use of semicolon in BIST tests.
Rik <rik@octave.org>
parents: 21317
diff changeset
240 %!error hash ("sha512")
20914
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
241 */