mldc client probleme

[battousai90]

I try to explain my probleme.
I have a script anti mldonkey.
I had modified him for mldc client.
It's ok all mldc client are banned by ip.
But he can connect to my hub and dl getinfo before the bot ban them.
the getinfo take much bandwitch.
If anybody have a solution to transform my script. I want the mldc client was banned before he can dl getinfo. I upload 660 mo in 8 days, only with getinfo.
I hate this fucking leecher MLDC.
I try to change the sub data arrival by sub nexuserconnect, but nothing was happen.

[GargoyleMT]

Have you scoured this board and some of the others (DC++, The New Decade, The LUA Language Board - Main Page, and DCStats Forum) for discussions about ML Donkey? There are some great discussions that I can't even begin to summarize for you.

[BSOD2600]

This is the anti-mldonkey script I used in my NMDC hub:

Code: Select all

' The Good Looking MLDONKEY Filter 2.0                   by aDe...     [email protected]
' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Dim bPermBan

Sub Main()
 bPermBan = True    '<<--- True = permban every client, False = just kick them
End Sub

Sub DataArival (curUser, sCurData)

  If Instr(1, sCurData, "$MyINFO ") Then
    CheckUser curUser, sCurData
  End If

End Sub

Sub CheckUser (curUser, sCurData)
Dim sDesc, sIp

sDesc = GrabDesc(curUser)

If instr(1, Lcase(sDesc), "mldonkey client") Then
  sIP = curUser.IP
  curUser.Kick  
  If bPermBan Then frmHub.lstPermban.Additem sIp
End If

if cstr(curUser.iBytesShared) = "10000000000" then
  sIP = curUser.IP
  curUser.Kick  
  If bPermBan Then frmHub.lstPermban.Additem sIp
end if

End Sub

Function GrabDesc(curUser)
  GrabDesc = BeforeFirst(AfterFirst(curUser.sMyInfoString, "$ALL " & curUser.sName & " "), "$")
End Function


' String extracting functions, improved and extended by aDe

Function BeforeFirst(sIn, sFirst)
    If InStr(1, sIn, sFirst) Then
        BeforeFirst = Left(sIn, InStr(1, sIn, sFirst) - 1)
    Else
        BeforeFirst = ""
    End If
End Function

Function AfterFirst(sIn, sFirst)
    If InStr(1, sIn, sFirst) Then
        AfterFirst = Right(sIn, Len(sIn) - InStr(1, sIn, sFirst) - (Len(sFirst) - 1))
    Else
        AfterFirst = ""
    End If
End Function

Public Function AfterLast(sFrom, sAfterLast)
    If InStr(1, sFrom, sAfterLast) Then
        AfterLast = Right(sFrom, Len(sFrom) - InStrRev(sFrom, sAfterLast) - (Len(sAfterLast) - 1))
    Else
        AfterLast = ""
    End If
End Function

Public Function BeforeLast(sFrom, sBeforeLast)
    If InStr(1, sFrom, sBeforeLast) Then
        BeforeLast = Left(sFrom, InStrRev(sFrom, sBeforeLast) - 1)
    Else
        BeforeLast = ""
    End If
End Function

[Spaz]

Wrong spot for the filter if you want to save bandwidth on the MyInfo string. Try using the filter in the Sub NewUserConnected.

[InnerCity]

i have modified that script for mldc clients

If instr(1, Lcase(sDesc), "mldc client") Then .......
if cstr(curUser.iBytesShared) = "11534336" then ......

and it bans temporarly the ip TWO times (appears two consecutive times in the nmdc tem.ban.list)