package lab_5;

import java.io.*;
import java.math.BigInteger;

public class Lab_5 {
    static  String keyword="gigabit";
    static  String[] key= new String[16];
    static  String text="new generation, gays. ��� ��� �����, ��� 485!";
    static  String bits="";
    static int[] rasshir={32,1,2,3,4,5,
                          4,5,6,7,8,9,
                          8,9,10,11,12,13,
                         12,13,14,15,16,17,
                         16,17,18,19,20,21,
                         20,21,22,23,24,25,
                         24,25,26,27,28,29,
                         28,29,30,31,32,1},
            
              keynachper={57,49,41,33,25,17,9,1,
                          58,50,42,34,26,18,10,2,
                          59,51,43,35,27,19,11,3,
                          60,52,44,36,63,55,47,39,
                          31,23,15,7,62,54,46,38,
                          30,22,14,6,61,53,45,37,
                          29,21,13,5,28,20,12,4},
            
               keykonper={14,17,11,24,1,5,3,28,
                          15,6,21,10,23,19,12,4,
                          26,8,16,7,27,20,13,2,
                          41,52,31,37,47,55,30,40,
                          51,45,33,48,44,49,39,56,
                          34,53,46,42,50,36,29,32},
            
                 nachper={58, 50, 42, 34, 26, 18, 10, 2,
                          60, 52, 44, 36, 28, 20, 12, 4,
                          62, 54, 46, 38, 30, 22, 14, 6,
                          64, 56, 48, 40, 32, 24, 16, 8,
                          57, 49, 41, 33, 25, 17,  9, 1,
                          59, 51, 43, 35, 27, 19, 11, 3,
                          61, 53, 45, 37, 29, 21, 13, 5,
                          63, 55, 47, 39, 31, 23, 15, 7},
            
                    fper={16,7,20,21,
                          29,12,28,17,
                          1,15,23,26,
                          5,18,31,10,
                          2,8,24,14,
                          32,27,3,9,
                          19,13,30,6,
                          22,11,4,25},
            
                  konper={40, 8, 48, 16, 56, 24, 64, 32,
                          39, 7, 47, 15, 55, 23, 63, 31,
                          38, 6, 46, 14, 54, 22, 62, 30,
                          37, 5, 45, 13, 53, 21, 61, 29,
                          36, 4, 44, 12, 52, 20, 60, 28,
                          35, 3, 43, 11, 51, 19, 59, 27,
                          34, 2, 42, 10, 50, 18, 58, 26,
                          33, 1, 41,  9, 49, 17, 57, 25};
    
