source: trunk/CrypPlugins/NativeCryptography/NativeCryptography.cpp @ 1892

Last change on this file since 1892 was 1208, checked in by Sven Rech, 12 years ago

little bit faster entropy implementation

File size: 6.1 KB
Line 
1// This is the main DLL file.
2
3#include "NativeCryptography.h"
4#include <stdlib.h>
5#include <string.h>
6
7namespace NativeCryptography {
8
9        /* Fast way to xor an AES block */
10        void Crypto::xorBlockAES(int *t1, int *t2)
11        {
12                t1[0] ^= t2[0];
13                t1[1] ^= t2[1];
14                t1[2] ^= t2[2];
15                t1[3] ^= t2[3];
16        }
17
18        /* Fast way to xor an DES block */
19        void Crypto::xorBlockDES(int *t1, int *t2)
20        {
21                t1[0] ^= t2[0];
22                t1[1] ^= t2[1];
23        }
24
25        void Crypto::encrypt(unsigned char* in, unsigned char* out, const cryptMethod method, AES_KEY* aeskey, DES_key_schedule* deskey)
26        {
27                if (method == cryptMethod::methodAES)
28                        AES_encrypt(in, out, aeskey);
29                else
30                        DES_ecb_encrypt((const_DES_cblock*)in, (const_DES_cblock*)out, deskey, DES_ENCRYPT);
31        }
32
33        void Crypto::decrypt(unsigned char* in, unsigned char* out, const cryptMethod method, AES_KEY* aeskey, DES_key_schedule* deskey)
34        {
35                if (method == cryptMethod::methodAES)
36                        AES_decrypt(in, out, aeskey);
37                else
38                        DES_ecb_encrypt((const_DES_cblock*)in, (const_DES_cblock*)out, deskey, DES_DECRYPT);
39        }
40
41
42        void Crypto::xorblock(unsigned char* t1, unsigned char* t2, const cryptMethod method) {
43                if (method == cryptMethod::methodAES)
44                        xorBlockAES((int*)t1, (int*)t2);
45                else
46                        xorBlockDES((int*)t1, (int*)t2); 
47        }
48
49        array<unsigned char>^ Crypto::decryptAESorDES(array<unsigned char>^ Input, array<unsigned char>^ Key, array<unsigned char>^ IV, const int bits, const int length, const int mode, const int blockSize, const cryptMethod method)
50        {
51                int numBlocks = length / blockSize;
52                if (length % blockSize != 0)
53                        numBlocks++;
54
55                bool noIV = false;
56
57                if (IV == nullptr)
58                {
59                        noIV = true;
60                        if (blockSize == 8)
61                                IV = zeroIV8;
62                        else if (blockSize == 16)
63                                IV = zeroIV16;
64                        else
65                                return nullptr;
66                }
67
68                pin_ptr<unsigned char> input = &Input[0];
69                pin_ptr<unsigned char> key = &Key[0];
70                pin_ptr<unsigned char> iv = &IV[0];
71
72                array<unsigned char>^ output = gcnew array<unsigned char>(length);
73                pin_ptr<unsigned char> outp = &output[0];
74
75                AES_KEY aeskey;
76                DES_key_schedule deskey;
77                if (mode == 2)  //CFB
78                {                       
79                        unsigned char block[16];        //16 is enough for AES and DES
80                        unsigned char shiftregister[16];
81                        //works only for little endian architectures:
82                        if (blockSize == 8)
83                        {
84                                *((unsigned int*)shiftregister) = *((unsigned int*)&iv[1]);
85                                *((unsigned int*)&shiftregister[4]) = (*((unsigned int*)&iv[4]) >> 8) | ((unsigned int)(input[0]) << 24);
86                        }
87                        else if (blockSize == 16)
88                        {
89                                *((unsigned int*)shiftregister) = *((unsigned int*)&iv[1]);
90                                *((unsigned int*)&shiftregister[4]) = (*((unsigned int*)&iv[4]) >> 8) | ((unsigned int)iv[8] << 24);
91                                *((unsigned int*)&shiftregister[8]) = (*((unsigned int*)&iv[8]) >> 8) | ((unsigned int)iv[12] << 24);
92                                *((unsigned int*)&shiftregister[12]) = (*((unsigned int*)&iv[12]) >> 8) | ((unsigned int)input[0] << 24);
93                        }
94                        else
95                                return nullptr;
96                       
97                        if (method == cryptMethod::methodAES)
98                                AES_set_encrypt_key(key, bits, &aeskey);
99                        else
100                                DES_set_key_unchecked((const_DES_cblock*)key, &deskey);
101
102                        encrypt(iv, block, method, &aeskey, &deskey);
103                        unsigned char leftmost = block[0];
104                        outp[0] = leftmost ^ input[0];
105
106                        for (int i = 1; i < length; i++)
107                        {
108                                encrypt(shiftregister, block, method, &aeskey, &deskey);
109                                leftmost = block[0];
110                                outp[i] = leftmost ^ input[i];
111                               
112                                //shift input[i] in register:
113                                if (blockSize == 8)
114                                {
115                                        *((unsigned int*)shiftregister) = *((unsigned int*)&shiftregister[1]);
116                                        *((unsigned int*)&shiftregister[4]) = (*((unsigned int*)&shiftregister[4]) >> 8) | ((unsigned int)input[i] << 24);
117                                }
118                                else if (blockSize == 16)
119                                {
120                                        *((unsigned int*)shiftregister) = *((unsigned int*)&shiftregister[1]);
121                                        *((unsigned int*)&shiftregister[4]) = (*((unsigned int*)&shiftregister[4]) >> 8) | ((unsigned int)shiftregister[8] << 24);
122                                        *((unsigned int*)&shiftregister[8]) = (*((unsigned int*)&shiftregister[8]) >> 8) | ((unsigned int)shiftregister[12] << 24);
123                                        *((unsigned int*)&shiftregister[12]) = (*((unsigned int*)&shiftregister[12]) >> 8) | ((unsigned int)input[i] << 24);
124                                }
125                        }
126                }
127                else    //CBC or ECB
128                {
129                        if (method == cryptMethod::methodAES)
130                                AES_set_decrypt_key(key, bits, &aeskey);
131                        else
132                                DES_set_key_unchecked((const_DES_cblock*)key, &deskey);
133
134                        decrypt(input, outp, method, &aeskey, &deskey);                         
135                        if (mode == 1 && !noIV)         //CBC
136                                xorblock(outp, iv, method);     
137                        for (int c = 1; c < numBlocks; c++)
138                        {
139                                decrypt(input+c*blockSize, outp+c*blockSize, method, &aeskey, &deskey);
140                                if (mode == 1)          //CBC
141                                        xorblock(outp+c*blockSize, input+(c-1)*blockSize, method);                             
142                        }
143                }
144
145                return output;
146        }
147
148        double *xlogx = 0;
149
150        void prepareEntropy(int size)
151    {
152                if (xlogx != 0)
153                        free(xlogx);
154        xlogx = (double*)malloc((size + 1)*sizeof(double));
155        //precomputations for fast entropy calculation 
156        xlogx[0] = 0.0;
157        for (int i = 1; i <= size; i++)
158                        xlogx[i] = -1.0 * i * Math::Log(i / (double)size) / Math::Log(2.0);
159    }
160
161
162        double Crypto::calculateEntropy(array<unsigned char>^ text, int bytesToUse)
163        {
164        if (bytesToUse > text->Length)
165            bytesToUse = text->Length;
166                static int lastUsedSize = -1;
167
168        if (lastUsedSize != bytesToUse)
169        {
170            try
171            {
172                prepareMutex->WaitOne();
173                if (lastUsedSize != bytesToUse)
174                {
175                    prepareEntropy(bytesToUse);
176                    lastUsedSize = bytesToUse;
177                }
178            }
179            finally
180            {
181                prepareMutex->ReleaseMutex();
182            }
183        }
184
185                pin_ptr<unsigned char> t = &text[0];
186
187        int n[256];
188                memset(n,0,sizeof(n));
189        //count all ASCII symbols
190        for (int counter = 0; counter < bytesToUse; counter++)
191        {
192            n[t[counter]]++;
193        }
194
195        double entropy = 0;
196        //calculate probabilities and sum entropy
197        for (short i = 0; i < 256; i++)                 
198            entropy += xlogx[n[i]];
199
200        return entropy / (double)bytesToUse;
201        }
202
203}
Note: See TracBrowser for help on using the repository browser.