#include<stdio.h>

#include<string.h>

#include<stdlib.h>

#defineDEBUG0

int main(){

char key[3][3][4];

char alp[3][3][4]={

{"abc","def","ghi"},

{"jkl","mno","pqr"},

{"stu","vwx","yz."} 

     };

int i=0,j,k,l=0,m,n,p=0,system,sis,count=0,q=0,r=0,cry;

int s,t;

char keyword[32];

char pop[32];

char word[3000][4];

char cip[3000][4];

int a1=0,a2=0,a3=0;

int b1=0,b2=0,b3=0;

int c1=0,c2=0,c3=0;

char filename[256];

char plain[5000],tmp1[]="xx",tmp2[]="x";

FILE *fp1,*fp2,*fp3;

/*使用したいファイルを読み込む*/

printf("file name(no extension)---");

gets(filename);

strcat(filename, ".txt");

fp1 = fopen(filename, "r");

if (fp1 == NULL) {

perror("ファイルをオープンできません\n");

return -1;

}

while ((m = fgetc(fp1)) != EOF){

   if((m >= 'A') && (m <= 'Z')){

m=m+32;

   }

   if((m >= 'a') && (m <= 'z')){

plain[p]=m;

++p;

   }else if(m=='.'){ 

plain[p]=m;

++p;

   }

}

#if DEBUG

printf("plain:%s\np:%d\n",plain,p);

#endif

/*文字を３つずつに振り分ける*/

   if(p%3 == 1){

     strcat(plain,tmp1);

p=p+2;

   }else if(p%3 == 2){

strcat(plain,tmp2);

p=p+1;

   }

#if DEBUG

printf("fixed plain:%s\nfixed p:%d\n",plain,p);

#endif

   for(i=0;i<p;i=i+3){

  word[l][0]=plain[i];

  word[l][1]=plain[i+1];

           word[l][2]=plain[i+2];

++l;

   }

/*キーワード代入*/

printf("--------------------\n");

printf("input keyword(from A to Z)\n");

printf("--------------------\n");

while((sis = getchar())!= EOF){

if(sis=='\n'){

break;

}

if((sis >= 'A') && (sis <= 'Z')){

sis=sis+32;

   }

   if((sis >= 'a') && (sis <= 'z')){

keyword[count]=sis;

++count;

   }else if(sis=='.'){ 

keyword[count]=sis;

++count;

   }

}

printf("\n");

for(i=0;i<count;i++){

 for(n=0;n<3;n++){

for(j=0;j<3;j++){

for(k=0;k<3;k++){

if(keyword[i]==alp[n][j][k]){

alp[n][j][k]='!';

pop[q]=keyword[i];

#if DEBUG

printf("pop:%c,%d\n",pop[q],q);

#endif

++q;

}

}

}

}

}

#if DEBUG

printf("pop:%s,\n",pop);

#endif

 for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(k=0;k<3;k++){

if(alp[i][j][k]!='!'){

pop[q]=alp[i][j][k];

++q;

}

}

}

}

#if DEBUG

printf("pop:%s,%d\n",pop,q);

#endif

/*キーワードの置換位置の設定を行う(これは順番)*/

for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(k=0;k<3;k++){

key[i][j][k]=pop[r];

++r;

}

}

}

#if DEBUG

for(i=0;i<3;i++){

for(j=0;j<3;j++){

printf("key[%d][%d]:%s\n",i,j,key[i][j]);

}

}

#endif

/*暗号化、復号方法の選択*/

while(1){

printf("Choice systems from 1 to 3.\n");

printf(">>");

scanf("%d",&system);

if(system<4)

break;

}

#if DEBUG

printf("system number:%d\n",system);

#endif

/*暗号化か復号の選択*/

while(1){

printf("----------MENU----------\n");

printf("Encryption:1\n");

printf("Decryption:2\n");

printf("------------------------\n");

scanf("%d",&cry);

if(cry<3)

break;

}

/*暗号化*/

