using System;
using System.Collections;
using System.Collections.Generic;
using System.IO;
using System.Linq;
using System.Security.Cryptography;
using System.Text;

namespace POSV.Utils
{
    public static class DesUtils
    {
        //默认密钥向量
        private static byte[] Keys = { 1 , 5 , 6 , 3 , 8 , 5 , 9 , 0 };
        // 密钥
        private static String KEY_STR = "$QBOSSY$";

        public static string Encrypt(string data)
        {
            try
            {
                byte[] rgbKey = Encoding.UTF8.GetBytes(KEY_STR.Substring(0 , 8));
                byte[] rgbIV = Keys;
                byte[] inputByteArray = Encoding.UTF8.GetBytes(data);
                DESCryptoServiceProvider dCSP = new DESCryptoServiceProvider();
                MemoryStream mStream = new MemoryStream();
                CryptoStream cStream = new CryptoStream(mStream , dCSP.CreateEncryptor(rgbKey , rgbIV) , CryptoStreamMode.Write);
                cStream.Write(inputByteArray , 0 , inputByteArray.Length);
                cStream.FlushFinalBlock();
                return SafeBase64Utils.ToBase64(mStream.ToArray());
            }
            catch
            {
                return data;
            }
        }

        public static string Decrypt(string data)
        {
            try
            {
                byte[] rgbKey = Encoding.UTF8.GetBytes(KEY_STR);
                byte[] rgbIV = Keys;
                byte[] inputByteArray = Convert.FromBase64String(SafeBase64Utils.SafeBase64ToBase64(data));
                DESCryptoServiceProvider DCSP = new DESCryptoServiceProvider();
                MemoryStream mStream = new MemoryStream();
                CryptoStream cStream = new CryptoStream(mStream , DCSP.CreateDecryptor(rgbKey , rgbIV) , CryptoStreamMode.Write);
                cStream.Write(inputByteArray , 0 , inputByteArray.Length);
                cStream.FlushFinalBlock();
                return Encoding.UTF8.GetString(mStream.ToArray());
            }
            catch
            {
                return data;
            }
        }

        /// <summary>
        /// DES 加密
        /// </summary>
        /// <param name="str">待加密的字符串</param>
        /// <returns></returns>
        public static string EncryptString(string data)
        {
            var desObj = new Des();

            return desObj.strEnc(data , KEY_STR , KEY_STR , KEY_STR);
        }

        /// <summary>
        /// DES 解密
        /// </summary>
        /// <param name="str">待解密的字符串</param>
        /// <returns></returns>
        public static string DecryptString(string str)
        {
            var desObj = new Des();
            return desObj.strDec(str , KEY_STR , KEY_STR , KEY_STR);
        }




    }

    #region  加解密方法及相关函数,兼容Javascript的DES

