Bu bi html sayfa a.html atıyorum..
Kod: Tümünü seç
<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
Kod: Tümünü seç
<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
Kod: Tümünü seç
<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
Kod: Tümünü seç
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