This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Suitable binding to check for DCC send/resume

Help for those learning Tcl or writing their own scripts.
User avatar
Sir_Fz
Revered One
Posts: 3794
Joined: Sun Apr 27, 2003 3:10 pm
Location: Lebanon
Contact:

Post by Sir_Fz »

nml375 wrote:Never heard of opnotice, but then again I do not use services such as chanserv... However, this being a service, means that it will not trigger notc-bindings, virtually making the @#-matching useless...
When /onotice is used, @#channel is received instead of just #channel (on DALnet, don't know about other networks).
nml375 wrote:Finally, would'nt it just be simpler matching something like this?:

Code: Select all

string match "DCC Send % (%)" $text
A file name may contain spaces, so % won't match it in this case. So it's better to use "dcc send * (%)" (in bind, case won't matter).

But as you said, using bind ctcp is the best solution. It does work on DALnet, I tried it myself.
S
Sedition
Voice
Posts: 17
Joined: Wed Dec 14, 2011 10:04 pm
Location: Bolivia, Beni, Trinidad / DALnet

Post by Sedition »

Sir_Fz wrote:
nml375 wrote:Never heard of opnotice, but then again I do not use services such as chanserv... However, this being a service, means that it will not trigger notc-bindings, virtually making the @#-matching useless...
When /onotice is used, @#channel is received instead of just #channel (on DALnet, don't know about other networks).
nml375 wrote:Finally, would'nt it just be simpler matching something like this?:

Code: Select all

string match "DCC Send % (%)" $text
A file name may contain spaces, so % won't match it in this case. So it's better to use "dcc send * (%)" (in bind, case won't matter).

But as you said, using bind ctcp is the best solution. It does work on DALnet, I tried it myself.

to me me the code like that works well:

bind ctcp - DCC check_send

proc check_send {nick host hand dest key text} {
set subkey [lindex [split $text] 0]
if {[string equal -nocase $subkey "send"]} {
foreach chan [channels] {
pushmode $chan +b "*!*@[lindex [split $host "@"] end]"
putkick $chan $nick "Unsolisticed dcc send requested. Banning..."
}
return 1
}
return 0
}

but it does not work pushing the attacks back dcc for xploits someone helps me please.. example that pushes back the dcc that are sent by texts as well as make it the xploits

[20:22] <(Kantuta> [01:23:28] [miguelito!~miguelito@190.129.197.165] DCC SeND "+ h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h + h

this is an example of attack xploit but the tcl does not recognize such attacks and does not punish

he would be grateful to them very much if friends help me thank you :lol:
good I wait for all that he learns more on tcl thanks for shaping a solid group of help
Post Reply