Re: DNS Changer procedure?

Forums

Forums, discussions, and Q&A for all products.

DNS Changer procedure?

Answered (Verified) This question is answered

Hello everyone.

I wanted to first ask this question. I assume most of you know about the DNS changer malware that is going around. If not visit this link. ---> http://www.dcwg.org/

Does anyone have a procedure to check to see if they're servers have been affected?

If not I am currently working on one I haven't finsihed it yet. I'm new to Java and struggling along to make a script.

Normal 0 false false false EN-US X-NONE X-NONE

 

IF Ture
THEN
Execute shell command
Parameter1 : netsh interface ip show dnsservers

That's where I am at so far. The netsh interface ip show dnsservers is going to give you what your current dns address is but then you need to compare it to the list of ip's that are supplied. After you have it compare to the current list of bad IP's I was going to have it throw an alert if any where changed and send me an emal. Here is the current list of bad IP's that the dns changer changes them to:

Starting IP Ending IP CIDR
85.255.112.0 85.255.127.255 85.255.112.0/20
67.210.0.0 67.210.15.255 67.210.0.0/20
93.188.160.0 93.188.167.255 93.188.160.0/21
77.67.83.0 77.67.83.255 77.67.83.0/24
213.109.64.0 213.109.79.255 213.109.64.0/20

64.28.176.0

64.28.191.255

64.28.176.0/20

Verified Answer
  • Here's a simple script that should get you going (it only searches for one subnet but you can easily add the rest):

     

    Dim i, x, objWMIService

    strComputer = "." 

     

    Set objWMIService = GetObject("winmgmts:" _ 

     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

    Set colNicConfigs = objWMIService.ExecQuery _ 

     ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") 

     

    For Each objNicConfig In colNicConfigs 

        If Not IsNull(objNicConfig.DNSServerSearchOrder) Then 

            For Each strDNSServer In objNicConfig.DNSServerSearchOrder 

     

     

    ' ************** Search the first subnet 85.255.112.0/20 ************

                For i=112 to 127

    For x = 1 to 254

    If strDNSServer = "85.255." & i & "." & x Then

    WScript.Echo "Big Problem Here - " & strDNSServer

    End If

    Next

               Next

    ' **************************************************************************

     

            Next 

        End If 

    Next

    • Top 10 Contributor
    • Male
  • There is a full example VBS script that seems to work well that I'm using on our systems.

    I got it from www.chrisdunn.name/.../162-dnschanger-malware-infection-test-script

All Replies
Page 1 of 1 (10 items)