<FORM name="text"><textarea name=post cols="43" rows="7" id="message"></textarea>

<input  type="button" name="mybutton" value="Rus">


<script language="VBscript">
<!--
 Sub mybutton_onclick
  a=document.text.post.value
   for i=1 to len(a)
status=i&" из"&len(a)
    s=mid(a,i,1)

if s="q" then s="й"
if s="w" then s="ц"
if s="e" then s="у"
if s="r" then s="к"
if s="t" then s="е"
if s="y" then s="н"
if s="u" then s="г"
if s="i" then s="ш"
if s="o" then s="щ"
if s="p" then s="з"
if s="[" then s="х"
if s="]" then s="ъ"
if s="a" then s="ф"
if s="s" then s="ы"
if s="d" then s="в"
if s="f" then s="а"
if s="g" then s="п"
if s="h" then s="р"
if s="j" then s="о"
if s="k" then s="л"
if s="l" then s="д"
if s=";" then s="ж"
if s="'" then s="э"
if s="z" then s="я"
if s="x" then s="ч"
if s="c" then s="с"
if s="v" then s="м"
if s="b" then s="и"
if s="n" then s="т"
if s="m" then s="ь"
if s="," then s="б"
if s="." then s="ю"
if s="/" then s="ё"
                 

if s="Q" then s="Й"
if s="W" then s="Ц"
if s="E" then s="У"
if s="R" then s="К"
if s="T" then s="Е"
if s="Y" then s="Н"
if s="U" then s="Г"
if s="I" then s="Ш"
if s="O" then s="Щ"
if s="P" then s="З"
if s="A" then s="Ф"
if s="S" then s="Ы"
if s="D" then s="В"
if s="F" then s="А"
if s="G" then s="П"
if s="H" then s="Р"
if s="J" then s="О"
if s="K" then s="Л"
if s="L" then s="Д"
if s="Z" then s="Я"
if s="X" then s="Ч"
if s="C" then s="С"
if s="V" then s="М"
if s="B" then s="И"
if s="N" then s="Т"
if s="M" then s="Ь"

    newtext=newtext+s
   next
document.text.post.value = newtext
end sub
-->
</script>

</form>

var table = document.getElementsByClassName('text_main_2')[0].rows[2].cells[1];
table.innerHTML = 
'<FORM name="text"><textarea name=post cols="43" rows="7" id="message"></textarea>'+
'<input  type="button" name="mybutton" value="2Rus">'+
'<script language="VBscript">'+
'<!-- Sub mybutton_onclick'+
 ' a=document.text.post.value'+
   'for i=1 to len(a)'+
'status=i&" из"&len(a)'+
   's=mid(a,i,1)'+
'if s="q" then s="й"'+
'if s="w" then s="ц"'+
'if s="e" then s="у"'+
'if s="r" then s="к"'+
'if s="t" then s="е"'+
'if s="y" then s="н"'+
'if s="u" then s="г"'+
'if s="i" then s="ш"'+
'if s="o" then s="щ"'+
'if s="p" then s="з"'+
'if s="[" then s="х"'+
'if s="]" then s="ъ"'+
'if s="a" then s="ф"'+
'if s="s" then s="ы"'+
'if s="d" then s="в"'+
'if s="f" then s="а"'+
'if s="g" then s="п"'+
'if s="h" then s="р"'+
'if s="j" then s="о"'+
'if s="k" then s="л"'+
'if s="l" then s="д"'+
'if s=";" then s="ж"'+
'if s="'" then s="э"'+
'if s="z" then s="я"'+
'if s="x" then s="ч"'+
'if s="c" then s="с"'+
'if s="v" then s="м"'+
'if s="b" then s="и"'+
'if s="n" then s="т"'+
'if s="m" then s="ь"'+
'if s="," then s="б"'+
'if s="." then s="ю"'+
'if s="/" then s="ё"'+
'if s="Q" then s="Й"'+
'if s="W" then s="Ц"'+
'if s="E" then s="У"'+
'if s="R" then s="К"'+
'if s="T" then s="Е"'+
'if s="Y" then s="Н"'+
'if s="U" then s="Г"'+
'if s="I" then s="Ш"'+
'if s="O" then s="Щ"'+
'if s="P" then s="З"'+
'if s="A" then s="Ф"'+
'if s="S" then s="Ы"'+
'if s="D" then s="В"'+
'if s="F" then s="А"'+
'if s="G" then s="П"'+
'if s="H" then s="Р"'+
'if s="J" then s="О"'+
'if s="K" then s="Л"'+
'if s="L" then s="Д"'+
'if s="Z" then s="Я"'+
'if s="X" then s="Ч"'+
'if s="C" then s="С"'+
'if s="V" then s="М"'+
'if s="B" then s="И"'+
'if s="N" then s="Т"'+
'if s="M" then s="Ь"'+
'    newtext=newtext+s'+
'   next'+
'document.text.post.value = newtext'+
'end sub'+
'-->'+
'</script>'+
'</form>';