Add EVP test program.
[openssl.git] / crypto / evp / evp_enc.c
index 14c8506e80c973e5a62393232353ede9d9c57ba5..e4f9bf073bb2e8a54ec77d9253f97cdf23b26ff7 100644 (file)
@@ -62,6 +62,8 @@
 #include <openssl/err.h>
 #include "evp_locl.h"
 
+#include <assert.h>
+
 const char *EVP_version="EVP" OPENSSL_VERSION_PTEXT;
 
 void EVP_CIPHER_CTX_init(EVP_CIPHER_CTX *ctx)
@@ -71,11 +73,13 @@ void EVP_CIPHER_CTX_init(EVP_CIPHER_CTX *ctx)
        }
 
 int EVP_CipherInit(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
-            unsigned char *key, unsigned char *iv, int enc)
+            const unsigned char *key, const unsigned char *iv, int enc)
        {
        if(enc && (enc != -1)) enc = 1;
-       if (cipher) {
+       if (cipher)
+               {
                ctx->cipher=cipher;
+               ctx->cipher_data=OPENSSL_malloc(ctx->cipher->ctx_size);
                ctx->key_len = cipher->key_len;
                ctx->flags = 0;
                if(ctx->cipher->flags & EVP_CIPH_CTRL_INIT) {
@@ -88,6 +92,12 @@ int EVP_CipherInit(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
                EVPerr(EVP_F_EVP_CIPHERINIT, EVP_R_NO_CIPHER_SET);
                return 0;
        }
+
+       /* we assume block size is a power of 2 in *cryptUpdate */
+       assert(ctx->cipher->block_size == 1
+              || ctx->cipher->block_size == 8
+              || ctx->cipher->block_size == 16);
+
        if(!(EVP_CIPHER_CTX_flags(ctx) & EVP_CIPH_CUSTOM_IV)) {
                switch(EVP_CIPHER_CTX_mode(ctx)) {
 
@@ -117,11 +127,13 @@ int EVP_CipherInit(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
        }
        if(enc != -1) ctx->encrypt=enc;
        ctx->buf_len=0;
+       ctx->final_used=0;
+       ctx->block_mask=ctx->cipher->block_size-1;
        return 1;
        }
 
 int EVP_CipherUpdate(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl,
-            unsigned char *in, int inl)
+            const unsigned char *in, int inl)
        {
        if (ctx->encrypt)
                return EVP_EncryptUpdate(ctx,out,outl,in,inl);
@@ -136,47 +148,60 @@ int EVP_CipherFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
        }
 
 int EVP_EncryptInit(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
-            unsigned char *key, unsigned char *iv)
+            const unsigned char *key, const unsigned char *iv)
        {
        return EVP_CipherInit(ctx, cipher, key, iv, 1);
        }
 
 int EVP_DecryptInit(EVP_CIPHER_CTX *ctx, const EVP_CIPHER *cipher,
-            unsigned char *key, unsigned char *iv)
+            const unsigned char *key, const unsigned char *iv)
        {
        return EVP_CipherInit(ctx, cipher, key, iv, 0);
        }
 
-
 int EVP_EncryptUpdate(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl,
-            unsigned char *in, int inl)
+            const unsigned char *in, int inl)
        {
        int i,j,bl;
 
+       if(ctx->buf_len == 0 && (inl&(ctx->block_mask)) == 0)
+               {
+               if(ctx->cipher->do_cipher(ctx,out,in,inl))
+                       {
+                       *outl=inl;
+                       return 1;
+                       }
+               else
+                       {
+                       *outl=0;
+                       return 0;
+                       }
+               }
        i=ctx->buf_len;
        bl=ctx->cipher->block_size;
-       *outl=0;
-       if ((inl == 0) && (i != bl)) return 1;
        if (i != 0)
                {
                if (i+inl < bl)
                        {
                        memcpy(&(ctx->buf[i]),in,inl);
                        ctx->buf_len+=inl;
+                       *outl=0;
                        return 1;
                        }
                else
                        {
                        j=bl-i;
-                       if (j != 0) memcpy(&(ctx->buf[i]),in,j);
+                       memcpy(&(ctx->buf[i]),in,j);
                        if(!ctx->cipher->do_cipher(ctx,out,ctx->buf,bl)) return 0;
                        inl-=j;
                        in+=j;
                        out+=bl;
-                       *outl+=bl;
+                       *outl=bl;
                        }
                }
-       i=inl%bl; /* how much is left */
+       else
+               *outl = 0;
+       i=inl&(bl-1);
        inl-=i;
        if (inl > 0)
                {
@@ -192,7 +217,7 @@ int EVP_EncryptUpdate(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl,
 
 int EVP_EncryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
        {
-       int i,n,b,bl;
+       int i,n,b,bl,ret;
 
        b=ctx->cipher->block_size;
        if (b == 1)
@@ -203,6 +228,7 @@ int EVP_EncryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
        bl=ctx->buf_len;
        if (ctx->flags & EVP_CIPH_NO_PADDING)
                {
+               EVP_CIPHER_CTX_cleanup(ctx);
                if(bl)
                        {
                        EVPerr(EVP_F_EVP_ENCRYPTFINAL,EVP_R_DATA_NOT_MULTIPLE_OF_BLOCK_LENGTH);
@@ -211,59 +237,59 @@ int EVP_EncryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
                *outl = 0;
                return 1;
                }
+
        n=b-bl;
        for (i=bl; i<b; i++)
                ctx->buf[i]=n;
-       if(!ctx->cipher->do_cipher(ctx,out,ctx->buf,b)) return 0;
-       *outl=b;
-       return 1;
+       ret=ctx->cipher->do_cipher(ctx,out,ctx->buf,b);
+
+       EVP_CIPHER_CTX_cleanup(ctx);
+
+       if(ret)
+               *outl=b;
+
+       return ret;
        }
 
 int EVP_DecryptUpdate(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl,
-            unsigned char *in, int inl)
+            const unsigned char *in, int inl)
        {
-       int b,bl,n;
-       int keep_last=0;
+       int b;
 
-       *outl=0;
-       if (inl == 0) return 1;
+       if (inl == 0)
+               {
+               *outl=0;
+               return 1;
+               }
 
        if (ctx->flags & EVP_CIPH_NO_PADDING)
                return EVP_EncryptUpdate(ctx, out, outl, in, inl);
 
        b=ctx->cipher->block_size;
-       if (b > 1)
+       if(ctx->final_used)
                {
-               /* Is the input a multiple of the block size? */
-               bl=ctx->buf_len;
-               n=inl+bl;
-               if (n%b == 0)
-                       {
-                       if (inl < b) /* must be 'just one' buff */
-                               {
-                               memcpy(&(ctx->buf[bl]),in,inl);
-                               ctx->buf_len=b;
-                               *outl=0;
-                               return 1;
-                               }
-                       keep_last=1;
-                       inl-=b; /* don't do the last block */
-                       }
+               memcpy(out,ctx->final,b);
+               out+=b;
                }
-       if(!EVP_EncryptUpdate(ctx,out,outl,in,inl)) return 0;
+               
+       if(!EVP_EncryptUpdate(ctx,out,outl,in,inl))
+               return 0;
 
        /* if we have 'decrypted' a multiple of block size, make sure
         * we have a copy of this last block */
-       if (keep_last)
+       if (b > 1 && !ctx->buf_len)
                {
-               memcpy(&(ctx->buf[0]),&(in[inl]),b);
-#ifdef DEBUG
-               if (ctx->buf_len != 0)
+               if(!ctx->final_used)
                        {
-                       abort();
+                       *outl-=b;
+                       ctx->final_used=1;
                        }
-#endif
-               ctx->buf_len=b;
+               memcpy(ctx->final,&out[*outl],b);
+               }
+       else if(ctx->final_used)
+               {
+               ctx->final_used=0;
+               *outl+=b;
                }
        return 1;
        }
@@ -287,15 +313,12 @@ int EVP_DecryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
                }
        if (b > 1)
                {
-               if (ctx->buf_len != b)
+               if (ctx->buf_len || !ctx->final_used)
                        {
                        EVPerr(EVP_F_EVP_DECRYPTFINAL,EVP_R_WRONG_FINAL_BLOCK_LENGTH);
                        return(0);
                        }
-               if(!EVP_EncryptUpdate(ctx,ctx->buf,&n,ctx->buf,0)) return 0;
-               if (n != b)
-                       return(0);
-               n=ctx->buf[b-1];
+               n=ctx->final[b-1];
                if (n > b)
                        {
                        EVPerr(EVP_F_EVP_DECRYPTFINAL,EVP_R_BAD_DECRYPT);
@@ -303,7 +326,7 @@ int EVP_DecryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
                        }
                for (i=0; i<n; i++)
                        {
-                       if (ctx->buf[--b] != n)
+                       if (ctx->final[--b] != n)
                                {
                                EVPerr(EVP_F_EVP_DECRYPTFINAL,EVP_R_BAD_DECRYPT);
                                return(0);
@@ -311,7 +334,7 @@ int EVP_DecryptFinal(EVP_CIPHER_CTX *ctx, unsigned char *out, int *outl)
                        }
                n=ctx->cipher->block_size-n;
                for (i=0; i<n; i++)
-                       out[i]=ctx->buf[i];
+                       out[i]=ctx->final[i];
                *outl=n;
                }
        else
@@ -325,6 +348,7 @@ int EVP_CIPHER_CTX_cleanup(EVP_CIPHER_CTX *c)
                {
                if(!c->cipher->cleanup(c)) return 0;
                }
+       OPENSSL_free(c->cipher_data);
        memset(c,0,sizeof(EVP_CIPHER_CTX));
        return 1;
        }