AutoHotkey Community

Var=y^E88-m!FsQ'zQ;Ep|k|R

MsgBox % "This is a coded string`n`n" Code("Hello There",1,1578)
MsgBox % "This is a decoded string`n`n" Code(Var,0,87681)

Code(x,y,Seed=12345) { ;x is string y=1 is code y=0 is decode Seed is the decode key
String=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=.,?':;/\!@#$`%^&*()_+|
Random, ,Seed
Loop, Parse, x
{
Pos:=InStr(String,A_LoopField,1)
Random, Offset , 1, 86
Coded.=SubStr(String, y ? (Pos+Offset)>86 ? Pos+Offset-86 : Pos+Offset : (Pos-Offset)<1 ? Pos-Offset+86 : Pos-Offset,1)
}
Return Coded
}

Code(x,E,K1=0,K2=1,K3=2,K4=3) { ; x: data string, E=1|-1: encode|decode, K1..4: 32 bit unsigned keys
   Static S:="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=~!@#$%^&*()_+[\]{|};:'"",./<?>"
   Loop % StrLen(x)
      D%A_Index% := 0
   Loop 4 {
      Random,,K%A_Index%
      Loop % StrLen(x) {
         Random D, 0, 93
         D%A_Index% := mod(D+D%A_Index%,94)
      }
   }
   Loop Parse, x
      C .= SubStr(S, mod(InStr(S,A_LoopField,1)+93+E*D%A_Index%,94)+1, 1)
   Return C
}

Gui, Add, Edit, vmte x6 y26 w150 h50 , 
Gui, Add, Text, x6 y6 w150 h20 , Message to encrypt.
Gui, Add, Edit, vek x106 y6 h15 w50, Key
Gui, Add, Text, x6 y86 w150 h20 , Encryption.
Gui, Add, Edit, vme ReadOnly x6 y106 w150 h50 , 
Gui, Add, Button, gEncrypt x26 y166 w110 h30 , Encrypt
Gui, Add, Text, x176 y6 w150 h20 , Code to decrypt.
Gui, Add, Edit, vdk x276 y6 h15 w50, 123
Gui, Add, Edit, vcte x176 y26 w150 h50 , 5ntMot53FomedG.De5,4.kA5s-4Vje;8QoNDA5q Cgp7xKPtlPcjCV&q&m8,i:9I!j5XttN|
Gui, Add, Text, x176 y86 w150 h20 , Decrypted message.
Gui, Add, Edit, vce ReadOnly x176 y106 w150 h50 , 
Gui, Add, Button, gDecrypt x196 y166 w110 h30 , Decrypt
Gui, ADd, Progress, Verticle x165 y0 w2 h205
Gui, Show, w335 h205, Encrypt/Decrypt
Return

Encrypt:
Gui, Submit, Nohide
me:=Code(mte,1,ek)
GuiControl,, me, %me%
Return

Decrypt:
Gui, Submit, Nohide
GuiControl,, ce, % Code(cte,0,dk)
Return

GuiClose:
ExitApp

Code(x,y,Seed=12345) { ;x is string y=1 is code y=0 is decode Seed is the decode key
String=abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=.,?':;/\!@#$`%^&*()_+|
Random, ,Seed
Loop, Parse, x
{
Pos:=InStr(String,A_LoopField,1)
Random, Offset , 1, 86
Coded.=SubStr(String, y ? (Pos+Offset)>86 ? Pos+Offset-86 : Pos+Offset : (Pos-Offset)<1 ? Pos-Offset+86 : Pos-Offset,1)
}
Return Coded
}

