Однако сравнение файлов показывает единственную разницу: FileAppend добавляет к переводу строки возврат каретки, а File.Write — нет. Поэтому, если к имени файла добавить *, то разница исчезает.

М-да, точно. В общем, в итоге пришли к тому, что FileAppend и FileRead всё же достаточно.

Поэтому, если к имени файла добавить *, то разница исчезает.

  Колдовство...

Нет, тут дело не в простоте, а в другом способе записи. В случае FileAppend записываются только те символы, у которых есть реальное текстовое обозначение, а при шифровании оно есть не у всех.

Однако сравнение файлов показывает единственную разницу: FileAppend добавляет к переводу строки возврат каретки, а File.Write — нет. Поэтому, если к имени файла добавить *, то разница исчезает.

FileAppend, % Shifr, *2.txt, UTF-16   ; записываем

Так проще. Ну, а использовать объект File, по-моему, удобнее. Как-то единообразнее всё выглядит и проще.

Нет, тут дело не в простоте, а в другом способе записи. В случае FileAppend записываются только те символы, у которых есть реальное текстовое обозначение, а при шифровании оно есть не у всех.
Сравните:

#SingleInstance ignore
FileEncoding,UTF-8

FileDelete,1.txt
FileDelete,2.txt

text = 
(
1234
12345
1234567
123456789
1234567890
asdfghjqweryuiop
asdfghjqweryuiopweryu
aspdfghjqweryuiodfghjqweryuio
asdfghjqwepryuioryuioryuioryuioryuio
)

FileAppend,%text%,1.txt

text := ""
FileRead,text,1.txt

MsgBox, начальный текст из файла:`n%text%

Key1 := "jhhgf3"
Key2 := "rtdvs4"

MsgBox, % "Шифрованный текст:`n" . Shifr := Cipher(text, Key1, Key2)

FileAppend, % Shifr, 2.txt, UTF-16   ; записываем
FileRead, str, 2.txt

MsgBox, % "Расшифровка:`n`n" . text2 := Cipher(str, Key2, Key1)

if( text = text2 )
    MsgBox, Совпадает.
else
    MsgBox, Не совпадает.
    
; =============== Функция шифровки/дешифровки ====================

Cipher(Src, Key1, Key2 = 0)  ; Два последних ключа необязательны.
{
  Loop, 2
  {
    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
}

и

#SingleInstance ignore
FileEncoding,UTF-8

FileDelete,1.txt
FileDelete, 2.txt

text = 
(
1234
12345
1234567
123456789
1234567890
asdfghjqweryuiop
asdfghjqweryuiopweryu
aspdfghjqweryuiodfghjqweryuio
asdfghjqwepryuioryuioryuioryuioryuio
)

FileAppend,%text%,1.txt

text := ""
FileRead,text,1.txt

MsgBox, начальный текст из файла:`n%text%

Key1 := "jhhgf3"
Key2 := "rtdvs4"

MsgBox, % "Шифрованный текст:`n" . Shifr := Cipher(text, Key1, Key2)

oFile := FileOpen("2.txt", "w", "UTF-16")
oFile.Write(Shifr)   ; записываем
oFile.Close()

FileRead, str, 2.txt

MsgBox, % "Расшифровка:`n`n" . text2 := Cipher(str, Key2, Key1)

if( text = text2 )
    MsgBox, Совпадает.
else
    MsgBox, Не совпадает.
    
; =============== Функция шифровки/дешифровки ====================

Cipher(Src, Key1, Key2 = 0)  ; Два последних ключа необязательны.
{
  Loop, 2
  {
    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
}

  Я правильно понял, что Raw, не пропущено, а Вы именно так предлагаете записывать? Это же то ж самое, что привычное мне

FileAppend,%str%,1.txt, UTF-16

?

Да, предлагаю использовать строковые чтение и запись, а не бинарные. Так проще. Ну, а использовать объект File, по-моему, удобнее. Как-то единообразнее всё выглядит и проще.

А в чём простота? Лишняя возня скорее.

oFile.Write(Shifr)   ; записываем

  Я правильно понял, что Raw, не пропущено, а Вы именно так предлагаете записывать? Это же то ж самое, что привычное мне

FileAppend,%str%,1.txt, UTF-16

?

Pogodin
Шифр нужно писать в файл и читать из файла в кодировке UTF16. Это родная кодировка для строк юникодного АНК, поэтому при чтении и записи файла не будет перекодировок.

  Спасибо, попробую.

О каком pure number тогда речь?

Если в str находится число, то оно воспринимается, как адрес буфера, куда нужно считывать файл.

Нет, это только в случае, если str указано, как число (str + 0 или str*1).
В остальном согласен.

#SingleInstance ignore
FileEncoding,UTF-8

FileDelete,1.txt
FileDelete,2.txt

text = 
(
1234
12345
1234567
123456789
1234567890
asdfghjqweryuiop
asdfghjqweryuiopweryu
aspdfghjqweryuiodfghjqweryuio
asdfghjqwepryuioryuioryuioryuioryuio
)

FileAppend,%text%,1.txt

text := ""
FileRead,text,1.txt

MsgBox, начальный текст из файла:`n%text%

Key1 := "jhhgf3"
Key2 := "rtdvs4"

MsgBox, % "Шифрованный текст:`n" . Shifr := Cipher(text, Key1, Key2)

oFile := FileOpen("2.txt", "w", "UTF-16")
oFile.Write(Shifr)   ; записываем
oFile.Close()

oFile := FileOpen("2.txt", "r", "UTF-16")
Shifr := oFile.Read()   ; читаем
oFile.Close()

MsgBox, % "Расшифровка:`n`n" . text2 := Cipher(Shifr, Key2, Key1)

if( text = text2 )
    MsgBox, Совпадает.
else
    MsgBox, Не совпадает.

Лишнее показывается потому, что после чтения из файла вы не ставите в конце прочитанного нулевой терминатор строки. Поэтому АНК читает всё до конца буфера, а не только то, что вы в него прочитали на этот раз.

Если в str находится число, то оно воспринимается, как адрес буфера, куда нужно считывать файл. По адресу 0 писать нельзя.