#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#define SIZE 30
// Function to convert the string to lowercase
void toLowerCase(char plain[], int ps)
{
int i;
for (i = 0; i < ps; i++) {
if (plain[i] > 64 && plain[i] < 91)
plain[i] += 32;
}
}
// Function to remove all spaces in a string
int removeSpaces(char* plain, int ps)
{
int i, count = 0;
for (i = 0; i < ps; i++)
if (plain[i] != ' ')
plain[count++] = plain[i];
plain[count] = '\0';
return count;
}
// Function to generate the 5x5 key square
void generateKeyTable(char key[], int ks, char keyT[5][5])
{
int i, j, k, flag = 0, *dicty;
// a 26 character hashmap
// to store count of the alphabet
dicty = (int*)calloc(26, sizeof(int));
for (i = 0; i < ks; i++) {
if (key[i] != 'j')
dicty[key[i] - 97] = 2;
}
dicty['j' - 97] = 1;
i = 0;
j = 0;
for (k = 0; k < ks; k++) {
if (dicty[key[k] - 97] == 2) {
dicty[key[k] - 97] -= 1;
keyT[i][j] = key[k];
j++;
if (j == 5) {
i++;
j = 0;
}
}
}
for (k = 0; k < 26; k++) {
if (dicty[k] == 0) {
keyT[i][j] = (char)(k + 97);
j++;
if (j == 5) {
i++;
j = 0;
}
}
}
}
// Function to search for the characters of a digraph
// in the key square and return their position
void search(char keyT[5][5], char a, char b, int arr[])
{
int i, j;
if (a == 'j')
a = 'i';
else if (b == 'j')
b = 'i';
for (i = 0; i < 5; i++) {
for (j = 0; j < 5; j++) {
if (keyT[i][j] == a) {
arr[0] = i;
arr[1] = j;
}
else if (keyT[i][j] == b) {
arr[2] = i;
arr[3] = j;
}
}
}
}
// Function to find the modulus with 5
int mod5(int a)
{
return (a % 5);
}
// Function to make the plain text length to be even
int prepare(char str[], int ptrs)
{
if (ptrs % 2 != 0) {
str[ptrs++] = 'z';
str[ptrs] = '\0';
}
return ptrs;
}
// Function for performing the encryption
void encrypt(char str[], char keyT[5][5], int ps)
{
int i, a[4];
for (i = 0; i < ps; i += 2) {
search(keyT, str[i], str[i + 1], a);
if (a[0] == a[2]) {
str[i] = keyT[a[0]][mod5(a[1] + 1)];
str[i + 1] = keyT[a[0]][mod5(a[3] + 1)];
}
else if (a[1] == a[3]) {
str[i] = keyT[mod5(a[0] + 1)][a[1]];
str[i + 1] = keyT[mod5(a[2] + 1)][a[1]];
}
else {
str[i] = keyT[a[0]][a[3]];
str[i + 1] = keyT[a[2]][a[1]];
}
}
}
// Function to encrypt using Playfair Cipher
void encryptByPlayfairCipher(char str[], char key[])
{
char ps, ks, keyT[5][5];
// Key
ks = strlen(key);
ks = removeSpaces(key, ks);
toLowerCase(key, ks);
// Plaintext
ps = strlen(str);
toLowerCase(str, ps);
ps = removeSpaces(str, ps);
ps = prepare(str, ps);
generateKeyTable(key, ks, keyT);
encrypt(str, keyT, ps);
}
// Driver code
int main()
{
char str[SIZE], key[SIZE];
// Key to be encrypted
strcpy(key, "Monarchy");
printf("Key text: %s\n", key);
// Plaintext to be encrypted
strcpy(str, "instruments");
printf("Plain text: %s\n", str);
// encrypt using Playfair Cipher
encryptByPlayfairCipher(str, key);
printf("Cipher text: %s\n", str);
return 0;
}
I2luY2x1ZGUgPHN0ZGlvLmg+IAojaW5jbHVkZSA8c3RkbGliLmg+IAojaW5jbHVkZSA8c3RyaW5nLmg+IAogIAojZGVmaW5lIFNJWkUgMzAgCiAgCi8vIEZ1bmN0aW9uIHRvIGNvbnZlcnQgdGhlIHN0cmluZyB0byBsb3dlcmNhc2UgCnZvaWQgdG9Mb3dlckNhc2UoY2hhciBwbGFpbltdLCBpbnQgcHMpIAp7IAogICAgaW50IGk7IAogICAgZm9yIChpID0gMDsgaSA8IHBzOyBpKyspIHsgCiAgICAgICAgaWYgKHBsYWluW2ldID4gNjQgJiYgcGxhaW5baV0gPCA5MSkgCiAgICAgICAgICAgIHBsYWluW2ldICs9IDMyOyAKICAgIH0gCn0gCiAgCi8vIEZ1bmN0aW9uIHRvIHJlbW92ZSBhbGwgc3BhY2VzIGluIGEgc3RyaW5nIAppbnQgcmVtb3ZlU3BhY2VzKGNoYXIqIHBsYWluLCBpbnQgcHMpIAp7IAogICAgaW50IGksIGNvdW50ID0gMDsgCiAgICBmb3IgKGkgPSAwOyBpIDwgcHM7IGkrKykgCiAgICAgICAgaWYgKHBsYWluW2ldICE9ICcgJykgCiAgICAgICAgICAgIHBsYWluW2NvdW50KytdID0gcGxhaW5baV07IAogICAgcGxhaW5bY291bnRdID0gJ1wwJzsgCiAgICByZXR1cm4gY291bnQ7IAp9IAogIAovLyBGdW5jdGlvbiB0byBnZW5lcmF0ZSB0aGUgNXg1IGtleSBzcXVhcmUgCnZvaWQgZ2VuZXJhdGVLZXlUYWJsZShjaGFyIGtleVtdLCBpbnQga3MsIGNoYXIga2V5VFs1XVs1XSkgCnsgCiAgICBpbnQgaSwgaiwgaywgZmxhZyA9IDAsICpkaWN0eTsgCiAgCiAgICAvLyBhIDI2IGNoYXJhY3RlciBoYXNobWFwIAogICAgLy8gdG8gc3RvcmUgY291bnQgb2YgdGhlIGFscGhhYmV0IAogICAgZGljdHkgPSAoaW50KiljYWxsb2MoMjYsIHNpemVvZihpbnQpKTsgCiAgICBmb3IgKGkgPSAwOyBpIDwga3M7IGkrKykgeyAKICAgICAgICBpZiAoa2V5W2ldICE9ICdqJykgCiAgICAgICAgICAgIGRpY3R5W2tleVtpXSAtIDk3XSA9IDI7IAogICAgfSAKICAKICAgIGRpY3R5WydqJyAtIDk3XSA9IDE7IAogIAogICAgaSA9IDA7IAogICAgaiA9IDA7IAogIAogICAgZm9yIChrID0gMDsgayA8IGtzOyBrKyspIHsgCiAgICAgICAgaWYgKGRpY3R5W2tleVtrXSAtIDk3XSA9PSAyKSB7IAogICAgICAgICAgICBkaWN0eVtrZXlba10gLSA5N10gLT0gMTsgCiAgICAgICAgICAgIGtleVRbaV1bal0gPSBrZXlba107IAogICAgICAgICAgICBqKys7IAogICAgICAgICAgICBpZiAoaiA9PSA1KSB7IAogICAgICAgICAgICAgICAgaSsrOyAKICAgICAgICAgICAgICAgIGogPSAwOyAKICAgICAgICAgICAgfSAKICAgICAgICB9IAogICAgfSAKICAKICAgIGZvciAoayA9IDA7IGsgPCAyNjsgaysrKSB7IAogICAgICAgIGlmIChkaWN0eVtrXSA9PSAwKSB7IAogICAgICAgICAgICBrZXlUW2ldW2pdID0gKGNoYXIpKGsgKyA5Nyk7IAogICAgICAgICAgICBqKys7IAogICAgICAgICAgICBpZiAoaiA9PSA1KSB7IAogICAgICAgICAgICAgICAgaSsrOyAKICAgICAgICAgICAgICAgIGogPSAwOyAKICAgICAgICAgICAgfSAKICAgICAgICB9IAogICAgfSAKfSAKICAKLy8gRnVuY3Rpb24gdG8gc2VhcmNoIGZvciB0aGUgY2hhcmFjdGVycyBvZiBhIGRpZ3JhcGggCi8vIGluIHRoZSBrZXkgc3F1YXJlIGFuZCByZXR1cm4gdGhlaXIgcG9zaXRpb24gCnZvaWQgc2VhcmNoKGNoYXIga2V5VFs1XVs1XSwgY2hhciBhLCBjaGFyIGIsIGludCBhcnJbXSkgCnsgCiAgICBpbnQgaSwgajsgCiAgCiAgICBpZiAoYSA9PSAnaicpIAogICAgICAgIGEgPSAnaSc7IAogICAgZWxzZSBpZiAoYiA9PSAnaicpIAogICAgICAgIGIgPSAnaSc7IAogIAogICAgZm9yIChpID0gMDsgaSA8IDU7IGkrKykgeyAKICAKICAgICAgICBmb3IgKGogPSAwOyBqIDwgNTsgaisrKSB7IAogIAogICAgICAgICAgICBpZiAoa2V5VFtpXVtqXSA9PSBhKSB7IAogICAgICAgICAgICAgICAgYXJyWzBdID0gaTsgCiAgICAgICAgICAgICAgICBhcnJbMV0gPSBqOyAKICAgICAgICAgICAgfSAKICAgICAgICAgICAgZWxzZSBpZiAoa2V5VFtpXVtqXSA9PSBiKSB7IAogICAgICAgICAgICAgICAgYXJyWzJdID0gaTsgCiAgICAgICAgICAgICAgICBhcnJbM10gPSBqOyAKICAgICAgICAgICAgfSAKICAgICAgICB9IAogICAgfSAKfSAKICAKLy8gRnVuY3Rpb24gdG8gZmluZCB0aGUgbW9kdWx1cyB3aXRoIDUgCmludCBtb2Q1KGludCBhKSAKeyAKICAgIHJldHVybiAoYSAlIDUpOyAKfSAKICAKLy8gRnVuY3Rpb24gdG8gbWFrZSB0aGUgcGxhaW4gdGV4dCBsZW5ndGggdG8gYmUgZXZlbiAKaW50IHByZXBhcmUoY2hhciBzdHJbXSwgaW50IHB0cnMpIAp7IAogICAgaWYgKHB0cnMgJSAyICE9IDApIHsgCiAgICAgICAgc3RyW3B0cnMrK10gPSAneic7IAogICAgICAgIHN0cltwdHJzXSA9ICdcMCc7IAogICAgfSAKICAgIHJldHVybiBwdHJzOyAKfSAKICAKLy8gRnVuY3Rpb24gZm9yIHBlcmZvcm1pbmcgdGhlIGVuY3J5cHRpb24gCnZvaWQgZW5jcnlwdChjaGFyIHN0cltdLCBjaGFyIGtleVRbNV1bNV0sIGludCBwcykgCnsgCiAgICBpbnQgaSwgYVs0XTsgCiAgCiAgICBmb3IgKGkgPSAwOyBpIDwgcHM7IGkgKz0gMikgeyAKICAKICAgICAgICBzZWFyY2goa2V5VCwgc3RyW2ldLCBzdHJbaSArIDFdLCBhKTsgCiAgCiAgICAgICAgaWYgKGFbMF0gPT0gYVsyXSkgeyAKICAgICAgICAgICAgc3RyW2ldID0ga2V5VFthWzBdXVttb2Q1KGFbMV0gKyAxKV07IAogICAgICAgICAgICBzdHJbaSArIDFdID0ga2V5VFthWzBdXVttb2Q1KGFbM10gKyAxKV07IAogICAgICAgIH0gCiAgICAgICAgZWxzZSBpZiAoYVsxXSA9PSBhWzNdKSB7IAogICAgICAgICAgICBzdHJbaV0gPSBrZXlUW21vZDUoYVswXSArIDEpXVthWzFdXTsgCiAgICAgICAgICAgIHN0cltpICsgMV0gPSBrZXlUW21vZDUoYVsyXSArIDEpXVthWzFdXTsgCiAgICAgICAgfSAKICAgICAgICBlbHNlIHsgCiAgICAgICAgICAgIHN0cltpXSA9IGtleVRbYVswXV1bYVszXV07IAogICAgICAgICAgICBzdHJbaSArIDFdID0ga2V5VFthWzJdXVthWzFdXTsgCiAgICAgICAgfSAKICAgIH0gCn0gCiAgCi8vIEZ1bmN0aW9uIHRvIGVuY3J5cHQgdXNpbmcgUGxheWZhaXIgQ2lwaGVyIAp2b2lkIGVuY3J5cHRCeVBsYXlmYWlyQ2lwaGVyKGNoYXIgc3RyW10sIGNoYXIga2V5W10pIAp7IAogICAgY2hhciBwcywga3MsIGtleVRbNV1bNV07IAogIAogICAgLy8gS2V5IAogICAga3MgPSBzdHJsZW4oa2V5KTsgCiAgICBrcyA9IHJlbW92ZVNwYWNlcyhrZXksIGtzKTsgCiAgICB0b0xvd2VyQ2FzZShrZXksIGtzKTsgCiAgCiAgICAvLyBQbGFpbnRleHQgCiAgICBwcyA9IHN0cmxlbihzdHIpOyAKICAgIHRvTG93ZXJDYXNlKHN0ciwgcHMpOyAKICAgIHBzID0gcmVtb3ZlU3BhY2VzKHN0ciwgcHMpOyAKICAKICAgIHBzID0gcHJlcGFyZShzdHIsIHBzKTsgCiAgCiAgICBnZW5lcmF0ZUtleVRhYmxlKGtleSwga3MsIGtleVQpOyAKICAKICAgIGVuY3J5cHQoc3RyLCBrZXlULCBwcyk7IAp9IAogIAovLyBEcml2ZXIgY29kZSAKaW50IG1haW4oKSAKeyAKICAgIGNoYXIgc3RyW1NJWkVdLCBrZXlbU0laRV07IAogIAogICAgLy8gS2V5IHRvIGJlIGVuY3J5cHRlZCAKICAgIHN0cmNweShrZXksICJNb25hcmNoeSIpOyAKICAgIHByaW50ZigiS2V5IHRleHQ6ICVzXG4iLCBrZXkpOyAKICAKICAgIC8vIFBsYWludGV4dCB0byBiZSBlbmNyeXB0ZWQgCiAgICBzdHJjcHkoc3RyLCAiaW5zdHJ1bWVudHMiKTsgCiAgICBwcmludGYoIlBsYWluIHRleHQ6ICVzXG4iLCBzdHIpOyAKICAKICAgIC8vIGVuY3J5cHQgdXNpbmcgUGxheWZhaXIgQ2lwaGVyIAogICAgZW5jcnlwdEJ5UGxheWZhaXJDaXBoZXIoc3RyLCBrZXkpOyAKICAKICAgIHByaW50ZigiQ2lwaGVyIHRleHQ6ICVzXG4iLCBzdHIpOyAKICAKICAgIHJldHVybiAwOyAKfQ==