27 June 2009

Filled Under: , ,

Membuat Software Anti Pornografi dengan Visual Basic 6

Semua orang pasti tahu mengakses situs yang memiliki konten-konten pornografi dan apapun yang berbau pornografi itu dilarang agama, karena merupakan perbuatan zina dan dapat menjuruskan orang kepada tindakan yang kurang terpuji. Mendekati zina saja itu sudah dilarang, apalagi melakukan zina ?.



"Dan janganlah kamu mendekati zina; sesungguhnya zina itu adalah suatu perbuatan yang keji dan suatu jalan yang buruk. (QS:Al-Isra:32)”


Sudah sangat banyak produk-produk hukum dan peraturan yang melarang pornografi. Dan sekarang juga semakin lengkap dengan adanya undang - undang ITE (informasi dan transaksi elektronik). Untuk dapat melindungi keluarga kita dari dampak buruk situs-situs pornografi kita dapat menggunakan cara berikut ini :
  1. tingkatkan taqwa kepada Tuhan YME
  2. gunakan software content filtering

Opsi pertama adalah perlindungan yang paling utama dan paling sempurna daripada opsi-opsi lainnya. Tetapi sebagai cadangan kita bisa menggunakan software content filtering dan untungnya ada saat ini sudah sangat banyak tersedia software-software tersebut, mulai dari yang gratis sampai yang berbayar. Tapi kita juga dapat membuatnya sendiri walaupun sederhana dan minim fasilitas. Saya akan berbagi pengalaman dengan anda tentang pembuatan aplikasi porn blocker ini. Walaupun saya pun masih belajar dan harus terus belajar.

Kita akan membuatnya menggunakan visual basic 6 (VB6). Fungsinya masih sangat minim dan menggunakan metode sedrhana yaitu :
1. menutup semua aplikasi yang memiliki title/judul/caption yang ada pada daftar
2. menggunakan file hosts, yang berfungsi untuk pemetaan alamat web. dengan file hosts ini kita dapat melakukan redirect terhadap permintaan akses suatu situs menuju situs lainnya. Misalnya ada permintaan ke www.playboy.com maka kita akan mengarahkannya langsung ke www.rumahzakat.org (supaya dia gak jadi dan malah berpikir untuk zakat).

Yang harus anda lakukan dan persiapkan :
  1. Iman dan Taqwa
  2. Siapkan mental dan tekad anda untuk menolak pornografi. Karena jika anda masih berpikir untuk menikmati pornografi anda akan ragu untuk membuat aplikasi ini.
  3. Bismillah. awali setiap pekerjaan baik dengan berdo'a.
  4. Komputer dengan OS Windows (harus asli, karena jika tidak akan tidak berkah)
  5. Visual Basic 6
  6. Musik jika perlu
  7. Makanan dan minuman ringan
  8. Jangan sampai ada rokok dan merokok

Setelah semuanya siap, silahkan buat sebuah proyek baru. Kemudian ikuti langkah berikut ini :
  1. Tambahkan sebuah form, sebuah timer dan sebuah listbox
  2. Masukan kode berikut ini pada form dan pahami prosedurnya.

Dim i As Integer 'variabel i sebagai integer.
' variabel judul sebagai array dengan tipe string dan isinya ada enam (6)
Dim Judul(5) As String
Dim x As Long ' variabel x bertipe long integer

Private Sub Form_Load()
'panggil fungsi blacklist
BlackList
'set interval timer 3 detik
Timer1.Interval = 3000
BuatFileHost
End Sub

Private Sub Timer1_Timer()
TutupJudul
TutupIE
End Sub

Private Sub BlackList()
' mengisi daftar judul blacklist dengan array
' daftar kata-kata ini bisa anda tambah sesuai kebutuhan
Judul(0) = "sex"
Judul(1) = "porn"
Judul(2) = "ngentot"
Judul(3) = "bugil"
Judul(4) = "playboy.com"
Judul(5) = "telanjang"

'bersihkan Listbox1
List1.Clear
'hitung dari 0 sampai 5
For i = 0 To 5
'listbox1 diisi dengan isi variabel judul
List1.AddItem Judul(i)
Next
End Sub

Private Sub TutupIE()
'karena internet explorer tdk bisa di tutup dengan sendmessage
Dim c As String
'On Error Resume Next
'tutup internet explorer dengan cmd
Shell "cmd /c taskkill /f /im iexplore.exe ", vbHide
End Sub

Private Sub TutupJudul()
'hitung variabel i sebanyak nilai array
For i = 0 To 5
'cari aplikasi apapun yg punya caption/judul seseuai daftar blacklist
x = FindWindowWild("*" & Judul(i) & "*", False)
'tutup target
SendMessage x, WM_CLOSE, 0, 0
Next
End Sub


Private Sub BuatFileHost()
On Error Resume Next
'buat file host, yang akan meredirect request akses ke suatu alamat
'menuju alamat yang lain sesuai keinginan kita
'akses ke playboy.com akan diarahkan ke localhost 127.0.0.1
Open "c:\windows\system32\drivers\etc\hosts" For Output As 1
Print #1, "127.0.0.1 playboy.com"
Print #1, "127.0.0.1 sex.com"
Print #1, "127.0.0.1 hentai.com"
Close #1
End Sub


3. Tambahkan sebuah modul untuk memuat fungsi-fungsi penting lainnya.

Private Declare Function EnumWindows& Lib "user32" (ByVal lpEnumFunc As Long, ByVal lParam As Long)
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function IsWindowVisible& Lib "user32" (ByVal hwnd As Long)
Private Declare Function GetParent& Lib "user32" (ByVal hwnd As Long)

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_CLOSE = &H10

