Here is the arduino DES algorithm which implements a full DES encryption and decoding.
You can set the key and use any plaintext and cipher text and take the algorithm any way you want.
It is very visual in that every step prints to screen all the details so you can see how it works. This way you will quickly grasp the DES algorithm.
You can find the arduino DES algorithm code to download in my example below which is based on the Daniel Otte version (See link below). If you want to see the detailed steps of how a DES algorithm is built up you can look at this page describing the data encryption standard.
Click on the link below to see what the program looks like on the page.
/*
* Title DES algorithm for the Data Encryption Standard implementation
* based on DES algorithm by Daniel Ottee email daniel.otte@rub.de
* date 14-02-2012
*/
#include <stdint.h>
#include <string.h>
const uint8_t sbox[256] = {
/* S-box 1 */
0xE4, 0xD1, 0x2F, 0xB8, 0x3A, 0x6C, 0x59, 0x07,
0x0F, 0x74, 0xE2, 0xD1, 0xA6, 0xCB, 0x95, 0x38,
0x41, 0xE8, 0xD6, 0x2B, 0xFC, 0x97, 0x3A, 0x50,
0xFC, 0x82, 0x49, 0x17, 0x5B, 0x3E, 0xA0, 0x6D,
/* S-box 2 */
0xF1, 0x8E, 0x6B, 0x34, 0x97, 0x2D, 0xC0, 0x5A,
0x3D, 0x47, 0xF2, 0x8E, 0xC0, 0x1A, 0x69, 0xB5,
0x0E, 0x7B, 0xA4, 0xD1, 0x58, 0xC6, 0x93, 0x2F,
0xD8, 0xA1, 0x3F, 0x42, 0xB6, 0x7C, 0x05, 0xE9,
/* S-box 3 */
0xA0, 0x9E, 0x63, 0xF5, 0x1D, 0xC7, 0xB4, 0x28,
0xD7, 0x09, 0x34, 0x6A, 0x28, 0x5E, 0xCB, 0xF1,
0xD6, 0x49, 0x8F, 0x30, 0xB1, 0x2C, 0x5A, 0xE7,
0x1A, 0xD0, 0x69, 0x87, 0x4F, 0xE3, 0xB5, 0x2C,
/* S-box 4 */
0x7D, 0xE3, 0x06, 0x9A, 0x12, 0x85, 0xBC, 0x4F,
0xD8, 0xB5, 0x6F, 0x03, 0x47, 0x2C, 0x1A, 0xE9,
0xA6, 0x90, 0xCB, 0x7D, 0xF1, 0x3E, 0x52, 0x84,
0x3F, 0x06, 0xA1, 0xD8, 0x94, 0x5B, 0xC7, 0x2E,
/* S-box 5 */
0x2C, 0x41, 0x7A, 0xB6, 0x85, 0x3F, 0xD0, 0xE9,
0xEB, 0x2C, 0x47, 0xD1, 0x50, 0xFA, 0x39, 0x86,
0x42, 0x1B, 0xAD, 0x78, 0xF9, 0xC5, 0x63, 0x0E,
0xB8, 0xC7, 0x1E, 0x2D, 0x6F, 0x09, 0xA4, 0x53,
/* S-box 6 */
0xC1, 0xAF, 0x92, 0x68, 0x0D, 0x34, 0xE7, 0x5B,
0xAF, 0x42, 0x7C, 0x95, 0x61, 0xDE, 0x0B, 0x38,
0x9E, 0xF5, 0x28, 0xC3, 0x70, 0x4A, 0x1D, 0xB6,
0x43, 0x2C, 0x95, 0xFA, 0xBE, 0x17, 0x60, 0x8D,
/* S-box 7 */
0x4B, 0x2E, 0xF0, 0x8D, 0x3C, 0x97, 0x5A, 0x61,
0xD0, 0xB7, 0x49, 0x1A, 0xE3, 0x5C, 0x2F, 0x86,
0x14, 0xBD, 0xC3, 0x7E, 0xAF, 0x68, 0x05, 0x92,
0x6B, 0xD8, 0x14, 0xA7, 0x95, 0x0F, 0xE2, 0x3C,
/* S-box 8 */
0xD2, 0x84, 0x6F, 0xB1, 0xA9, 0x3E, 0x50, 0xC7,
0x1F, 0xD8, 0xA3, 0x74, 0xC5, 0x6B, 0x0E, 0x92,
0x7B, 0x41, 0x9C, 0xE2, 0x06, 0xAD, 0xF3, 0x58,
0x21, 0xE7, 0x4A, 0x8D, 0xFC, 0x90, 0x35, 0x6B
};
const uint8_t e_permtab[] ={
4, 6, /* 4 bytes in 6 bytes out*/
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
};
const uint8_t p_permtab[] ={
4, 4, /* 32 bit -> 32 bit */
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
};
const uint8_t ip_permtab[] ={
8, 8, /* 64 bit -> 64 bit */
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
};
const uint8_t inv_ip_permtab[] ={
8, 8, /* 64 bit -> 64 bit */
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
};
const uint8_t pc1_permtab[] ={
8, 7, /* 64 bit -> 56 bit*/
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
};
const uint8_t pc2_permtab[] ={
7, 6, /* 56 bit -> 48 bit */
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
};
const uint8_t splitin6bitword_permtab[] = {
8, 8, /* 64 bit -> 64 bit */
64, 64, 1, 6, 2, 3, 4, 5,
64, 64, 7, 12, 8, 9, 10, 11,
64, 64, 13, 18, 14, 15, 16, 17,
64, 64, 19, 24, 20, 21, 22, 23,
64, 64, 25, 30, 26, 27, 28, 29,
64, 64, 31, 36, 32, 33, 34, 35,
64, 64, 37, 42, 38, 39, 40, 41,
64, 64, 43, 48, 44, 45, 46, 47
};
const uint8_t shiftkey_permtab[] = {
7, 7, /* 56 bit -> 56 bit */
2, 3, 4, 5, 6, 7, 8, 9,
10, 11, 12, 13, 14, 15, 16, 17,
18, 19, 20, 21, 22, 23, 24, 25,
26, 27, 28, 1,
30, 31, 32, 33, 34, 35, 36, 37,
38, 39, 40, 41, 42, 43, 44, 45,
46, 47, 48, 49, 50, 51, 52, 53,
54, 55, 56, 29
};
/*
1 2 2 2 2 2 2 1 2 2 2 2 2 2 1 1
0 1 1 1 1 1 1 0 1 1 1 1 1 1 0 0
7 E F C Standard DES
2 1 1 1 1 1 1 1 2 2 1 1 1 2 1 1
1 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0
8 0 C 4 Meteotime DES
*/
#define ROTTABLE 0x7EFC
byte crypt [8];
byte plaintext [] = { 00,01,02,03,04,05,06,07};
byte keyword [] = { 0x3b,0x38,0x98,0x37,0x15,0x20,0xf7,0x5e};
byte test[8];
boolean DEBUG = true;
int i,m;
int Dx =0;
uint32_t box=0,t;
String showprint = "";
uint8_t data[8];
/******************************************************************************/
void setup(){
Serial.begin(19200);
Serial.println("Start");
Serial.print ("Keyword = ");
for (int j=0;j<8;j++){
if (keyword[j]<0x10) Serial.print("0");
Serial.print(keyword[j],HEX);Serial.print(" ");
}
Serial.println();
Serial.print ("Plaintext = ");
for (int j=0;j<8;j++){
if (plaintext[j]<0x10) Serial.print("0");
Serial.print(plaintext[j],HEX);Serial.print(" ");
}
Serial.println();
Serial.println("Encrypting");
//void des_enc(void* out, const void* in, const void* key);
des_enc( crypt, plaintext, keyword);
Serial.print("Encrypted key = ");
for (int j=0;j<8;j++){
if (crypt[j]<0x10) Serial.print("0");
Serial.print(crypt[j],HEX);Serial.print(" ");
}
Serial.println();
Serial.println("Decrypting");
//void des_dec(void* out, const void* in, const void* key);
des_dec( plaintext, crypt, keyword);
Serial.print("Decrypted key = ");
for (int j=0;j<8;j++){
if (plaintext[j]<0x10) Serial.print("0");
Serial.print(plaintext[j],HEX);Serial.print(" ");
}
Serial.println();
Serial.println("Done");
}
void loop(){
}
void permute(const uint8_t *ptable, const uint8_t *in, uint8_t *out){
uint8_t ob; /* in-bytes and out-bytes */
uint8_t byte, bit; /* counter for bit and byte */
ob = ptable[1];
ptable = &(ptable[2]);
for(byte=0; byte<ob; ++byte){
uint8_t x,t=0;
for(bit=0; bit<8; ++bit){
x=*ptable++ -1 ;
t<<=1;
if((in) & (0x80>>(x%8)) ){
t|=0x01;
}
}
out[byte]=t;test[byte]=t;
}
}
/******************************************************************************/
void changeendian32(uint32_t * a){
*a = (*a & 0x000000FF) << 24 |
(*a & 0x0000FF00) << 8 |
(*a & 0x00FF0000) >> 8 |
(*a & 0xFF000000) >> 24;
box=((*a & 0x000000FF) << 24)|
(*a & 0x0000FF00) << 8 |
(*a & 0x00FF0000) >> 8 |
(*a & 0xFF000000) >> 24;
}
/******************************************************************************/
static inline
void shiftkey(uint8_t *key){
uint8_t k[7];
memcpy(k, key, 7);
permute((uint8_t*)shiftkey_permtab, k, key);
if (DEBUG == true) {
Serial.print ("CD[");Serial.print(m);Serial.print ("] 56 xits = ");
for (int j=0;j<7;j++){
if (test[j]<0x10) Serial.print("0");
Serial.print(test[j],HEX);Serial.print(" ");
print_binary(test[j],8);Serial.print(" ");
}
Serial.println();
}
}
/******************************************************************************/
/******************************************************************************/
static inline
uint64_t splitin6bitwords(uint64_t a){
uint64_t ret=0;
a &= 0x0000ffffffffffffLL;
permute((uint8_t*)splitin6bitword_permtab, (uint8_t*)&a, (uint8_t*)&ret);
return ret;
}
/******************************************************************************/
static inline
uint8_t substitute(uint8_t a, uint8_t * sbp){
uint8_t x;
x = sbp[a>>1];
x = (a&1)?x&0x0F:x>>4;
return x;
}
/******************************************************************************/
uint32_t des_f(uint32_t r, uint8_t* kr){
uint8_t i;
uint32_t ret;
uint64_t data;
uint8_t *sbp; /* sboxpointer */
permute((uint8_t*)e_permtab, (uint8_t*)&r, (uint8_t*)&data);
showprint ="E 48 bits = ";printout1(0,6);
for(i=0; i<7; ++i) {((uint8_t*)&data)[i] ^= kr[i];}
if (DEBUG == true) {
Serial.print ("ExorKS 48 bits = ");
for (int j=0;j<6;j++){
if (((uint8_t*)&data)[j]<0x10) Serial.print("0");
Serial.print(((uint8_t*)&data)[j],HEX);Serial.print(" ");
print_binary(((uint8_t*)&data)[j],8);Serial.print(" ");
}
Serial.println();
}
/* Sbox substitution */
data = splitin6bitwords(data);
sbp=(uint8_t*)sbox;
for(i=0; i<8; ++i){
uint8_t x;
x = substitute(((uint8_t*)&data)[i], sbp);
t<<=4;
t |= x;
sbp += 32;
}
changeendian32(&t);
if (DEBUG == true) {
Serial.print ("Sbox 32 bits = ");
if (box/0x1000000<0x10) Serial.print("0");
Serial.print(box/0x1000000,HEX);Serial.print(" ");
print_binary(box/0x1000000,8);Serial.print(" ");
if (box/0x10000&0xFF<0x10) Serial.print("0");
Serial.print(box/0x10000&0xFF,HEX);Serial.print(" ");
print_binary(box/0x10000&0xFF,8);Serial.print(" ");
if (((box/0x100)&0xFF)<0x10) Serial.print("0");
Serial.print(box/0x100&0xFF,HEX);Serial.print(" ");
print_binary(box/0x100,8);Serial.print(" ");
if (box&0xFF<0x10) Serial.print("0");
Serial.print(box&0xFF,HEX);Serial.print(" ");
print_binary(box&0xFF,8);
Serial.println();
}
permute((uint8_t*)p_permtab,(uint8_t*)&t, (uint8_t*)&ret);
showprint = "P 32 bits = "; printout1(0,4);
return ret;
}
/******************************************************************************/
void des_enc(void* out, const void* in, const void* key){
#define R *((uint32_t*)&(data[4]))
#define L *((uint32_t*)&(data[0]))
uint8_t kr[6],k[7];
permute((uint8_t*)ip_permtab, (uint8_t*)in, data);
showprint = "L[0] 32 bits = "; printout1(0,4);
showprint = "R[0] 32 bits = "; printout1(4,8);
permute((uint8_t*)pc1_permtab, (const uint8_t*)key, k);
showprint = "CD[0] 56 bits = "; printout1(0,7);
for(i=0; i<8; i++){
Dx=i*2+1;
if (DEBUG == true) { Serial.print("Round ");Serial.println(Dx); }
shiftkey(k);
if(ROTTABLE&((1<<((i<<1)+0))) ) shiftkey(k);
permute((uint8_t*)pc2_permtab, k, kr);
showprint = "KS 48 bits = "; printout1(0,6);
L ^= des_f(R, kr);
showprint = "L[i] 32 bits = "; printout2(0,4);
showprint = "R[i] 32 bits = "; printout2(4,8);
Dx=i*2+2;
if (DEBUG == true) { Serial.print("Round ");Serial.println(Dx); }
shiftkey(k);
if(ROTTABLE&((1<<((i<<1)+1))) ) shiftkey(k);
permute((uint8_t*)pc2_permtab, k, kr);
showprint = "KS 48 bits = "; printout1(0,6);
R ^= des_f(L, kr);
showprint = "L[i] 32 bits = "; printout2(0,4);
showprint = "R[i] 32 bits = "; printout2(4,8);
}
/* L <-> R*/
R ^= L;
L ^= R;
R ^= L;
showprint = "LR[16] 64 bits = "; printout2(0,8);
permute((uint8_t*)inv_ip_permtab, data, (uint8_t*)out);
showprint = "Crypt 64 bits = "; printout1(0,8);
}
/******************************************************************************/
void des_dec(void* out, const void* in, const uint8_t* key){
#define R *((uint32_t*)&(data[4]))
#define L *((uint32_t*)&(data[0]))
uint8_t kr[6],k[7];
Serial.print("crypt 64 bits = ");
for (int j=0;j<8;j++){
if (crypt[j]<0x10) Serial.print("0");
Serial.print(crypt[j],HEX);Serial.print(" ");
print_binary(crypt[j],8);Serial.print(" ");
}
Serial.println();
Serial.print("key 64 bits = ");
for (int j=0;j<8;j++){
if (key[j]<0x10) Serial.print("0");
Serial.print(key[j],HEX);Serial.print(" ");
print_binary(key[j],8);Serial.print(" ");
}
Serial.println();
permute((uint8_t*)ip_permtab, (uint8_t*)in, data);
showprint = "L[0] 32 bits = "; printout1(0,4);
showprint = "R[0] 32 bits = "; printout1(4,8);
permute((uint8_t*)pc1_permtab, (const uint8_t*)key, k);
showprint = "CD[0] 56 bits = "; printout1(0,7);
for(i=7; i>=0; i--){
Dx=i*2+2;
if (DEBUG == true) { Serial.print("Round ");Serial.println(Dx); }
permute((uint8_t*)pc1_permtab, (const uint8_t*)key, k);
for (m=1;m<Dx+1;m++){
shiftkey(k);
if(ROTTABLE&(1<<(m-1))) shiftkey(k);
}
permute((uint8_t*)pc2_permtab, k, kr);
showprint = "KS 48 bits = "; printout1(0,6);
L ^= des_f(R, kr);
showprint = "L[i] 32 bits = "; printout2(0,4);
showprint = "R[i] 32 bits = "; printout2(4,8);
Dx=i*2+1;
if (DEBUG == true) { Serial.print("Round ");Serial.println(Dx); }
permute((uint8_t*)pc1_permtab, (const uint8_t*)key, k);
for (m=1;m<Dx+1;m++){
shiftkey(k);
if(ROTTABLE&(1<<(m-1))) shiftkey(k);
}
permute((uint8_t*)pc2_permtab, k, kr);
showprint = "KS 48 bits = "; printout1(0,6);
R ^= des_f(L, kr);
showprint = "L[i] 32 bits = "; printout2(0,4);
showprint = "R[i] 32 bits = "; printout2(4,8);
}
/* L <-> R*/
R ^= L;
L ^= R;
R ^= L;
showprint = "LR[16] 64 bits = "; printout2(0,8);
permute((uint8_t*)inv_ip_permtab, data, (uint8_t*)out);
showprint = "Plain 64 bits = "; printout1(0,8);
}
void print_binary(uint64_t v, int num_places)
{
uint64_t mask=0, n;
for (n=1; n<=num_places; n++)
{
mask = (mask << 1) | 0x00000001;
}
v = v & mask; // truncate v to specified number of places
while(num_places)
{
if (v & (0x00000001 << num_places-1))
{
Serial.print("1");
}
else
{
Serial.print("0");
}
--num_places;
if(((num_places%8) == 0) && (num_places != 0))
{
Serial.print(" ");
}
}
}
void printout1(int min,int max) {
if (DEBUG == true) {
Serial.print (showprint);
for (int j=min;j<max;j++){
if (test[j]<0x10) Serial.print("0");
Serial.print(test[j],HEX);Serial.print(" ");
print_binary(test[j],8);Serial.print(" ");
}
Serial.println();
}
}
void printout2(int min,int max) {
if (DEBUG == true) {
Serial.print (showprint);
for (int j=min;j<max;j++){
if (data[j]<0x10) Serial.print("0");
Serial.print(data[j],HEX);Serial.print(" ");
print_binary(data[j],8);Serial.print(" ");
}
Serial.println();
}
}
0 Comments