Local $alphabet1[34]
Local $alphabet2[34]

$alphabet1[0] = "а"
$alphabet1[1] = "б"
$alphabet1[2] = "в"
$alphabet1[3] = "г"
$alphabet1[4] = "д"
$alphabet1[5] = "е"
$alphabet1[6] = "ё"
$alphabet1[7] = "ж"
$alphabet1[8] = "з"
$alphabet1[9] = "и"
$alphabet1[10] = "й"
$alphabet1[11] = "к"
$alphabet1[12] = "л"
$alphabet1[13] = "м"
$alphabet1[14] = "н"
$alphabet1[15] = "о"
$alphabet1[16] = "п"
$alphabet1[17] = "р"
$alphabet1[18] = "с"
$alphabet1[19] = "т"
$alphabet1[20] = "у"
$alphabet1[21] = "ф"
$alphabet1[22] = "х"
$alphabet1[23] = "ц"
$alphabet1[24] = "ч"
$alphabet1[25] = "ш"
$alphabet1[26] = "щ"
$alphabet1[27] = "ъ"
$alphabet1[28] = "ы"
$alphabet1[29] = "ь"
$alphabet1[30] = "э"
$alphabet1[31] = "ю"
$alphabet1[32] = "я"

$alphabet2[0] = "a"
$alphabet2[1] = "b"
$alphabet2[2] = "v"
$alphabet2[3] = "g"
$alphabet2[4] = "d"
$alphabet2[5] = "e"
$alphabet2[6] = "e"
$alphabet2[7] = "zh"
$alphabet2[8] = "z"
$alphabet2[9] = "i"
$alphabet2[10] = "j"
$alphabet2[11] = "k"
$alphabet2[12] = "l"
$alphabet2[13] = "m"
$alphabet2[14] = "n"
$alphabet2[15] = "o"
$alphabet2[16] = "p"
$alphabet2[17] = "r"
$alphabet2[18] = "s"
$alphabet2[19] = "t"
$alphabet2[20] = "u"
$alphabet2[21] = "f"
$alphabet2[22] = "h"
$alphabet2[23] = "ts"
$alphabet2[24] = "ch"
$alphabet2[25] = "sh"
$alphabet2[26] = "sch"
$alphabet2[27] = "'"
$alphabet2[28] = "y"
$alphabet2[29] = "'"
$alphabet2[30] = "eh"
$alphabet2[31] = "ju"
$alphabet2[32] = "ja"

Local $varstring = "привет"
Local $s = ""
for $i = 1 to 6
for $j = 0 to 32
if $alphabet1[$j] = StringMid($varstring,$i,1) then
$s &= $alphabet2[$j]
endif
next
next

Msgbox(0,"title",$s)