Bu bi html sayfa a.html atıyorum..
<html>
<head>
<title>Baslik Baslik</title>
<SCRIPT LANGUAGE="javascript">
<!--
document.write(unescape("%3c%53%43%52%49%50%54%20%4c%41%4e%47
%55%41%47%45%3d%22%4a%61%76%61%53%63%72%69%70%74
%31%2e%31%22%3e%66%75%6e%63%74%69%6f%6e%20%72%69
%67%68%74%28%65%29%20%7b%69%66%20%28%6e%61%76%69
%67%61%74%6f%72%2e%61%70%70%4e%61%6d%65%20%3d%3d
%20%27%4e%65%74%73%63%61%70%65%27%20%26%26%20%28
%65%2e%77%68%69%63%68%20%3d%3d%20%33%20%7c%7c%20
%65%2e%77%68%69%63%68%20%3d%3d%20%32%29%29%72%65
%74%75%72%6e%20%66%61%6c%73%65%3b%65%6c%73%65%20
%69%66%20%28%6e%61%76%69%67%61%74%6f%72%2e%61%70
%70%4e%61%6d%65%20%3d%3d%20%27%4d%69%63%72%6f%73
%6f%66%74%20%49%6e%74%65%72%6e%65%74%20%45%78%70
%6c%6f%72%65%72%27%20%26%26%20%28%65%76%65%6e%74
%2e%62%75%74%74%6f%6e%20%3d%3d%20%32%20%7c%7c%20
%65%76%65%6e%74%2e%62%75%74%74%6f%6e%20%3d%3d%20
%33%29%29%20%7b%61%6c%65%72%74%28%22%46%75%6e%63
%74%69%6f%6e%20%44%69%73%61%62%6c%65%64%20%2d%20
%63%6f%6e%74%61%63%74%20%77%65%62%6d%61%73%74%65
%72%2e%22%29%3b%72%65%74%75%72%6e%20%66%61%6c%73
%65%3b%7d%72%65%74%75%72%6e%20%74%72%75%65%3b%7d
%64%6f%63%75%6d%65%6e%74%2e%6f%6e%6d%6f%75%73%65
%64%6f%77%6e%3d%72%69%67%68%74%3b%64%6f%63%75%6d
%65%6e%74%2e%6f%6e%6d%6f%75%73%65%75%70%3d%72%69
%67%68%74%3b%69%66%20%28%64%6f%63%75%6d%65%6e%74
%2e%6c%61%79%65%72%73%29%20%77%69%6e%64%6f%77%2e
%63%61%70%74%75%72%65%45%76%65%6e%74%73%28%45%76
%65%6e%74%2e%4d%4f%55%53%45%44%4f%57%4e%29%3b%69
%66%20%28%64%6f%63%75%6d%65%6e%74%2e%6c%61%79%65
%72%73%29%20%77%69%6e%64%6f%77%2e%63%61%70%74%75
%72%65%45%76%65%6e%74%73%28%45%76%65%6e%74%2e%4d
%4f%55%53%45%55%50%29%3b%77%69%6e%64%6f%77%2e%6f
%6e%6d%6f%75%73%65%64%6f%77%6e%3d%72%69%67%68%74
%3b%77%69%6e%64%6f%77%2e%6f%6e%6d%6f%75%73%65%75
%70%3d%72%69%67%68%74%3b%3c%2f%73%63%72%69%70%74
%3e"));
//-->
</SCRIPT>
</head>
<body topmargin=0 bottommargin=0 leftmargin=0 rightmargin=0 marginwidth=0 marginheight=0>
<SCRIPT LANGUAGE="javascript">
<!--
document.write(unescape("%3c%69%6d%67%20%73%72%63%3d%68
%74%74%70%3a%2f%2f%77%77%77%2e%6a%6f%65%79%77%6f
%72%6c%64%2e%6e%65%74%2f%70%69%63%74%75%72%65%73
%2f%6b%65%6c%6c%79%2f%6b%65%6c%6c%79%30%30%31%2e
%6a%70%67%3e%3c%62%72%3e%3c%63%65%6e%74%65%72%3e
%3c%66%6f%6e%74%20%66%61%63%65%3d%22%61%72%69%61
%6c%22%20%73%69%7a%65%3d%22%32%22%3e%3c%61%20%68
%72%65%66%3d%22%6a%61%76%61%73%63%72%69%70%74%3a
%76%6f%69%64%28%77%69%6e%64%6f%77%2e%63%6c%6f%73
%65%28%74%68%69%73%29%29%22%3e%43%6c%6f%73%65%20
%57%69%6e%64%6f%77%3c%2f%61%3e%3c%2f%66%6f%6e%74
%3e%3c%2f%63%65%6e%74%65%72%3e"));
//-->
</SCRIPT>
</body>
</html>
document.write den sonraki değerler normal html kodun ascii karşılıkları.
örneğin ilk document.write satırı çözünce
<SCRIPT LANGUAGE="JavaScript1.1">function right(e) {if (navigator.appName == 'Netscape' && (e.which == 3 || e.which == 2))return false;else if (navigator.appName == 'Microsoft Internet Explorer' && (event.button == 2 || event.button == 3)) {alert("Function Disabled - contact webmaster.");return false;}return true;}document.onmousedown=right;document.onmouseup=right;if (document.layers) window.captureEvents(Event.MOUSEDOWN);if (document.layers) window.captureEvents(Event.MOUSEUP);window.onmousedown=right;window.onmouseup=right;</script>
ikinci kod bloğunu çözünce
<img src=http://www.delphiturkiye:P.net/pictures/01.jpg><br><center><font face="arial" size="2"><a href="javascript:void(window.close(this))">Close Window</a></font></center>
eğer bu sayfayıda menüsüz başlıksız bi şekilde yeni pencerede açarsan çok küçük çocuklar alamaz linklerini.
bu kodu çözmek için zamanında yaptığım program için bi forma iki edit bide buton koy. çift tırnaklar içindeki metni kopyalayıp edit1 e yapıştr ve
function Tform1.hextoint(gir:string):integer;
const hex_digits:string[16]=('0123456789ABCDEF');
var
tamsayi:word;
say,tamsayi_digits,hane:byte;
begin
tamsayi:=0;
hane:=length(gir);
gir:=AnsiUpperCase(gir);
for say:=1 to hane do begin
tamsayi_digits:=pos(copy(gir,say,1),hex_digits);
tamsayi:=tamsayi*16+(tamsayi_digits-1);
end;
hextoint:=tamsayi;
end;
procedure TForm1.Button1Click(Sender: TObject);
var a:real;
i:integer;
begin
for i:=1 to length(edit1.text) do begin
if (i mod 3) = 1 then edit2.text:=edit2.text+ chr(hextoint(copy(edit1.text,i+1,2)));
end;
end;
he ben nasıl yapıcam bunu dersen tam tersi bi fonksiyon yazıcan.
hadi kolay gelsin iyi geceler | 
İnşallah bir gün bizede nasip olur bu vatanın evlatlarına bilgi aktarma.