AutoHotkey Community

#include <iostream>
#include <string.h>
#include <cctype>

using namespace std;

char d[1024];
int l,i,c;

void out(),shift();

int main()
{
    system("cls");
    cout<<"\n\tPlease enter the text to be decoded :\n\t";
    cin.getline(d,1024);
    cout<<"\n\tPlease enter the value of character shift : ";
    cin>>c;
    if (c<0) c+=13*c*(-1)+(13-2*c);
    else c-=13*c-(13-2*c);
    l=strlen(d);
    shift();
    cout<<"\n\n\tDecoded text :\n\t";
    out();
    cout<<"\n\n\t";
    system("pause");
   return 0;
}

void out()
{
    for (i=0;i<l;i++)
    {
        cout<<d[i];
    }
}

void shift()
{
    int j,b=0;
    if (c<0)
    {
        c=c*(-1);
        b=1;
    }
    for (j=0;j<c;j++)
    {
        switch(b)
        {
            case 0:
            for (i=0;i<l;i++)
            {
                if ((d[i]>='a' && d[i]<'z') || (d[i]>='A' && d[i]<'Z')) d[i]+=1;
                else if (d[i]=='z') d[i]='a';
                else if (d[i]=='Z') d[i]='A';
                else if (d[i]>='0' && d[i]<'9') d[i]+=1;
                else if (d[i]=='9') d[i]='0';
            }
            break;
            case 1:
            for (i=0;i<l;i++)
            {
                if ((d[i]>'a' && d[i]<='z') || (d[i]>='A' && d[i]<='Z')) d[i]-=1;
                else if (d[i]=='a') d[i]='z';
                else if (d[i]=='A') d[i]='Z';
                else if (d[i]>'0' && d[i]<='9') d[i]-=1;
                else if (d[i]=='0') d[i]='9';
            }
        }
    }
}

inputbox, text, Text, Please enter the text to be encoded/decoded
inputbox, key, Key, Please enter the key

if key<0
   key := %key% + 13 * %key% * ( - 1 ) + ( 13 - 2 * %key% )
else
   key := %key% - 13 * %key% - ( 13 - 2 * %key% )

text := regexreplace(text,"a",a+%key%)

inputbox, text, Output, The text after applying the key is,,,,,,,,%text%
inputbox, key, Key, Value of key after the operation,,,,,,,,%key%

inputbox, text, Text, Please enter the text to be encoded/decoded
inputbox, key, Key, Please enter the key

if key<0
   key := key + 13 * key * ( - 1 ) + ( 13 - 2 * key )
else
   key := key - 13 * key - ( 13 - 2 * key )

text := regexreplace(text,"a",a+key)

inputbox, text, Output, The text after applying the key is,,,,,,,,%text%
inputbox, key, Key, Value of key after the operation,,,,,,,,%key%

text := regexreplace(text,"a","a" . key)   ;. means concatenate.

inputbox, text, Text, Please enter the text to be encoded/decoded
inputbox, key, Key, Please enter the key

if key<0
   key += 13 * key * ( - 1 ) + ( 13 - 2 * key )
else
   key -= 13 * key - ( 13 - 2 * key )

b := 0

if key < 0
{
   key *= (-1)
   b := 1
}

Loop, Parse, text
{
   temp = %A_LoopField%
   transform, temp2, asc, %A_LoopField%
   Loop key
   {
      if b = 0
      {
         temp2 += 1
         if temp2 = 141
            temp2 = 50
      }
      else if b = 1
      {
         temp2 -= 1
         if temp2 = 49
            temp2 = 140
      }
   }
   transform, temp3, chr, temp2
}

inputbox, text, Output, The text after applying the key is,,,,,,,,%text%

text[%a_index%] = temp3

index = 5     ;(set to a_index)
temp3 = q
text = abcdefghijklmnopqrstuvwxyz

text := substr(text, 1, index-1) . temp3 . substr(text, index+1)

msgbox, %text%