    public class Des
    {
        public string strEnc(string data , string firstKey , string secondKey , string thirdKey)
        {
            int leng = data.Length;
            string encData = "";
            ArrayList firstKeyBt = null, secondKeyBt = null, thirdKeyBt = null;
            int firstLength = 0, secondLength = 0, thirdLength = 0;
            if (firstKey != null && firstKey != "")
            {
                firstKeyBt = getKeyBytes(firstKey);
                firstLength = firstKeyBt.Count;
            }

            if (secondKey != null && secondKey != "")
            {
                secondKeyBt = getKeyBytes(secondKey);
                secondLength = secondKeyBt.Count;
            }
            if (thirdKey != null && thirdKey != "")
            {
                thirdKeyBt = getKeyBytes(thirdKey);
                thirdLength = thirdKeyBt.Count;
            }

            if (leng > 0)
            {
                if (leng < 4)
                {
                    int[] bt = strToBt(data);
                    int[] encByte = null;
                    if (firstKey != null && firstKey != "" && secondKey != null
                            && secondKey != "" && thirdKey != null
                            && thirdKey != "")
                    {
                        int[] tempBt;
                        int x, y, z;
                        tempBt = bt;
                        for (x = 0; x < firstLength; x++)
                        {
                            tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                        }
                        for (y = 0; y < secondLength; y++)
                        {
                            tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                        }
                        for (z = 0; z < thirdLength; z++)
                        {
                            tempBt = enc(tempBt , (int[])thirdKeyBt[z]);
                        }
                        encByte = tempBt;
                    }
                    else
                    {
                        if (firstKey != null && firstKey != "" && secondKey != null
                                && secondKey != "")
                        {
                            int[] tempBt;
                            int x, y;
                            tempBt = bt;
                            for (x = 0; x < firstLength; x++)
                            {
                                tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                            }
                            for (y = 0; y < secondLength; y++)
                            {
                                tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                            }
                            encByte = tempBt;
                        }
                        else
                        {
                            if (firstKey != null && firstKey != "")
                            {
                                int[] tempBt;
                                int x = 0;
                                tempBt = bt;
                                for (x = 0; x < firstLength; x++)
                                {
                                    tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                                }
                                encByte = tempBt;
                            }
                        }
                    }
                    encData = bt64ToHex(encByte);
                }
                else
                {
                    int iterator = (leng / 4);
                    int remainder = leng % 4;
                    int i = 0;
                    for (i = 0; i < iterator; i++)
                    {
                        string tempData = data.Substring(i * 4 + 0 , (i * 4 + 4) - (i * 4 + 0));
                        int[] tempByte = strToBt(tempData);
                        int[] encByte = null;
                        if (firstKey != null && firstKey != "" && secondKey != null
                                && secondKey != "" && thirdKey != null
                                && thirdKey != "")
                        {
                            int[] tempBt;
                            int x, y, z;
                            tempBt = tempByte;
                            for (x = 0; x < firstLength; x++)
                            {
                                tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                            }
                            for (y = 0; y < secondLength; y++)
                            {
                                tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                            }
                            for (z = 0; z < thirdLength; z++)
                            {
                                tempBt = enc(tempBt , (int[])thirdKeyBt[z]);
                            }
                            encByte = tempBt;
                        }
                        else
                        {
                            if (firstKey != null && firstKey != ""
                                    && secondKey != null && secondKey != "")
                            {
                                int[] tempBt;
                                int x, y;
                                tempBt = tempByte;
                                for (x = 0; x < firstLength; x++)
                                {
                                    tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                                }
                                for (y = 0; y < secondLength; y++)
                                {
                                    tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                                }
                                encByte = tempBt;
                            }
                            else
                            {
                                if (firstKey != null && firstKey != "")
                                {
                                    int[] tempBt;
                                    int x;
                                    tempBt = tempByte;
                                    for (x = 0; x < firstLength; x++)
                                    {
                                        tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                                    }
                                    encByte = tempBt;
                                }
                            }
                        }
                        encData += bt64ToHex(encByte);
                    }
                    if (remainder > 0)
                    {
                        String remainderData = data.Substring(iterator * 4 + 0 , leng - (iterator * 4 + 0));
                        int[] tempByte = strToBt(remainderData);
                        int[] encByte = null;
                        if (firstKey != null && firstKey != "" && secondKey != null
                                && secondKey != "" && thirdKey != null
                                && thirdKey != "")
                        {
                            int[] tempBt;
                            int x, y, z;
                            tempBt = tempByte;
                            for (x = 0; x < firstLength; x++)
                            {
                                tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                            }
                            for (y = 0; y < secondLength; y++)
                            {
                                tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                            }
                            for (z = 0; z < thirdLength; z++)
                            {
                                tempBt = enc(tempBt , (int[])thirdKeyBt[z]);
                            }
                            encByte = tempBt;
                        }
                        else
                        {
                            if (firstKey != null && firstKey != ""
                                    && secondKey != null && secondKey != "")
                            {
                                int[] tempBt;
                                int x, y;
                                tempBt = tempByte;
                                for (x = 0; x < firstLength; x++)
                                {
                                    tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                                }
                                for (y = 0; y < secondLength; y++)
                                {
                                    tempBt = enc(tempBt , (int[])secondKeyBt[y]);
                                }
                                encByte = tempBt;
                            }
                            else
                            {
                                if (firstKey != null && firstKey != "")
                                {
                                    int[] tempBt;
                                    int x;
                                    tempBt = tempByte;
                                    for (x = 0; x < firstLength; x++)
                                    {
                                        tempBt = enc(tempBt , (int[])firstKeyBt[x]);
                                    }
                                    encByte = tempBt;
                                }
                            }
                        }
                        encData += bt64ToHex(encByte);
                    }
                }
            }
            return encData;
        }

