1 /* $NetBSD: qfile.c,v 1.1 2006/01/24 18:59:23 elad Exp $ */
2
3 /*-
4 * Copyright 1994 Phil Karn <karn@qualcomm.com>
5 * Copyright 1996-1998, 2003 William Allen Simpson <wsimpson@greendragon.com>
6 * All rights reserved.
7 *
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
10 * are met:
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 *
17 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
18 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
19 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
20 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
21 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
22 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
23 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
24 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
25 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
26 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
27 */
28
29 /*
30 * File I/O for qsafe and qsieve.
31 *
32 * 1996 May William Allen Simpson extracted from earlier code by Phil Karn,
33 * April 1994. save large primes list for later processing. 1998 May
34 * William Allen Simpson parameterized. 2003 Jun William Allen Simpson
35 * move common file i/o to own file for better documentation.
36 */
37
38 #include <stdio.h>
39 #include <stdlib.h>
40 #include <time.h>
41 #include <openssl/bn.h>
42 #include "qfile.h"
43
44 /*
45 * print moduli out in consistent form,
46 * normalizing error returns to printf-like expectations.
47 */
48 int
qfileout(FILE * ofile,uint32_t otype,uint32_t otests,uint32_t otries,uint32_t osize,uint32_t ogenerator,BIGNUM * omodulus)49 qfileout(FILE * ofile, uint32_t otype, uint32_t otests, uint32_t otries,
50 uint32_t osize, uint32_t ogenerator, BIGNUM * omodulus)
51 {
52 struct tm *gtm;
53 time_t time_now;
54
55 time(&time_now);
56 gtm = gmtime(&time_now);
57
58 if (0 > fprintf(ofile,
59 "%04d%02d%02d%02d%02d%02d %u %u %u %u %x ",
60 gtm->tm_year + 1900,
61 gtm->tm_mon + 1,
62 gtm->tm_mday,
63 gtm->tm_hour,
64 gtm->tm_min,
65 gtm->tm_sec,
66 otype,
67 otests,
68 otries,
69 osize,
70 ogenerator)) {
71
72 return (-1);
73 }
74
75 if (1 > BN_print_fp(ofile, omodulus)) {
76 return (-1);
77 }
78
79 return (fprintf(ofile, "\n"));
80 }
81