Accueil > > > BOTSPAM SYSTEM DETECTOR / ANTI SPAM
BOTSPAM SYSTEM DETECTOR / ANTI SPAM
Information sur la source
Description
Ça sert en fait à détecter les bots spammers qui ont des nicks comme "Kjyvbnqdbp" au join d'un salon. Une fois détecter le bot est kické.
Evidemment ça ne fonctionne pas à tout les coups : le principe est de calculer le pourcentage de consonnes dans le nick, et si ce pourcentage est supérieur à 60% (valeur par défaut), alors il est kické :
* Kjyvbnqdbp kicked from #microsoft by HeXoR- (BotSpam System Detector by HeXoR [Si vous n'êtes pas un robot revennez avant 60secs])
Si ce n'est pas un bot, la personne peut revenir avant 60secs (valeur par défaut) et celle-ci est ajoutée ensuite aux "exceptions", c'est à dire ajoutée à la liste des nick à ne pas kicker la prochaine fois qu'elle reviendra.
Les valeurs par défaut sont modifiable par l'intermédiaire du dialog accessible dans Menu Bar.
Source
- ---- BotSpam System Detector V1.1 & $convoy V1.1 coded by HeXoR timothee@hush.ai ----
- on *:load:dialog -m bsd bsd
- menu menubar {
- -
- BotSpam System Detector:dialog -m bsd bsd
- -
- }
- alias convoy {
- var %v = aeiouy, %c = 0
- var %a = $len($1)
- while %a { if $mid($1, %a, 1) !isin %v { if ($v1 isalpha) inc %c } | dec %a }
- return $iif($prop == c, $calc(%c / $len($1) * 100), $calc(($len($1) - %c) / $len($1) * 100))
- }
- on *:join:*:{
- if $me isop # && $len($nick) > %bsdnl && $convoy($nick).c > %bsd%c && %bsds {
- var %n = $gettok($nick, 1, 124)
- if !$readini(bsd.ini, ex, %n) {
- echo # $timestamp 4-BotSpam System Detector- $+ $nick $+ est sûrement un robot
- kick # $nick %bsdmk
- writeini bsd.ini ex %n x
- .timerbsd_ [ $+ [ %n ] ] 1 %bsdns remini bsd.ini ex %n
- }
- elseif $timer(bsd_ [ $+ [ %n ] ]) { .timerbsd_ [ $+ [ %n ] ] off }
- }
- }
- dialog bsd {
- title "BotSpam System Detector"
- size -1 -1 125 97
- option dbu
- text "Nombre de secs permettant à qqun « pris pour un robot » pour pouvoir revenir :", 1, 5 10 100 15
- edit "", 2, 106 12 15 10, limit 3 center
- text "Message de kick :", 3, 5 27 42 9, center
- edit "", 4, 48 26 73 10, autohs
- text "Detecter en tant que robot si le pseudo contient plus de :", 5, 5 38 118 13
- edit "", 6, 5 52 15 10, limit 2 center
- text "Codé par HeXoR - 2004 ", 7, 0 89 58 8
- link "timothee@hush.ai", 8, 79 89 46 8
- check "BSD activé", 9, 1 0 37 10
- edit "", 11, 5 62 15 10, limit 2 right
- text "% de consonnes", 10, 22 53 42 8
- text "lettres", 12, 22 63 25 8
- button "Manipuler les exceptions", 13, 5 74 116 12
- button "", 999, 0 0 0 0, ok
- }
- on *:dialog:bsd:*:*:{
- if $devent == init {
- if !%bsd { set %bsd on | set %bsdns 60 | set %bsdmk BotSpam System Detector by HeXoR [Si vous n'êtes pas un robot revennez avant 60secs] | set %bsd%c 60 | set %bsdnl 6 | set %bsds $true }
- did -a bsd 2 %bsdns
- did -a bsd 4 %bsdmk
- did -a bsd 6 %bsd%c
- did -a bsd 11 %bsdnl
- if (%bsds) did -c bsd 9
- }
- elseif $devent == edit {
- if $did == 2 { if $did(bsd, 2).text !isnum { did -ra bsd 2 60 } | else { set %bsdns $v1 } }
- elseif ($did == 4) set %bsdmk $did(bsd, 4).text
- elseif $did == 6 { if $did(bsd, 6).text !isnum { did -ra bsd 6 60 } | else { set %bsd%c $v1 } }
- elseif $did == 11 { if $did(bsd, 11).text !isnum { did -ra bsd 11 } | else { set %bsdnl $v1 } }
- }
- elseif $devent == sclick {
- if $did == 13 { dialog -m bsdex bsdex }
- elseif ($did == 9) set %bsds $did(bsd, 9).state
- }
- }
- dialog bsdex {
- title "BSD - Exceptions"
- size -1 -1 125 66
- option dbu
- button "Ajouter", 2, 3 52 59 12
- button "Supprimer", 3, 63 52 59 12
- list 1, 3 3 119 47, size extsel hsbar vsbar sorted
- button "", 999, 0 0 0 0, ok
- }
- alias bsdexrl { did -r bsdex 1 | var %x = $ini(bsd.ini, ex, 0) | while %x { if $ini(bsd.ini, ex, %x) { did -a bsdex 1 $v1 } | dec %x } }
- on *:dialog:bsdex:*:*:{
- if ($devent == init) bsdexrl
- elseif $devent == sclick {
- if $did == 2 { var %a = $input(Entrez le pseudo à excepter, e, BSD) | if (%a && $chr(32) !isin %a) writeini bsd.ini ex %a x | bsdexrl }
- elseif $did == 3 {
- var %x = $did(bsdex, 1, 0).sel
- while %x { dec %x | remini bsd.ini ex $did(bsdex, 1, $did(bsdex, 1, %x).sel).text }
- bsdexrl
- }
- }
- }
---- BotSpam System Detector V1.1 & $convoy V1.1 coded by HeXoR timothee@hush.ai ----
on *:load:dialog -m bsd bsd
menu menubar {
-
BotSpam System Detector:dialog -m bsd bsd
-
}
alias convoy {
var %v = aeiouy, %c = 0
var %a = $len($1)
while %a { if $mid($1, %a, 1) !isin %v { if ($v1 isalpha) inc %c } | dec %a }
return $iif($prop == c, $calc(%c / $len($1) * 100), $calc(($len($1) - %c) / $len($1) * 100))
}
on *:join:*:{
if $me isop # && $len($nick) > %bsdnl && $convoy($nick).c > %bsd%c && %bsds {
var %n = $gettok($nick, 1, 124)
if !$readini(bsd.ini, ex, %n) {
echo # $timestamp 4-BotSpam System Detector- $+ $nick $+ est sûrement un robot
kick # $nick %bsdmk
writeini bsd.ini ex %n x
.timerbsd_ [ $+ [ %n ] ] 1 %bsdns remini bsd.ini ex %n
}
elseif $timer(bsd_ [ $+ [ %n ] ]) { .timerbsd_ [ $+ [ %n ] ] off }
}
}
dialog bsd {
title "BotSpam System Detector"
size -1 -1 125 97
option dbu
text "Nombre de secs permettant à qqun « pris pour un robot » pour pouvoir revenir :", 1, 5 10 100 15
edit "", 2, 106 12 15 10, limit 3 center
text "Message de kick :", 3, 5 27 42 9, center
edit "", 4, 48 26 73 10, autohs
text "Detecter en tant que robot si le pseudo contient plus de :", 5, 5 38 118 13
edit "", 6, 5 52 15 10, limit 2 center
text "Codé par HeXoR - 2004 ", 7, 0 89 58 8
link "timothee@hush.ai", 8, 79 89 46 8
check "BSD activé", 9, 1 0 37 10
edit "", 11, 5 62 15 10, limit 2 right
text "% de consonnes", 10, 22 53 42 8
text "lettres", 12, 22 63 25 8
button "Manipuler les exceptions", 13, 5 74 116 12
button "", 999, 0 0 0 0, ok
}
on *:dialog:bsd:*:*:{
if $devent == init {
if !%bsd { set %bsd on | set %bsdns 60 | set %bsdmk BotSpam System Detector by HeXoR [Si vous n'êtes pas un robot revennez avant 60secs] | set %bsd%c 60 | set %bsdnl 6 | set %bsds $true }
did -a bsd 2 %bsdns
did -a bsd 4 %bsdmk
did -a bsd 6 %bsd%c
did -a bsd 11 %bsdnl
if (%bsds) did -c bsd 9
}
elseif $devent == edit {
if $did == 2 { if $did(bsd, 2).text !isnum { did -ra bsd 2 60 } | else { set %bsdns $v1 } }
elseif ($did == 4) set %bsdmk $did(bsd, 4).text
elseif $did == 6 { if $did(bsd, 6).text !isnum { did -ra bsd 6 60 } | else { set %bsd%c $v1 } }
elseif $did == 11 { if $did(bsd, 11).text !isnum { did -ra bsd 11 } | else { set %bsdnl $v1 } }
}
elseif $devent == sclick {
if $did == 13 { dialog -m bsdex bsdex }
elseif ($did == 9) set %bsds $did(bsd, 9).state
}
}
dialog bsdex {
title "BSD - Exceptions"
size -1 -1 125 66
option dbu
button "Ajouter", 2, 3 52 59 12
button "Supprimer", 3, 63 52 59 12
list 1, 3 3 119 47, size extsel hsbar vsbar sorted
button "", 999, 0 0 0 0, ok
}
alias bsdexrl { did -r bsdex 1 | var %x = $ini(bsd.ini, ex, 0) | while %x { if $ini(bsd.ini, ex, %x) { did -a bsdex 1 $v1 } | dec %x } }
on *:dialog:bsdex:*:*:{
if ($devent == init) bsdexrl
elseif $devent == sclick {
if $did == 2 { var %a = $input(Entrez le pseudo à excepter, e, BSD) | if (%a && $chr(32) !isin %a) writeini bsd.ini ex %a x | bsdexrl }
elseif $did == 3 {
var %x = $did(bsdex, 1, 0).sel
while %x { dec %x | remini bsd.ini ex $did(bsdex, 1, $did(bsdex, 1, %x).sel).text }
bsdexrl
}
}
}
Conclusion
MàJ : le dialog permet de modifier plus de choses, comme désactiver/activer l'anti spam par exemple ;). On peut aussi mnt ajouter et supprimer des exceptions, etc.
MàJ : rajout d'un on load pour initier les vars & co
MàJ : optimisation des events du dialog et correction de quelques bugs (genre les noms de variables pouvaient se "chevaucher")
MàJ : utilisation d'un .ini au lieu des variables - manipulations de la liste d'exceptions
/!\ Fonctionne sous mIRC6.16 et plus [utilisation de $v1]
Historique
- 06 août 2004 18:58:42 :
- Faute d'orthographe
- 06 août 2004 19:25:21 :
- j'avais oublié le dialog :x
- 06 août 2004 23:12:19 :
- Voir ci-dessous.
- 06 août 2004 23:18:08 :
- Voir ci-dessus ;)
- 07 août 2004 11:50:33 :
- Voir ci-dessus
- 07 août 2004 11:51:41 :
- Voir ci-dessus
- 07 août 2004 11:55:24 :
- Fautes d'orth :(
- 07 août 2004 14:06:51 :
- Correction du code
- 07 août 2004 14:33:44 :
- mIRC6.16++
- 07 août 2004 17:38:25 :
- voir ci-dessus
- 07 août 2004 18:50:54 :
-
- 07 août 2004 19:01:21 :
-
- 09 août 2004 15:38:01 :
- Léger bug au niveau du site qui confond Chr(160) et Chr(32) et qui rend l'addon inutilisable
- 09 août 2004 16:12:09 :
- -
- 15 août 2004 18:25:03 :
-
- 12 octobre 2004 10:24:07 :
- button "", 999, 0 0 0 0, ok
Sources du même auteur
$DERIVE(EXPRESSION) : FONCTION DÉRIVÉE$DERIVE(EXPRESSION) : FONCTION DÉRIVÉE Dérive une expression de type ax^m+bx^n+cx^o+... avec a, b, c, etc. et m, n, o, etc. appartenant à IR
exemple : $derive(2x+4) retourne 2
...
$GROUPE : FAIRE DES GROUPES$GROUPE : FAIRE DES GROUPES $Groupe permet de faire des groupes comme sur certains téléphones portables : vous pouvez mettre par exemple dans le groupe "boulets" le numéros ennem...
HEXFS.DLLHEXFS.DLL C'est une DLL qui permet de :
- Faire "flasher" mIRC, sa fenêtre active, un dialog, une window, etc.
- Jouer un son ("beep") avec fréquence et dur...
Sources de la même categorie
Commentaires et avis
|
Derniers Blogs
ARTICLE DANS PROGRAMMEZ SUR LES PRINCIPES SOLIDARTICLE DANS PROGRAMMEZ SUR LES PRINCIPES SOLID par fathi
Hello tout le monde! J'ai pas pu blogger ces derniers temps car j'ai eu un (heureux) petit chamboulement dans ma vie perso (un "bug" de 3.8 kg et de 52 cm) J'en profite juste pour vous annoncer la parution d'un article sur les principes SOLID ...
Cliquez pour lire la suite de l'article par fathi PARUTION DE MON LIVRE SUR WPF 4PARUTION DE MON LIVRE SUR WPF 4 par odewit
La 2e édition de mon livre sur WPF sort aujourd'hui en version numérique et lundi en version papier :-)
L'ouvrage présente de façon approfondie les fonctionnalités de WPF 4 : graphisme 2D et 3D, animation, multimédia, interfaces utilisateur, databind...
Cliquez pour lire la suite de l'article par odewit EDM : COMMENT UTILISER L'HORIZONTAL ENTITY SPLITTINGEDM : COMMENT UTILISER L'HORIZONTAL ENTITY SPLITTING par Matthieu MEZIL
Une des raisons pour lesquelles j'adore l'Entity Framework est la puissance de son mapping. Beaucoup de développeurs pour ne pas dire la plus part n'en n'ont pas conscience. Pour rappel, j'ai réalisé des videos (en anglais) sur le mapping . Certains scena...
Cliquez pour lire la suite de l'article par Matthieu MEZIL [WP7DEV][REACTIVE] RENDRE LES REACTIVE EXTENSIONS PLUS STABLES[WP7DEV][REACTIVE] RENDRE LES REACTIVE EXTENSIONS PLUS STABLES par jay
Lorsque l'on développe des applications .NET, les exceptions non gérées dans des threads ont le désagréable effet de terminer le processus courant.
Dans l'exemple suivant.......(read more) ...
Cliquez pour lire la suite de l'article par jay
Logiciels
Microsoft Office (2010)MICROSOFT OFFICE (2010)Microsoft Office 2010 offre de nouveaux moyens flexibles et puissants pour optimiser votre travai... Cliquez pour télécharger Microsoft Office SeaMonkey (2.0.7)SEAMONKEY (2.0.7)Le projet SeaMonkey est issu d'un effort communautaire pour developper une application tout en un... Cliquez pour télécharger SeaMonkey Safari (5.0.2)SAFARI (5.0.2)Le navigateur d'Apple a lui aussi été mis à jour, aussi bien dans sa mouture Windows que celle po... Cliquez pour télécharger Safari Mozilla FireFox (4.0 béta 5)MOZILLA FIREFOX (4.0 BéTA 5)Firefox 4.0 béta 5
L'une des nouveautés visibles les plus attendues réside sans doute dans l'a... Cliquez pour télécharger Mozilla FireFox Mozilla Firefox (3.6.9)MOZILLA FIREFOX (3.6.9)Firefox 3.6.9 corrige les problèmes suivants :
* Introduced support for the X-FRAME-OPTION... Cliquez pour télécharger Mozilla Firefox
|