gost key(&gc,k);

/* Try some test vectors. */

data[0] = 0; data[1] = 0;

gostcrypt(&gc,data);

printf("Enc of zero vector: %08lx %08lx\n",data[0],data[1]);

gostcrypt(&gc,data);

printf("Enc of above:%08lx %08lx\n",data[0],data[1]);

data[0] = 0xffffffff; data[1] = 0xffffffff;

gostcrypt(&gc,data);

printf("Enc of ones vector: %08lx %08lx\n",data[0],data[1]);

gostcrypt(&gc,data);

printf("Enc of above:%08lx %08lx\n",data[0],data[1]);

/* Does gost dec() properly reverse gost enc()? Do

we deal OK with single-block lengths passed in gost dec()? Do we deal OK with different lengths passed in? */

/* Init data */

for(i=0;i<10;i++) data[i]=i;

/* Encrypt data as 5 blocks. */ gost enc(&gc,data,5);

/* Display encrypted data. */

for(i=0;i<10;i+=2) printf("Block %02d = %08lx %08lx\n",

i/2,data[i],data[i+1]);

/* Decrypt in different sized chunks. */

gost dec(&gc,data,1);

gost dec(&gc,data+2,4);

printf("\n");

/* Display decrypted data. */

for(i=0;i<10;i+=2) printf("Block %02d = %08lx %08lx\n",

i/2,data[i],data[i+1]);

gost destroy(&gc);

BLOWFISH

#include <math.h> #include <stdio.h> #include <stdlib.h> #include <time.h>

#ifdef little endian /* Eg: Intel */ #include <alloc.h>

#include <ctype.h>

#ifdef little endian /* Eg: Intel */ #include <dir.h> #include <bios.h>

#ifdef big endian

#include <Types.h>

typedef struct {

unsigned long S[4][256],P[18]; } blf ctx;

#define MAXKEYBYTES 56/* 448 bits */

#define little endian 1/* Eg: Intel */

#define big endian 1/* Eg: Motorola */

void Blowfish encipher(blf ctx *,unsigned long *xl, unsigned long *xr); void Blowfish decipher(blf ctx *,unsigned long *xl, unsigned long *xr);

#define N16

#define noErr0

#define DATAERROR-1

#define KEYBYTES8

FILE*SubkeyFile;

unsigned long F(blf ctx *bc, unsigned long x)

unsigned short a; unsigned short b; unsigned short c; unsigned short d; unsigned long y;

d = x & 0x00FF;

x >>= 8;

c = x & 0x00FF;

x >>= 8;

b = x & 0x00FF;

x >>= 8;

a =x & 0x00FF;

y= ((S[0][a] + S[1][b]) a S[2][c]) + S[3][d];

y =bc->S[0][a] + bc->S[1][b];

y =y a bc->S[2][c];

y =y + bc->S[3][d];

return y;

void Blowfish encipher(blf ctx *c,unsigned long *xl, unsigned long *xr)

unsigned longXl;

unsigned longXr;

unsigned longtemp;

shorti;

Xl = *xl;

Xr = *xr;

for (i = 0; i < N;{

Xl = Xl A c->P[i]; Xr = F(c,Xl) A Xr;

temp = Xl;

Xl = Xr;

Xr = temp;

temp = Xl;

Xl = Xr;

Xr = temp;

Xr = Xr л c->P[N];

Xl = Xl л c->P[N + 1];

*xl = Xl;

*xr = Xr;

void Blowfish decipher(blf ctx *c, unsigned long *xl, unsigned long *xr)

unsigned longXl;

unsigned longXr;

unsigned longtemp;

shorti;

Xl = *xl;

Xr = *xr;

for (i = N + 1; i > 1; -i) { Xl = Xl л c->P[i]; Xr = F(c,Xl) л Xr;

/* Exchange Xl and Xr */ temp = Xl;

Xl = Xr;

Xr = temp;

/* Exchange Xl and Xr */ temp = Xl;

Xl = Xr;

Xr = temp;

Xr = Xr л c->P[1]; Xl = Xl л c->P[0];

*xl = Xl;

*xr = Xr;

short InitializeBlowfish(blf ctx *c, char key[], short keybytes)

shorti;

shortj;

shortk;

shorterror;

shortnumread;

unsigned longdata;

unsigned longdatal;

unsigned longdatar;

unsigned long ks0[] = {

0xd1310ba6, 0x98dfb5ac,0x2ffd72db,0xd01adfb7,0xb8e1afed,0x6a267e96,

0xba7c9045, 0xf12c7f99,0x24a19947,0xb3916cf7,0x0801f2e2,0x858efc16,

0x636920d8, 0x71574e69,0xa458fea3,0xf4933d7e,0x0d95748f,0x728eb658,