@strsrc := "Нкммучф мптъюл 8054 ыпъю" //Строка для перевода
@strdst := "" //Переведенная строка

@cnt := 1
@len := len(@strsrc)

while @cnt <= @len do (
	@strdst <<= substr(@normal, index(@coded, substr(@strsrc, @cnt, 1), 1), 1)
	@cnt := @cnt + 1
) 

@strdst <<= substr(@normal, index(@coded, substr(@strsrc, @cnt, 1), 1), 1)
 

@coded := "абвгдеёжзийклмнопрс...; //Кодированные символы
@normal := "юэьыъщшчцхфутсрпо...; //Декодированные символы

@name := КТ2; //Сохраняем значение поля в переменную
@len := len(@name); //Считаем длину строки
@cnt := 1; //Присваиваем значение счётчику

while @cnt <= @len do (
  @name_new := substr(@normal, index(@coded, substr(@name, @cnt, 1), 1), 1);
  APPENDFILE("F:\BD\name.txt",@name_new); //Запись полученных символов в файл
  //Использовал функцию APPENDFILE, т.к. не знал, как собрать в одном поле все полученные символы
  @cnt := @cnt + 1;
)
КТ27 := READFILE("F:\BD\name.txt"); //Прочитал из файла полученные символы и сохранил их в поле
DELETEFILE("F:\BD\name.txt"); //Удалил файл. Это необходимо, чтобы обработать следующую закодированную запись базы данных