if(cry==1){

    fp2 = fopen("cipher.txt","w");

if (fp2 == NULL) {

perror("ファイルをオープンできません\n");

return -1;

}

for(k=0;k<l;k++){

     for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][0]){

a1=i;

a2=j;

a3=n;

}

}

  }

}

for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][1]){

b1=i;

b2=j;

                                b3=n;

}

 }

}

}

for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][2]){

c1=i;

c2=j;

c3=n;

}

 }

}

}

#if DEBUG

printf("[%c%c%c]:::::",key[a1][a2][a3],key[b1][b2][b3],key[c1][c2][c3]);

printf("[%c%c%c]\n",key[a1][b2][a2],key[b1][c2][a3],key[c1][c3][b3]);

printf("[%d][%d][%d]=[%d][%d][%d]\n",a1,a2,a3,a1,c2,b3);

         printf("[%d][%d][%d]=[%d][%d][%d]\n",b1,b2,b3,b1,a2,c3);

printf("[%d][%d][%d]=[%d][%d][%d]\n",c1,c2,c3,c1,b2,a3);

#endif

if(system==1){

  cip[k][0]=key[a1][c2][b3];

  cip[k][1]=key[b1][a2][c3];

  cip[k][2]=key[c1][b2][a3];

}else if(system==2){

  cip[k][0]=key[a1][c2][c3];

  cip[k][1]=key[b1][a2][b3];

  cip[k][2]=key[c1][b2][a3];

}else if(system==3){

  cip[k][0]=key[a1][b2][a2];

  cip[k][1]=key[b1][c2][a3];

  cip[k][2]=key[c1][c3][b3];

}else{

printf("ERROR\n");

}

}

printf("ciphertext>>\n");

for(k=0;k<l;k++){

printf("%c%c%c",cip[k][0],cip[k][1],cip[k][2]);

fprintf(fp2, "%c%c%c",cip[k][0],cip[k][1],cip[k][2]);

}

fclose(fp2);

/*復号*/

}else if(cry==2){

fp3 = fopen("plain1.txt","w");

if (fp3 == NULL) {

perror("ファイルをオープンできません\n");

return -1;

}

if(system==1){

t=2;

}else if(system==2){

t=5;

}else if(system==3){

t=5;

}

for(s=0;s<t;s++){

 for(k=0;k<l;k++){

     for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][0]){

a1=i;

a2=j;

a3=n;

}

}

  }

}

for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][1]){

b1=i;

b2=j;

                b3=n;

}

 }

}

}

for(i=0;i<3;i++){

for(j=0;j<3;j++){

for(n=0;n<3;n++){

if(key[i][j][n]==word[k][2]){

c1=i;

c2=j;

c3=n;

}

 }

}

}

#if DEBUG

printf("[%c%c%c]:::::",key[a1][a2][a3],key[b1][b2][b3],key[c1][c2][c3]);

printf("[%c%c%c]\n",key[a1][b2][a2],key[b1][c2][a3],key[c1][c3][b3]);

printf("[%d][%d][%d]=[%d][%d][%d]\n",a1,a2,a3,a1,c2,b3);

         printf("[%d][%d][%d]=[%d][%d][%d]\n",b1,b2,b3,b1,a2,c3);

printf("[%d][%d][%d]=[%d][%d][%d]\n",c1,c2,c3,c1,b2,a3);

#endif

if(system==1){

  word[k][0]=key[a1][c2][b3];

  word[k][1]=key[b1][a2][c3];

  word[k][2]=key[c1][b2][a3];

}else if(system==2){

  word[k][0]=key[a1][c2][c3];

  word[k][1]=key[b1][a2][b3];

  word[k][2]=key[c1][b2][a3];

}else if(system==3){

  word[k][0]=key[a1][b2][a2];

  word[k][1]=key[b1][c2][a3];

  word[k][2]=key[c1][c3][b3];

}else{

printf("ERROR\n");

}

 }

}

printf("plaintext>>\n");

for(k=0;k<l;k++){

printf("%c%c%c",word[k][0],word[k][1],word[k][2]);

fprintf(fp3, "%c%c%c",word[k][0],word[k][1],word[k][2]);

}

fclose(fp3);

}

fclose(fp1);

return 0;

}