2 * tfcrypt -- high security Threefish encryption tool.
4 * tfcrypt is copyrighted:
5 * Copyright (C) 2012-2019 Andrey Rys. All rights reserved.
7 * tfcrypt is licensed to you under the terms of std. MIT/X11 license:
9 * Permission is hereby granted, free of charge, to any person obtaining
10 * a copy of this software and associated documentation files (the
11 * "Software"), to deal in the Software without restriction, including
12 * without limitation the rights to use, copy, modify, merge, publish,
13 * distribute, sublicense, and/or sell copies of the Software, and to
14 * permit persons to whom the Software is furnished to do so, subject to
15 * the following conditions:
17 * The above copyright notice and this permission notice shall be
18 * included in all copies or substantial portions of the Software.
20 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
23 * IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
24 * CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
25 * TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
26 * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31 size_t blk_len_adj(tfc_fsize filelen, tfc_fsize read_already, size_t blklen)
33 if (filelen == NOFSIZE) return blklen;
34 return ((filelen - read_already) >= blklen) ? blklen : (filelen - read_already);
37 tfc_yesno xor_shrink(void *dst, size_t szdst, const void *src, size_t szsrc)
39 unsigned char *udst = dst;
40 const unsigned char *usrc = src;
43 if ((szsrc % szdst) != 0) return NO;
46 memmove(dst, src, szsrc);
52 memset(dst, 0, szdst);
53 for (x = 0; x < (szsrc / szdst); x++) {
54 for (y = 0; y < szdst; y++) udst[y] ^= usrc[(x*szdst)+y];
60 tfc_yesno str_empty(const char *str)
62 if (!*str) return YES;
69 if (close(fd) == -1) xerror(YES, NO, NO, "close(%d)", fd);
72 const char *tfc_modename(int mode)
75 case TFC_MODE_CTR: return "CTR";
76 case TFC_MODE_STREAM: return "STREAM";
77 case TFC_MODE_XTS: return "XTS";
78 case TFC_MODE_ECB: return "ECB";
79 case TFC_MODE_CBC: return "CBC";
80 case TFC_MODE_OCB: return "OCB";
86 void tfc_getcurtime(tfc_useconds *tx)
89 memset(&t, 0, sizeof(t));
91 gettimeofday(&t, NULL);
92 *tx = t.tv_sec * 1000000 + t.tv_usec;
94 memset(&t, 0, sizeof(t));
97 char *tfc_format_time(tfc_useconds t)
99 tfc_useconds secs, dsecs;
100 unsigned days, hours, minutes, seconds;
103 secs = (tfc_useconds)TFC_UTODSECS(t);
104 dsecs = (tfc_useconds)(t - (secs * 1000000));
107 hours = (secs / 3600) % 24;
108 minutes = (secs / 60) % 60;
111 if (days > 0) sprintf(r, "%ud,%02u:%02u:%02u.%03u", days, hours, minutes, seconds, (unsigned)(dsecs / 1000));
112 else if (hours > 0) sprintf(r, "%02u:%02u:%02u.%03u", hours, minutes, seconds, (unsigned)(dsecs / 1000));
113 else if (minutes > 0) sprintf(r, "%02u:%02u.%03u", minutes, seconds, (unsigned)(dsecs / 1000));
114 else sprintf(r, "%02u.%03u", seconds, (unsigned)(dsecs / 1000));
119 tfc_fsize tfc_fdsize(int fd)
123 cur = lseek(fd, 0L, SEEK_CUR);
124 l = lseek(fd, 0L, SEEK_SET);
125 if (l == -1) return NOFSIZE;
126 l = lseek(fd, 0L, SEEK_END);
127 if (l == -1) return NOFSIZE;
128 lseek(fd, cur, SEEK_SET);
133 tfc_fsize tfc_fdgetpos(int fd)
137 t = lseek(fd, 0L, SEEK_CUR);
138 if (t == -1) return NOFSIZE;
142 tfc_fsize tfc_fnamesize(char *fname, tfc_yesno noexit)
148 if (!fname) return 0;
150 s = strchr(fname, ':');
151 if (s && s[1] && (s[1] == '+' || s[1] == '-' || s[1] == '*' || s[1] == '/')) {
156 fnmfd = open(fname, O_RDONLY);
157 if (s) memcpy(s, T, 2);
159 xerror(noexit, NO, YES, "%s", fname);
162 ret = tfc_fdsize(fnmfd);
163 if (ret == NOFSIZE) {
164 xerror(noexit, NO, YES, "%s: not a seekable file", fname);
172 tfc_fsize tfc_modifysize(tfc_fsize szmodify, const char *szspec)
178 if (szmodify == NOFSIZE) return NOFSIZE;
179 if (!szspec) return szmodify;
182 if (*s != ':') return szmodify;
184 if (!(*s == '+' || *s == '-' || *s == '*' || *s == '/')) return szmodify;
187 if (strchr(s, '/') || strchr(s, '.')) return szmodify;
189 t = tfc_humanfsize(s, &stoi);
190 if (!str_empty(stoi)) return szmodify;
193 case '+': szmodify += t; break;
194 case '-': szmodify -= t; break;
195 case '*': szmodify *= t; break;
196 case '/': szmodify /= t; break;
203 void fcopy_matime(int fd, const struct stat *st)
205 struct timeval times[2];
207 times[1].tv_sec = times[0].tv_sec = st->st_mtime;
208 times[1].tv_usec = times[0].tv_usec = 0;
209 if (futimes(fd, times) == -1) xerror(YES, NO, YES, "futimes(%d)", fd);
212 static void char_to_nul(char *s, size_t l, int c)
214 while (*s && l) { if (*s == c) { *s = 0; break; } s++; l--; }
217 tfc_yesno xfgets(char *s, size_t n, FILE *f)
221 if (fgets(s, (int)n, f) == s) {
222 char_to_nul(s, n, '\n');
229 tfc_yesno isbase64(const char *s)
232 if (*s >= 'g' && *s <= 'z') return YES;
233 if (*s >= 'G' && *s <= 'Z') return YES;
234 if (*s == '+' || *s == '/' || *s == '=') return YES;
240 static int chrbin(char x)
242 if (x >= '0' && x <= '9')
244 if (x >= 'A' && x <= 'F')
246 if (x >= 'a' && x <= 'f')
251 void hex2bin(void *d, const char *s)
259 x = (x << 4) ^ chrbin(*s);