Mohon tunggu...
Muhamad Arya Kurniawan
Muhamad Arya Kurniawan Mohon Tunggu... -

Seorang pemuda wirausaha yang terjerumus dalam agrobisnis, kambing, silat dan dunia perancangan website

Selanjutnya

Tutup

Inovasi

Membuat Software Anti Situs Porno dengan Visual Basic 6

8 November 2011   06:31 Diperbarui: 25 Juni 2015   23:56 703
+
Laporkan Konten
Laporkan Akun
Kompasiana adalah platform blog. Konten ini menjadi tanggung jawab bloger dan tidak mewakili pandangan redaksi Kompas.
Lihat foto
Bagikan ide kreativitasmu dalam bentuk konten di Kompasiana | Sumber gambar: Freepik

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:windowssystem32driversetchosts" 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 !

Baca konten-konten menarik Kompasiana langsung dari smartphone kamu. Follow channel WhatsApp Kompasiana sekarang di sini: https://whatsapp.com/channel/0029VaYjYaL4Spk7WflFYJ2H

Mohon tunggu...

Lihat Inovasi Selengkapnya
Beri Komentar
Berkomentarlah secara bijaksana dan bertanggung jawab. Komentar sepenuhnya menjadi tanggung jawab komentator seperti diatur dalam UU ITE

Belum ada komentar. Jadilah yang pertama untuk memberikan komentar!
LAPORKAN KONTEN
Alasan
Laporkan Konten
Laporkan Akun