    static int[][] sblocks={
                                {14,4,13, 1,2,15,11,8,3,10,6,12,5,9,0,7, // S1
                                0,15,7,4,14,2,13,1,10,6,12,11,9,5,3,8,
                                4,1,14,8,13,6,2,11,15,12,9,7,3,10,5,0,
                                15,12,8,2,4,9,1,7,5,11,3,14,10,0,6,13},
                                
                                {15,1,8,14,6,11,3,4,9,7,2,13,12,0,5,10, // S2
                                 3,13,4,7,15,2,8,14,12,0,1,10,6,9,11,5,
                                 0,14,7,11,10,4,13,1,5,8,12,6,9,3,2,15,
                                 13,8,10,1,3,15,4,2,11,6,7,12,0,5,14,9},
                                
                                {10,  0,  9, 14,  6,  3, 15,  5,  1, 13, 12,  7, 11,  4,  2,  8, // S3
                        13,  7,  0,  9,  3,  4,  6, 10,  2,  8,  5, 14, 12, 11, 15,  1,
                        13,  6,  4,  9,  8, 15,  3,  0, 11,  1,  2, 12,  5, 10, 14,  7,
                         1, 10, 13,  0,  6,  9,  8,  7,  4, 15, 14,  3, 11,  5,  2, 12},
                                
                         {7, 13, 14,  3,  0,  6,  9, 10,  1,  2,  8,  5, 11, 12,  4, 15, // S4
                        13,  8, 11,  5,  6, 15,  0,  3,  4,  7,  2, 12,  1, 10, 14,  9,
                        10,  6,  9,  0, 12, 11,  7, 13, 15,  1,  3, 14,  5,  2,  8,  4,
                         3, 15,  0,  6, 10,  1, 13,  8,  9,  4,  5, 11, 12,  7,  2, 14},
                         
                         {2, 12,  4,  1,  7, 10, 11,  6,  8,  5,  3, 15, 13,  0, 14,  9, // S5
                        14, 11,  2, 12,  4,  7, 13,  1,  5,  0, 15, 10,  3,  9,  8,  6,
                         4,  2,  1, 11, 10, 13,  7,  8, 15,  9, 12,  5,  6,  3,  0, 14,
                        11,  8, 12,  7,  1, 14,  2, 13,  6, 15,  0,  9, 10,  4,  5,  3},
                         
                        {12,  1, 10, 15,  9,  2,  6,  8,  0, 13,  3,  4, 14,  7,  5, 11, // S6
                        10, 15,  4,  2,  7, 12,  9,  5,  6,  1, 13, 14,  0, 11,  3,  8,
                         9, 14, 15,  5,  2,  8, 12,  3,  7,  0,  4, 10,  1, 13, 11,  6,
                         4,  3,  2, 12,  9,  5, 15, 10, 11, 14,  1,  7,  6,  0,  8, 13},
                        
                         {4, 11,  2, 14, 15,  0,  8, 13,  3, 12,  9,  7,  5, 10,  6,  1, // S7
                        13,  0, 11,  7,  4,  9,  1, 10, 14,  3,  5, 12,  2, 15,  8,  6,
                         1,  4, 11, 13, 12,  3,  7, 14, 10, 15,  6,  8,  0,  5,  9,  2,
                         6, 11, 13,  8,  1,  4, 10,  7,  9,  5,  0, 15, 14,  2,  3, 12},
                         
                         {13,  2,  8,  4,  6, 15, 11,  1, 10,  9,  3, 14,  5,  0, 12,  7, // S8
                         1, 15, 13,  8, 10,  3,  7,  4, 12,  5,  6, 11,  0, 14,  9,  2,
                         7, 11,  4,  1,  9, 12, 14,  2,  0,  6, 10, 13, 15,  3,  5,  8,
                         2,  1, 14,  7,  4, 10,  8, 13, 15, 12,  9,  0,  3,  5,  6, 11}
                         };
    
    public static void keygen(String str)
    {
        long hash = 1125899906842597L;
        int len = str.length();
        for (int i = 0; i < len; i++) 
        {
        hash = 31*hash + str.charAt(i);
        }
        String keystr=Long.toBinaryString(hash);
        keystr=perestanovka(keystr,keynachper);
        String s1="";
        String s2="";
        int k=keystr.length()/2;
        for(int i=0;i<keystr.length();i++){
            if(i<k) s1+=keystr.charAt(i);
            else s2+=keystr.charAt(i);
        }
        for (int i=0;i<16;i++)
        {
            if(i==0||i==1||i==8||i==15)
            {
                s1=s1.substring(1,s1.length())+s1.substring(0,1);        
                s2=s2.substring(1,s2.length())+s2.substring(0,1);
            }
            else
            {
                s1=s1.substring(2,s1.length())+s1.substring(0,2);        
                s2=s2.substring(2,s2.length())+s2.substring(0,2);
            }
            keystr=s1+s2;
            key[i]=perestanovka(keystr,keykonper);
            System.out.println("���� "+i+": "+key[i]);
        }
    }
    
    public static String coordinats(String str, int i)
    {
          String k1=str.substring(1,5);
          String k2=str.substring(0,1)+str.substring(5,6);
          String sokrblok="";
          sokrblok+=sblocks[i][BitsToDec(k2)*16+BitsToDec(k1)];//���������� ����� � ������� �������������� S-����� �� ����������� ������� ��� � �������.
   return sokrblok;
    }
    
    public static int BitsToDec(String str){
       int a=0;
       int l=str.length();
       int k=8-l;
       String str1="";
       for(int i=0;i<k;i++){
           str1+="0";
       }
       str1+=str;
       str="";
       for (int j=7;j>=0;--j)
       {
             str+=str1.charAt(j);
       }
       for (int i=7;i>=0;--i)
       {
       if (str.charAt(i)=='1') a=(a|1<<i);//,������� �������� � � �������� � ������ ���������
       }
       System.out.println(str1+"  "+a);
       return a;
    }
    
     public static String DecToBits(String str)
    {
        int s=Integer.valueOf(str);
        String str1="";
        for(int i=3;i>=0;--i)
        {
            str1+=((s>>i)& 1);//���� � u ��������� �� 3 ��� ������ � ������������ � 1.                               
        }
        System.out.println("�������� ��� S-�����: "+str1);
        return str1;
    }
    