Gui, Add, Edit, vmte x6 y26 w150 h50 , 
Gui, Add, Text, x6 y6 w150 h20 , Message to encrypt.
Gui, Add, Edit, vek x106 y6 h15 w50, Key
Gui, Add, Text, x6 y86 w150 h20 , Encryption.
Gui, Add, Edit, vme ReadOnly x6 y106 w150 h50 , 
Gui, Add, Button, gEncrypt x26 y166 w110 h30 , Encrypt
Gui, Add, Text, x176 y6 w150 h20 , Code to decrypt.
Gui, Add, Edit, vdk x276 y6 h15 w50, 123
Gui, Add, Edit, vcte x176 y26 w150 h50 , Q7yEzQZ!erZi#9w4)NZi,1Vo<$;01f& zVSIp)">;)_|D.Sx
Gui, Add, Text, x176 y86 w150 h20 , Decrypted message.
Gui, Add, Edit, vce ReadOnly x176 y106 w150 h50 , 
Gui, Add, Button, gDecrypt x196 y166 w110 h30 , Decrypt
Gui, ADd, Progress, Verticle x165 y0 w2 h205
Gui, Show, w335 h205, Encrypt/Decrypt
Return

Encrypt:
Gui, Submit, Nohide
me:=Code(mte,1,ek)
GuiControl,, me, %me%
Return

Decrypt:
Gui, Submit, Nohide
GuiControl,, ce, % Code(cte,-1,dk)
Return

GuiClose:
ExitApp

Code(x,E,K1=0,K2=1,K3=2,K4=3) { ; x: data string, E=1|-1: encode|decode, K1..4: 32 bit unsigned keys
   Static S:="abcdefghijklmnopqrstuwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=~!@#$%^&*()_+[\]{|};:'"",./<?>"
   Loop % StrLen(x)
      D%A_Index% := 0
   Loop 4 {
      Random,,K%A_Index%
      Loop % StrLen(x) {
         Random D, 0, 92
         D%A_Index% := mod(D+D%A_Index%,93)
      }
   }     
   Loop Parse, x
      C .= SubStr(S, mod(InStr(S,A_LoopField,1)+92+E*D%A_Index%,93)+1, 1)
   Return C
}

