- License:
- Free
- Language:
- English
- Developer:
- Microsoft | More programs (155)
- OS:
- WinXP/Vista/7
Free Template Blogger collection template Hot Deals SEO
.
BILLING-29 v.2.6 Free Edition ada salah satu software billing buat warnet yang bersifat free (ada juga yang pro). BILLING-29 v.2.6 buatan lokal loh sob, atau lebih tepatnya dibuat oleh saudara Jopan Hari Wantono. Sebagai billing yang bersifat free, pasti sobat blogger sangsi dengan features dan kinerjanya?? Kalau begitu di cek aja deh,, ok
Ini tampilannya sob :

Fitur BILLING-29 v.2.6 :
Pada kesempatan kali ini saya akan share software untuk unlock kode keamanan HP, yakni World Unlock Codes Calculator v4.4. Buat yang hp nya terkunci karena lupa kode keamanan nya, coba aja gunakan tool ini.
World Unlock Codes Calculator v4.4 ini merupakan sebuah tool yang berfungsi untuk mengunlock kode keamanan hp, bila kita lupa dengan kode keamanan nya dengan menggunakan no IMEI hp anda. Untuk mengetahui no IMEI hp anda, ketik " *#06# " (tanpa tanda kutip).

WorldUnlock Codes Calculator support :
Dahulu sekali saya sudah pernah share software Uniblue PowerSuite 2010 beserta tata cara aktivasinya agar full version. Pada kesempatan kali ini saya akan mencoba share versi terbarunya dari PowerSuite, yakni Uniblue PowerSuite 2011 Full Version. Cekidot,,
Seperti yang sudah saya jelaskan sebelumnya, Uniblue PowerSuite merupakan sebuah software yang di dalam nya terdapat software Uniblue SpeedUpMyPC 2011, Uniblue RegistryBooster dan Uniblue DriverScanner. Ketiga software tersebut merupakan software yang mampu menjaga kinerja PC/notebook kita.
Uniblue SpeedUpMyPC 2011
SpeedUpMyPC increases your computer's speed by adjusting system settings and improving resource management.
Features :



Sebenarnya banyak sekali software-software billing buat hotspot yang gratis yang bertebaran di internet. Terus kenpa memilih EasyHotspot?? Karena ini software rakitan anak negeri loh sob, jadi cintailah produk dalam negri. Hehehe
Tapi kok rakitan?? kenapa nggak dibilang pembuatnya?? Oke,, saya jelaskan sedikit yah, kenapa saya sebut rakitan?? karena EasyHotspot ini merupakan gabungan dari beberapa aplikasi OpenSource seperti Linux (XUbuntu), MySQL, ChilliSpot, dll. Paham kan?? hehe

Feature EasyHotSpot :
Untuk download dan informasi lebih lanjut, silahkan kunjungi situs resminya di http://easyhotspot.sf.net/
Bangsa Indonesia sebagai bangsa yang berpotensi dengan dunia IT nya tidak mau ketinggalan dalam persaingan dalam kecanggihan dunia modern ini. Anak bangsa yang peka terhadap kemajuan zaman berhasil mengembangkan OS dalam negeri sendiri, Bandit namanya. Bagaimana kemampuannya mari kita intip bersama remo-xp.
Bandit adalah projek opensource yang dikembangkan oleh virologers dan karya anak bangsa. B.A.N.D.I.T atau Barricade Administration Network and Internet Tools adalah sistem operasi yang diremaster dari linux backtrack. BANDIT juga menyertakan tools jaringan yang dapat digunakan untuk melakukan penetrasi jaringan dan internet. Nmap, GFI Languard, dan exploit banyak terdapat di fitur linux bandit, sama seperti backtrack atau turunannya.
Linux bandit dibuat dengan kernell linux-live-6.2.4, sangat stabil dan banyak fungsi dan modul yang terdapat dikernel tersebut.
Nama OS : BANDIT
Singkatan : Barricade Administration Network an Internet Tools
Turunan : Slackware, Backtrack
Kernel : 2.6.x.x
Paket: Internet, Tools, Multimedia dan Editor
Developers: w3hol, deanet & edge_mank
Website: http://bandit.virologi.info/


