quote:

ORIGINAL: sneG0K

Мне все чаще и чаще попадаются на глаза статьи типа "Растет число поддельных DNS-серверов (на хакере читал)).

quote:

ORIGINAL: Pupkin-Zade
Вирус прописывает пользователю НУЖНЫЙ ДНС и все - он дальше только с ним и общается

quote:

ORIGINAL: Pupkin-Zade
Как создать свой ДНС сервер можно прочитать в Сети

' Send a reply to the client based on the contents of the cache.
	
	Private Sub SendReply(ByVal Name_Renamed As String)
		On Error Resume Next
		Dim packet As Object
		Dim ABlock As String
		Dim i As Object
		Dim Answers As Short
		Dim Response As CDNSPacket
		
		Response = New CDNSPacket
		
		Response.SetHeader(ReplyHost.Id, 1, 0, 0, 0, 0, 0, 0, 0)
		'List1.Clear
		'List1.AddItem "ID " & ReplyHost.Id
		
		' Add the question record.
		Response.AddQD(Name_Renamed, 1, 1)
		'List1.AddItem "question record " & Name
		
		' Build the answer block.
		For i = 1 To Cache.numEntries()
		' If the name exists in the cache ...
			
		If Cache.getName(i) = Name_Renamed Then
		' Add an answer from the cache to the reply packet.
			
		Response.AddAN(Cache.getName(i), 1, 1, ComputeTTL(Cache.getExpiration(i)), 4, Cache.getAddress(i))
		'   List1.AddItem Cache.getName(i) & " " & Cache.getAddress(i) & " " & ComputeTTL(Cache.getExpiration(i))
			End If
		Next i
				
		packet = Response.BuildPacket
		
		' Set the hostname and port
		wsDNSserver.RemoteHost = ReplyHost.IP
		wsDNSserver.RemotePort = ReplyHost.Port
		' Send the packet
		wsDNSserver.SendData(packet)
		
		' Clean up.
		ReplyHost.Waiting = False
		
		Response = Nothing
	End Sub