/* This Source Code Form is subject to the terms of the Mozilla Public
 * License, v. 2.0. If a copy of the MPL was not distributed with this
 * file, You can obtain one at http://mozilla.org/MPL/2.0/. */

/*
 * p7sign -- A command to create a *detached* pkcs7 signature (over a given
 * input file).
 */

#include "nspr.h"
#include "plgetopt.h"
#include "secutil.h"
#include "secpkcs7.h"
#include "cert.h"
#include "certdb.h"
#include "sechash.h" /* for HASH_GetHashObject() */
#include "nss.h"
#include "pk11func.h"

#if defined(XP_UNIX)
#include <unistd.h>
#endif

#include <stdio.h>
#include <string.h>

#if (defined(XP_WIN) && !defined(WIN32)) || (defined(__sun) && !defined(SVR4))
extern int fread(char *, size_t, size_t, FILE *);
extern int fwrite(char *, size_t, size_t, FILE *);
extern int fprintf(FILE *, char *, ...);
#endif

static secuPWData pwdata = { PW_NONE, 0 };

static void
Usage(char *progName)
{
    HASH_HashType hashAlg;

    fprintf(stderr,
            "Usage:  %s -k keyname [-d keydir] [-i input] [-o output] [-e]\n",
            progName);
    fprintf(stderr,
            "        %*s [-p password|-f password file] [-a hash] [-u certusage]\n",
            (int)strlen(progName), "");
    fprintf(stderr, "%-20s Nickname of key to use for signature\n",
            "-k keyname");
    fprintf(stderr, "%-20s Key database directory (default is ~/.netscape)\n",
            "-d keydir");
    fprintf(stderr, "%-20s Define an input file to use (default is stdin)\n",
            "-i input");
    fprintf(stderr, "%-20s Define an output file to use (default is stdout)\n",
            "-o output");
    fprintf(stderr, "%-20s Encapsulate content in signature message\n",
            "-e");
    fprintf(stderr, "%-20s Password to the key databse\n", "-p password");
    fprintf(stderr, "%-20s File to read password from\n", "-f password file");
    fprintf(stderr, "%-20s Use case-insensitive hash algorithm (default: SHA-1)\n",
            "-a hash");
    fprintf(stderr, "%-25s  ", "");
    for (hashAlg = HASH_AlgNULL + 1; hashAlg != HASH_AlgTOTAL; ++hashAlg)
        fprintf(stderr, "%s%s", hashAlg == HASH_AlgNULL + 1 ? "" : ", ",
                SECOID_FindOIDByTag(HASH_GetHashOidTagByHashType(hashAlg))->desc);
    fputc('\n', stderr);
    fprintf(stderr, "%-20s Sign for usage (default: certUsageEmailSigner)\n",
            "-u certusage");
    fprintf(stderr, "%-25s  0 - certUsageSSLClient\n", "");
    fprintf(stderr, "%-25s  1 - certUsageSSLServer\n", "");
    fprintf(stderr, "%-25s  2 - certUsageSSLServerWithStepUp\n", "");
    fprintf(stderr, "%-25s  3 - certUsageSSLCA\n", "");
    fprintf(stderr, "%-25s  4 - certUsageEmailSigner\n", "");
    fprintf(stderr, "%-25s  5 - certUsageEmailRecipient\n", "");
    fprintf(stderr, "%-25s  6 - certUsageObjectSigner\n", "");
    fprintf(stderr, "%-25s  7 - certUsageUserCertImport\n", "");
    fprintf(stderr, "%-25s  8 - certUsageVerifyCA\n", "");
    fprintf(stderr, "%-25s  9 - certUsageProtectedObjectSigner\n", "");
    fprintf(stderr, "%-25s 10 - certUsageStatusResponder\n", "");
    fprintf(stderr, "%-25s 11 - certUsageAnyCA\n", "");
    fprintf(stderr, "%-25s 12 - certUsageIPsec\n", "");
    exit(-1);
}

