' DNS Redirection Filter
' by cOld_b00t
' for Fored(lol) and NPR
Private webaddress As String
Private webip As String
Private intlastcontrol As Long
Private Sub Form_Load()
webaddress = LCase(Winsock1(0).LocalHostName)
webip = Winsock1(0).LocalIP
intlastcontrol = 0
With Winsock1(0).LocalPort = 80
Listen
End With
End Sub
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestid As Long)
If Index = 0 Then
intlastcontrol = intlastcontrol + 1
Load Winsock1(intlastcontrol)
Winsock1(intlastcontrol).LocalPort = 0
Winsock1(intlastcontrol).Accept requestid
End If
End Sub
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim data1 As String
Winsock1(intlastcontrol).GetData data1
On Error GoTo redirectnormal
a1 = InStr(1, data1, "Host: ") + 6
a2 = InStr(a1, data1, vbCrLf)
a3 = LCase(Mid(data1, a1, a2 - a1))
If a3 = webaddress Or a3 = webip Then
GoTo redirectnormal
Else
' DNS redirection detected redirecting back to 2600.com
Winsock1(intlastcontrol).SendData "" 'meta tags here
End If
Exit Sub
' Here we do a normal redirection to ford.com
redirectnormal:
Winsock1(intlastcontrol).SendData "" 'meta tags here
End Sub
Private Sub Winsock1_SendComplete(Index As Integer)
Winsock1(intlastcontrol).Close
End Sub