cbc_d_m.c

Diamond加密算法

/* Copyright (C) 1998 Ross Anderson, Eli Biham, Lars Knudsen
 * All rights reserved.
 *
 * This code is freely distributed for AES selection process.
 * No other use is allowed.
 * 
 * Copyright remains of the copyright holders, and as such any Copyright
 * notices in the code are not to be removed.
 * 
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted only for the AES selection process, provided
 * that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHORS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 * 
 * The licence and distribution terms for any publically available version or
 * derivative of this code cannot be changed without the authors permission.
 *  i.e. this code cannot simply be copied and put under another distribution
 * licence [including the GNU Public Licence.]
 */

#include "serpent.h"

char *serpent_convert_to_string();

main(int argc, char **argv)
{
  unsigned long text[4];
  unsigned long textp[4];
  unsigned long cv[4];
  int i, j;
  char tmpstr[100];
  int keylen;

  printf("=========================\n");
  printf("\n");
  printf("FILENAME:  \"cbc_d_m.txt\"\n");
  printf("\n");
  printf("Cipher Block Chaining (CBC) Mode - DECRYPTION\n");
  printf("Monte Carlo Test\n");
  printf("\n");
  printf("Algorithm Name: Serpent\n");
  printf("Principal Submitter: Ross Anderson, Eli Biham, Lars Knudsen\n");
  printf("\n");
  printf("==========\n");
  printf("\n");

  for(keylen=128; keylen<=256; keylen+=64)
    {
      int i;
      int keyw=keylen/32;

      int rc;

      keyInstance keyI;
      cipherInstance cipherI;

      rc=cipherInit(&cipherI, MODE_ECB, "");
      if(rc<=0) exit(2);

      rc=makeKey(&keyI, DIR_ENCRYPT, keylen,
            "0000000000000000000000000000000000000000000000000000000000000000");
      if(rc<=0) exit(2);

      serpent_convert_from_string(128, "00000000000000000000000000000000",
				  text);
      serpent_convert_from_string(128, "00000000000000000000000000000000",
				  cv);

      printf("KEYSIZE=%d\n", keylen);
      printf("\n");

      for(i=0; i<400; i++)
	{
	  int j;

	  printf("I=%d\n", i);
	  printf("KEY=%s\n", serpent_convert_to_string(keylen, keyI.key, tmpstr));
	  printf("IV=%s\n", serpent_convert_to_string(128, cv, tmpstr));
	  printf("CT=%s\n", serpent_convert_to_string(128, text, tmpstr));
	  for(j=0; j<10000; j++)
	    {
	      int l;
	      memcpy(textp, text, 16);
	      rc=blockDecrypt(&cipherI, &keyI, (BYTE*)text, 128, (BYTE*)text);
	      if(rc<=0) exit(2);
	      for(l=0; l<4; l++)
		text[l] ^= cv[l];
	      memcpy(cv, textp, 16);
	    }
	  printf("PT=%s\n", serpent_convert_to_string(128, text, tmpstr));
	  /* printf("PTP=%s\n", serpent_convert_to_string(128, textp, tmpstr)); */
	  printf("\n");

	  for(j=0; j<keyw; j++)
	    if(j>=keyw-4)
	      keyI.key[j] ^= text[j-(keyw-4)];
	    else
	      keyI.key[j] ^= textp[j-(keyw-8)];
	  rc=makeKey(&keyI, DIR_ENCRYPT, keylen,
		     serpent_convert_to_string(keylen, keyI.key, tmpstr));
	  if(rc<=0) exit(2);
	}
      printf("==========\n");
      printf("\n");
    }
  exit(0);
}