Dim sPattern As String, hFind As Long

Private Function EnumWinProc(ByVal hwnd As Long, ByVal lParam As Long) As Long
Dim k As Long, sName As String
If IsWindowVisible(hwnd) And GetParent(hwnd) = 0 Then
sName = Space$(128)
k = GetWindowText(hwnd, sName, 128)
If k > 0 Then
sName = Left$(sName, k)
If lParam = 0 Then sName = UCase(sName)
If sName Like sPattern Then
hFind = hwnd
EnumWinProc = 0
Exit Function
End If
End If
End If
EnumWinProc = 1
End Function

Public Function FindWindowWild(sWild As String, Optional bMatchCase As Boolean = True) As Long
sPattern = sWild
If Not bMatchCase Then sPattern = UCase(sPattern)
EnumWindows AddressOf EnumWinProc, bMatchCase
FindWindowWild = hFind
End Function


4. Cek dan pahami kode-kode fungsi yang telah anda masukan dan pastikan tidak ada yang salah. Kemudian jalankan.

5. Silahkan uji dengan mengakses situs porno yang alamat atau memiliki frase judul sesuai yang ada dalam daftar blacklist. Insya allah tidak bisa.

6. Simpan pekerjaan anda

Proyek ini masih sangat sederhana dan anda dapat mengembangkannya sesuai kebutuhan. Kunci utama dalam semua program Internet Content Filtering adalah pada database daftar kata dan alamat yang di blacklist. Untuk itu semakin banyak perbendaharaan kata dan alamat situs yang diblokir pada aplikasi ini akan membuatnya semakin baik dan peka. Silahkan kembangkan lagi !

22 comments:

  1. Gw mau coba dulu ya !. Bisa gak nih ?.Minta source codenya dong.

    ReplyDelete
  2. kalau disini sudah diblock sama qtel-nya, jadi lumayan lah. makasih sharingnya.

    ReplyDelete
  3. thanks ya sob dah comment ke blog aq...

    bagus buanget tu. aq juga mo nyoba nih pake VB 6

    thanks dah mo berbagi... sukses selalu...

    ReplyDelete
  4. atau bisa juga pake openDNS
    salam cinta damai..

    ReplyDelete
  5. ini buatan sendiri yah? kita bisa memilih kata-katanya lebih banyak lagi?
    makasih arya.

    ReplyDelete
  6. Wah boleh juga nih infonya...., mo coba dulu ah..., ini di jamin yaa ga sampe ngerusak yang lainnya...?

    Trims sobat dah berbagi ilmu

    ReplyDelete
  7. Terima kasih informasinya gan, memang situs porno sangat menggangu bagi kita gan. Salam sukses selalu

    ReplyDelete
  8. bagus nie kag....
    tpi ribet yah kag buatnya???
    hihihihihi...

    ReplyDelete
  9. nggak susah kok buatnya, ini masih sangat simple

    ReplyDelete
  10. Wah infonya oke banget nih....sip deh...

    ReplyDelete
  11. wah salut bgt sama artikel ini..

    apalagi yg bikin cowok..

    hhee..

    coba dulu ya..

    ReplyDelete
  12. mantap nih artikel nya :)
    nice gan..

    kunjungi balik ya ke blog wa :)
    peace

    ReplyDelete
  13. maaf permisi. saya kan mencoba tuk membuat software anti porno di VB 6. tapi, saya masih tidak mengerti dengan scriptnya. bisa minta tolong ajari saya sedetail2 nya tentang penggunaan function yang ada di script tersebut???????? kalau bisa tolong kirim kan ke email saya kak di boenga_teukkie94@yahoo.com. saya minta tolong banget ya??? terima kasih sebelumnya.

    ReplyDelete
  14. mau dung penjelasannya ttg scrip nya....lagi butuh,sedetail2 nya yah,,,kirim ke email saya. vj_lovely@yahoo.com,,thnkssss

    ReplyDelete
  15. tolong jlaskan apa form dan listbox.....tolong di jlskan ...kirim aja ke perjuanganulama.blogspot.com........saya tunggu bos....GPL wassalam

    ReplyDelete
  16. Assalamu'alaikum saudaraku yang baik hatinya.

    pada aplikasi IDE (integrated Development Environtment) visual basic. Form adalah tempat anda menempatkan kontrol2 yang akan digunakan pada program yg akan dibuat. Listbox adalah komponen dalam visual basic yang berfungsi untuk menampilkan pilihan data untuk dapat dipilih.

    Maaf saya belum dapat menampilkan screenshotnya

    jazzakallahu khairan katsiran

    ReplyDelete
  17. makasih ya gan ..
    ane udah kembangin nih ...
    bagi yang berminat kirim email ajah ke sbstarazhari@yahoo.com

    ReplyDelete
  18. gan, Link exchange-nya dmn???
    kog g klihatan....

    ReplyDelete
  19. gan minta source code-nya donk????
    kirim email ya ????
    prayoggas@gmail.com

    thank's sebelum-nya gan :)

    ReplyDelete
  20. boleh saya minta mentahan VB 6 nya ? :(
    punya saya ga lengkap :(

    ReplyDelete
  21. Wah Gilaaaa Mantef Banget !! semoga Maju Blog'a bang :)

    Kunbal'a Bang Di Tunggu : http://cirebon-cybercrime4rt.blogspot.com

    Saya Coba Ya Gan Tutornya , Terimakasih Sebelum'a

    ReplyDelete

Silahkan berkomentar dengan bijak, tapi jangan spam !