        /*
     * decrypt the encrypted string to the original string
     * 
     * return the original string
     */
        public string strDec(string data , string firstKey , string secondKey ,
                string thirdKey)
        {
            int leng = data.Length;
            string decStr = "";
            ArrayList firstKeyBt = null, secondKeyBt = null, thirdKeyBt = null;
            int firstLength = 0, secondLength = 0, thirdLength = 0;
            if (firstKey != null && firstKey != "")
            {
                firstKeyBt = getKeyBytes(firstKey);
                firstLength = firstKeyBt.Count;
            }
            if (secondKey != null && secondKey != "")
            {
                secondKeyBt = getKeyBytes(secondKey);
                secondLength = secondKeyBt.Count;
            }
            if (thirdKey != null && thirdKey != "")
            {
                thirdKeyBt = getKeyBytes(thirdKey);
                thirdLength = thirdKeyBt.Count;
            }

            int iterator = leng / 16;
            int i = 0;
            for (i = 0; i < iterator; i++)
            {
                String tempData = data.Substring(i * 16 + 0 , (i * 16 + 16) - (i * 16 + 0));
                String strByte = hexToBt64(tempData);
                int[] intByte = new int[64];
                int j = 0;
                for (j = 0; j < 64; j++)
                {
                    intByte[j] = int.Parse(strByte.Substring(j , 1));
                }
                int[] decByte = null;
                if (firstKey != null && firstKey != "" && secondKey != null
                        && secondKey != "" && thirdKey != null && thirdKey != "")
                {
                    int[] tempBt;
                    int x, y, z;
                    tempBt = intByte;
                    for (x = thirdLength - 1; x >= 0; x--)
                    {
                        tempBt = dec(tempBt , (int[])thirdKeyBt[x]);
                    }
                    for (y = secondLength - 1; y >= 0; y--)
                    {
                        tempBt = dec(tempBt , (int[])secondKeyBt[y]);
                    }
                    for (z = firstLength - 1; z >= 0; z--)
                    {
                        tempBt = dec(tempBt , (int[])firstKeyBt[z]);
                    }
                    decByte = tempBt;
                }
                else
                {
                    if (firstKey != null && firstKey != "" && secondKey != null
                            && secondKey != "")
                    {
                        int[] tempBt;
                        int x, y, z;
                        tempBt = intByte;
                        for (x = secondLength - 1; x >= 0; x--)
                        {
                            tempBt = dec(tempBt , (int[])secondKeyBt[x]);
                        }
                        for (y = firstLength - 1; y >= 0; y--)
                        {
                            tempBt = dec(tempBt , (int[])firstKeyBt[y]);
                        }
                        decByte = tempBt;
                    }
                    else
                    {
                        if (firstKey != null && firstKey != "")
                        {
                            int[] tempBt;
                            int x, y, z;
                            tempBt = intByte;
                            for (x = firstLength - 1; x >= 0; x--)
                            {
                                tempBt = dec(tempBt , (int[])firstKeyBt[x]);
                            }
                            decByte = tempBt;
                        }
                    }
                }
                decStr += byteToString(decByte);
            }
            return decStr;
        }

        public ArrayList getKeyBytes(string key)
        {
            var keyBytes = new ArrayList();
            int length = key.Length;
            int iterator = (length / 4);
            int remainder = length % 4;
            int i = 0;
            for (i = 0; i < iterator; i++)
            {
                keyBytes.Insert(i , strToBt(key.Substring(i * 4 + 0 , (i * 4 + 4) - (i * 4 + 0))));
            }
            if (remainder > 0)
            {
                // keyBytes[i] = strToBt(key.substring(i*4+0,leng));
                keyBytes.Insert(i , strToBt(key.Substring(i * 4 + 0 , length - (i * 4 + 0))));
            }
            return keyBytes;
        }

        /*
    * chang the string(it's length <= 4) into the bit array
    * 
    * return bit array(it's length = 64)
    */
        public int[] strToBt(String str)
        {
            int leng = str.Length;
            int[] bt = new int[64];
            if (leng < 4)
            {
                int i = 0, j = 0, p = 0, q = 0;
                for (i = 0; i < leng; i++)
                {
                    int k = str[i];
                    for (j = 0; j < 16; j++)
                    {
                        int pow = 1, m = 0;
                        for (m = 15; m > j; m--)
                        {
                            pow *= 2;
                        }
                        // bt.set(16*i+j,""+(k/pow)%2));
                        bt[16 * i + j] = (k / pow) % 2;
                    }
                }
                for (p = leng; p < 4; p++)
                {
                    int k = 0;
                    for (q = 0; q < 16; q++)
                    {
                        int pow = 1, m = 0;
                        for (m = 15; m > q; m--)
                        {
                            pow *= 2;
                        }
                        // bt[16*p+q]=parseInt(k/pow)%2;
                        // bt.add(16*p+q,""+((k/pow)%2));
                        bt[16 * p + q] = (k / pow) % 2;
                    }
                }
            }
            else
            {
                for (int i = 0; i < 4; i++)
                {
                    int k = str[i];
                    for (int j = 0; j < 16; j++)
                    {
                        int pow = 1;
                        for (int m = 15; m > j; m--)
                        {
                            pow *= 2;
                        }
                        // bt[16*i+j]=parseInt(k/pow)%2;
                        // bt.add(16*i+j,""+((k/pow)%2));
                        bt[16 * i + j] = (k / pow) % 2;
                    }
                }
            }
            return bt;
        }