static void
SignOut(void *arg, const char *buf, unsigned long len)
{
    FILE *out;

    out = (FILE *)arg;
    fwrite(buf, len, 1, out);
}

static int
CreateDigest(SECItem *data, char *digestdata, unsigned int *len,
             unsigned int maxlen, HASH_HashType hashAlg)
{
    const SECHashObject *hashObj;
    void *hashcx;

    hashObj = HASH_GetHashObject(hashAlg);

    hashcx = (*hashObj->create)();
    if (hashcx == NULL)
        return -1;

    (*hashObj->begin)(hashcx);
    (*hashObj->update)(hashcx, data->data, data->len);
    (*hashObj->end)(hashcx, (unsigned char *)digestdata, len, maxlen);
    (*hashObj->destroy)(hashcx, PR_TRUE);
    return 0;
}

static int
SignFile(FILE *outFile, PRFileDesc *inFile, CERTCertificate *cert,
         PRBool encapsulated, HASH_HashType hashAlg, SECOidTag hashAlgOid,
         SECCertUsage usage)
{
    char digestdata[HASH_LENGTH_MAX];
    unsigned int len;
    SECItem digest, data2sign;
    SEC_PKCS7ContentInfo *cinfo;
    SECStatus rv;

    if (outFile == NULL || inFile == NULL || cert == NULL)
        return -1;

    /* suck the file in */
    if (SECU_ReadDERFromFile(&data2sign, inFile, PR_FALSE,
                             PR_FALSE) != SECSuccess)
        return -1;

    if (!encapsulated) {
        /* unfortunately, we must create the digest ourselves */
        /* SEC_PKCS7CreateSignedData should have a flag to not include */
        /* the content for non-encapsulated content at encode time, but */
        /* should always compute the hash itself */
        if (CreateDigest(&data2sign, digestdata, &len,
                         sizeof(digestdata), hashAlg) < 0) {
            SECITEM_FreeItem(&data2sign, PR_FALSE);
            return -1;
        }
        digest.data = (unsigned char *)digestdata;
        digest.len = len;
    }

    cinfo = SEC_PKCS7CreateSignedData(cert, usage, NULL,
                                      hashAlgOid,
                                      encapsulated ? NULL : &digest,
                                      NULL, NULL);
    if (cinfo == NULL) {
        SECITEM_FreeItem(&data2sign, PR_FALSE);
        return -1;
    }

    if (encapsulated) {
        SEC_PKCS7SetContent(cinfo, (char *)data2sign.data, data2sign.len);
    }

    rv = SEC_PKCS7IncludeCertChain(cinfo, NULL);
    if (rv != SECSuccess) {
        SEC_PKCS7DestroyContentInfo(cinfo);
        SECITEM_FreeItem(&data2sign, PR_FALSE);
        return -1;
    }

    rv = SEC_PKCS7Encode(cinfo, SignOut, outFile, NULL,
                         NULL, &pwdata);

    SECITEM_FreeItem(&data2sign, PR_FALSE);
    SEC_PKCS7DestroyContentInfo(cinfo);

    if (rv != SECSuccess)
        return -1;

    return 0;
}

