AnGelBot-Portal²

AnGelBot-Portal² > Scripting > Bugs > anti-proxy
Normale Version: anti-proxy
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.

wolf

17.07.2005, 21:01 Uhr
ihr kennt sicher das proxy script..
das mit dem ports,das er die erkennt geht.
aber was ist das?? das kommt alles in einer sekunde auf der party-line.
der satz wird etwa 50 mal wiederholt in einer sekunde dann ist schluss..
unten nochmal das script.

Code:
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0. GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0. GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0. GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.
GreenDay05] *** SetSockTag failed: No such vsock - 0.



Code:
' Proxy Ban by <samiyah@lamerpark.com>
' [ #lamerpark @ de.quakenet.org - www.lamerpark.com ]
'
' Written on request for |TT|siLLe =)
' Dauer ca. 45 Minuten ;)
' 23:56 20.11.2003

' New in Version 1.10 (17:39 22.11.2003)
' - Scannt nun auch Socks v4/v5
' - !proxy <ip> Checkt IP auf Proxys
' New in Version 1.11 (00:20 25.11.2003)
' - ActiveChans können festgelegt werden
' - KickMsg auch =)
' New in Version 1.12 (02:15 03.12.2003)
' - Mehr Standard Ports werden gescannt
' - Kleine Verbesserungen

Dim Ports

'         __________________________________________________
'        ( KANN AB HIER KONFIGURIERT WERDEN MUSS ABER NICHT )
'         ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

' -----( EXCEPTHOSTS - Hosts die nicht gescannt werden )-----

Dim ExceptHosts(1) ' ACHTUNG: Zahl in klammern muss mit Zahl beim letzten Eintrag übereinstimmen!
ExceptHosts(0) = "*.dip.t-dialin.net"    ' Scannen wir nicht, weil wir keine Abuse Mails wollen =)
ExceptHosts(1) = "*.users.quakenet.org"    ' Scannen wir nicht, weil kein realer Host (VHost)

' -----( SCANPORTS - Ports die gescannt werden, gebräuchliche Proxy Ports )-----

ScanPorts = "23 81 82 83 113 1080 3128 8000 8080 8081 8088 9000 10080"

' -----( ACTIVECHANS - Channels in denen das Script aktiv ist, leer lassen = alle Chans )-----

ActiveChans = ""

' -----( KICKMSG - Message mit der ein Proxy User gekickt wird )-----

KickMsg = "0:4,0::1 Proxy Detected !!! 4][1 {type} on Port {port} 4][1 ((( Killed Wolfi RulEZ !!! ))) 4][1 channel is Protected 4,0::"

'             __________________________
'             ( HIER NIX MEHR ÄNDERN THX )
'             ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Sub Init()
    Script "Proxy Ban by samiyah v1.12 <www.lamerpark.com>"
    Hook "Join"
    Hook "Chan_Msg"
    Ports = Split(ScanPorts,Chr(32))
End Sub


Sub Join(Chan, Nick, RegUser, Flags)
    Dim Host

    if (InStr(" " & ActiveChans & " ", " " & Chan & " ") > 0) OR (ActiveChans = "") Then

        Host = ChanUser(ChanNum(Chan), ChanUserNum(Chan, Nick), CU_Hostmask)
        Host = ParamX(Host,"@",2)

        For i = 0 to UBound(ExceptHosts)
            If WildMatch(ExceptHosts(i), Host) Then Exit Sub
        Next

        ProxyCheck Host, "kickban", Chan, Nick
    end if
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
    Select Case LCase(Param(Line,1))
        Case "!proxy"
            ProxyCheck Param(Line,2), "checkonly", Chan, Nick
    End Select
End Sub

Sub ProxyCheck(Host,Method,Chan,Nick)
    For i = 0 to UBound(Ports)
        vSock = SockConnect(Host, Ports(i), "SockEvent")
        SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " http " & Method

        vSock = SockConnect(Host, Ports(i), "SockEvent")
        SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " socks_v4 " & Method

        vSock = SockConnect(Host, Ports(i), "SockEvent")
        SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " socks_v5 " & Method
    Next
End sub