        /*
     * chang the bit(it's length = 4) into the hex
     * 
     * return hex
     */
        public string bt4ToHex(string binary)
        {
            string hex = "";
            if (binary.Equals("0000" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "0";
            }
            else if (binary.Equals("0001" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "1";
            }
            else if (binary.Equals("0010" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "2";
            }
            else if (binary.Equals("0011" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "3";
            }
            else if (binary.Equals("0100" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "4";
            }
            else if (binary.Equals("0101" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "5";
            }
            else if (binary.Equals("0110" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "6";
            }
            else if (binary.Equals("0111" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "7";
            }
            else if (binary.Equals("1000" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "8";
            }
            else if (binary.Equals("1001" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "9";
            }
            else if (binary.Equals("1010" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "A";
            }
            else if (binary.Equals("1011" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "B";
            }
            else if (binary.Equals("1100" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "C";
            }
            else if (binary.Equals("1101" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "D";
            }
            else if (binary.Equals("1110" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "E";
            }
            else if (binary.Equals("1111" , StringComparison.CurrentCultureIgnoreCase))
            {
                hex = "F";
            }

            return hex;
        }

        /*
     * chang the hex into the bit(it's length = 4)
     * 
     * return the bit(it's length = 4)
     */
        public string hexToBt4(string hex)
        {
            string binary = "";
            if (hex.Equals("0" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0000";
            }
            if (hex.Equals("1" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0001";
            }
            if (hex.Equals("2" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0010";
            }
            if (hex.Equals("3" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0011";
            }
            if (hex.Equals("4" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0100";
            }
            if (hex.Equals("5" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0101";
            }
            if (hex.Equals("6" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0110";
            }
            if (hex.Equals("7" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "0111";
            }
            if (hex.Equals("8" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1000";
            }
            if (hex.Equals("9" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1001";
            }
            if (hex.Equals("A" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1010";
            }
            if (hex.Equals("B" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1011";
            }
            if (hex.Equals("C" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1100";
            }
            if (hex.Equals("D" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1101";
            }
            if (hex.Equals("E" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1110";
            }
            if (hex.Equals("F" , StringComparison.CurrentCultureIgnoreCase))
            {
                binary = "1111";
            }
            return binary;
        }

        /*
    * chang the bit(it's length = 64) into the string
    * 
    * return string
    */
        public string byteToString(int[] byteData)
        {
            string str = "";
            for (int i = 0; i < 4; i++)
            {
                int count = 0;
                for (int j = 0; j < 16; j++)
                {
                    int pow = 1;
                    for (int m = 15; m > j; m--)
                    {
                        pow *= 2;
                    }
                    count += byteData[16 * i + j] * pow;
                }
                if (count != 0)
                {
                    str += "" + (char)(count);
                }
            }
            return str;
        }

        public string bt64ToHex(int[] byteData)
        {
            string hex = "";
            for (int i = 0; i < 16; i++)
            {
                string bt = "";
                for (int j = 0; j < 4; j++)
                {
                    bt += byteData[i * 4 + j];
                }
                hex += bt4ToHex(bt);
            }
            return hex;
        }

        public string hexToBt64(string hex)
        {
            string binary = "";
            for (int i = 0; i < 16; i++)
            {
                binary += hexToBt4(hex.Substring(i , 1));
            }
            return binary;
        }


        public int[] enc(int[] dataByte , int[] keyByte)
        {
            int[,] keys = generateKeys(keyByte);
            int[] ipByte = initPermute(dataByte);
            int[] ipLeft = new int[32];
            int[] ipRight = new int[32];
            int[] tempLeft = new int[32];
            int i = 0, j = 0, k = 0, m = 0, n = 0;
            for (k = 0; k < 32; k++)
            {
                ipLeft[k] = ipByte[k];
                ipRight[k] = ipByte[32 + k];
            }
            for (i = 0; i < 16; i++)
            {
                for (j = 0; j < 32; j++)
                {
                    tempLeft[j] = ipLeft[j];
                    ipLeft[j] = ipRight[j];
                }
                int[] key = new int[48];
                for (m = 0; m < 48; m++)
                {
                    key[m] = keys[i , m];
                }
                int[] tempRight = xor(pPermute(sBoxPermute(xor(
                        expandPermute(ipRight) , key))) , tempLeft);
                for (n = 0; n < 32; n++)
                {
                    ipRight[n] = tempRight[n];
                }

            }

            int[] finalData = new int[64];
            for (i = 0; i < 32; i++)
            {
                finalData[i] = ipRight[i];
                finalData[32 + i] = ipLeft[i];
            }
            return finallyPermute(finalData);
        }

        public int[] dec(int[] dataByte , int[] keyByte)
        {
            int[,] keys = generateKeys(keyByte);
            int[] ipByte = initPermute(dataByte);
            int[] ipLeft = new int[32];
            int[] ipRight = new int[32];
            int[] tempLeft = new int[32];
            int i = 0, j = 0, k = 0, m = 0, n = 0;
            for (k = 0; k < 32; k++)
            {
                ipLeft[k] = ipByte[k];
                ipRight[k] = ipByte[32 + k];
            }
            for (i = 15; i >= 0; i--)
            {
                for (j = 0; j < 32; j++)
                {
                    tempLeft[j] = ipLeft[j];
                    ipLeft[j] = ipRight[j];
                }
                int[] key = new int[48];
                for (m = 0; m < 48; m++)
                {
                    key[m] = keys[i , m];
                }

                int[] tempRight = xor(pPermute(sBoxPermute(xor(
                        expandPermute(ipRight) , key))) , tempLeft);
                for (n = 0; n < 32; n++)
                {
                    ipRight[n] = tempRight[n];
                }
            }

            int[] finalData = new int[64];
            for (i = 0; i < 32; i++)
            {
                finalData[i] = ipRight[i];
                finalData[32 + i] = ipLeft[i];
            }
            return finallyPermute(finalData);
        }

        public int[] initPermute(int[] originalData)
        {
            int[] ipByte = new int[64];
            int i = 0, m = 1, n = 0, j, k;
            for (i = 0, m = 1, n = 0; i < 4; i++, m += 2, n += 2)
            {
                for (j = 7, k = 0; j >= 0; j--, k++)
                {
                    ipByte[i * 8 + k] = originalData[j * 8 + m];
                    ipByte[i * 8 + k + 32] = originalData[j * 8 + n];
                }
            }
            return ipByte;
        }

        public int[] expandPermute(int[] rightData)
        {
            int[] epByte = new int[48];
            int i, j;
            for (i = 0; i < 8; i++)
            {
                if (i == 0)
                {
                    epByte[i * 6 + 0] = rightData[31];
                }
                else
                {
                    epByte[i * 6 + 0] = rightData[i * 4 - 1];
                }
                epByte[i * 6 + 1] = rightData[i * 4 + 0];
                epByte[i * 6 + 2] = rightData[i * 4 + 1];
                epByte[i * 6 + 3] = rightData[i * 4 + 2];
                epByte[i * 6 + 4] = rightData[i * 4 + 3];
                if (i == 7)
                {
                    epByte[i * 6 + 5] = rightData[0];
                }
                else
                {
                    epByte[i * 6 + 5] = rightData[i * 4 + 4];
                }
            }
            return epByte;
        }

        public int[] xor(int[] byteOne , int[] byteTwo)
        {
            // var xorByte = new Array(byteOne.length);
            // for(int i = 0;i < byteOne.length; i ++){
            // xorByte[i] = byteOne[i] ^ byteTwo[i];
            // }
            // return xorByte;
            int[] xorByte = new int[byteOne.Length];
            for (int i = 0; i < byteOne.Length; i++)
            {
                xorByte[i] = byteOne[i] ^ byteTwo[i];
            }
            return xorByte;
        }

        public int[] sBoxPermute(int[] expandByte)
        {

            // var sBoxByte = new Array(32);
            int[] sBoxByte = new int[32];
            String binary = "";
            int[,] s1 = {
                { 14, 4, 13, 1, 2, 15, 11, 8, 3, 10, 6, 12, 5, 9, 0, 7 },
                { 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 } };

            /* Table - s2 */
            int[,] s2 = {
                { 15, 1, 8, 14, 6, 11, 3, 4, 9, 7, 2, 13, 12, 0, 5, 10 },
                { 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 } };

            /* Table - s3 */
            int[,] s3 = {
                { 10, 0, 9, 14, 6, 3, 15, 5, 1, 13, 12, 7, 11, 4, 2, 8 },
                { 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 } };
            /* Table - s4 */
            int[,] s4 = {
                { 7, 13, 14, 3, 0, 6, 9, 10, 1, 2, 8, 5, 11, 12, 4, 15 },
                { 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 } };

            /* Table - s5 */
            int[,] s5 = {
                { 2, 12, 4, 1, 7, 10, 11, 6, 8, 5, 3, 15, 13, 0, 14, 9 },
                { 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 } };

            /* Table - s6 */
            int[,] s6 = {
                { 12, 1, 10, 15, 9, 2, 6, 8, 0, 13, 3, 4, 14, 7, 5, 11 },
                { 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 } };

            /* Table - s7 */
            int[,] s7 = {
                { 4, 11, 2, 14, 15, 0, 8, 13, 3, 12, 9, 7, 5, 10, 6, 1 },
                { 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 } };

            /* Table - s8 */
            int[,] s8 = {
                { 13, 2, 8, 4, 6, 15, 11, 1, 10, 9, 3, 14, 5, 0, 12, 7 },
                { 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 } };

            for (int m = 0; m < 8; m++)
            {
                int i = 0, j = 0;
                i = expandByte[m * 6 + 0] * 2 + expandByte[m * 6 + 5];
                j = expandByte[m * 6 + 1] * 2 * 2 * 2 + expandByte[m * 6 + 2] * 2
                        * 2 + expandByte[m * 6 + 3] * 2 + expandByte[m * 6 + 4];
                switch (m)
                {
                    case 0:
                        binary = getBoxBinary(s1[i , j]);
                        break;
                    case 1:
                        binary = getBoxBinary(s2[i , j]);
                        break;
                    case 2:
                        binary = getBoxBinary(s3[i , j]);
                        break;
                    case 3:
                        binary = getBoxBinary(s4[i , j]);
                        break;
                    case 4:
                        binary = getBoxBinary(s5[i , j]);
                        break;
                    case 5:
                        binary = getBoxBinary(s6[i , j]);
                        break;
                    case 6:
                        binary = getBoxBinary(s7[i , j]);
                        break;
                    case 7:
                        binary = getBoxBinary(s8[i , j]);
                        break;
                }

                // 1110
                sBoxByte[m * 4 + 0] = int.Parse(binary.Substring(0 , 1));
                sBoxByte[m * 4 + 1] = int.Parse(binary.Substring(1 , 1));
                sBoxByte[m * 4 + 2] = int.Parse(binary.Substring(2 , 1));
                sBoxByte[m * 4 + 3] = int.Parse(binary.Substring(3 , 1));
            }
            return sBoxByte;
        }

        public int[] pPermute(int[] sBoxByte)
        {
            int[] pBoxPermute = new int[32];
            pBoxPermute[0] = sBoxByte[15];
            pBoxPermute[1] = sBoxByte[6];
            pBoxPermute[2] = sBoxByte[19];
            pBoxPermute[3] = sBoxByte[20];
            pBoxPermute[4] = sBoxByte[28];
            pBoxPermute[5] = sBoxByte[11];
            pBoxPermute[6] = sBoxByte[27];
            pBoxPermute[7] = sBoxByte[16];
            pBoxPermute[8] = sBoxByte[0];
            pBoxPermute[9] = sBoxByte[14];
            pBoxPermute[10] = sBoxByte[22];
            pBoxPermute[11] = sBoxByte[25];
            pBoxPermute[12] = sBoxByte[4];
            pBoxPermute[13] = sBoxByte[17];
            pBoxPermute[14] = sBoxByte[30];
            pBoxPermute[15] = sBoxByte[9];
            pBoxPermute[16] = sBoxByte[1];
            pBoxPermute[17] = sBoxByte[7];
            pBoxPermute[18] = sBoxByte[23];
            pBoxPermute[19] = sBoxByte[13];
            pBoxPermute[20] = sBoxByte[31];
            pBoxPermute[21] = sBoxByte[26];
            pBoxPermute[22] = sBoxByte[2];
            pBoxPermute[23] = sBoxByte[8];
            pBoxPermute[24] = sBoxByte[18];
            pBoxPermute[25] = sBoxByte[12];
            pBoxPermute[26] = sBoxByte[29];
            pBoxPermute[27] = sBoxByte[5];
            pBoxPermute[28] = sBoxByte[21];
            pBoxPermute[29] = sBoxByte[10];
            pBoxPermute[30] = sBoxByte[3];
            pBoxPermute[31] = sBoxByte[24];
            return pBoxPermute;
        }

        public int[] finallyPermute(int[] endByte)
        {
            int[] fpByte = new int[64];
            fpByte[0] = endByte[39];
            fpByte[1] = endByte[7];
            fpByte[2] = endByte[47];
            fpByte[3] = endByte[15];
            fpByte[4] = endByte[55];
            fpByte[5] = endByte[23];
            fpByte[6] = endByte[63];
            fpByte[7] = endByte[31];
            fpByte[8] = endByte[38];
            fpByte[9] = endByte[6];
            fpByte[10] = endByte[46];
            fpByte[11] = endByte[14];
            fpByte[12] = endByte[54];
            fpByte[13] = endByte[22];
            fpByte[14] = endByte[62];
            fpByte[15] = endByte[30];
            fpByte[16] = endByte[37];
            fpByte[17] = endByte[5];
            fpByte[18] = endByte[45];
            fpByte[19] = endByte[13];
            fpByte[20] = endByte[53];
            fpByte[21] = endByte[21];
            fpByte[22] = endByte[61];
            fpByte[23] = endByte[29];
            fpByte[24] = endByte[36];
            fpByte[25] = endByte[4];
            fpByte[26] = endByte[44];
            fpByte[27] = endByte[12];
            fpByte[28] = endByte[52];
            fpByte[29] = endByte[20];
            fpByte[30] = endByte[60];
            fpByte[31] = endByte[28];
            fpByte[32] = endByte[35];
            fpByte[33] = endByte[3];
            fpByte[34] = endByte[43];
            fpByte[35] = endByte[11];
            fpByte[36] = endByte[51];
            fpByte[37] = endByte[19];
            fpByte[38] = endByte[59];
            fpByte[39] = endByte[27];
            fpByte[40] = endByte[34];
            fpByte[41] = endByte[2];
            fpByte[42] = endByte[42];
            fpByte[43] = endByte[10];
            fpByte[44] = endByte[50];
            fpByte[45] = endByte[18];
            fpByte[46] = endByte[58];
            fpByte[47] = endByte[26];
            fpByte[48] = endByte[33];
            fpByte[49] = endByte[1];
            fpByte[50] = endByte[41];
            fpByte[51] = endByte[9];
            fpByte[52] = endByte[49];
            fpByte[53] = endByte[17];
            fpByte[54] = endByte[57];
            fpByte[55] = endByte[25];
            fpByte[56] = endByte[32];
            fpByte[57] = endByte[0];
            fpByte[58] = endByte[40];
            fpByte[59] = endByte[8];
            fpByte[60] = endByte[48];
            fpByte[61] = endByte[16];
            fpByte[62] = endByte[56];
            fpByte[63] = endByte[24];
            return fpByte;
        }

        public String getBoxBinary(int i)
        {
            String binary = "";
            switch (i)
            {
                case 0:
                    binary = "0000";
                    break;
                case 1:
                    binary = "0001";
                    break;
                case 2:
                    binary = "0010";
                    break;
                case 3:
                    binary = "0011";
                    break;
                case 4:
                    binary = "0100";
                    break;
                case 5:
                    binary = "0101";
                    break;
                case 6:
                    binary = "0110";
                    break;
                case 7:
                    binary = "0111";
                    break;
                case 8:
                    binary = "1000";
                    break;
                case 9:
                    binary = "1001";
                    break;
                case 10:
                    binary = "1010";
                    break;
                case 11:
                    binary = "1011";
                    break;
                case 12:
                    binary = "1100";
                    break;
                case 13:
                    binary = "1101";
                    break;
                case 14:
                    binary = "1110";
                    break;
                case 15:
                    binary = "1111";
                    break;
            }
            return binary;
        }

        /*
         * generate 16 keys for xor
         * 
         */
        public int[,] generateKeys(int[] keyByte)
        {
            int[] key = new int[56];
            int[,] keys = new int[16 , 48];

            int[] loop = new int[] { 1 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 1 , 2 , 2 , 2 , 2 , 2 , 2 , 1 };

            for (int x = 0; x < 7; x++)
            {
                for (int y = 0, k = 7; y < 8; y++, k--)
                {
                    key[x * 8 + y] = keyByte[8 * k + x];
                }
            }

            int i = 0;
            for (i = 0; i < 16; i++)
            {
                int tempLeft = 0;
                int tempRight = 0;
                for (int j = 0; j < loop[i]; j++)
                {
                    tempLeft = key[0];
                    tempRight = key[28];
                    for (int k = 0; k < 27; k++)
                    {
                        key[k] = key[k + 1];
                        key[28 + k] = key[29 + k];
                    }
                    key[27] = tempLeft;
                    key[55] = tempRight;
                }

                int[] tempKey = new int[48];
                tempKey[0] = key[13];
                tempKey[1] = key[16];
                tempKey[2] = key[10];
                tempKey[3] = key[23];
                tempKey[4] = key[0];
                tempKey[5] = key[4];
                tempKey[6] = key[2];
                tempKey[7] = key[27];
                tempKey[8] = key[14];
                tempKey[9] = key[5];
                tempKey[10] = key[20];
                tempKey[11] = key[9];
                tempKey[12] = key[22];
                tempKey[13] = key[18];
                tempKey[14] = key[11];
                tempKey[15] = key[3];
                tempKey[16] = key[25];
                tempKey[17] = key[7];
                tempKey[18] = key[15];
                tempKey[19] = key[6];
                tempKey[20] = key[26];
                tempKey[21] = key[19];
                tempKey[22] = key[12];
                tempKey[23] = key[1];
                tempKey[24] = key[40];
                tempKey[25] = key[51];
                tempKey[26] = key[30];
                tempKey[27] = key[36];
                tempKey[28] = key[46];
                tempKey[29] = key[54];
                tempKey[30] = key[29];
                tempKey[31] = key[39];
                tempKey[32] = key[50];
                tempKey[33] = key[44];
                tempKey[34] = key[32];
                tempKey[35] = key[47];
                tempKey[36] = key[43];
                tempKey[37] = key[48];
                tempKey[38] = key[38];
                tempKey[39] = key[55];
                tempKey[40] = key[33];
                tempKey[41] = key[52];
                tempKey[42] = key[45];
                tempKey[43] = key[41];
                tempKey[44] = key[49];
                tempKey[45] = key[35];
                tempKey[46] = key[28];
                tempKey[47] = key[31];
                int m;
                switch (i)
                {
                    case 0:
                        for (m = 0; m < 48; m++)
                        {
                            keys[0 , m] = tempKey[m];
                        }
                        break;
                    case 1:
                        for (m = 0; m < 48; m++)
                        {
                            keys[1 , m] = tempKey[m];
                        }
                        break;
                    case 2:
                        for (m = 0; m < 48; m++)
                        {
                            keys[2 , m] = tempKey[m];
                        }
                        break;
                    case 3:
                        for (m = 0; m < 48; m++)
                        {
                            keys[3 , m] = tempKey[m];
                        }
                        break;
                    case 4:
                        for (m = 0; m < 48; m++)
                        {
                            keys[4 , m] = tempKey[m];
                        }
                        break;
                    case 5:
                        for (m = 0; m < 48; m++)
                        {
                            keys[5 , m] = tempKey[m];
                        }
                        break;
                    case 6:
                        for (m = 0; m < 48; m++)
                        {
                            keys[6 , m] = tempKey[m];
                        }
                        break;
                    case 7:
                        for (m = 0; m < 48; m++)
                        {
                            keys[7 , m] = tempKey[m];
                        }
                        break;
                    case 8:
                        for (m = 0; m < 48; m++)
                        {
                            keys[8 , m] = tempKey[m];
                        }
                        break;
                    case 9:
                        for (m = 0; m < 48; m++)
                        {
                            keys[9 , m] = tempKey[m];
                        }
                        break;
                    case 10:
                        for (m = 0; m < 48; m++)
                        {
                            keys[10 , m] = tempKey[m];
                        }
                        break;
                    case 11:
                        for (m = 0; m < 48; m++)
                        {
                            keys[11 , m] = tempKey[m];
                        }
                        break;
                    case 12:
                        for (m = 0; m < 48; m++)
                        {
                            keys[12 , m] = tempKey[m];
                        }
                        break;
                    case 13:
                        for (m = 0; m < 48; m++)
                        {
                            keys[13 , m] = tempKey[m];
                        }
                        break;
                    case 14:
                        for (m = 0; m < 48; m++)
                        {
                            keys[14 , m] = tempKey[m];
                        }
                        break;
                    case 15:
                        for (m = 0; m < 48; m++)
                        {
                            keys[15 , m] = tempKey[m];
                        }
                        break;
                }
            }
            return keys;
        }
    }

    #endregion

}