    public static void toBits(String s)
    {
        String encoding = "UNICODE";
        BigInteger bi;
        try 
        {
            bi = new BigInteger(1, s.getBytes(encoding));
            bits=bi.toString(2).substring(16);
        }
        catch (UnsupportedEncodingException e)  
        {
        }
    }
        
    public static String toString(String bits)
    {
        String str="";
        for(int i=0; i<bits.length(); i+=16)
        {
                int code = Integer.parseInt(bits.substring(i, i+16),2);
                str+=(char)code;
        }
        return str;
    }
    public static String xor(String str1, String str2)
    {
        String str="";
    for (int i=0;i<str1.length();i++)
        {
            if(str1.charAt(i)!=str2.charAt(i))
                str+="1";
            else str+="0";
        }
    return str;
    }   
    
    public static String perestanovka(String str, int[] mas)
    {
        String s="";
        for (int i=0;i<mas.length;i++)
        {
            s+=str.charAt(mas[i]-1);
        }
        System.out.println("������������ ���������: "+s);
        return s;
    }
    
    public static String schifr(String str){
        while(str.length()<64)
            str+="0";
        str=perestanovka(str, nachper);
        //str=perestanovka(tobits(str), nachper);
        String s1="";
        String s2="";
        int k=str.length()/2;
        for(int i=0;i<str.length();i++){
            if(i<k) s1+=str.charAt(i);
            else s2+=str.charAt(i);
        }
        System.out.println("����������. ����� �����:"+s1);
        System.out.println("����������. ������ �����:"+s2);
        for(int i=0;i<=15;i++)
        {
            String news2=f(s2,i);
            String news1=xor(news2,s1);
            s1=s2;
            s2=news1;
        }
        s1+=s2;
        s1=perestanovka(s1, konper);
        return s1;
    }
    
    public static String deschifr(String str){
        str=perestanovka(str, nachper);
        String s1="";
        String s2="";
        int k=str.length()/2;
        for(int i=0;i<str.length();i++){
            if(i<k) s1+=str.charAt(i);
            else s2+=str.charAt(i);
        }
        System.out.println("����������. ����� �����:"+s1);
        System.out.println("����������. ������ �����:"+s2);
        for(int i=15;i>=0;i--)
        {
            String news1=f(s1,i);
            String news2=xor(news1,s2);
            s2=s1;
            s1=news2;
        }
        s1+=s2;
        s1=perestanovka(s1, konper);
        return s1;
    }
    
    public static String f(String str, int j)
    {
        String str1="";
        String[] blocks=new String[8];
        String s=perestanovka(str, rasshir);
        String news=xor(s, key[j]);
        System.out.println("�������� ������ ����� � ������ "+j+": "+news);
        for (int i=0;i<blocks.length;i++)
        {
            System.out.println("S-���� "+i+": ");
            blocks[i]=coordinats(news.substring(i*6, (i+1)*6), i);
            System.out.println(blocks[i]);
            str1+=DecToBits(blocks[i]);
        }
        System.out.println("������ S-�����: "+str1);
        str1=perestanovka(str1, fper);
        System.out.println("f-�������. �����: "+str1);
        return str1;
    }
    
   
    
     public static void main(String[] args) 
     {
        String shifr="", deshifr="";
        toBits(text);
        System.out.println("���. �����________________________________________________________");
        keygen(keyword);
        System.out.println("����������________________________________________________________");
        for(int i=0;i<bits.length();i+=64)
        {
        shifr+=schifr(bits.substring(i));
        }
        String shifrstr=toString(shifr);
        System.out.println("����������________________________________________________________");
        for(int i=0;i<shifr.length();i+=64)
        {
        deshifr+=deschifr(shifr.substring(i, i+64));
        }
        String deshifrstr=toString(deshifr);
        System.out.println();
        System.out.println("���������� � �����________________________________________________________");
        System.out.println("1-����, 2-�������, 3-��������");
        System.out.println(shifr);
        System.out.println(deshifr);
        System.out.println(bits);
        System.out.println("���������� ��������________________________________________________________");
        System.out.println("1-����, 2-�������, 3-��������");
        System.out.println(shifrstr);
        System.out.println(deshifrstr);
        System.out.println(text);        
    }


}