Sub SockEvent(vSock, SEvent, SData)
    Select Case SEvent

        Case SE_ConnectFailed
            ' Gut, kein Proxy =)

        Case SE_Connected
            ' Ui, Connection angenommen? Potentieller Proxy User =g=
            Select Case Param(GetSockTag(vSock),4)
                Case "http"
                    ' Hat der User vielleicht einen HTTP Proxy?
                    SockWrite vSock, "CONNECT www.aol.com:80 HTTP/1.0" & vbCrLf & vbCrLf
                Case "socks_v4"
                    ' Oder Socks4?
                    SockWrite vSock, chr(4) & chr(1) & chr(26) & chr(11) & chr(64) & chr(236) & chr(172) & chr(30) & chr(0)
                Case "socks_v5"
                    ' Eventuell Socks5?
                    SockWrite vSock, chr(5) & chr(1) & chr(0)
            End Select
        Case SE_Read
            ' Buffer brauchen wa nich, erste Zeile reicht uns =)
            ProxyHost = Split(Param(GetSockTag(vSock),1),":")
            Chan = Param(GetSockTag(vSock),2)
            Nick = Param(GetSockTag(vSock),3)

            Select Case Param(GetSockTag(vSock),4)
                Case "http"
                    If WildMatch("HTTP/1.* 200 *", SData) Then
                        If (Param(GetSockTag(vSock),5) = "kickban") Then
                            SpreadFlagMessage 0, "+m", "4*** [ProxyBan] HTTP-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                            SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                            SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","HTTP-Proxy"),"{port}",ProxyHost(1)),1
                         elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                            SendLine "PRIVMSG " & Chan & " :HTTP Proxy detected @ " & Param(GetSockTag(vSock),1),2
                        End if
                    End If
                Case "socks_v4"
                    If (Asc(Left(SData,1)) & " " & Asc(Mid(SData,2,1)) = "0 90") Then
                        If (Param(GetSockTag(vSock),5) = "kickban") Then
                            SpreadFlagMessage 0, "+m", "4*** [ProxyBan] Socks4-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                            SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                            SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","Socks v4"),"{port}",ProxyHost(1))
                         elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                            SendLine "PRIVMSG " & Chan & " :Socks v4 Proxy detected @ " & Param(GetSockTag(vSock),1),2
                        End if
                    End If
                Case "socks_v5"
                    If (Asc(Left(SData,1)) & " " & Asc(Mid(SData,2,1)) = "5 0") Then
                        If (Param(GetSockTag(vSock),5) = "kickban") Then
                            SpreadFlagMessage 0, "+m", "4*** [ProxyBan] Socks5-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                            SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                            SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","Socks v5"),"{port}",ProxyHost(1))
                         elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                            SendLine "PRIVMSG " & Chan & " :Socks v5 Proxy detected @ " & Param(GetSockTag(vSock),1),2
                        End if
                    End If
            End Select

            SockClose vSock
    End Select
End Sub

HAPM

26.07.2005, 01:22 Uhr
Tritt der Fehler bei allen Usern auf oder nur bei welchen die wirklich mit m´nem proxy drin sind???

wolf

26.07.2005, 05:41 Uhr
wenn ich das ja wüsste Smile .. ich denk ma schon das er nen proxy hat.
weil die ports erkennt er ja z.b. port 80 etc..
kann an den socks v4/v5 liegen denk ich mal.
weil

SetSockTag failed: No such vsock - 0

setsock dingsbums kenn mich da net so aus,weil er ja was sagt mit (vsock)

HAPM

26.07.2005, 12:59 Uhr
das is das komische. Ich hab mir mal die GetSockTag Anweisungen angeguckt. Die sind alle in Ordnung.

Code:
' Proxy Ban by <samiyah@lamerpark.com>
' [ #lamerpark @ de.quakenet.org - www.lamerpark.com ]
'
' Written on request for |TT|siLLe =)
' Dauer ca. 45 Minuten ;)
' 23:56 20.11.2003

' New in Version 1.10 (17:39 22.11.2003)
' - Scannt nun auch Socks v4/v5
' - !proxy <ip> Checkt IP auf Proxys
' New in Version 1.11 (00:20 25.11.2003)
' - ActiveChans können festgelegt werden
' - KickMsg auch =)
' New in Version 1.12 (02:15 03.12.2003)
' - Mehr Standard Ports werden gescannt
' - Kleine Verbesserungen

Dim Ports

'       __________________________________________________
'      ( KANN AB HIER KONFIGURIERT WERDEN MUSS ABER NICHT )
'       ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

' -----( EXCEPTHOSTS - Hosts die nicht gescannt werden )-----

Dim ExceptHosts(1) ' ACHTUNG: Zahl in klammern muss mit Zahl beim letzten Eintrag übereinstimmen!
ExceptHosts(0) = "*.dip.t-dialin.net"   ' Scannen wir nicht, weil wir keine Abuse Mails wollen =)
ExceptHosts(1) = "*.users.quakenet.org"   ' Scannen wir nicht, weil kein realer Host (VHost)

' -----( SCANPORTS - Ports die gescannt werden, gebräuchliche Proxy Ports )-----

ScanPorts = "23 81 82 83 113 1080 3128 8000 8080 8081 8088 9000 10080"

' -----( ACTIVECHANS - Channels in denen das Script aktiv ist, leer lassen = alle Chans )-----

ActiveChans = ""

' -----( KICKMSG - Message mit der ein Proxy User gekickt wird )-----

KickMsg = "0:4,0::1 Proxy Detected !!! 4][1 {type} on Port {port} 4][1 ((( Killed Wolfi RulEZ !!! ))) 4][1 channel is Protected 4,0::"

'          __________________________
'          ( HIER NIX MEHR ÄNDERN THX )
'          ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Sub Init()
   Script "Proxy Ban by samiyah v1.12 <www.lamerpark.com>"
   Hook "Join"
   Hook "Chan_Msg"
   Ports = Split(ScanPorts,Chr(32))
End Sub


