Gui, Add, Button, x26 y220 w100 h30 gkey2, Шифровать
Gui, Add, Button, x156 y220 w110 h30 gkey1, РозШифровать
Gui, Add, CheckBox, x26 y180 w240 h30 vRadio, Создавать файл розшифровки или шифровки ?
Gui, Add, Edit, x26 y40 w240 h50 vEdit2, Текст
Gui, Add, Edit, x26 y110 w240 h50 vEdit1, Ключ Шифрования
Gui, Show, x131 y91 h268 w292, Шифровка
Return

GuiClose:
ExitApp

gKey1:
Shifr = %vEdit% 
Key1 = %vEdit2% 

Text1 := Cipher(Shifr, Key1) ; Дешифровка.
if (vRadio = 1)
FileAppend, %Text%, Розшифровка.txt
return
msgbox x

gkey2:

Key1 = %vEdit1%;
Text = %vEdit2%;
                           
Shifr := Cipher(Text, Key1) ; Шифровка.
if (vRadio = 1)
FileAppend, %Shifr%, Шифр.txt
return

Cipher(Src, Key1)  ; Два последних ключа необязательны.
{
  Loop, 3
  {
    If not Key%A_Index%
      Break
    StringSplit, Keys, Key%A_Index%  ; Разбиваем фразу на отдельные ключи.
    Dest =
    Loop, Parse, Src  ; Перебор символов текста.
    {
      Index := Mod(A_Index, Keys0) + 1  ; Чтобы Index не вышел за пределы
                                        ; числа символов в ключевой фразе.
      Key := Asc(Keys%Index%)   ; Очередной ключ.
      Code := Asc(A_LoopField)  ; Код очередного символа текста.
      Dest .= Chr(Code = Key ? Code : Code ^ Key) ; Шифруем и добавляем.
    }
    Src := Dest
  }
  return  Dest
}