' (c) ZagZag, icq 509144
chars_en = "f,dult;pbqrkvyjghcnea[wxioms]'.z"
chars_ru = "абвгдежзийклмнопрстуфхцчшщьыъэюя"

Set fso = CreateObject("Scripting.FileSystemObject")
Set file_in = fso.OpenTextFile("in.txt", 1)
Set file_out = fso.OpenTextFile("out.txt", 2, True)
Do
  s = file_in.ReadLine
  c = Len(s)
  p1 = "" ' Для мутации с раскладкой
  p2 = "" ' Для мутации с регистром
  for i = 1 to c
    ch = Mid(s, i, 1)
    p = InStr(chars_ru, ch)
    if p > 0 then
      p1 = p1 & Mid(chars_en, p, 1)
    else
      p = InStr(chars_en, ch)
      if p > 0 then
        p1 = p1 & Mid(chars_ru, p, 1)
      else
        p1 = p1 & ch
      end if
    end if
    if UCase(ch) = ch then
      p2 = p2 & LCase(ch)
    else
      p2 = p2 & UCase(ch)
    end if
  next
  file_out.WriteLine p1
  file_out.WriteLine p2
Loop Until file_in.AtEndOfStream
file_in.close
file_out.close
MsgBox "OK"