srsd.c

   1 /******************************************************************************/
   2 /*          postlicyd: a postfix policy daemon with a lot of features         */
   3 /*          ~~~~~~~~~                                                         */
   4 /*  ________________________________________________________________________  */
   5 /*                                                                            */
   6 /*  Redistribution and use in source and binary forms, with or without        */
   7 /*  modification, are permitted provided that the following conditions        */
   8 /*  are met:                                                                  */
   9 /*                                                                            */
  10 /*  1. Redistributions of source code must retain the above copyright         */
  11 /*     notice, this list of conditions and the following disclaimer.          */
  12 /*  2. Redistributions in binary form must reproduce the above copyright      */
  13 /*     notice, this list of conditions and the following disclaimer in the    */
  14 /*     documentation and/or other materials provided with the distribution.   */
  15 /*  3. The names of its contributors may not be used to endorse or promote    */
  16 /*     products derived from this software without specific prior written     */
  17 /*     permission.                                                            */
  18 /*                                                                            */
  19 /*  THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND   */
  20 /*  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE     */
  21 /*  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR        */
  22 /*  PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS    */
  23 /*  BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR    */
  24 /*  CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF      */
  25 /*  SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS  */
  26 /*  INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN   */
  27 /*  CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)   */
  28 /*  ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF    */
  29 /*  THE POSSIBILITY OF SUCH DAMAGE.                                           */
  30 /******************************************************************************/
  31
  32 /*
  33  * Copyright © 2005-2007 Pierre Habouzit
  34  */
  35
  36 #include <fcntl.h>
  37 #include <sys/stat.h>
  38
  39 #include <srs2.h>
  40
  41 #include "common.h"
  42 #include "mem.h"
  43
  44 #define MAX_SIZE 0x10000
  45
  46 static char **read_sfile(char *sfile)
  47 {
  48     int fd  = -1;
  49     int pos = 0;
  50     int nb  = 0;
  51     int len = 0;
  52
  53     char  *buf = NULL;
  54     char **res = NULL;
  55
  56     struct stat stat_buf;
  57
  58     if (stat(sfile, &stat_buf)) {
  59         perror("stat");
  60         exit(1);
  61     }
  62
  63     if (stat_buf.st_size > MAX_SIZE) {
  64         fprintf(stderr, "the secret file is too big\n");
  65         exit(1);
  66     }
  67
  68     buf = p_new(char, stat_buf.st_size + 1);
  69
  70     if ((fd = open(sfile, O_RDONLY)) < 0) {
  71         perror("open");
  72         exit (1);
  73     }
  74
  75     for (;;) {
  76         if ((nb = read(fd, &(buf[pos]), stat_buf.st_size)) < 0) {
  77             if (errno == EINTR)
  78                 continue;
  79             perror("read");
  80             exit(1);
  81         }
  82         pos += nb;
  83         if (nb == 0 || pos == stat_buf.st_size) {
  84             close(fd);
  85             fd = -1;
  86             break;
  87         }
  88     }
  89
  90     for (nb = pos = 0; pos < stat_buf.st_size ; pos++) {
  91         if (buf[pos] == '\n') {
  92             nb++;
  93             buf[pos] = 0;
  94         }
  95     }
  96
  97     res = p_new(char*, nb + 2);
  98
  99     nb = pos = 0;
 100     while (pos < stat_buf.st_size) {
 101         len = strlen(&(buf[pos]));
 102         if (len) {
 103             res[nb++] = &(buf[pos]);
 104         }
 105         pos += len+1;
 106     }
 107
 108     return res;
 109 }
 110
 111
 112 static char *encode(char *secret, char *sender, char *alias)
 113 {
 114     int    err = 0;
 115     char  *res = NULL;
 116     srs_t *srs = srs_new();
 117
 118     srs_add_secret(srs, secret);
 119     err = srs_forward_alloc(srs, &res, sender, alias);
 120
 121     if (res == NULL) {
 122         fprintf(stderr, "%s\n", srs_strerror(err));
 123         exit (1);
 124     }
 125
 126     return res;
 127 }
 128
 129 static char *decode(char **secrets, char *sender)
 130 {
 131     int    err = 0;
 132     char  *res = NULL;
 133     srs_t *srs = srs_new();
 134
 135     while (*secrets) {
 136         srs_add_secret(srs, *secrets++);
 137     }
 138
 139     err = srs_reverse_alloc(srs, &res, sender);
 140
 141     if (res == NULL) {
 142         fprintf(stderr, "%s\n", srs_strerror(err));
 143         exit(1);
 144     }
 145
 146     return res;
 147 }
 148
 149 static void help(void)
 150 {
 151     puts(
 152             "Usage: srs-c [ -r | -d domain ] -f sfile -e sender\n"
 153             "Perform an SRS encoding / decoding\n"
 154             "\n"
 155             "    -r          perform an SRS decoding\n"
 156             "    -d domain   use that domain (required for encoding)\n"
 157             "\n"
 158             "    -f sfile    secret file for decoding.  the first line is taken if -s omitted\n"
 159             "\n"
 160             "    -e sender   the sender address we want to encode/decode\n"
 161           );
 162     exit (1);
 163 }
 164
 165 int main(int argc, char *argv[])
 166 {
 167     char *buf    = NULL;
 168     char *domain = NULL;
 169     char *sender = NULL;
 170     char *sfile  = NULL;
 171
 172     int    opt   = 0;
 173     bool   rev   = false;
 174     char **secr  = NULL;
 175
 176     while ((opt = getopt(argc, argv, "d:e:f:r")) != -1) {
 177         switch (opt) {
 178             case 'd': domain = optarg;  break;
 179             case 'e': sender = optarg;  break;
 180             case 'f': sfile  = optarg;  break;
 181             case 'r': rev    = true;    break;
 182         }
 183     }
 184
 185     if (!sender || !sfile || !(rev||domain)) {
 186         help ();
 187     }
 188
 189     if (sfile) {
 190         secr = read_sfile(sfile);
 191         if (!secr || !secr[0]) {
 192             fprintf(stderr, "No secret given, and secret file is empty\n");
 193             exit (1);
 194         }
 195     }
 196
 197     if (rev) {
 198         buf = decode(secr, sender);
 199     } else {
 200         buf = encode(secr[0], sender, domain);
 201     }
 202
 203     puts(buf);
 204     return 0;
 205 }