Sub Join(Chan, Nick, RegUser, Flags)
   Dim Host

   if (InStr(" " & ActiveChans & " ", " " & Chan & " ") > 0) OR (ActiveChans = "") Then

      Host = ChanUser(ChanNum(Chan), ChanUserNum(Chan, Nick), CU_Hostmask)
      Host = ParamX(Host,"@",2)

      For i = 0 to UBound(ExceptHosts)
         If WildMatch(ExceptHosts(i), Host) Then Exit Sub
      Next

      ProxyCheck Host, "kickban", Chan, Nick
   end if
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
   Select Case LCase(Param(Line,1))
      Case "!proxy"
         ProxyCheck Param(Line,2), "checkonly", Chan, Nick
   End Select
End Sub

Sub ProxyCheck(Host,Method,Chan,Nick)
   For i = 0 to UBound(Ports)
      vSock = SockConnect(Host, Ports(i), "SockEvent")
      SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " http " & Method

      vSock = SockConnect(Host, Ports(i), "SockEvent")
      SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " socks_v4 " & Method

      vSock = SockConnect(Host, Ports(i), "SockEvent")
      SetSockTag vSock, Host & ":" & Ports(i) & " " & Chan & " " & Nick & " socks_v5 " & Method
   Next
End sub

Sub SockEvent(vSock, SEvent, SData)
   Select Case SEvent

      Case SE_ConnectFailed
         ' Gut, kein Proxy =)

      Case SE_Connected
         ' Ui, Connection angenommen? Potentieller Proxy User =g=
         Select Case Param(GetSockTag(vSock),4)
            Case "http"
               ' Hat der User vielleicht einen HTTP Proxy?
               SockWrite vSock, "CONNECT www.aol.com:80 HTTP/1.0" & vbCrLf & vbCrLf
            Case "socks_v4"
               ' Oder Socks4?
               SockWrite vSock, chr(4) & chr(1) & chr(26) & chr(11) & chr(64) & chr(236) & chr(172) & chr(30) & chr(0)
            Case "socks_v5"
               ' Eventuell Socks5?
               SockWrite vSock, chr(5) & chr(1) & chr(0)
         End Select
      Case SE_Read
         If vSock = 0 Then Exit Sub
         ' Buffer brauchen wa nich, erste Zeile reicht uns =)
         ProxyHost = Split(Param(GetSockTag(vSock),1),":")
         Chan = Param(GetSockTag(vSock),2)
         Nick = Param(GetSockTag(vSock),3)

         Select Case Param(GetSockTag(vSock),4)
            Case "http"
               If WildMatch("HTTP/1.* 200 *", SData) Then
                  If (Param(GetSockTag(vSock),5) = "kickban") Then
                     SpreadFlagMessage 0, "+m", "4*** [ProxyBan] HTTP-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                     SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                     SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","HTTP-Proxy"),"{port}",ProxyHost(1)),1
                   elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                     SendLine "PRIVMSG " & Chan & " :HTTP Proxy detected @ " & Param(GetSockTag(vSock),1),2
                  End if
               End If
            Case "socks_v4"
               If (Asc(Left(SData,1)) & " " & Asc(Mid(SData,2,1)) = "0 90") Then
                  If (Param(GetSockTag(vSock),5) = "kickban") Then
                     SpreadFlagMessage 0, "+m", "4*** [ProxyBan] Socks4-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                     SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                     SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","Socks v4"),"{port}",ProxyHost(1))
                   elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                     SendLine "PRIVMSG " & Chan & " :Socks v4 Proxy detected @ " & Param(GetSockTag(vSock),1),2
                  End if
               End If
            Case "socks_v5"
               If (Asc(Left(SData,1)) & " " & Asc(Mid(SData,2,1)) = "5 0") Then
                  If (Param(GetSockTag(vSock),5) = "kickban") Then
                     SpreadFlagMessage 0, "+m", "4*** [ProxyBan] Socks5-Proxy gefunden: " & Param(GetSockTag(vSock),1) & ", setze Ban (" & Chan & ") und kicke Übeltäter (" & Nick & ") =P"
                     SendLine "MODE " & Chan & " +b *!*@" & ProxyHost(0),1
                     SendLine "KICK " & Chan & " " & Nick & " :" & Replace(Replace(KickMsg,"{type}","Socks v5"),"{port}",ProxyHost(1))
                   elseif (Param(GetSockTag(vSock),5) = "checkonly") Then
                     SendLine "PRIVMSG " & Chan & " :Socks v5 Proxy detected @ " & Param(GetSockTag(vSock),1),2
                  End if
               End If
         End Select

         SockClose vSock
   End Select
End Sub

Aber guck mal obs damit geht.

wolf

26.07.2005, 19:24 Uhr
ok danke dir.

Ich teste mal obs geht, wenn ich was sehen sollte sag ich mal bescheit Razz

PowerFlower

06.04.2007, 10:39 Uhr
Komisch das gleiche problem habe ich auch nach dem testen des scripts.
Wobei mir aufgefallen ist das es erst seit Service Pack2 nicht mehr geht.
Gibt es eine möglichkeit das zu Fixen?

MFG & Greez
AnGelBot-Portal² > Scripting > Bugs > anti-proxy
Referenz-URLs