SHA-512 crypt test.
[kopensolaris-gnu/glibc.git] / crypt / crypt.c
1 /*
2  * UFC-crypt: ultra fast crypt(3) implementation
3  *
4  * Copyright (C) 1991, 1992, 1993, 1996 Free Software Foundation, Inc.
5  *
6  * This library is free software; you can redistribute it and/or
7  * modify it under the terms of the GNU Lesser General Public
8  * License as published by the Free Software Foundation; either
9  * version 2.1 of the License, or (at your option) any later version.
10  *
11  * This library is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14  * Lesser General Public License for more details.
15  *
16  * You should have received a copy of the GNU Lesser General Public
17  * License along with this library; see the file COPYING.LIB.  If not,
18  * write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19  * Boston, MA 02111-1307, USA.
20  *
21  * @(#)crypt.c  2.25 12/20/96
22  *
23  * Semiportable C version
24  *
25  */
26
27 #include "ufc-crypt.h"
28 #include "crypt.h"
29 #include "crypt-private.h"
30
31 #ifdef _UFC_32_
32
33 /*
34  * 32 bit version
35  */
36
37 #define SBA(sb, v) (*(long32*)((char*)(sb)+(v)))
38
39 void
40 _ufc_doit_r(itr, __data, res)
41      ufc_long itr, *res;
42      struct crypt_data * __restrict __data;
43 {
44   int i;
45   long32 s, *k;
46   long32 *sb01 = (long32*)__data->sb0;
47   long32 *sb23 = (long32*)__data->sb2;
48   long32 l1, l2, r1, r2;
49
50   l1 = (long32)res[0]; l2 = (long32)res[1];
51   r1 = (long32)res[2]; r2 = (long32)res[3];
52
53   while(itr--) {
54     k = (long32*)__data->keysched;
55     for(i=8; i--; ) {
56       s = *k++ ^ r1;
57       l1 ^= SBA(sb01, s & 0xffff); l2 ^= SBA(sb01, (s & 0xffff)+4);
58       l1 ^= SBA(sb01, s >>= 16  ); l2 ^= SBA(sb01, (s         )+4);
59       s = *k++ ^ r2;
60       l1 ^= SBA(sb23, s & 0xffff); l2 ^= SBA(sb23, (s & 0xffff)+4);
61       l1 ^= SBA(sb23, s >>= 16  ); l2 ^= SBA(sb23, (s         )+4);
62
63       s = *k++ ^ l1;
64       r1 ^= SBA(sb01, s & 0xffff); r2 ^= SBA(sb01, (s & 0xffff)+4);
65       r1 ^= SBA(sb01, s >>= 16  ); r2 ^= SBA(sb01, (s         )+4);
66       s = *k++ ^ l2;
67       r1 ^= SBA(sb23, s & 0xffff); r2 ^= SBA(sb23, (s & 0xffff)+4);
68       r1 ^= SBA(sb23, s >>= 16  ); r2 ^= SBA(sb23, (s         )+4);
69     }
70     s=l1; l1=r1; r1=s; s=l2; l2=r2; r2=s;
71   }
72   res[0] = l1; res[1] = l2; res[2] = r1; res[3] = r2;
73 }
74
75 #endif
76
77 #ifdef _UFC_64_
78
79 /*
80  * 64 bit version
81  */
82
83 #define SBA(sb, v) (*(long64*)((char*)(sb)+(v)))
84
85 void
86 _ufc_doit_r(itr, __data, res)
87      ufc_long itr, *res;
88      struct crypt_data * __restrict __data;
89 {
90   int i;
91   long64 l, r, s, *k;
92   register long64 *sb01 = (long64*)__data->sb0;
93   register long64 *sb23 = (long64*)__data->sb2;
94
95   l = (((long64)res[0]) << 32) | ((long64)res[1]);
96   r = (((long64)res[2]) << 32) | ((long64)res[3]);
97
98   while(itr--) {
99     k = (long64*)__data->keysched;
100     for(i=8; i--; ) {
101       s = *k++ ^ r;
102       l ^= SBA(sb23, (s       ) & 0xffff);
103       l ^= SBA(sb23, (s >>= 16) & 0xffff);
104       l ^= SBA(sb01, (s >>= 16) & 0xffff);
105       l ^= SBA(sb01, (s >>= 16)         );
106
107       s = *k++ ^ l;
108       r ^= SBA(sb23, (s       ) & 0xffff);
109       r ^= SBA(sb23, (s >>= 16) & 0xffff);
110       r ^= SBA(sb01, (s >>= 16) & 0xffff);
111       r ^= SBA(sb01, (s >>= 16)         );
112     }
113     s=l; l=r; r=s;
114   }
115
116   res[0] = l >> 32; res[1] = l & 0xffffffff;
117   res[2] = r >> 32; res[3] = r & 0xffffffff;
118 }
119
120 #endif