int
main(int argc, char **argv)
{
    char *progName;
    FILE *outFile;
    PRFileDesc *inFile;
    char *keyName = NULL;
    CERTCertDBHandle *certHandle;
    CERTCertificate *cert = NULL;
    PRBool encapsulated = PR_FALSE;
    HASH_HashType hashAlg = HASH_AlgSHA1;
    SECOidTag hashAlgOid = SEC_OID_SHA1;
    SECCertUsage usage = certUsageEmailSigner;
    PLOptState *optstate;
    PLOptStatus status;
    SECStatus rv;

    progName = strrchr(argv[0], '/');
    progName = progName ? progName + 1 : argv[0];

    inFile = NULL;
    outFile = NULL;
    keyName = NULL;

    /*
     * Parse command line arguments
     */
    optstate = PL_CreateOptState(argc, argv, "ed:k:i:o:p:f:a:u:");
    while ((status = PL_GetNextOpt(optstate)) == PL_OPT_OK) {
        switch (optstate->option) {
            case '?':
                Usage(progName);
                break;

            case 'e':
                /* create a message with the signed content encapsulated */
                encapsulated = PR_TRUE;
                break;

            case 'd':
                SECU_ConfigDirectory(optstate->value);
                break;

            case 'i':
                inFile = PR_Open(optstate->value, PR_RDONLY, 0);
                if (!inFile) {
                    fprintf(stderr, "%s: unable to open \"%s\" for reading\n",
                            progName, optstate->value);
                    return -1;
                }
                break;

            case 'k':
                keyName = strdup(optstate->value);
                break;

            case 'o':
                outFile = fopen(optstate->value, "wb");
                if (!outFile) {
                    fprintf(stderr, "%s: unable to open \"%s\" for writing\n",
                            progName, optstate->value);
                    return -1;
                }
                break;
            case 'p':
                pwdata.source = PW_PLAINTEXT;
                pwdata.data = strdup(optstate->value);
                break;

            case 'f':
                pwdata.source = PW_FROMFILE;
                pwdata.data = PORT_Strdup(optstate->value);
                break;

            case 'a':
                for (hashAlg = HASH_AlgNULL + 1; hashAlg != HASH_AlgTOTAL;
                     ++hashAlg) {
                    hashAlgOid = HASH_GetHashOidTagByHashType(hashAlg);
                    if (!PORT_Strcasecmp(optstate->value,
                                         SECOID_FindOIDByTag(hashAlgOid)->desc))
                        break;
                }
                if (hashAlg == HASH_AlgTOTAL)
                    Usage(progName);
                break;

            case 'u':
                usage = atoi(optstate->value);
                if (usage < certUsageSSLClient || usage > certUsageIPsec)
                    Usage(progName);
                break;
        }
    }
    PL_DestroyOptState(optstate);

    if (!keyName)
        Usage(progName);

    if (!inFile)
        inFile = PR_STDIN;
    if (!outFile)
        outFile = stdout;

    /* Call the initialization routines */
    PR_Init(PR_SYSTEM_THREAD, PR_PRIORITY_NORMAL, 1);
    rv = NSS_Init(SECU_ConfigDirectory(NULL));
    if (rv != SECSuccess) {
        SECU_PrintPRandOSError(progName);
        goto loser;
    }

    PK11_SetPasswordFunc(SECU_GetModulePassword);

    /* open cert database */
    certHandle = CERT_GetDefaultCertDB();
    if (certHandle == NULL) {
        rv = SECFailure;
        goto loser;
    }

    /* find cert */
    cert = SECU_FindCertByNicknameOrFilename(certHandle, keyName, PR_FALSE, NULL);
    if (cert == NULL) {
        SECU_PrintError(progName,
                        "the corresponding cert for key \"%s\" does not exist",
                        keyName);
        rv = SECFailure;
        goto loser;
    }

    if (SignFile(outFile, inFile, cert, encapsulated,
                 hashAlg, hashAlgOid, usage)) {
        SECU_PrintError(progName, "problem signing data");
        rv = SECFailure;
        goto loser;
    }

loser:
    if (pwdata.data) {
        PORT_Free(pwdata.data);
    }
    if (keyName) {
        PORT_Free(keyName);
    }
    if (cert) {
        CERT_DestroyCertificate(cert);
    }
    if (inFile && inFile != PR_STDIN) {
        PR_Close(inFile);
    }
    if (outFile && outFile != stdout) {
        fclose(outFile);
    }
    if (NSS_Shutdown() != SECSuccess) {
        SECU_PrintError(progName, "NSS shutdown:");
        exit(1);
    }

    return (rv != SECSuccess);
}