Memblokir Situs Porno Denagn DNS Nawala

 Bagi anda yang memiliki anak mungkin kebingungan untuk memfilter kontent-konten Dewasa (Pornografi) yang banyak beredar di Internet, sebenarnya ada cara yang cukup simple untuk memfilter konten konten Dewasa tersebut yaitu dengan cara memanfaatkan DNS (Domain Name System) Dari AWARI dengan nama  NAWALA Project .

DNS  NAWALA ini sangat membantu dalam melakukan filter terhadap situs yang memiliki atau menganadung Konten pornografi, walaupun tidak semua situs yang ada di internet yang bisa di filter tetapi cara ini cukup lah membantu buat anda yang ingin melindungi anak atau saudara anda dari website yang mengandung kontent Pornografi.


Dns NAWALA memiliki alamat IP  180.131.144.144 Untuk Primary dan 180.131.145.145 untuk secondary, selain untuk menghindari dari konten yang berbau Pornografi DNS NAWALA ini juga bisa dimanfaatkan untuk melindungi komputer anda dari akses ke situs Judi, Phising dan Malware.
 Caranya sebagai berikut :
1. Klik tombol start, lalu Control Panel
2. Setelah itu klik icon Network Connection
3. Pada koneksi yang tengah terhubung (connected) klik kanan lalu pilih Properties
4. Pilihlah Internet Protocol (TCP/IP) dan klik properties
5. Klik radio button pada Use the following DNS server addresses

6. masukkan informasi berikut
   a. Preferred DNS server : 180.131.144.144
   b.Alternate DNS server : 180.131.145.145
7. Klik tombol OK

Mungkin bagi anda yang awam bingung dalam melakukan settingan DNS di PC anda tidak usah khawatir saya sudah menyiapkan script sehingga anda tidak harus kesulitan dalam melakukan settingan DNS di PC/Komputer Anda yang memiliki sistem operasi Windows XP. Copy script dibawah ini dan simpan kedalam notepad dengan ekstensi .VBS misalnya nawala.VBS setelah file tersebut tersimpan lalu klik file tersebut. Otomatis DNs anda akan tersetting dengan sendirinya.

----Silahkan Copy Script di bawah ini----
On Error Resume Next

strComputer = "."
arrNewDNSServerSearchOrder = Array("180.131.144.144", "180.131.145.145")

Set objWMIService = GetObject("winmgmts:" _
 & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

'WScript.Echo VbCrLf & "Computer: " & strComputer

For Each objNicConfig In colNicConfigs
'  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
'  WScript.Echo "    DNS Server Search Order - Before:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
'      WScript.Echo "        " & strDNSServer
    Next
  End If
  intSetDNSServers = _
   objNicConfig.SetDNSServerSearchOrder(arrNewDNSServerSearchOrder)
  If intSetDNSServers = 0 Then
'    WScript.Echo "    Replaced DNS server search order list."
  Else
'    WScript.Echo "    Unable to replace DNS server search order list."
  End If
Next

'WScript.Echo VbCrLf & String(80, "-")

Set colNicConfigs = objWMIService.ExecQuery _
 ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

For Each objNicConfig In colNicConfigs
'  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
'  WScript.Echo "    DNS Server Search Order - After:"
  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
'      WScript.Echo "        " & strDNSServer
    Next
  End If
Next
----------------------------------------------