Mercurial > octave

annotate libinterp/corefcn/hash.cc @ 20914:3ecd9e6650b5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move hash.cc from dldfcn to corefcn. * libinterp/dldfcn/hash.cc: Moved file from here. * libinterp/corefcn/module-files: Removed hash.cc from build system. * libinterp/corefcn/hash.cc: Moved file to here. * libinterp/corefcn/module.mk: Added hash.cc to build system.
author Kai T. Ohlhus <k.ohlhus@gmail.com>
date Wed, 16 Dec 2015 23:06:22 +0100
parents
children dba88797f69f
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
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
3 Copyright (C) 2007-2015 David Bateman
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
4 Copyright (C) 2015 Kai T. Ohlhus
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
5
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
6 This file is part of Octave.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
7
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
8 Octave is free software; you can redistribute it and/or modify it
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
9 under the terms of the GNU General Public License as published by the
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
10 Free Software Foundation; either version 3 of the License, or (at your
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
11 option) any later version.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
12
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
13 Octave is distributed in the hope that it will be useful, but WITHOUT
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
16 for more details.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
17
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
18 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
19 along with Octave; see the file COPYING. If not, see
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
20 <http://www.gnu.org/licenses/>.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
21
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
22 */
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
23
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 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
26 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
27
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
28 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
29 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
30 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
31 a third key input parameter. There is also a GNULIB "high-level"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
32 interface to Libcrypt. It might be easier to use, but it introduces
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
33 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
34 for now.
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
35 */
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
36
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
37 #ifdef HAVE_CONFIG_H
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
38 #include <config.h>
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
39 #endif
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
40
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
41 #include <algorithm>
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
42 #include <iomanip>
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
43 #include <sstream>
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
44
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
45 #include "defun.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
46 #include "md2.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
47 #include "md4.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
48 #include "md5.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
49 #include "sha1.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
50 #include "sha256.h"
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
51 #include "sha512.h"
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, ,
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
54 "-*- texinfo -*-\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
55 @deftypefn {} {} hash (@var{hfun},@var{str})\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
56 Calculate the hash value of the string @var{str} using the hash function\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
57 @var{hfun}.\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
58 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
59 The available hash functions are given in the table below.\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
60 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
61 @table @samp\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
62 @item MD2\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
63 Message-Digest Algorithm 2 (RFC 1319).\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
64 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
65 @item MD4\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
66 Message-Digest Algorithm 4 (RFC 1320).\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
67 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
68 @item MD5\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
69 Message-Digest Algorithm 5 (RFC 1321).\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
70 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
71 @item SHA1\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
72 Secure Hash Algorithm 1 (RFC 3174)\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
73 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
74 @item SHA224\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
75 Secure Hash Algorithm 2 (224 Bits, RFC 3874)\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
76 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
77 @item SHA256\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
78 Secure Hash Algorithm 2 (256 Bits, RFC 6234)\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
79 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
80 @item SHA384\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
81 Secure Hash Algorithm 2 (384 Bits, RFC 6234)\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
82 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
83 @item SHA512\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
84 Secure Hash Algorithm 2 (512 Bits, RFC 6234)\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
85 @end table\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
86 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
87 To calculate for example the MD5 hash value of the string @code{\"abc\"}\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
88 the @code{hash} function is called as follows:\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
89 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
90 @example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
91 @group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
92 hash (\"md5\", \"abc\")\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
93 @print{} ans = 900150983cd24fb0d6963f7d28e17f72\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
94 @end group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
95 @end example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
96 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
97 For the same string, the SHA-1 hash value is calculated with:\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
98 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
99 @example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
100 @group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
101 hash (\"sha1\", \"abc\")\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
102 @print{} ans = a9993e364706816aba3e25717850c26c9cd0d89d\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
103 @end group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
104 @end example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
105 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
106 And to compute the hash value of a file, e.g. @code{file = \"file.txt\"},\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
107 call @code{hash} in combination with the @code{fileread}:\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
108 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
109 @example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
110 @group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
111 hash (\"md5\", fileread (file));\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
112 @end group\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
113 @end example\n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
114 \n\
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
115 @end deftypefn")
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
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
120 std::string hfun = args(0).string_value ();
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
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
123 // Determine hash function used
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
124 std::transform(hfun.begin(), hfun.end(), hfun.begin(), ::toupper);
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 // Buffer with maximum size for all hash function
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
127 char result_buffer[SHA512_DIGEST_SIZE];
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
128
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
129 int result_buffer_len = 0;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
130 if (hfun == "MD2")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
131 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
132 md2_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
133 result_buffer_len = MD2_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
134 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
135 else if (hfun == "MD4")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
136 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
137 md4_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
138 result_buffer_len = MD4_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
139 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
140 else if (hfun == "MD5")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
141 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
142 md5_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
143 result_buffer_len = MD5_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
144 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
145 else if (hfun == "SHA1")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
146 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
147 sha1_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
148 result_buffer_len = SHA1_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
149 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
150 else if (hfun == "SHA224")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
151 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
152 sha224_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
153 result_buffer_len = SHA224_DIGEST_SIZE;
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 else if (hfun == "SHA256")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
156 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
157 sha256_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
158 result_buffer_len = SHA256_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
159 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
160 else if (hfun == "SHA384")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
161 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
162 sha384_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
163 result_buffer_len = SHA384_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
164 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
165 else if (hfun == "SHA512")
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
166 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
167 sha512_buffer (str.data (), str.length (), result_buffer);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
168 result_buffer_len = SHA512_DIGEST_SIZE;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
169 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
170 else
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
171 error ("hash function not supported");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
172
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
173 // Everything went fine, return formatted hash string
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
174 std::ostringstream os;
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
175 for (int i = 0; i < result_buffer_len; i++)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
176 {
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
177 // Assure hex representation of one byte is written
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
178 os << std::hex << std::setw (2) << std::setfill ('0')
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
179 << (static_cast<int> (result_buffer[i]) & 0xFF);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
180 }
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 return ovl (os.str ());
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
183 }
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
184
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
185 /*
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
186 ## MD2 test suite (RFC 1319)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
187 %!assert (hash ("md2", ""), "8350e5a3e24c153df2275c9f80692773");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
188 %!assert (hash ("md2", "a"), "32ec01ec4a6dac72c0ab96fb34c0b5d1");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
189 %!assert (hash ("md2", "abc"), "da853b0d3f88d99b30283a69e6ded6bb");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
190 %!assert (hash ("md2", "message digest"), "ab4f496bfb2a530b219ff33031fe06b0");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
191 %!assert (hash ("md2", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
192 %! "4e8ddff3650292ab5a4108c3aa47940b");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
193 %!assert (hash ("md2", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
194 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
195 %! "da33def2a42df13975352846c30338cd");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
196 %!assert (hash ("md2", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
197 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
198 %! "d5976f79d83d3a0dc9806c3c66f3efd8");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
199
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
200 ## MD4 test suite (RFC 1320)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
201 %!assert (hash ("md4", ""), "31d6cfe0d16ae931b73c59d7e0c089c0");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
202 %!assert (hash ("md4", "a"), "bde52cb31de33e46245e05fbdbd6fb24");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
203 %!assert (hash ("md4", "abc"), "a448017aaf21d8525fc10ae87aa6729d");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
204 %!assert (hash ("md4", "message digest"), "d9130a8164549fe818874806e1c7014b");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
205 %!assert (hash ("md4", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
206 %! "d79e1c308aa5bbcdeea8ed63df412da9");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
207 %!assert (hash ("md4", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
208 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
209 %! "043f8582f241db351ce627e153e7f0e4");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
210 %!assert (hash ("md4", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
211 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
212 %! "e33b4ddc9c38f2199c3e7b164fcc0536");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
213
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
214 ## MD5 test suite (RFC 1321)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
215 %!assert (hash ("md5", ""), "d41d8cd98f00b204e9800998ecf8427e");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
216 %!assert (hash ("md5", "a"), "0cc175b9c0f1b6a831c399e269772661");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
217 %!assert (hash ("md5", "abc"), "900150983cd24fb0d6963f7d28e17f72");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
218 %!assert (hash ("md5", "message digest"), "f96b697d7cb7938d525a2f31aaf161d0");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
219 %!assert (hash ("md5", "abcdefghijklmnopqrstuvwxyz"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
220 %! "c3fcd3d76192e4007dfb496cca67e13b");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
221 %!assert (hash ("md5", ["ABCDEFGHIJKLMNOPQRSTUVWXYZ", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
222 %! "abcdefghijklmnopqrstuvwxyz0123456789"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
223 %! "d174ab98d277d9f5a5611c2c9f419d9f");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
224 %!assert (hash ("md5", ["123456789012345678901234567890123456789", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
225 %! "01234567890123456789012345678901234567890"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
226 %! "57edf4a22be3c955ac49da2e2107b67a");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
227
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
228 ## SHA1 test suite (RFC 3174) and more
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
229 %!assert (hash ("sha1", ""), "da39a3ee5e6b4b0d3255bfef95601890afd80709");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
230 %!assert (hash ("sha1", "a"), "86f7e437faa5a7fce15d1ddcb9eaeaea377667b8");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
231 %!assert (hash ("sha1", "abc"), "a9993e364706816aba3e25717850c26c9cd0d89d");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
232 %!assert (hash ("sha1", ["abcdbcdecdefdefgefghfghighijhi", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
233 %! "jkijkljklmklmnlmnomnopnopq"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
234 %! "84983e441c3bd26ebaae4aa1f95129e5e54670f1");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
235 %!assert (hash ("sha1", ["01234567012345670123456701234567", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
236 %! "01234567012345670123456701234567"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
237 %! "e0c094e867ef46c350ef54a7f59dd60bed92ae83");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
238 %!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
239 %! "2fd4e1c67a2d28fced849ee1bb76e7391b93eb12");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
240
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
241 ## 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
242 %!assert (hash ("sha224", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
243 %! "d14a028c2a3a2bc9476102bb288234c415a2b01f828ea62ac5b3e42f");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
244 %!assert (hash ("sha224", "a"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
245 %! "abd37534c7d9a2efb9465de931cd7055ffdb8879563ae98078d6d6d5");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
246 %!assert (hash ("sha224", "abc"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
247 %! "23097d223405d8228642a477bda255b32aadbce4bda0b3f7e36c9da7");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
248 %!assert (hash ("sha224", ["abcdbcdecdefdefgefghfghighijh", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
249 %! "ijkijkljklmklmnlmnomnopnopq"]),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
250 %! "75388b16512776cc5dba5da1fd890150b0c6455cb4f58b1952522525");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
251
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
252 ## 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
253 %!assert (hash ("sha256", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
254 %! "e3b0c44298fc1c149afbf4c8996fb92427ae41e4649b934ca495991b7852b855");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
255 %!assert (hash ("sha384", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
256 %! ["38b060a751ac96384cd9327eb1b1e36a21fdb71114be07434c0cc", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
257 %! "7bf63f6e1da274edebfe76f65fbd51ad2f14898b95b"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
258 %!assert (hash ("sha512", ""),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
259 %! ["cf83e1357eefb8bdf1542850d66d8007d620e4050b5715dc83f4a", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
260 %! "921d36ce9ce47d0d13c5d85f2b0ff8318d2877eec2f63b931bd47", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
261 %! "417a81a538327af927da3e"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
262
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
263 ## Test special character behavior (bug #31689)
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
264 %!assert (hash ("md2", "abc\0"), "5a636d615002a7874ac1c9e9a43361f7");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
265 %!assert (hash ("md4", "abc\0"), "0ee5201897ecb206c4eaba1d2da5224d");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
266 %!assert (hash ("md5", "abc\0"), "147a664a2ca9410911e61986d3f0d52a");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
267 %!assert (hash ("sha1", "abc\0"), "686483805ac47ca14e03514f7481a7973b401762");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
268 %!assert (hash ("sha224", "abc\0"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
269 %! "fbc8e47920e108bb1d0b631d18b36ae9b1549d28362aa15ebe960cfb");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
270 %!assert (hash ("sha256", "abc\0"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
271 %! "dc1114cd074914bd872cc1f9a23ec910ea2203bc79779ab2e17da25782a624fc");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
272 %!assert (hash ("sha384", "abc\0"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
273 %! ["eba81f2dfba4ec60d3f786c89d91b08e6c0b63d55986874378e385", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
274 %! "e6fac587cce7a520ca9437290fe626cbf75c855e17"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
275 %!assert (hash ("sha512", "abc\0"),
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
276 %! ["7ce05eda233e545a2d5c626862a5ddaafb09b9d8ec3bec08aa458b", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
277 %! "7c9e7d939d84a57d5a20d8a9002983aabae2457b19c50ba326bf5b", ...
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
278 %! "081f75b41342f42c3383"]);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
279
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
280 ## 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
281 %!test
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
282 %! tfile = tempname ();
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
283 %! fid = fopen (tfile, "wb");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
284 %! fwrite (fid, "abc\0");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
285 %! fclose (fid);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
286 %! assert (hash ("md5", fileread (tfile)), "147a664a2ca9410911e61986d3f0d52a");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
287 %! unlink (tfile);
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
288
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
289 ## Test bad function calls
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
290 %!error hash ();
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
291 %!error hash ("");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
292 %!error hash ("", "");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
293 %!error hash ("", "", "");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
294 %!error hash (1, "");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
295 %!error hash ([1, 0; 0, 1], "");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
296 %!error hash ("unknown", "");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
297 %!error hash ("md5");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
298 %!error hash ("sha1");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
299 %!error hash ("sha512");
3ecd9e6650b5 Move hash.cc from dldfcn to corefcn.
Kai T. Ohlhus <k.ohlhus@gmail.com>
parents:
diff changeset
300 */