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
TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010TECHDAYS PARIS 2010 : LA BI DANS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Vincent Bellet et Baptiste Giraudier La BI dans SharePoint 2010, Les nouveaux services d'application dans SP2010 et SQL Server Reporting services 2008 R2. La BI dans SharePoint est généralisée pour tous afin de permettre à tous les coll...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010TECHDAYS PARIS 2010 : PLAN DE MIGRATION VERS SHAREPOINT 2010 par ROMELARD Fabrice
Animé par: Arnault Nouvel et Antoine Dongois Le processus à prendre : Apprendre (découvrir la plateforme) Préparer (documenter l'historique et choisir la méthode de MAJ) Test (Test de MAJ) Implémenter (Effectuer la MAJ) Valid...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Forum
RE : ON RAWMODERE : ON RAWMODE par WorldDMT
Cliquez pour lire la suite par WorldDMT AVERTISSMENT ET KIKKAVERTISSMENT ET KIKK par mouhcine951990
Cliquez pour lire la suite par mouhcine951990
Logiciels
DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|