InputBox, input, PawnGameTextConverter, Введите текст

output := ConvertText(input)

Msgbox, %output%

ConvertText(Text)
{
               static Result
               Rus := "aАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэЭюЮяЯ"            
               Pwn := "aA—Ђў‹™‚љѓeEeE›„џ€њ…њ…kKћ‡ЇM®*oOЈЊpPcC¦ЏyYЃЃxX*‰¤ЌҐЋЎЉ©’ђ§Ё‘Є“«”¬•"

               Loop, parse, Text
               {
                  found =
                  if found := InStr(Pwn, A_LoopField, 1)
                     NewText .= SubStr(Rus, found, 1)

                  if !found
                     if found := InStr(Rus, A_LoopField, 1)
                        NewText .= SubStr(Pwn, found, 1)

                  if !found
                     NewText .= A_LoopField
               }
               Return NewText
}