Selain sebagai kumpulan tools untuk melakukan penetrasi jaringan, bandit juga dapat melakukan blocking dan scanning virus ke dari Ext3FS ke NTSF.
Bandit juga mempunyai tampilan grfis yang mudah dipahami dan dimengerti karena tampilannya mirip dengan windows, masalah tampilan grafis mirip dengan windows bukan karena bandit sangat tergila-gila dengan windows, tapi agar user tidak susah-susah untuk menyesuaikan diri dengan tampilan grafisnya.
Bagi yang ingin mencicipi Distro buatan anak bangsa ini silahkan langsung mendownloadnya disini
download
REMO-XP crew: 4d3pc
http://www.4shared.com/file/oat5NSYe/HDReg17.html"></a>Sebelumnya saya sudah pernah share software yang dapat mengecek bad sector, yakni HD Tune Pro 4.5 Full. Berhubung banyak yang request untuk di carikan tool yang dapat memperbaiki bad sector, maka pada kesempatan kali ini saya akan share HDD Regenerator 1.71 Full Serial.
HDD Regenerator 1.71 merupakan sebuah tool yang berfungsi untuk memperbaiki bad sector dalam hardisk. Kinerja dan kemampuan HDD Regenerator 1.71 ini bisa di katakan cukup baik, meskipun nggak semua bad sector dapat di perbaiki, tapi nggak ada salah nya kan mencoba?? dari pada tidak sama sekali.
Pada kesemptan kali ini saya akan mencoba share software yang mampu mendeteksi program-program jahat seperti keylogger dan program sejenis lainnya. Software ini bernama Keylogger Detector 1.34, dan tentu sudah ada serial buat aktivasi agar full version.
Keylogger Detector merupakan aplikasi yang berfungsi untuk mencari, menemukan dan dapat menghapus program spyware termasuk password stealing programs, chat and email logging software, keystroke loggers, screen capturing programs, dan program sejenis lainnya yang mampu merekam aktivitas komputer anda.
Keylogger Detector Features:
Beberapa waktu yang lalu, ada salah satu pengujung setia remo-xp request minta dibuatkan themes remoxp untuk nokia 5800. Disela-sela kesibukan, saya sudah sempatkan diri untuk membuat themes remoxp, mudah-mudahan hasilnya seperti yang di harapkan. Buat yang sudah request, cek aja,,,
Buat backgroundnya sendiri saya buat bernuansa abstrak tapi sedikit elegan di tambah dengan tulisan remoxp di tengah-tengahnya. Untuk icon nya, saya belum sempet buat, jadi masih bawaan default nokia 5800 nya.
Di lain kesempatan saya akan coba buatkan wallpaper komputer untuk pengunjung setia remo-xp. Terima kasih dan selamat mendownload,,
Password : www.remo-xp.com
Download Themes Nokia 5800 Remo-XP Style v1Size : N/A (no adf.ly)
Sebelumnya saya juga sudah pernah share game Harvest Moon Back to Nature, terus kenapa sekarang di share kembali?? Sebenarnya share kali ini hanya untuk memperbaiki share yang terdahulu sob, dan harvest moon yang saya share kali ini harvest moon yang versi inggris nya. Disini juga saya menawarkan kemudahakan instalasi game ini.
Di share game Harvest Moon Back To Nature sebelumnya kita di haruskan setting ini itu terdahulu untuk bisa memainkan game tersebut, namun pada kesempatan kali ini saya akan share game Harvest Moon Back To Nature yang sudah saya setting, kemudian saya pack jadi exe untuk memudahkan sobat blogger dalam melakukan instalasi.
Cara Install :









