Escape de entidades html

Esta utilidad escapa las siguientes entidades html:
< se escapa como &lt;
> se escapa como &gt;
& se escapa como &amp;
" se escapa como &quot;

Escribe o pega en esta ventana el código

Código escapado

---

Código fuente de esta utilidad

JavaScript necesario en la cabecera

<script type='text/javascript'>
//<![CDATA[
function $(id){ return document.getElementById(id) }
    function encode_entities(s){
    var result = '';
    for (var i = 0; i < s.length; i++){
    var c = s.charAt(i);
    result += {'<':'&lt;', '>':'&gt;', '&':'&amp;','"':'&quot;'}[c] || c;
    }
    return result;
}
function do_encode(e){
    $('dst').value = encode_entities(e.value)
}
//]]>
</script>
</head>

Código necesario en el post (en azul)

<div id="form"><b>Escribe o pega en esta ventana el código</b>
<textarea cols="80" rows="16" style="float:left;" onkeyup="do_encode(this)" onchange="do_encode(this)"></textarea>
</div><div style="clear:left;"></div>
<b>Código escapado</b>
<textarea style="float:left;" id="dst" cols="80" rows="16" onfocus="this.select()" onclick="this.select()"></textarea>