.fix libssh source code for auto-build on Linux.
							parent
							
								
									5e22d70d19
								
							
						
					
					
						commit
						f30e6e3ba1
					
				
							
								
								
									
										22
									
								
								build.sh.in
								
								
								
								
							
							
						
						
									
										22
									
								
								build.sh.in
								
								
								
								
							| 
						 | 
				
			
			@ -16,14 +16,32 @@ function on_error()
 | 
			
		|||
 | 
			
		||||
function build_linux
 | 
			
		||||
{
 | 
			
		||||
	if [ `id -u` -eq 0 ]; then
 | 
			
		||||
		on_error "Do not build as root."
 | 
			
		||||
	fi
 | 
			
		||||
 | 
			
		||||
	if [ ! -f "/etc/centos-release" ] ; then
 | 
			
		||||
		on_error "Sorry, build script works on CentOS 7 only."
 | 
			
		||||
	fi
 | 
			
		||||
 | 
			
		||||
	X=$(yum list installed | grep "libffi-devel")
 | 
			
		||||
	if [ "$X-x" = "-x" ] ; then
 | 
			
		||||
		on_error "Need libffi-devel to build Python, try:\r\n    sudo yum install libffi-devel"
 | 
			
		||||
	fi
 | 
			
		||||
 | 
			
		||||
	X=$(yum list installed | grep "zlib-devel")
 | 
			
		||||
	if [ "$X-x" = "-x" ] ; then
 | 
			
		||||
		on_error "Need zlib-devel to build Python, try:\r\n    sudo yum install zlib-devel"
 | 
			
		||||
	fi
 | 
			
		||||
 | 
			
		||||
	PYEXEC=${PATH_ROOT}/external/linux/release/bin/python3.7
 | 
			
		||||
	PYSTATIC=${PATH_ROOT}/external/linux/release/lib/libpython3.7m.a
 | 
			
		||||
 | 
			
		||||
	if [ ! -f "${PYSTATIC}" ]; then
 | 
			
		||||
	if [ ! -f "${PYSTATIC}" ] ; then
 | 
			
		||||
		echo "python static not found, now build it..."
 | 
			
		||||
		"${PATH_ROOT}/build/build-py-static.sh"
 | 
			
		||||
 | 
			
		||||
		if [ ! -f "${PYSTATIC}" ]; then
 | 
			
		||||
		if [ ! -f "${PYSTATIC}" ] ; then
 | 
			
		||||
			on_error "can not build python static."
 | 
			
		||||
		fi
 | 
			
		||||
	fi
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -390,6 +390,13 @@ class BuilderLinux(BuilderBase):
 | 
			
		|||
            return
 | 
			
		||||
        cc.v('')
 | 
			
		||||
 | 
			
		||||
        cc.n('fix libssh source code... ', end='')
 | 
			
		||||
        s_name = 'libssh-{}'.format(env.ver_libssh)
 | 
			
		||||
        utils.ensure_file_exists(os.path.join(PATH_EXTERNAL, 'fix-external', 'libssh', s_name, 'src', 'libcrypto.c'))
 | 
			
		||||
        utils.ensure_file_exists(os.path.join(PATH_EXTERNAL, 'fix-external', 'libssh', s_name, 'src', 'libcrypto-compat.c'))
 | 
			
		||||
        utils.copy_file(os.path.join(PATH_EXTERNAL, 'fix-external', 'libssh', s_name, 'src'), os.path.join(self.LIBSSH_PATH_SRC, 'src'), 'libcrypto.c')
 | 
			
		||||
        utils.copy_file(os.path.join(PATH_EXTERNAL, 'fix-external', 'libssh', s_name, 'src'), os.path.join(self.LIBSSH_PATH_SRC, 'src'), 'libcrypto-compat.c')
 | 
			
		||||
 | 
			
		||||
        build_path = os.path.join(self.LIBSSH_PATH_SRC, 'build')
 | 
			
		||||
 | 
			
		||||
        cmake_define = ' -DCMAKE_INSTALL_PREFIX={path_release}' \
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
| 
						 | 
				
			
			@ -0,0 +1,337 @@
 | 
			
		|||
/*
 | 
			
		||||
 * Copyright 2016 The OpenSSL Project Authors. All Rights Reserved.
 | 
			
		||||
 *
 | 
			
		||||
 * Licensed under the OpenSSL license (the "License").  You may not use
 | 
			
		||||
 * this file except in compliance with the License.  You can obtain a copy
 | 
			
		||||
 * in the file LICENSE in the source distribution or at
 | 
			
		||||
 * https://www.openssl.org/source/license.html
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
#include "config.h"
 | 
			
		||||
 | 
			
		||||
#include <string.h>
 | 
			
		||||
#include <openssl/engine.h>
 | 
			
		||||
#include "libcrypto-compat.h"
 | 
			
		||||
 | 
			
		||||
static void *OPENSSL_zalloc(size_t num)
 | 
			
		||||
{
 | 
			
		||||
    void *ret = OPENSSL_malloc(num);
 | 
			
		||||
 | 
			
		||||
    if (ret != NULL)
 | 
			
		||||
        memset(ret, 0, num);
 | 
			
		||||
    return ret;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int RSA_set0_key(RSA *r, BIGNUM *n, BIGNUM *e, BIGNUM *d)
 | 
			
		||||
{
 | 
			
		||||
    /* If the fields n and e in r are NULL, the corresponding input
 | 
			
		||||
     * parameters MUST be non-NULL for n and e.  d may be
 | 
			
		||||
     * left NULL (in case only the public key is used).
 | 
			
		||||
     */
 | 
			
		||||
    if ((r->n == NULL && n == NULL)
 | 
			
		||||
        || (r->e == NULL && e == NULL))
 | 
			
		||||
        return 0;
 | 
			
		||||
 | 
			
		||||
    if (n != NULL) {
 | 
			
		||||
        BN_free(r->n);
 | 
			
		||||
        r->n = n;
 | 
			
		||||
    }
 | 
			
		||||
    if (e != NULL) {
 | 
			
		||||
        BN_free(r->e);
 | 
			
		||||
        r->e = e;
 | 
			
		||||
    }
 | 
			
		||||
    if (d != NULL) {
 | 
			
		||||
        BN_free(r->d);
 | 
			
		||||
        r->d = d;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int RSA_set0_factors(RSA *r, BIGNUM *p, BIGNUM *q)
 | 
			
		||||
{
 | 
			
		||||
    /* If the fields p and q in r are NULL, the corresponding input
 | 
			
		||||
     * parameters MUST be non-NULL.
 | 
			
		||||
     */
 | 
			
		||||
    if ((r->p == NULL && p == NULL)
 | 
			
		||||
        || (r->q == NULL && q == NULL))
 | 
			
		||||
        return 0;
 | 
			
		||||
 | 
			
		||||
    if (p != NULL) {
 | 
			
		||||
        BN_free(r->p);
 | 
			
		||||
        r->p = p;
 | 
			
		||||
    }
 | 
			
		||||
    if (q != NULL) {
 | 
			
		||||
        BN_free(r->q);
 | 
			
		||||
        r->q = q;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int RSA_set0_crt_params(RSA *r, BIGNUM *dmp1, BIGNUM *dmq1, BIGNUM *iqmp)
 | 
			
		||||
{
 | 
			
		||||
    /* If the fields dmp1, dmq1 and iqmp in r are NULL, the corresponding input
 | 
			
		||||
     * parameters MUST be non-NULL.
 | 
			
		||||
     */
 | 
			
		||||
    if ((r->dmp1 == NULL && dmp1 == NULL)
 | 
			
		||||
        || (r->dmq1 == NULL && dmq1 == NULL)
 | 
			
		||||
        || (r->iqmp == NULL && iqmp == NULL))
 | 
			
		||||
        return 0;
 | 
			
		||||
 | 
			
		||||
    if (dmp1 != NULL) {
 | 
			
		||||
        BN_free(r->dmp1);
 | 
			
		||||
        r->dmp1 = dmp1;
 | 
			
		||||
    }
 | 
			
		||||
    if (dmq1 != NULL) {
 | 
			
		||||
        BN_free(r->dmq1);
 | 
			
		||||
        r->dmq1 = dmq1;
 | 
			
		||||
    }
 | 
			
		||||
    if (iqmp != NULL) {
 | 
			
		||||
        BN_free(r->iqmp);
 | 
			
		||||
        r->iqmp = iqmp;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void RSA_get0_key(const RSA *r,
 | 
			
		||||
                  const BIGNUM **n, const BIGNUM **e, const BIGNUM **d)
 | 
			
		||||
{
 | 
			
		||||
    if (n != NULL)
 | 
			
		||||
        *n = r->n;
 | 
			
		||||
    if (e != NULL)
 | 
			
		||||
        *e = r->e;
 | 
			
		||||
    if (d != NULL)
 | 
			
		||||
        *d = r->d;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void RSA_get0_factors(const RSA *r, const BIGNUM **p, const BIGNUM **q)
 | 
			
		||||
{
 | 
			
		||||
    if (p != NULL)
 | 
			
		||||
        *p = r->p;
 | 
			
		||||
    if (q != NULL)
 | 
			
		||||
        *q = r->q;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void RSA_get0_crt_params(const RSA *r,
 | 
			
		||||
                         const BIGNUM **dmp1, const BIGNUM **dmq1,
 | 
			
		||||
                         const BIGNUM **iqmp)
 | 
			
		||||
{
 | 
			
		||||
    if (dmp1 != NULL)
 | 
			
		||||
        *dmp1 = r->dmp1;
 | 
			
		||||
    if (dmq1 != NULL)
 | 
			
		||||
        *dmq1 = r->dmq1;
 | 
			
		||||
    if (iqmp != NULL)
 | 
			
		||||
        *iqmp = r->iqmp;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void DSA_get0_pqg(const DSA *d,
 | 
			
		||||
                  const BIGNUM **p, const BIGNUM **q, const BIGNUM **g)
 | 
			
		||||
{
 | 
			
		||||
    if (p != NULL)
 | 
			
		||||
        *p = d->p;
 | 
			
		||||
    if (q != NULL)
 | 
			
		||||
        *q = d->q;
 | 
			
		||||
    if (g != NULL)
 | 
			
		||||
        *g = d->g;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int DSA_set0_pqg(DSA *d, BIGNUM *p, BIGNUM *q, BIGNUM *g)
 | 
			
		||||
{
 | 
			
		||||
    /* If the fields p, q and g in d are NULL, the corresponding input
 | 
			
		||||
     * parameters MUST be non-NULL.
 | 
			
		||||
     */
 | 
			
		||||
    if ((d->p == NULL && p == NULL)
 | 
			
		||||
        || (d->q == NULL && q == NULL)
 | 
			
		||||
        || (d->g == NULL && g == NULL))
 | 
			
		||||
        return 0;
 | 
			
		||||
 | 
			
		||||
    if (p != NULL) {
 | 
			
		||||
        BN_free(d->p);
 | 
			
		||||
        d->p = p;
 | 
			
		||||
    }
 | 
			
		||||
    if (q != NULL) {
 | 
			
		||||
        BN_free(d->q);
 | 
			
		||||
        d->q = q;
 | 
			
		||||
    }
 | 
			
		||||
    if (g != NULL) {
 | 
			
		||||
        BN_free(d->g);
 | 
			
		||||
        d->g = g;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void DSA_get0_key(const DSA *d,
 | 
			
		||||
                  const BIGNUM **pub_key, const BIGNUM **priv_key)
 | 
			
		||||
{
 | 
			
		||||
    if (pub_key != NULL)
 | 
			
		||||
        *pub_key = d->pub_key;
 | 
			
		||||
    if (priv_key != NULL)
 | 
			
		||||
        *priv_key = d->priv_key;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int DSA_set0_key(DSA *d, BIGNUM *pub_key, BIGNUM *priv_key)
 | 
			
		||||
{
 | 
			
		||||
    /* If the field pub_key in d is NULL, the corresponding input
 | 
			
		||||
     * parameters MUST be non-NULL.  The priv_key field may
 | 
			
		||||
     * be left NULL.
 | 
			
		||||
     */
 | 
			
		||||
    if (d->pub_key == NULL && pub_key == NULL)
 | 
			
		||||
        return 0;
 | 
			
		||||
 | 
			
		||||
    if (pub_key != NULL) {
 | 
			
		||||
        BN_free(d->pub_key);
 | 
			
		||||
        d->pub_key = pub_key;
 | 
			
		||||
    }
 | 
			
		||||
    if (priv_key != NULL) {
 | 
			
		||||
        BN_free(d->priv_key);
 | 
			
		||||
        d->priv_key = priv_key;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void DSA_SIG_get0(const DSA_SIG *sig, const BIGNUM **pr, const BIGNUM **ps)
 | 
			
		||||
{
 | 
			
		||||
    if (pr != NULL)
 | 
			
		||||
        *pr = sig->r;
 | 
			
		||||
    if (ps != NULL)
 | 
			
		||||
        *ps = sig->s;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int DSA_SIG_set0(DSA_SIG *sig, BIGNUM *r, BIGNUM *s)
 | 
			
		||||
{
 | 
			
		||||
    if (r == NULL || s == NULL)
 | 
			
		||||
        return 0;
 | 
			
		||||
    BN_clear_free(sig->r);
 | 
			
		||||
    BN_clear_free(sig->s);
 | 
			
		||||
    sig->r = r;
 | 
			
		||||
    sig->s = s;
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void ECDSA_SIG_get0(const ECDSA_SIG *sig, const BIGNUM **pr, const BIGNUM **ps)
 | 
			
		||||
{
 | 
			
		||||
    if (pr != NULL)
 | 
			
		||||
        *pr = sig->r;
 | 
			
		||||
    if (ps != NULL)
 | 
			
		||||
        *ps = sig->s;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int ECDSA_SIG_set0(ECDSA_SIG *sig, BIGNUM *r, BIGNUM *s)
 | 
			
		||||
{
 | 
			
		||||
    if (r == NULL || s == NULL)
 | 
			
		||||
        return 0;
 | 
			
		||||
    BN_clear_free(sig->r);
 | 
			
		||||
    BN_clear_free(sig->s);
 | 
			
		||||
    sig->r = r;
 | 
			
		||||
    sig->s = s;
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
EVP_MD_CTX *EVP_MD_CTX_new(void)
 | 
			
		||||
{
 | 
			
		||||
    return OPENSSL_zalloc(sizeof(EVP_MD_CTX));
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void OPENSSL_clear_free(void *str, size_t num)
 | 
			
		||||
{
 | 
			
		||||
    if (str == NULL)
 | 
			
		||||
        return;
 | 
			
		||||
    if (num)
 | 
			
		||||
        OPENSSL_cleanse(str, num);
 | 
			
		||||
    OPENSSL_free(str);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/* This call frees resources associated with the context */
 | 
			
		||||
int EVP_MD_CTX_reset(EVP_MD_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    if (ctx == NULL)
 | 
			
		||||
        return 1;
 | 
			
		||||
 | 
			
		||||
    /*
 | 
			
		||||
     * Don't assume ctx->md_data was cleaned in EVP_Digest_Final, because
 | 
			
		||||
     * sometimes only copies of the context are ever finalised.
 | 
			
		||||
     */
 | 
			
		||||
    if (ctx->digest && ctx->digest->cleanup
 | 
			
		||||
        && !EVP_MD_CTX_test_flags(ctx, EVP_MD_CTX_FLAG_CLEANED))
 | 
			
		||||
        ctx->digest->cleanup(ctx);
 | 
			
		||||
    if (ctx->digest && ctx->digest->ctx_size && ctx->md_data
 | 
			
		||||
        && !EVP_MD_CTX_test_flags(ctx, EVP_MD_CTX_FLAG_REUSE)) {
 | 
			
		||||
        OPENSSL_clear_free(ctx->md_data, ctx->digest->ctx_size);
 | 
			
		||||
    }
 | 
			
		||||
    EVP_PKEY_CTX_free(ctx->pctx);
 | 
			
		||||
#ifndef OPENSSL_NO_ENGINE
 | 
			
		||||
    ENGINE_finish(ctx->engine);
 | 
			
		||||
#endif
 | 
			
		||||
    OPENSSL_cleanse(ctx, sizeof(*ctx));
 | 
			
		||||
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void EVP_MD_CTX_free(EVP_MD_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    EVP_MD_CTX_reset(ctx);
 | 
			
		||||
    OPENSSL_free(ctx);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
HMAC_CTX *HMAC_CTX_new(void)
 | 
			
		||||
{
 | 
			
		||||
    HMAC_CTX *ctx = OPENSSL_zalloc(sizeof(HMAC_CTX));
 | 
			
		||||
 | 
			
		||||
    if (ctx != NULL) {
 | 
			
		||||
        if (!HMAC_CTX_reset(ctx)) {
 | 
			
		||||
            HMAC_CTX_free(ctx);
 | 
			
		||||
            return NULL;
 | 
			
		||||
        }
 | 
			
		||||
    }
 | 
			
		||||
    return ctx;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void hmac_ctx_cleanup(HMAC_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    EVP_MD_CTX_reset(&ctx->i_ctx);
 | 
			
		||||
    EVP_MD_CTX_reset(&ctx->o_ctx);
 | 
			
		||||
    EVP_MD_CTX_reset(&ctx->md_ctx);
 | 
			
		||||
    ctx->md = NULL;
 | 
			
		||||
    ctx->key_length = 0;
 | 
			
		||||
    OPENSSL_cleanse(ctx->key, sizeof(ctx->key));
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void HMAC_CTX_free(HMAC_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    if (ctx != NULL) {
 | 
			
		||||
        hmac_ctx_cleanup(ctx);
 | 
			
		||||
#if OPENSSL_VERSION_NUMBER > 0x10100000L
 | 
			
		||||
        EVP_MD_CTX_free(&ctx->i_ctx);
 | 
			
		||||
        EVP_MD_CTX_free(&ctx->o_ctx);
 | 
			
		||||
        EVP_MD_CTX_free(&ctx->md_ctx);
 | 
			
		||||
#endif
 | 
			
		||||
        OPENSSL_free(ctx);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
int HMAC_CTX_reset(HMAC_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    HMAC_CTX_init(ctx);
 | 
			
		||||
    return 1;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#if 0 // by apex.liu
 | 
			
		||||
#ifndef HAVE_OPENSSL_EVP_CIPHER_CTX_NEW
 | 
			
		||||
EVP_CIPHER_CTX *EVP_CIPHER_CTX_new(void)
 | 
			
		||||
{
 | 
			
		||||
    return OPENSSL_zalloc(sizeof(EVP_CIPHER_CTX));
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void EVP_CIPHER_CTX_free(EVP_CIPHER_CTX *ctx)
 | 
			
		||||
{
 | 
			
		||||
    /* EVP_CIPHER_CTX_reset(ctx); alias */
 | 
			
		||||
    EVP_CIPHER_CTX_init(ctx);
 | 
			
		||||
    OPENSSL_free(ctx);
 | 
			
		||||
}
 | 
			
		||||
#endif
 | 
			
		||||
#endif // endif by apex.liu
 | 
			
		||||
 | 
			
		||||
| 
						 | 
				
			
			@ -0,0 +1,849 @@
 | 
			
		|||
/*
 | 
			
		||||
 * This file is part of the SSH Library
 | 
			
		||||
 *
 | 
			
		||||
 * Copyright (c) 2009 by Aris Adamantiadis
 | 
			
		||||
 *
 | 
			
		||||
 * The SSH Library is free software; you can redistribute it and/or modify
 | 
			
		||||
 * it under the terms of the GNU Lesser General Public License as published by
 | 
			
		||||
 * the Free Software Foundation; either version 2.1 of the License, or (at your
 | 
			
		||||
 * option) any later version.
 | 
			
		||||
 *
 | 
			
		||||
 * The SSH Library is distributed in the hope that it will be useful, but
 | 
			
		||||
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
 | 
			
		||||
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
 | 
			
		||||
 * License for more details.
 | 
			
		||||
 *
 | 
			
		||||
 * You should have received a copy of the GNU Lesser General Public License
 | 
			
		||||
 * along with the SSH Library; see the file COPYING.  If not, write to
 | 
			
		||||
 * the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
 | 
			
		||||
 * MA 02111-1307, USA.
 | 
			
		||||
 */
 | 
			
		||||
 | 
			
		||||
#include "config.h"
 | 
			
		||||
 | 
			
		||||
#include <stdlib.h>
 | 
			
		||||
#include <stdio.h>
 | 
			
		||||
#include <string.h>
 | 
			
		||||
#ifdef HAVE_SYS_TIME_H
 | 
			
		||||
#include <sys/time.h>
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
#include "libssh/priv.h"
 | 
			
		||||
#include "libssh/session.h"
 | 
			
		||||
#include "libssh/crypto.h"
 | 
			
		||||
#include "libssh/wrapper.h"
 | 
			
		||||
#include "libssh/libcrypto.h"
 | 
			
		||||
 | 
			
		||||
#ifdef HAVE_LIBCRYPTO
 | 
			
		||||
 | 
			
		||||
#include <openssl/sha.h>
 | 
			
		||||
#include <openssl/md5.h>
 | 
			
		||||
#include <openssl/dsa.h>
 | 
			
		||||
#include <openssl/rsa.h>
 | 
			
		||||
#include <openssl/hmac.h>
 | 
			
		||||
#include <openssl/opensslv.h>
 | 
			
		||||
#include <openssl/rand.h>
 | 
			
		||||
#include "libcrypto-compat.h"
 | 
			
		||||
 | 
			
		||||
#ifdef HAVE_OPENSSL_AES_H
 | 
			
		||||
#define HAS_AES
 | 
			
		||||
#include <openssl/aes.h>
 | 
			
		||||
#endif
 | 
			
		||||
#ifdef HAVE_OPENSSL_DES_H
 | 
			
		||||
#define HAS_DES
 | 
			
		||||
#include <openssl/des.h>
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
#if (OPENSSL_VERSION_NUMBER<0x00907000L)
 | 
			
		||||
#define OLD_CRYPTO
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
#include "libssh/crypto.h"
 | 
			
		||||
 | 
			
		||||
struct ssh_mac_ctx_struct {
 | 
			
		||||
  enum ssh_mac_e mac_type;
 | 
			
		||||
  union {
 | 
			
		||||
    SHACTX sha1_ctx;
 | 
			
		||||
    SHA256CTX sha256_ctx;
 | 
			
		||||
    SHA384CTX sha384_ctx;
 | 
			
		||||
    SHA512CTX sha512_ctx;
 | 
			
		||||
  } ctx;
 | 
			
		||||
};
 | 
			
		||||
 | 
			
		||||
static int libcrypto_initialized = 0;
 | 
			
		||||
 | 
			
		||||
void ssh_reseed(void){
 | 
			
		||||
#ifndef _WIN32
 | 
			
		||||
    struct timeval tv;
 | 
			
		||||
    gettimeofday(&tv, NULL);
 | 
			
		||||
    RAND_add(&tv, sizeof(tv), 0.0);
 | 
			
		||||
#endif
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/**
 | 
			
		||||
 * @brief Get random bytes
 | 
			
		||||
 *
 | 
			
		||||
 * Make sure to always check the return code of this function!
 | 
			
		||||
 *
 | 
			
		||||
 * @param[in]  where    The buffer to fill with random bytes
 | 
			
		||||
 *
 | 
			
		||||
 * @param[in]  len      The size of the buffer to fill.
 | 
			
		||||
 *
 | 
			
		||||
 * @param[in]  strong   Use a strong or private RNG source.
 | 
			
		||||
 *
 | 
			
		||||
 * @return 1 on success, 0 on error.
 | 
			
		||||
 */
 | 
			
		||||
int ssh_get_random(void *where, int len, int strong)
 | 
			
		||||
{
 | 
			
		||||
#ifdef HAVE_OPENSSL_RAND_PRIV_BYTES
 | 
			
		||||
    if (strong) {
 | 
			
		||||
        /* Returns -1 when not supported, 0 on error, 1 on success */
 | 
			
		||||
        return !!RAND_priv_bytes(where, len);
 | 
			
		||||
    }
 | 
			
		||||
#else
 | 
			
		||||
    (void)strong;
 | 
			
		||||
#endif /* HAVE_RAND_PRIV_BYTES */
 | 
			
		||||
 | 
			
		||||
    /* Returns -1 when not supported, 0 on error, 1 on success */
 | 
			
		||||
    return !!RAND_bytes(where, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
SHACTX sha1_init(void)
 | 
			
		||||
{
 | 
			
		||||
    int rc;
 | 
			
		||||
    SHACTX c = EVP_MD_CTX_create();
 | 
			
		||||
    if (c == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_MD_CTX_init(c);
 | 
			
		||||
    rc = EVP_DigestInit_ex(c, EVP_sha1(), NULL);
 | 
			
		||||
    if (rc == 0) {
 | 
			
		||||
        EVP_MD_CTX_destroy(c);
 | 
			
		||||
        c = NULL;
 | 
			
		||||
    }
 | 
			
		||||
    return c;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha1_update(SHACTX c, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(c, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha1_final(unsigned char *md, SHACTX c)
 | 
			
		||||
{
 | 
			
		||||
    unsigned int mdlen = 0;
 | 
			
		||||
 | 
			
		||||
    EVP_DigestFinal(c, md, &mdlen);
 | 
			
		||||
    EVP_MD_CTX_destroy(c);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha1(unsigned char *digest, int len, unsigned char *hash)
 | 
			
		||||
{
 | 
			
		||||
    SHACTX c = sha1_init();
 | 
			
		||||
    if (c != NULL) {
 | 
			
		||||
        sha1_update(c, digest, len);
 | 
			
		||||
        sha1_final(hash, c);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#ifdef HAVE_OPENSSL_ECC
 | 
			
		||||
static const EVP_MD *nid_to_evpmd(int nid)
 | 
			
		||||
{
 | 
			
		||||
    switch (nid) {
 | 
			
		||||
        case NID_X9_62_prime256v1:
 | 
			
		||||
            return EVP_sha256();
 | 
			
		||||
        case NID_secp384r1:
 | 
			
		||||
            return EVP_sha384();
 | 
			
		||||
        case NID_secp521r1:
 | 
			
		||||
            return EVP_sha512();
 | 
			
		||||
        default:
 | 
			
		||||
            return NULL;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    return NULL;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void evp(int nid, unsigned char *digest, int len, unsigned char *hash, unsigned int *hlen)
 | 
			
		||||
{
 | 
			
		||||
    const EVP_MD *evp_md = nid_to_evpmd(nid);
 | 
			
		||||
    EVP_MD_CTX *md = EVP_MD_CTX_new();
 | 
			
		||||
 | 
			
		||||
    EVP_DigestInit(md, evp_md);
 | 
			
		||||
    EVP_DigestUpdate(md, digest, len);
 | 
			
		||||
    EVP_DigestFinal(md, hash, hlen);
 | 
			
		||||
    EVP_MD_CTX_free(md);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
EVPCTX evp_init(int nid)
 | 
			
		||||
{
 | 
			
		||||
    const EVP_MD *evp_md = nid_to_evpmd(nid);
 | 
			
		||||
 | 
			
		||||
    EVPCTX ctx = EVP_MD_CTX_new();
 | 
			
		||||
    if (ctx == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    EVP_DigestInit(ctx, evp_md);
 | 
			
		||||
 | 
			
		||||
    return ctx;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void evp_update(EVPCTX ctx, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(ctx, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void evp_final(EVPCTX ctx, unsigned char *md, unsigned int *mdlen)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestFinal(ctx, md, mdlen);
 | 
			
		||||
    EVP_MD_CTX_free(ctx);
 | 
			
		||||
}
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
SHA256CTX sha256_init(void)
 | 
			
		||||
{
 | 
			
		||||
    int rc;
 | 
			
		||||
    SHA256CTX c = EVP_MD_CTX_create();
 | 
			
		||||
    if (c == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_MD_CTX_init(c);
 | 
			
		||||
    rc = EVP_DigestInit_ex(c, EVP_sha256(), NULL);
 | 
			
		||||
    if (rc == 0) {
 | 
			
		||||
        EVP_MD_CTX_destroy(c);
 | 
			
		||||
        c = NULL;
 | 
			
		||||
    }
 | 
			
		||||
    return c;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha256_update(SHA256CTX c, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(c, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha256_final(unsigned char *md, SHA256CTX c)
 | 
			
		||||
{
 | 
			
		||||
    unsigned int mdlen = 0;
 | 
			
		||||
 | 
			
		||||
    EVP_DigestFinal(c, md, &mdlen);
 | 
			
		||||
    EVP_MD_CTX_destroy(c);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha256(unsigned char *digest, int len, unsigned char *hash)
 | 
			
		||||
{
 | 
			
		||||
    SHA256CTX c = sha256_init();
 | 
			
		||||
    if (c != NULL) {
 | 
			
		||||
        sha256_update(c, digest, len);
 | 
			
		||||
        sha256_final(hash, c);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
SHA384CTX sha384_init(void)
 | 
			
		||||
{
 | 
			
		||||
    int rc;
 | 
			
		||||
    SHA384CTX c = EVP_MD_CTX_create();
 | 
			
		||||
    if (c == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_MD_CTX_init(c);
 | 
			
		||||
    rc = EVP_DigestInit_ex(c, EVP_sha384(), NULL);
 | 
			
		||||
    if (rc == 0) {
 | 
			
		||||
        EVP_MD_CTX_destroy(c);
 | 
			
		||||
        c = NULL;
 | 
			
		||||
    }
 | 
			
		||||
    return c;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha384_update(SHA384CTX c, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(c, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha384_final(unsigned char *md, SHA384CTX c)
 | 
			
		||||
{
 | 
			
		||||
    unsigned int mdlen = 0;
 | 
			
		||||
 | 
			
		||||
    EVP_DigestFinal(c, md, &mdlen);
 | 
			
		||||
    EVP_MD_CTX_destroy(c);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha384(unsigned char *digest, int len, unsigned char *hash)
 | 
			
		||||
{
 | 
			
		||||
    SHA384CTX c = sha384_init();
 | 
			
		||||
    if (c != NULL) {
 | 
			
		||||
        sha384_update(c, digest, len);
 | 
			
		||||
        sha384_final(hash, c);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
SHA512CTX sha512_init(void)
 | 
			
		||||
{
 | 
			
		||||
    int rc = 0;
 | 
			
		||||
    SHA512CTX c = EVP_MD_CTX_create();
 | 
			
		||||
    if (c == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_MD_CTX_init(c);
 | 
			
		||||
    rc = EVP_DigestInit_ex(c, EVP_sha512(), NULL);
 | 
			
		||||
    if (rc == 0) {
 | 
			
		||||
        EVP_MD_CTX_destroy(c);
 | 
			
		||||
        c = NULL;
 | 
			
		||||
    }
 | 
			
		||||
    return c;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha512_update(SHA512CTX c, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(c, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha512_final(unsigned char *md, SHA512CTX c)
 | 
			
		||||
{
 | 
			
		||||
    unsigned int mdlen = 0;
 | 
			
		||||
 | 
			
		||||
    EVP_DigestFinal(c, md, &mdlen);
 | 
			
		||||
    EVP_MD_CTX_destroy(c);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void sha512(unsigned char *digest, int len, unsigned char *hash)
 | 
			
		||||
{
 | 
			
		||||
    SHA512CTX c = sha512_init();
 | 
			
		||||
    if (c != NULL) {
 | 
			
		||||
        sha512_update(c, digest, len);
 | 
			
		||||
        sha512_final(hash, c);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
MD5CTX md5_init(void)
 | 
			
		||||
{
 | 
			
		||||
    int rc;
 | 
			
		||||
    MD5CTX c = EVP_MD_CTX_create();
 | 
			
		||||
    if (c == NULL) {
 | 
			
		||||
        return NULL;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_MD_CTX_init(c);
 | 
			
		||||
    rc = EVP_DigestInit_ex(c, EVP_md5(), NULL);
 | 
			
		||||
    if(rc == 0) {
 | 
			
		||||
        EVP_MD_CTX_destroy(c);
 | 
			
		||||
        c = NULL;
 | 
			
		||||
    }
 | 
			
		||||
    return c;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void md5_update(MD5CTX c, const void *data, unsigned long len)
 | 
			
		||||
{
 | 
			
		||||
    EVP_DigestUpdate(c, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void md5_final(unsigned char *md, MD5CTX c)
 | 
			
		||||
{
 | 
			
		||||
    unsigned int mdlen = 0;
 | 
			
		||||
 | 
			
		||||
    EVP_DigestFinal(c, md, &mdlen);
 | 
			
		||||
    EVP_MD_CTX_destroy(c);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
ssh_mac_ctx ssh_mac_ctx_init(enum ssh_mac_e type){
 | 
			
		||||
  ssh_mac_ctx ctx = malloc(sizeof(struct ssh_mac_ctx_struct));
 | 
			
		||||
  if (ctx == NULL) {
 | 
			
		||||
    return NULL;
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
  ctx->mac_type=type;
 | 
			
		||||
  switch(type){
 | 
			
		||||
    case SSH_MAC_SHA1:
 | 
			
		||||
      ctx->ctx.sha1_ctx = sha1_init();
 | 
			
		||||
      return ctx;
 | 
			
		||||
    case SSH_MAC_SHA256:
 | 
			
		||||
      ctx->ctx.sha256_ctx = sha256_init();
 | 
			
		||||
      return ctx;
 | 
			
		||||
    case SSH_MAC_SHA384:
 | 
			
		||||
      ctx->ctx.sha384_ctx = sha384_init();
 | 
			
		||||
      return ctx;
 | 
			
		||||
    case SSH_MAC_SHA512:
 | 
			
		||||
      ctx->ctx.sha512_ctx = sha512_init();
 | 
			
		||||
      return ctx;
 | 
			
		||||
    default:
 | 
			
		||||
      SAFE_FREE(ctx);
 | 
			
		||||
      return NULL;
 | 
			
		||||
  }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void ssh_mac_update(ssh_mac_ctx ctx, const void *data, unsigned long len) {
 | 
			
		||||
  switch(ctx->mac_type){
 | 
			
		||||
    case SSH_MAC_SHA1:
 | 
			
		||||
      sha1_update(ctx->ctx.sha1_ctx, data, len);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA256:
 | 
			
		||||
      sha256_update(ctx->ctx.sha256_ctx, data, len);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA384:
 | 
			
		||||
      sha384_update(ctx->ctx.sha384_ctx, data, len);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA512:
 | 
			
		||||
      sha512_update(ctx->ctx.sha512_ctx, data, len);
 | 
			
		||||
      break;
 | 
			
		||||
    default:
 | 
			
		||||
      break;
 | 
			
		||||
  }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void ssh_mac_final(unsigned char *md, ssh_mac_ctx ctx) {
 | 
			
		||||
  switch(ctx->mac_type){
 | 
			
		||||
    case SSH_MAC_SHA1:
 | 
			
		||||
      sha1_final(md,ctx->ctx.sha1_ctx);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA256:
 | 
			
		||||
      sha256_final(md,ctx->ctx.sha256_ctx);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA384:
 | 
			
		||||
      sha384_final(md,ctx->ctx.sha384_ctx);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_MAC_SHA512:
 | 
			
		||||
      sha512_final(md,ctx->ctx.sha512_ctx);
 | 
			
		||||
      break;
 | 
			
		||||
    default:
 | 
			
		||||
      break;
 | 
			
		||||
  }
 | 
			
		||||
  SAFE_FREE(ctx);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
HMACCTX hmac_init(const void *key, int len, enum ssh_hmac_e type) {
 | 
			
		||||
  HMACCTX ctx = NULL;
 | 
			
		||||
 | 
			
		||||
  ctx = HMAC_CTX_new();
 | 
			
		||||
  if (ctx == NULL) {
 | 
			
		||||
    return NULL;
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
#ifndef OLD_CRYPTO
 | 
			
		||||
  HMAC_CTX_reset(ctx); // openssl 0.9.7 requires it.
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
  switch(type) {
 | 
			
		||||
    case SSH_HMAC_SHA1:
 | 
			
		||||
      HMAC_Init_ex(ctx, key, len, EVP_sha1(), NULL);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_HMAC_SHA256:
 | 
			
		||||
      HMAC_Init_ex(ctx, key, len, EVP_sha256(), NULL);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_HMAC_SHA384:
 | 
			
		||||
      HMAC_Init_ex(ctx, key, len, EVP_sha384(), NULL);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_HMAC_SHA512:
 | 
			
		||||
      HMAC_Init_ex(ctx, key, len, EVP_sha512(), NULL);
 | 
			
		||||
      break;
 | 
			
		||||
    case SSH_HMAC_MD5:
 | 
			
		||||
      HMAC_Init_ex(ctx, key, len, EVP_md5(), NULL);
 | 
			
		||||
      break;
 | 
			
		||||
    default:
 | 
			
		||||
      HMAC_CTX_free(ctx);
 | 
			
		||||
      SAFE_FREE(ctx);
 | 
			
		||||
      ctx = NULL;
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
  return ctx;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void hmac_update(HMACCTX ctx, const void *data, unsigned long len) {
 | 
			
		||||
  HMAC_Update(ctx, data, len);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
void hmac_final(HMACCTX ctx, unsigned char *hashmacbuf, unsigned int *len) {
 | 
			
		||||
  HMAC_Final(ctx,hashmacbuf,len);
 | 
			
		||||
 | 
			
		||||
#ifndef OLD_CRYPTO
 | 
			
		||||
  HMAC_CTX_free(ctx);
 | 
			
		||||
  ctx = NULL;
 | 
			
		||||
#else
 | 
			
		||||
  HMAC_cleanup(ctx);
 | 
			
		||||
#endif
 | 
			
		||||
 | 
			
		||||
  SAFE_FREE(ctx);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void evp_cipher_init(struct ssh_cipher_struct *cipher) {
 | 
			
		||||
    if (cipher->ctx == NULL) {
 | 
			
		||||
        cipher->ctx = EVP_CIPHER_CTX_new();
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    switch(cipher->ciphertype){
 | 
			
		||||
    case SSH_AES128_CBC:
 | 
			
		||||
        cipher->cipher = EVP_aes_128_cbc();
 | 
			
		||||
        break;
 | 
			
		||||
    case SSH_AES192_CBC:
 | 
			
		||||
        cipher->cipher = EVP_aes_192_cbc();
 | 
			
		||||
        break;
 | 
			
		||||
    case SSH_AES256_CBC:
 | 
			
		||||
        cipher->cipher = EVP_aes_256_cbc();
 | 
			
		||||
        break;
 | 
			
		||||
#ifdef HAVE_OPENSSL_EVP_AES_CTR
 | 
			
		||||
    case SSH_AES128_CTR:
 | 
			
		||||
        cipher->cipher = EVP_aes_128_ctr();
 | 
			
		||||
        break;
 | 
			
		||||
    case SSH_AES192_CTR:
 | 
			
		||||
        cipher->cipher = EVP_aes_192_ctr();
 | 
			
		||||
        break;
 | 
			
		||||
    case SSH_AES256_CTR:
 | 
			
		||||
        cipher->cipher = EVP_aes_256_ctr();
 | 
			
		||||
        break;
 | 
			
		||||
#else
 | 
			
		||||
    case SSH_AES128_CTR:
 | 
			
		||||
    case SSH_AES192_CTR:
 | 
			
		||||
    case SSH_AES256_CTR:
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "This cipher is not available in evp_cipher_init");
 | 
			
		||||
        break;
 | 
			
		||||
#endif
 | 
			
		||||
    case SSH_3DES_CBC:
 | 
			
		||||
        cipher->cipher = EVP_des_ede3_cbc();
 | 
			
		||||
        break;
 | 
			
		||||
    case SSH_BLOWFISH_CBC:
 | 
			
		||||
        cipher->cipher = EVP_bf_cbc();
 | 
			
		||||
        break;
 | 
			
		||||
        /* ciphers not using EVP */
 | 
			
		||||
    case SSH_NO_CIPHER:
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "No valid ciphertype found");
 | 
			
		||||
        break;
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static int evp_cipher_set_encrypt_key(struct ssh_cipher_struct *cipher,
 | 
			
		||||
            void *key, void *IV)
 | 
			
		||||
{
 | 
			
		||||
    int rc;
 | 
			
		||||
 | 
			
		||||
    evp_cipher_init(cipher);
 | 
			
		||||
    EVP_CIPHER_CTX_init(cipher->ctx);
 | 
			
		||||
 | 
			
		||||
    rc = EVP_EncryptInit_ex(cipher->ctx, cipher->cipher, NULL, key, IV);
 | 
			
		||||
    if (rc != 1){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "EVP_EncryptInit_ex failed");
 | 
			
		||||
        return SSH_ERROR;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_CIPHER_CTX_set_padding(cipher->ctx, 0);
 | 
			
		||||
 | 
			
		||||
    return SSH_OK;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static int evp_cipher_set_decrypt_key(struct ssh_cipher_struct *cipher,
 | 
			
		||||
            void *key, void *IV) {
 | 
			
		||||
    int rc;
 | 
			
		||||
 | 
			
		||||
    evp_cipher_init(cipher);
 | 
			
		||||
    EVP_CIPHER_CTX_init(cipher->ctx);
 | 
			
		||||
 | 
			
		||||
    rc = EVP_DecryptInit_ex(cipher->ctx, cipher->cipher, NULL, key, IV);
 | 
			
		||||
    if (rc != 1){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "EVP_DecryptInit_ex failed");
 | 
			
		||||
        return SSH_ERROR;
 | 
			
		||||
    }
 | 
			
		||||
    EVP_CIPHER_CTX_set_padding(cipher->ctx, 0);
 | 
			
		||||
 | 
			
		||||
    return SSH_OK;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/* EVP wrapper function for encrypt/decrypt */
 | 
			
		||||
static void evp_cipher_encrypt(struct ssh_cipher_struct *cipher,
 | 
			
		||||
                        void *in,
 | 
			
		||||
                        void *out,
 | 
			
		||||
                        unsigned long len) {
 | 
			
		||||
    int outlen = 0;
 | 
			
		||||
    int rc = 0;
 | 
			
		||||
 | 
			
		||||
    rc = EVP_EncryptUpdate(cipher->ctx, (unsigned char *)out, &outlen, (unsigned char *)in, len);
 | 
			
		||||
    if (rc != 1){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "EVP_EncryptUpdate failed");
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
    if (outlen != (int)len){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING,
 | 
			
		||||
                "EVP_EncryptUpdate: output size %d for %lu in",
 | 
			
		||||
                outlen,
 | 
			
		||||
                len);
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void evp_cipher_decrypt(struct ssh_cipher_struct *cipher,
 | 
			
		||||
                        void *in,
 | 
			
		||||
                        void *out,
 | 
			
		||||
                        unsigned long len) {
 | 
			
		||||
    int outlen = 0;
 | 
			
		||||
    int rc = 0;
 | 
			
		||||
 | 
			
		||||
    rc = EVP_DecryptUpdate(cipher->ctx, (unsigned char *)out, &outlen, (unsigned char *)in, len);
 | 
			
		||||
    if (rc != 1){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING, "EVP_DecryptUpdate failed");
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
    if (outlen != (int)len){
 | 
			
		||||
        SSH_LOG(SSH_LOG_WARNING,
 | 
			
		||||
                "EVP_DecryptUpdate: output size %d for %lu in",
 | 
			
		||||
                outlen,
 | 
			
		||||
                len);
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void evp_cipher_cleanup(struct ssh_cipher_struct *cipher) {
 | 
			
		||||
    if (cipher->ctx != NULL) {
 | 
			
		||||
        EVP_CIPHER_CTX_cleanup(cipher->ctx);
 | 
			
		||||
        EVP_CIPHER_CTX_free(cipher->ctx);
 | 
			
		||||
    }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#ifndef HAVE_OPENSSL_EVP_AES_CTR
 | 
			
		||||
/* Some OS (osx, OpenIndiana, ...) have no support for CTR ciphers in EVP_aes */
 | 
			
		||||
 | 
			
		||||
struct ssh_aes_key_schedule {
 | 
			
		||||
    AES_KEY key;
 | 
			
		||||
    uint8_t IV[AES_BLOCK_SIZE];
 | 
			
		||||
};
 | 
			
		||||
 | 
			
		||||
static int aes_ctr_set_key(struct ssh_cipher_struct *cipher, void *key,
 | 
			
		||||
    void *IV) {
 | 
			
		||||
    int rc;
 | 
			
		||||
 | 
			
		||||
    if (cipher->aes_key == NULL) {
 | 
			
		||||
        cipher->aes_key = malloc(sizeof (struct ssh_aes_key_schedule));
 | 
			
		||||
    }
 | 
			
		||||
    if (cipher->aes_key == NULL) {
 | 
			
		||||
        return SSH_ERROR;
 | 
			
		||||
    }
 | 
			
		||||
    ZERO_STRUCTP(cipher->aes_key);
 | 
			
		||||
    /* CTR doesn't need a decryption key */
 | 
			
		||||
    rc = AES_set_encrypt_key(key, cipher->keysize, &cipher->aes_key->key);
 | 
			
		||||
    if (rc < 0) {
 | 
			
		||||
        SAFE_FREE(cipher->aes_key);
 | 
			
		||||
        return SSH_ERROR;
 | 
			
		||||
    }
 | 
			
		||||
    memcpy(cipher->aes_key->IV, IV, AES_BLOCK_SIZE);
 | 
			
		||||
    return SSH_OK;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void aes_ctr_encrypt(struct ssh_cipher_struct *cipher, void *in, void *out,
 | 
			
		||||
    unsigned long len) {
 | 
			
		||||
  unsigned char tmp_buffer[AES_BLOCK_SIZE];
 | 
			
		||||
  unsigned int num=0;
 | 
			
		||||
  /* Some things are special with ctr128 :
 | 
			
		||||
   * In this case, tmp_buffer is not being used, because it is used to store temporary data
 | 
			
		||||
   * when an encryption is made on lengths that are not multiple of blocksize.
 | 
			
		||||
   * Same for num, which is being used to store the current offset in blocksize in CTR
 | 
			
		||||
   * function.
 | 
			
		||||
   */
 | 
			
		||||
#if 0 // by apex.liu
 | 
			
		||||
#ifdef HAVE_OPENSSL_CRYPTO_CTR128_ENCRYPT
 | 
			
		||||
  CRYPTO_ctr128_encrypt(in, out, len, &cipher->aes_key->key, cipher->aes_key->IV, tmp_buffer, &num, (block128_f)AES_encrypt);
 | 
			
		||||
#else
 | 
			
		||||
  AES_ctr128_encrypt(in, out, len, &cipher->aes_key->key, cipher->aes_key->IV, tmp_buffer, &num);
 | 
			
		||||
#endif /* HAVE_OPENSSL_CRYPTO_CTR128_ENCRYPT */
 | 
			
		||||
#else // else by apex.liu
 | 
			
		||||
    AES_ctr128_encrypt(in, out, len, &cipher->aes_key->key, cipher->aes_key->IV, tmp_buffer, &num);
 | 
			
		||||
#endif // endif by apex.liu
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void aes_ctr_cleanup(struct ssh_cipher_struct *cipher){
 | 
			
		||||
    explicit_bzero(cipher->aes_key, sizeof(*cipher->aes_key));
 | 
			
		||||
    SAFE_FREE(cipher->aes_key);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#endif /* HAVE_OPENSSL_EVP_AES_CTR */
 | 
			
		||||
 | 
			
		||||
/*
 | 
			
		||||
 * The table of supported ciphers
 | 
			
		||||
 */
 | 
			
		||||
static struct ssh_cipher_struct ssh_ciphertab[] = {
 | 
			
		||||
  {
 | 
			
		||||
    .name = "blowfish-cbc",
 | 
			
		||||
    .blocksize = 8,
 | 
			
		||||
    .ciphertype = SSH_BLOWFISH_CBC,
 | 
			
		||||
    .keysize = 128,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
#ifdef HAS_AES
 | 
			
		||||
#ifndef BROKEN_AES_CTR
 | 
			
		||||
/* OpenSSL until 0.9.7c has a broken AES_ctr128_encrypt implementation which
 | 
			
		||||
 * increments the counter from 2^64 instead of 1. It's better not to use it
 | 
			
		||||
 */
 | 
			
		||||
#ifdef HAVE_OPENSSL_EVP_AES_CTR
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes128-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES128_CTR,
 | 
			
		||||
    .keysize = 128,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes192-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES192_CTR,
 | 
			
		||||
    .keysize = 192,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes256-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES256_CTR,
 | 
			
		||||
    .keysize = 256,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
#else /* HAVE_OPENSSL_EVP_AES_CTR */
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes128-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES128_CTR,
 | 
			
		||||
    .keysize = 128,
 | 
			
		||||
    .set_encrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .set_decrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .encrypt = aes_ctr_encrypt,
 | 
			
		||||
    .decrypt = aes_ctr_encrypt,
 | 
			
		||||
    .cleanup = aes_ctr_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes192-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES192_CTR,
 | 
			
		||||
    .keysize = 192,
 | 
			
		||||
    .set_encrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .set_decrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .encrypt = aes_ctr_encrypt,
 | 
			
		||||
    .decrypt = aes_ctr_encrypt,
 | 
			
		||||
    .cleanup = aes_ctr_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes256-ctr",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES256_CTR,
 | 
			
		||||
    .keysize = 256,
 | 
			
		||||
    .set_encrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .set_decrypt_key = aes_ctr_set_key,
 | 
			
		||||
    .encrypt = aes_ctr_encrypt,
 | 
			
		||||
    .decrypt = aes_ctr_encrypt,
 | 
			
		||||
    .cleanup = aes_ctr_cleanup
 | 
			
		||||
  },
 | 
			
		||||
#endif /* HAVE_OPENSSL_EVP_AES_CTR */
 | 
			
		||||
#endif /* BROKEN_AES_CTR */
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes128-cbc",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES128_CBC,
 | 
			
		||||
    .keysize = 128,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes192-cbc",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES192_CBC,
 | 
			
		||||
    .keysize = 192,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = "aes256-cbc",
 | 
			
		||||
    .blocksize = 16,
 | 
			
		||||
    .ciphertype = SSH_AES256_CBC,
 | 
			
		||||
    .keysize = 256,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
#endif /* HAS_AES */
 | 
			
		||||
#ifdef HAS_DES
 | 
			
		||||
  {
 | 
			
		||||
    .name = "3des-cbc",
 | 
			
		||||
    .blocksize = 8,
 | 
			
		||||
    .ciphertype = SSH_3DES_CBC,
 | 
			
		||||
    .keysize = 192,
 | 
			
		||||
    .set_encrypt_key = evp_cipher_set_encrypt_key,
 | 
			
		||||
    .set_decrypt_key = evp_cipher_set_decrypt_key,
 | 
			
		||||
    .encrypt = evp_cipher_encrypt,
 | 
			
		||||
    .decrypt = evp_cipher_decrypt,
 | 
			
		||||
    .cleanup = evp_cipher_cleanup
 | 
			
		||||
  },
 | 
			
		||||
#endif /* HAS_DES */
 | 
			
		||||
  {
 | 
			
		||||
    .name = "chacha20-poly1305@openssh.com"
 | 
			
		||||
  },
 | 
			
		||||
  {
 | 
			
		||||
    .name = NULL
 | 
			
		||||
  }
 | 
			
		||||
};
 | 
			
		||||
 | 
			
		||||
struct ssh_cipher_struct *ssh_get_ciphertab(void)
 | 
			
		||||
{
 | 
			
		||||
  return ssh_ciphertab;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/**
 | 
			
		||||
 * @internal
 | 
			
		||||
 * @brief Initialize libcrypto's subsystem
 | 
			
		||||
 */
 | 
			
		||||
int ssh_crypto_init(void)
 | 
			
		||||
{
 | 
			
		||||
    size_t i;
 | 
			
		||||
 | 
			
		||||
    if (libcrypto_initialized) {
 | 
			
		||||
        return SSH_OK;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    OpenSSL_add_all_algorithms();
 | 
			
		||||
 | 
			
		||||
    for (i = 0; ssh_ciphertab[i].name != NULL; i++) {
 | 
			
		||||
        int cmp;
 | 
			
		||||
 | 
			
		||||
        cmp = strcmp(ssh_ciphertab[i].name, "chacha20-poly1305@openssh.com");
 | 
			
		||||
        if (cmp == 0) {
 | 
			
		||||
            memcpy(&ssh_ciphertab[i],
 | 
			
		||||
                   ssh_get_chacha20poly1305_cipher(),
 | 
			
		||||
                   sizeof(struct ssh_cipher_struct));
 | 
			
		||||
            break;
 | 
			
		||||
        }
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    libcrypto_initialized = 1;
 | 
			
		||||
 | 
			
		||||
    return SSH_OK;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
/**
 | 
			
		||||
 * @internal
 | 
			
		||||
 * @brief Finalize libcrypto's subsystem
 | 
			
		||||
 */
 | 
			
		||||
void ssh_crypto_finalize(void)
 | 
			
		||||
{
 | 
			
		||||
    if (!libcrypto_initialized) {
 | 
			
		||||
        return;
 | 
			
		||||
    }
 | 
			
		||||
 | 
			
		||||
    EVP_cleanup();
 | 
			
		||||
    CRYPTO_cleanup_all_ex_data();
 | 
			
		||||
 | 
			
		||||
    libcrypto_initialized = 0;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#endif /* LIBCRYPTO */
 | 
			
		||||
										
											Binary file not shown.
										
									
								
							
		Loading…
	
		Reference in New Issue