Code(x,y,Seed=12345) { ;x is string y=1 is code y=0 is decode Seed is the decode key
AutoTrim, Off
String.=Chr(9)Chr(10)Chr(32)Chr(33)Chr(34)Chr(35)Chr(36)
Loop 58 ;removed ` and % from the list of characters they were too much trouble
 String.=Chr(A_Index+37)
Loop 186
 String.=Chr(A_Index+96)
Random, ,Seed
Loop, Parse, x
{
Pos:=InStr(String,A_LoopField,1)
Random, Offset , 1, 224
Coded.=SubStr(String, (y) ? Mod(Pos+Offset,224) : Mod(Pos-Offset,224),1)
}
Return Coded
}

Code(x,E,K1=0,K2=1,K3=2,K4=3) { ; x: data string, E=1|-1: encode|decode, K1..4: 32 bit unsigned keys
   Static S:="abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=~!@#$%^&*()_+[\]{|};:'"",./<?>"
   Loop % StrLen(x)
      D%A_Index% := 0
   Loop 4 {
      Random,,K%A_Index%
      Loop % StrLen(x) {
         Random D, 0, 93
         D%A_Index% := mod(D+D%A_Index%,94)
      }
   }
   Loop Parse, x
      C .= (I:=InStr(S,A_LoopField,1)) ? SubStr(S,mod(I+93+E*D%A_Index%,94)+1,1) : A_LoopField
   Return C
}

Code(x,E,K1=0,K2=1,K3=2,K4=3) { ; x: data string, E=1|-1: encode|decode, K1..4: 32 bit unsigned keys
   Static
   If (C1!=K1 || C2!=K2 || C3!=K3 || C4!=K4) {
      L := 224, C1 := K1 , C2 := K2 , C3 := K3 , C4 := K4
      Loop %L%
         D%A_Index% := 0, S .= Chr(A_Index+31)
      Loop 4 {
         Random,,K%A_Index%
         Loop %L% {
            Random D, 0, L-1
            D%A_Index% := mod(D+D%A_Index%,L)
         }
      }
   }
   C =
   Loop Parse, x
      C .= " "<=(A:=A_LoopField) ? SubStr(S,mod(InStr(S,A,1)+L-1+E*D%A_Index%,L)+1,1) : A
   Return C
}

;....GUI by Eedis
Gui, Font, S7 Bold, Tahoma
Gui, Color, CCDCDC0
Gui, Add, Text,     x6    y6 w250 h22, Enter the Seed to encode:
Gui, Add, Text,     x278  y6 w250 h22, Enter the Seed to decode:
Gui, Add, Edit, vek x176  y6 w70 h22, default
Gui, Add, Edit, vdk x450  y6 w70 h22, default
;..
Gui, Add, Edit, vmte x6   y36 w250 h140,
Gui, Add, Edit, vcte x276 y36 w250 h140, 5ntMot53FomedG.De5,4.kA5s-4Vje;8QoNDA5q Cgp7xKPtlPcjCV&q&m8,i:9I!j5XttN|
Gui, Font, S10 Bold, Tahoma
Gui, Add, Text, x6   y196 w180 h22 cRed, ENCRYPTION
Gui, Add, Text, x276 y196 w180 h22 cBlue, DECRYPTION
;..
Gui, Add, Edit, vme ReadOnly x6   y224 w250 h140,
Gui, Add, Edit, vce ReadOnly x276 y224 w250 h140,
;..
Gui, Add, Button, gEncrypt x6   y366 w160 h36, Run..Encrypt
Gui, Add, Button, gDecrypt x276 y366 w160 h36, Run..Decrypt
Gui, Add, Button, gReload  x458 y366 w80 h36,  Reload
Gui, Show, w532 h400, Encrypt/Decrypt
Return

Encrypt:
Gui, Submit, Nohide
me:=CodeG(mte,1,ek)
GuiControl,, me, %me%
Return

Decrypt:
Gui, Submit, Nohide
GuiControl,, ce, % CodeG(cte,-1,dk)
Return

Reload:
Reload

GuiClose:
ExitApp

CodeG(x,E,K1=0,K2=1,K3=2,K4=3) { ; x: data string, E=1|-1: encode|decode, K1..4: 32 bit unsigned keys
   Static
   If (C1!=K1 || C2!=K2 || C3!=K3 || C4!=K4) {
      L := 224, C1 := K1 , C2 := K2 , C3 := K3 , C4 := K4
      Loop %L%
         D%A_Index% := 0, S .= Chr(A_Index+31)
      Loop 4 {
         Random,,K%A_Index%
         Loop %L% {
            Random D, 0, L-1
            D%A_Index% := mod(D+D%A_Index%,L)
         }
      }
   }
   C =
   Loop Parse, x
      C .= " "<=(A:=A_LoopField) ? SubStr(S,mod(InStr(S,A,1)+L-1+E*D%A_Index%,L)+1,1) : A
   Return C
}

function Code($x,$E,$K0=0,$K1=1,$K2=2,$K3=3) {
    static $S = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 -=~!@#$%^&*()_+[\\]{|};:'\"\",./<?>";
   
     for ($A_Index = 0; $A_Index <= strlen($x); $A_Index++)               // Loop % StrLen(x)
       {${'D' . $A_Index} = 0;}                                           //    D%A_Index% := 0
      
    for ($A_Index = 0; $A_Index < 4; $A_Index++) {                        // Loop 4 {
            mt_srand(${'K' . $A_Index});                                  //    Random,,K%A_Index%
            for ($A_Index = 0; $A_Index <= strlen($x); $A_Index++) {      //    Loop % StrLen(x) {
                  $D = mt_rand(0, 93);                                    //        Random D, 0, 93           
                  ${'D' . $A_Index} = fmod($D+${'D' . $A_Index}, 94);     //        D%A_Index% := mod(D+D%A_Index%,94)
            }
      }
      
   foreach(str_split($x, 1) as $A_Index => $A_LoopField)                  // Loop Parse, x
      {$C .= ($I = strpos($S,$A_LoopField)) ? substr($S,fmod($I+93+$E*${'D' . $A_Index},94)+1,1) : $A_LoopField;}
     
   return $C;
}