Local $alf = "АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
Local $shiftalf = "ЯАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮ"

for $index1 = 1 to StringLen($alf)
for $index2 = 1 to StringLen($shiftalf)
if $index1 = $index2 Then
$letter1 = StringMid($alf,$index1,1)
$letter2 = StringMid($shiftalf,$index2,1)
msgbox(0,"title",$letter1 & " в шифрованном алфавите соответствует " & $letter2)
EndIf
next
next