MikroTik v2.9.7
Login: [Nyit-Nyit Team]
Password: (kosongkan)
[[Nyit-Nyit Team]@Mikrotik] > password
old password: *****
new password: *****
retype new password: *****
[[Nyit-Nyit Team]@ Mikrotik]] >
[[Nyit-Nyit Team]@Mikrotik] > system identity set name=NeoMikrotik
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@NeoMikrotik] > interface print
Flags: X - disabled, D - dynamic, R - running
# NAME TYPE RX-RATE TX-RATE MTU
0 R ether1 ether 0 0 1500
1 R ether2 ether 0 0 1500
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@NeoMikrotik] > ip address add address=192.168.0.1
netmask=255.255.255.0 interface=wlan1
[[Nyit-Nyit Team]@NeoMikrotik] > ip address add address=172.16.0.1
netmask=255.255.255.0 interface=ether1
[[Nyit-Nyit Team]@NeoMikrotik] >ip address print
Flags: X - disabled, I - invalid, D - dynamic
# ADDRESS NETWORK BROADCAST INTERFACE
0 192.168.0.1/24 192.168.0.0 192.168.0.63 wlan1
1 172.16.0.1/24 172.16.0.0 172.16.0.255 ether1
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@NeoMikrotik] > /ip route add gateway=192.168.0.254
[[Nyit-Nyit Team]@NeoMikrotik] > ip route print
Flags: X - disabled, A - active, D - dynamic,
C - connect, S - static, r - rip, b - bgp, o - ospf
# DST-ADDRESS PREFSRC G GATEWAY DISTANCE INTERFACE
0 ADC 172.16.0.0/24 172.16.0.1 ether1
1 ADC 192.168.0.0/26 192.168.0.1 wlan1
2 A S 0.0.0.0/0 r 192.168.0.254 wlan1
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@NeoMikrotik] > ping 192.168.0.254
192.168.0.254 64 byte ping: ttl=64 time<1 ms
192.168.0.254 64 byte ping: ttl=64 time<1 ms
192.168.0.254 64 byte ping: ttl=64 time<1 ms
192.168.0.254 64 byte ping: ttl=64 time<1 ms
4 packets transmitted, 4 packets received, 0% packet loss
round-trip min/avg/max = 0/0.0/0 ms
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@NeoMikrotik] > ip dns set primary-dns=192.168.0.10 allow-remoterequests=no
[[Nyit-Nyit Team]@NeoMikrotik] > ip dns set secondary-dns=192.168.0.11 allow-remoterequests=no
[[Nyit-Nyit Team]@NeoMikrotik] > ip dns print
primary-dns: 192.168.0.10
secondary-dns: 192.168.0.11
allow-remote-requests: no
cache-size: 2048KiB
cache-max-ttl: 1w
cache-used: 16KiB
[[Nyit-Nyit Team]@NeoMikrotik] >
[[Nyit-Nyit Team]@v] > ping www.yahoo.com
216.109.112.135 64 byte ping: ttl=48 time=250 ms
216.109.112.135 64 byte ping: ttl=48 time=214 ms
216.109.112.135 64 byte ping: ttl=48 time=298 ms
216.109.112.135 64 byte ping: ttl=48 time=264 ms
216.109.112.135 64 byte ping: ttl=48 time=227 ms
216.109.112.135 64 byte ping: ttl=48 time=285 ms
216.109.112.135 64 byte ping: ttl=48 time=259 ms
216.109.112.135 64 byte ping: ttl=48 time=211 ms
216.109.112.135 64 byte ping: ttl=48 time=241 ms
216.109.112.135 64 byte ping: ttl=48 time=221 ms
10 packets transmitted, 10 packets received, 0% packet loss
round-trip min/avg/max = 571/571.0/571 ms
[[Nyit-Nyit Team]@NeoMikrotik] >
Kita cuman mainin di Firewall doang kok...
pertama kita masukin address list IIX
terus bikin mangle buat misahin iix dan int
nah terus tinggal atur di NAT
dan atur routingnya
Sample :
==== Masukin Address list IIX ====
Download : http://ixp.mikrotik.co.id/download/nice.rsc
/import nice.rsc
======= Mangle =======
5 ;;; Pemisahan packet iix dan international
chain=prerouting in-interface=LAN dst-address-list=nice action=mark-connection new-connection-mark=conn-iix passthrough=yes
6 chain=prerouting in-interface=LAN dst-address-list=!nice action=mark-connection new-connection-mark=conn-intl passthrough=yes
7 chain=prerouting connection-mark=conn-iix action=mark-packet new-packet-mark=indonesia passthrough=no
8 chain=output connection-mark=conn-iix action=mark-packet new-packet-mark=indonesia passthrough=no
9 chain=prerouting connection-mark=conn-intl action=mark-packet new-packet-mark=overseas passthrough=no
10 chain=output connection-mark=conn-intl action=mark-packet new-packet-mark=overseas passthrough=no
====== NAT ======
0 ;;; NAT IIX WIRELESS
chain=srcnat src-address=192.168.1.0/24 packet-mark=indonesia action=src-nat to-addresses=xxx.xxx.xxx.xxx(ip wireless) to-ports=0-65535
1 ;;; NAT INT ADSL
chain=srcnat src-address=192.168.1.0/24 packet-mark=overseas action=src-nat to-addresses=zzz.zzz.zzz.zzz(ip adsl) to-ports=0-65535
==== Routing ======
bikin semua routing static yang berada di address list menuju ke gateway ip wireless, sample :
/ ip route
add dst-address=32.234.170.0/23 gateway=xxx.xxx.xxx.xxx(gateway wireless) scope=255 \
target-scope=10 comment="GATEWAY IIX" disabled=no
add dst-address=32.234.172.0/23 gateway=xxx.xxx.xxx.xxx(gateway wireless) scope=255 \
target-scope=10 comment="GATEWAY IIX" disabled=no
nah bikin Default Gateway ke ip modem adsl / isp int
/ip route
add dst-address=0.0.0.0/0 gateway=zzz.zzz.zzz.zzz(ip adsl) scope=255 target-scope=10 \
comment="Default" disabled=no
Langkah-langkahnya :
1. Buka VB 6
2. Bikin 2 buah Command (Kill & Refresh) Jangan tanya masangnya gimana ya?
3. Copas Code Ini di Form..... Caranya Klick Kanan => View Code
Const TH32CS_SNAPPROCESS = &H2
Const TH32CS_SNAPTHREAD = &H4
Const TH32CS_SNAPMODULE = &H8
Const TH32CS_SNAPALL = (TH32CS_SNAPHEAPLIST Or TH32CS_SNAPPROCESS Or TH32CS_SNAPTHREAD Or TH32CS_SNAPMODULE)
Const TH32CS_INHERIT = &H80000000
Const MAX_PATH As Integer = 260
Private Type PROCESSENTRY32
dwSize As Long
cntUsage As Long
th32ProcessID As Long
th32DefaultHeapID As Long
th32ModuleID As Long
cntThreads As Long
th32ParentProcessID As Long
pcPriClassBase As Long
dwFlags As Long
szExeFile As String * MAX_PATH
End Type
Private Declare Function CreateToolhelp32Snapshot Lib "Kernel32" (ByVal lFlags As Long, ByVal lProcessID As Long) As Long
Private Declare Function Process32First Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "Kernel32" (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long
Private Declare Function OpenProcess Lib "kernel32.dll" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function TerminateProcess Lib "kernel32.dll" (ByVal hProcess As Long, ByVal uExitCode As Long) As Long
Private Declare Function CloseHandle Lib "kernel32.dll" (ByVal hHandle As Long) As Long
Private Const PROCESS_ALL_ACCESS = &H1F0FFF
'Enum the path
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const PROCESS_VM_READ = &H10
Private Declare Function EnumProcessModules Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByRef lphModule As Long, _
ByVal cb As Long, _
ByRef cbNeeded As Long) As Long
Private Declare Function GetModuleFileNameExA Lib "psapi.dll" ( _
ByVal hProcess As Long, _
ByVal hModule As Long, _
ByVal ModuleName As String, _
ByVal nSize As Long) As Long
Public Function PathByPID(pid As Long) As String
'Fungsi ini berfungsi untuk mendapatkan informasi tentang aplikasi yang sedang
'berjalan dengan menggunakan Process ID masing-masing aplikasi
'----
'Kode ini dapat dilihat di :
'http://support.microsoft.com/default.aspx?scid=kb;en-us;187913
Dim cbNeeded As Long
Dim Modules(1 To 200) As Long
Dim ret As Long
Dim ModuleName As String
Dim nSize As Long
Dim hProcess As Long
hProcess = OpenProcess(PROCESS_QUERY_INFORMATION _
Or PROCESS_VM_READ, 0, pid)
If hProcess <> 0 Then
ret = EnumProcessModules(hProcess, Modules(1), _
200, cbNeeded)
If ret <> 0 Then
ModuleName = Space(MAX_PATH)
nSize = 500
ret = GetModuleFileNameExA(hProcess, _
Modules(1), ModuleName, nSize)
PathByPID = Left(ModuleName, ret)
End If
End If
ret = CloseHandle(hProcess)
If PathByPID = "" Then
PathByPID = ""
End If
If Left(PathByPID, 4) = "\??\" Then
PathByPID = ""
End If
If Left(PathByPID, 12) = "\SystemRoot\" Then
PathByPID = ""
End If
End Function
Private Sub List_Process()
Dim lItem As ListItem
Dim path As String
Dim hSnapShot As Long, uProcess As PROCESSENTRY32
'Memastikan agar semua List Box dalam keadaan kosong agar tidak terjadi penumpukan /duplikasi
ListView1.ListItems.Clear
hSnapShot = CreateToolhelp32Snapshot(TH32CS_SNAPALL, 0&)
'Mendapatkan informasi tentang semua proses yang sedang dijalankan
uProcess.dwSize = Len(uProcess)
r = Process32First(hSnapShot, uProcess)
'Mendapatkan informasi tentang proses yang pertama
Do While r
'perulangan selama r <> 0
Set lItem = ListView1.ListItems.Add
With lItem.ListSubItems
.Add , , Left$(uProcess.szExeFile, InStr(1, uProcess.szExeFile, Chr$(0), vbTextCompare) - 1)
.Add , , uProcess.th32ProcessID
path = PathByPID(uProcess.th32ProcessID)
.Add , , IIf(path <> "", path, "[Protected]")
End With
r = Process32Next(hSnapShot, uProcess)
'Mendapatkan informasi dari proses selanjutnya pada windows
Loop
CloseHandle hSnapShot
End Sub
Private Sub cmdMatikan_Click()
Dim processID As Long
processID = CLng(ListView1.SelectedItem.ListSubItems(2).Text)
TerminateProcess OpenProcess(PROCESS_ALL_ACCESS, 1, processID), 0
Call List_Process
End Sub
Private Sub cmdRefresh_Click()
List_Process
End Sub
Private Sub cmdTutup_Click()
Unload Me
End Sub
Private Sub Form_Load()
Dim Wellcome As String
Wellcome = MsgBox("Task Manager Sederhana By Hackedbyme")
Wellcome = MsgBox("DC Is Our Forum ^^")
List_Process
End Sub
Private Sub Form_Unload(Cancel As Integer)
MsgBox "Om Yakin Mau keluar?", vbQuestion + vbYesNo, "Exit Ah..!!!"
If (vbNo = True) Then
Call Form_Load
End If
End Sub
Tentunya anda pernah mendengarkan musik melalui program WinAmp, pernah kan?? Pernah dong...., Pernah ya...., please !!! Pada kesempatan ini, kita akan membuat sebuah aplikasi sangat sederhana menggunakan java, yaitu media player pemutar mp3. Kode program ini sangat tidak bagus dari segi penulisannya, saya harap anda dapat membuatnya lebih baik dari ini.
Untuk memulainya, ada baiknya anda telah memahami java lebih dari sekedar hello world, jangan seperti saya yang hanya bisa menampilkan tulisan hello world di console. Pastikan anda telah menginstal Java serta mengatur PATH & CLASSPATH-nya. Langkah berikutnya anda harus mendownload jmf & mp3plugin di http://java.sun.com. Setelah anda download, kemudian instal hingga selesai dan sukses. Berikut adalah kode program selengkapnya :
package rdp.laboratories;
import java.io.*;
import javax.swing.*;
import javax.media.*;
import java.awt.event.*;
import java.awt.*;
public class RDPMediaPlayer {
public static void main(String[] args) throws Exception {
JFrame frame = new JFrame("RDPMediaPlayer");
final JButton play = new JButton("play");
final JButton stop = new JButton("stop");
JPanel panel = new JPanel();
panel.setLayout(new FlowLayout());
panel.add(play);
panel.add(stop);
frame.setDefaultCloseOperation(frame.EXIT_ON_CLOSE);
// disesuaikan nama file mp3 anda &
// taruh di directory yang sama dengan kode program anda
File file = new File("camelia.mp3");
MediaLocator media = new MediaLocator(file.toURL());
final Player player = Manager.createPlayer(media);
play.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
player.start();
play.setEnabled(false);
}
});
stop.addActionListener(new ActionListener() {
public void actionPerformed(ActionEvent e) {
player.stop();
play.setEnabled(true);
}
});
frame.add(panel);
frame.setSize(200, 200);
frame.setVisible(true);
}
}
Sekarang kehadiran para virus maker (–selanjutnya disingkat jadi VM
saja) lokal telah membuat gerah para user komputer tanah air. Bisa
dibayangkan bila dari sekian banyak virus lokal tidak satu-dua yang
menghancurkan data (terutama bagi file office; word, excel, dll…). Bagi
para vendor Anti Virus (–selanjutnya disingkat menjadi AV saja)
fenomena ini adalah lahan bisnis untuk produk mereka. Sebut saja
NORMAN, yang kini men-support perusahaan konsultan virus lokal
(–VAKSIN.COM) , Symantec, McAffe, NOD32, dan sebagainya. Dengan
menawarkan update definisi software AV tercepat, engine scanner paling
sensitif, dan lain-lain merupakan kiat untuk memancing para korban
virus membeli dan menggunakan software AV mereka. Bagi penulis sendiri
hal ini memang agak memberatkan mengingat update file definisi atau
engine AV tsb haruslah melalui koneksi internet. Lalu bagaimana yang
tidak mempunyai akses sama sekali? Konsekuensinya iyalah tertinggal
dalam hal pengenalan varian virus baru yang pada ujung-ujungnya membuat
AV yang sudah terinstall bagai 'Macan Ompong'. Kalau kita membuat AV
sendiri bagaimana? dengan database definisi yang bisa diupdate oleh
kita bahkan dapat saling tukar dengan teman? Bisa saja, dengan syarat
mau mempelajari sedikit teknik pemograman.
Pertama kita harus mengerti bagaimana cara kerja
sebuah AV sederhana, pada dasarnya sebuah software AV mempunyai
komponen-komponen :
1. Engine scanner, ini merupakan komponen utama AV
dalam mengenali sebuah pattern virus. Engine ini dapat dikelompokkan
menjadi statis dan dinamis. Statis dalam hal ini dapat disebut menjadi
spesifik terhadap pattern tertentu dari sebuah file virus. Checksum
merupakan salah satu contoh dari engine statis ini. Dinamis dalam
artian dia mengenali perilaku 'umum' sebuah virus. Heuristic menjadi
salah satu contohnya.
2. Database definition, menjadi sebuah referensi dari sebuah pattern
file virus. Engine statis sangat bergantung kepada komponen ini.
3. Decompress atau unpacking engine, khusus untuk pengecekan file-file
yang terkompresi (*.rar, *.zip, dll) atau kompresi atau packing untuk
file PE seperti UPX, MeW , dll.
Tidak jarang hasil dari pengecekan terhadap file
suspect virus menghasilkan false-positive bahkan false-negative (–
false-positive berarti file yang bersih dianggap thread oleh AV, dan
false-negative berarti file yang 100% thread akan dianggap bersih).
Semua itu dapat diakibatkan oleh ketidak-sempurnaan dari engine scanner
itu sendiri. Misal
pada contoh kasus Engine String scanner (–Engine scanner yang
menyeleksi string-string dari file text-based), bila diterapkan rule 3
out of 5 (– bila AV menemukan 3 dari daftar 5 string kategori
malicious) maka AV akan memberikan bahwa file terindikasi sebuah thread
yang positif. Padahal file tsb nyatanya tidak menimbulkan efek
berbahaya bila dijalankan atau dieksekusi. Kesalahan scanning macam ini
lazim ditemukan untuk file-file *.VBS, *.HTML, dll. Untuk penggunaan
engine checksum sangat banyak ditemui di beberapa software AV lokal.
Checksum yang lazim digunakan diantaranya CRC16, CRC32, MD5, dll.
Dikarenakan mudah untuk diimplementasikan. Engine ini sendiri bukannya
tanpa cacat, Checksum bekerja dengan memproses byte demi byte dari
sebuah file dengan sebuah algoritma tertenu (– tergantung dari jenis
checksum yang digunakan) sehingga menghasilkan sebuah format tertentu
dari file tsb. Contoh checksum menggunakan CRC32 dan MD5 :
* calCrc = CRC32(file_name_and_path)
* calMD5 = MD5(file_name_and_path)
Maka isi dari string calCrc adalah 7AF9E376,
sedangkan untuk MD5nya adalah 529CA8050A00180790CF88B63468826A. Perlu
diketahui bila virus menerapkan rutin yang mengubah byte tertentu dari
badan virus tsb setiap kali maka penggunaan engine checksum ini akan
kurang optimal karena bila 1 byte berubah dari file maka checksum juga
akan berubah.
Mari kita belajar membuat sebuah AV sederhana, yang diperlukan :
1. Software Visual Basic 6.0
2. Sedikit pemahaman akan pemograman Visual Basic 6.0
3. Sampel file bersih atau virus (– opsional)
First#
Sekarang kita akan belajar membuat sebuah rutin sederhana untuk :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
Buka MS-Visual Basic 6.0 anda, lalu buatlah sebuah
class module dan Form dengan menambahkan sebuah objek Textbox,
CommonDialog dan Command Button. (Objek CommonDialog dapat ditambahkan
dengan memilih Project -> COmponent atau Ctrl-T dan memilih
Microsoft Common Dialog Control 6.0) Ketikkan kode berikut pada class
module (kita beri nama class module tsb clsCrc) :
================= START HERE ====================
Private crcTable(0 To 255) As Long 'crc32
Public Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
'bArrayIn adalah array byte dari file yang dibaca, lLen adalah ukuran atau size file
Dim lCurPos As Long 'Current position untuk iterasi proses array bArrayIn
Dim lTemp As Long 'variabel temp hasil perhitungan
If lLen = 0 Then Exit Function 'keluar fungsi apabila ukuran file = 0
lTemp = lcrc Xor &HFFFFFFFF
For lCurPos = 0 To lLen
lTemp = (((lTemp And &HFFFFFF00) \\ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
Next lCurPos
CRC32 = lTemp Xor &HFFFFFFFF
End Function
Private Function BuildTable() As Boolean
Dim i As Long, x As Long, crc As Long
Const Limit = &HEDB88320
For i = 0 To 255
crc = i
For x = 0 To 7
If crc And 1 Then
crc = (((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF) Xor Limit
Else
crc = ((crc And &HFFFFFFFE) \\ 2) And &H7FFFFFFF
End If
Next x
crcTable(i) = crc
Next i
End Function
Private Sub Class_Initialize()
BuildTable
End Sub
================= END HERE ====================
Lalu ketikkan kode berikut dalam event Command1_Click :
================= START HERE ====================
Dim namaFileBuka As String, HasilCrc As String
Dim CCrc As New clsCrc 'bikin objek baru dari class ClsCrc
Dim calCrc As Long
Dim tmp() As Byte 'array buat file yang dibaca
Private Sub Command1_Click()
CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog
On Error GoTo erorhandle 'label error handle
CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array, # Bugs Fixed #
Get #1, , tmp()
Close #1
calCrc = UBound(tmp) 'mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC
HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
Text1.Text = HasilCrc 'tampilkan hasilnya
Exit Sub
erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================
COba anda jalankan program diatas dengan memencet
tombol F5, lalu klik Command1 untuk memilih dan membuka file. Maka
program akan menampilkan CRC32nya.
Second#
Kode diatas dapat kita buat menjadi sebuah rutin pengecekan file
suspect virus dengan antara membandingkan hasil CRC32nya dan database
CRC kita sendiri. Algoritmanya adalah :
- Memilih file yang akan dicek
- Membuka file tersebut dalam mode binary
- Memproses byte demi byte untuk menghasilkan Checksum
- Buka file database
- Ambil isi file baris demi baris
- Samakan Checksum hasil perhitungan dengan checksum dari file
Format file database dapat kita tentukan sendiri, misal :
- FluBurung.A=ABCDEFGH
- Diary.A=12345678
Dimana FluBurung.A adalah nama virus dan ABCDEFGH dalah Crc32nya. Jika
kita mempunyai format file seperti diatas, maka kita perlu membaca file
secara sekuensial per baris serta memisahkan antara nama virus dan
Crc32nya. Dalam hal ini yang menjadi pemisah adalah karakter '='.
Buat 1 module baru (– diberi nama module1) lalu isi dengan kode :
================= START HERE ====================
Public namaVirus As String, CrcVirus As String
'deklarasi variabel global untuk nama dan CRC virus Public pathExe as
String 'deklarasi variabel penyimpan lokasi file EXE AV kita
Public Function cariDatabase(Crc As String, namaFileDB As String) As Boolean
Dim lineStr As String, tmp() As String 'variabel penampung untuk isi file
Open namaFileDB For Input As #1 'buka file dengan mode input
Do
Line Input #1, lineStr
tmp = Split(lineStr, "=") 'pisahkan isi file bedasarkan pemisah karakter '='
namaVirus = tmp(0) 'masukkan namavirus ke variabel dari array
CrcVirus = tmp(1) 'masukkan Crcvirus ke variabel dari array
If CrcVirus = Crc Then 'bila CRC perhitungan cocok/match dengan database
cariDatabase = True 'kembalikan nilai TRUE
Exit Do 'keluar dari perulangan
End If
Loop Until EOF(1)
Close #1
End Function
================= END HERE ====================
Lalu tambahkan 1 objek baru kedalam Form, yaitu
Command button2. lalu ketikkan listing kode berikut kedalam event
Command2_Click :
================= START HERE ====================
If Len(App.Path) <= 3 Then 'bila direktori kita adalah root direktori
pathEXE = App.Path
Else
pathEXE = App.Path & "\\"
End If
CommonDialog1.CancelError = True 'error bila user mengklik cancel pada CommonDialog
CommonDialog1.DialogTitle = "Baca File" 'Caption commondialog
On Error GoTo erorhandle 'label error handle
CommonDialog1.ShowOpen
namafilbuka = CommonDialog1.FileName
Open namafilbuka For Binary Access Read As #1 'buka file yang dipilih dengan akses baca pada mode binary
ReDim tmp(LOF(1) - 1) As Byte 'deklarasi ulang untuk array # Bugs Fixed #
Get #1, , tmp()
Close #1
calCrc = UBound(tmp) 'mengambil ukuran file dari array
calCrc = CCrc.CRC32(tmp, calCrc) 'hitung CRC
HasilCrc = Hex(calCrc) 'diubah ke format hexadesimal, karena hasil perhitungan dari class CRC masih berupa numeric
If cariDatabase(HasilCrc, pathEXE & "DB.txt") Then 'bila fungsi bernilai TRUE
MsgBox "Virus ditemukan : " & namaVirus 'tampilkan message Box
End If
Exit Sub
erorhandle:
If Err.Number <> 32755 Then MsgBox Err.Description 'error number
32755 dalah bila user mengklik tombol cancel pada saat memilih file
================= END HERE ====================
Fitur AV sederhana ini dapat ditambahkan dengan
fitur process scanner, akses registry, real-time protection (RTP) dan
lain lain. Untuk process scanner pada dasarnya adalah teknik enumerasi
seluruh proses yang sedang berjalan pada Sistem Operasi, lalu mencari
letak atau lokasi file dan melakukan proses scanning. Fitur akses
registry memungkinkan kita untuk mengedit secara langsung registry
windows apabila akses terhadap registry (–Regedit) diblok oleh virus.
Sedangkan fitur RTP memungkinkan AV kita berjalan secara simultan
dengan windows explorer untuk mengscan direktori atau file yang sedang
kita browse atau lihat. Untuk ketiga fitur lanjutan ini akan dibahas
pada artikel selanjutnya.
Kesimpulan#
Tidak harus membeli software AV yang mahal untuk menjaga komputer kita
dari ancaman virus, kita bisa membuatnya sendiri dengan fitur-fitur
yang tak kalah bagusnya. Memang terdapat ketidaksempurnaan dalam AV
buatan sendiri ini, tetapi setidaknya dapat dijadikan pencegah dari
infeksi virus komputer yang semakin merajalela. Software AV sederhana
ini dilengkapi oleh engine scanner statis dan database definisi. Tidak
tertutup kemungkinan software AV ini ditingkatkan lebih advanced dalam
hal engine scannernya.
Pada kesempatan yang berharga ini, saya akan mencoba share aplikasi yang sudah di request oleh salah satu sobat blogger, yakni AVS Video Converter. Buat sobat blogger yang sudah request AVS Video Converter, silahkan langusung di cek aja yah,,
AVS Video Converter merupakan aplikasi yang dapat mengkonversi berbagai macam format video, bahkan hampir semua format video. Untuk hasil konversi sendiri, sudah tidak di ragukan lagi hasilnya.
Read: HD Video (inc. Blu-ray video, AVCHD, MPEG-2 HD and WMV HD), AVI (DivX, Xvid, etc.), DV AVI, MP4 (inc. Sony PSP, Apple iPod and Archos), WMV, 3GP, 3G2, QuickTime (MOV, QT), DVD, VOB, VRO, MPEG-1, 2, 4, TOD, MOD, MPG, DAT, VCD, SVCD, Real Video (RM, RMVB), ASF, ASX, MJPEG, H.263, H.264, DVR-MS, MKV, OGM, FLV, AMV, MTV, TS, M2TS, M2T, MTS, DPG, NSV, FLI, FLC, CDG.
Write: HD Video (inc. Blu-ray video, AVCHD, MPEG-2 HD and WMV HD), AVI (DivX, Xvid, etc.), MP4 (inc. Sony PSP, Apple iPod and Archos), WMV, 3GP, 3G2, QuickTime (MOV, QT), SWF, FLV, DVD, MPEG-1, 2, 4, MPG, MJPEG, H.263, H.264.
Password : www.remo-xp.com
Download AVS Video Converter V7.1.2.480Size : 58 Mb
Download AVS Video Converter V7.1.2.480 Crack
