Structure PUTIN
  a.a[0]
EndStructure

Text$ = "Это простой тест "+Chr(13)+"Yes, this is a test! €€"
strlen = StringByteLength(Text$) 
ShowMemoryViewer(@Text$, strlen)
*string.PUTIN = @Text$ ; создаём новую переменную *string, назначаем ей структуру с именем PUTIN и присваиваем ей адрес Text$ (почитай про @)
                     ; теперь строка у нас выглядит как массив данных и с ним легко работать
Debug "первый байт текста: " + *string\a[0]  ; значение из массива с индексом 0
Debug "второй байт текста: " + *string\a[1]  ; значение из массива с индексом 1
Debug "последний байт текста " + *string\a[strlen-1]  ; значение из массива с индексом strlen-1
Debug "======="

For index = 0 To strlen-1
  Debug "Берём значение с индексом " +index+ " ("+*string\a[index]+") и ксорим его на " + index + " и записываем обратно в *string\a["+index+"] = " + Str(*string\a[index] ! index)
  *string\a[index]=*string\a[index] ! index
Next

Procedure EncodeDecode2(*memory,strlen,salt)
  For offset = 0 To strlen - 1
    byte.b = PeekB(*memory + offset) ; читаем байт из памяти
    Newbyte.b = byte ! offset ; ксорим на offset 
    PokeB (*memory + offset, Newbyte) ; записываем байт обратно в память
  Next
EndProcedure

EncodeDecode(@string$,strlen,salt)
Debug string$
EncodeDecode2(@string$,strlen,salt)
Debug string$

Filename$ = OpenFileRequester("выберите файл", "","",0)
hFile = ReadFile(#PB_Any, Filename$)
lFileSize = FileSize(Filename$)
*Buffer = AllocateMemory(lFileSize)
ReadData(hFile, *Buffer, lFileSize)
EncodeDecode2(*Buffer,lFileSize,0)
NewFilename$ = SaveFileRequester("сохранить файл в ", Filename$ + "_new", "", 0)
hNewFile = CreateFile(#PB_Any, NewFilename$)
WriteData(hNewFile, *Buffer, lFileSize)

;- Процедуры
Procedure file_cipher (string_to_save$, filename_encrypted_with_path$)
  ;зашифровать текст и сохранить в файл
  txt_len=Len(string_to_save$)*2+1
  *MemoryID_from   = AllocateMemory(txt_len)
  *MemoryID_to = AllocateMemory(txt_len)
  If Not *MemoryID_from Or Not *MemoryID_to
    ProcedureReturn 1; ошибка при выделении памяти
  EndIf
  PokeS (*MemoryID_from, string_to_save$, -1, #PB_Unicode)
  If Not AESEncoder(*MemoryID_from, *MemoryID_to, txt_len, ?Key, 128, 0, #PB_Cipher_ECB)
    ProcedureReturn 3
  EndIf
  If CreateFile(0, filename_encrypted_with_path$)
    WriteData(0, *MemoryID_to, txt_len)
    CloseFile(0) 
    ProcedureReturn 0; выход с нулевым параметром - всё прошло успешно
  EndIf
  ProcedureReturn 2
EndProcedure
Procedure.s file_decipher (filename_encrypted_with_path$)
  ;открыть сохранённый зашифрованный файл, расшифровать и вернуть результат в виде строки
  If ReadFile(0, filename_encrypted_with_path$) 
    file_length = Lof(0)
    *MemoryID_from = AllocateMemory(file_length)
    *MemoryID_to = AllocateMemory(file_length)
    If Not *MemoryID_from Or Not *MemoryID_to
      ProcedureReturn "1"
    EndIf
    bytes_readed = ReadData(0, *MemoryID_from, file_length)
    CloseFile(0)
  Else
    ProcedureReturn "2"
  EndIf
  If Not AESDecoder(*MemoryID_from, *MemoryID_to, file_length, ?Key, 128, 0, #PB_Cipher_ECB)
    ProcedureReturn "3"
  EndIf
    res$=PeekS(*MemoryID_to, -1, #PB_Unicode)
  ProcedureReturn res$; всё прошло успешно, возвращаем расшифрованную строку
EndProcedure
;-Начало программы
filename_encrypted_with_path$="C:\kds\test_1.dat"; зашифрованный файл
string_to_save$="Допустим, есть некоторый текст, который мы хотели бы сохранить в текстовый файл и зашифровать"+#CRLF$+"Используем при этом кодировку UNICODE"
; первое действие - зашифровать текст и сохранить в зашифрованный файл
res_cipher=file_cipher (string_to_save$, filename_encrypted_with_path$)
If res_cipher
  Debug "Can not execute file_cipher() procedure, error code: "+Str(res_cipher)
  End
EndIf
; второе действие - открыть зашифрованный файл, расшифровать и получить текст в переменную
decoded_str$=file_decipher (filename_encrypted_with_path$)
If decoded_str$="1" Or decoded_str$="2" Or decoded_str$="3"
  Debug "Can not execute file_decipher () procedure, error code: "+decoded_str$
  End
EndIf
Debug decoded_str$; расшифрованный текст из зашиврованного файла
End

; ключ для шифрования взят из справки, нужно изменить значения
  DataSection
    Key:
      Data.b $06, $a9, $21, $40, $36, $b8, $a1, $5b, $51, $2e, $03, $d5, $34, $12, $00, $06
  EndDataSection

EnableExplicit
Structure char
  a.a[5000]
EndStructure
Define *string.char
*string=AllocateMemory(5000)

*string\a[0]    =   0 ; первый    элемент статического массива
*string\a[4999] = 255 ; последний элемент статического массива
Debug *string\a[0] 
Debug *string\a[4999]

; или без указателей
Define SSS.char
SSS\a[0]    = 0
SSS\a[4999] = 255
Debug SSS\a[0]
Debug SSS\a[4999]

;НО!!!, к строкам это не имеет никакого отношения
;если конечно речь не о старой версии без юникода
;для юникода и совмещения операций со строками и статическими массивами 
;нужно использовать тип u

Structure char
A.a[5]
Endstructure
Global char.char
A[0]=1
A[1]=2
A[2]=3
A[3]=4
A[4]=5
Global bait.a
Macro zapis_iz pamyti_vperemennuy(adres,smehenie)
!mov dword eax,[v_smehenie]
!mov byte al,[a_adres+eax];[v_char+eax];[a_char+eax]
!mov byte [v_bait],al
Endmacro

Global i.i
For i=0 to 4
zapis_iz_pamyti_vperemennuy(char,i)
Debug bait
Next