1. Accueil
  2. Tous les snippets
  3. Snippets IRC
  4. Detection spam simple mais efficace

Detection spam simple mais efficace

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 326 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

Comme dit dans le titre petit antispam simple , ( Pas tres esthétique c'est vrai ) , mais efficace. Il servira bien pour le serveur voila\wanadoo ou le spam est tres present en se moment!

Source / Exemple : 


alias antispame $iif(($dialog(antispame)),dialog -x antispame,dialog -m antispame antispame)
dialog antispame { 
  Title Detect spam 
  size -1 -1 400 170
  text Sur certains server le spam est en se moment de rigueur ! Cet outils va vous,1,10 20 390 15
  text permettre d'arreter ce spam ( Le message ( de spam ) ne vous sera pas transmis ),3,10 40 390 15
  text Entrez ici le text ( ou une partie de ce text ) à stopper,4,80 60 290 15
  edit ,5, 60 80 280 20,autohs
  check Avertir sur les salons où est le spameur qu'il spam ,8, 80 110 250 15
  button Enregistrer ,6,100 130 80 20
  button Ok ,7, 240 130 60 20,ok
}
on *:dialog:antispame:*:*:{
  if $devent == init {
    if (%avdespam) did -c $dname 8
  }
  if $devent == sclick {
    if $did == 6 { write antispam.txt $did(5) | did -r $dname 5 }
    if $did == 8 { $iif((%avdespam),unset %avdespam,set %avdespam 1) }
  }
}
alias antispm {
  var %i  $lines(antispam.txt)
  while %i {
    if ( $read(antispam.txt,%i) isin $1- )  { $iif((%avdespam),annspm $nick) | close -m $nick | .ignore $address($nick,2)  | halt }
    dec %i
  }
}
alias annspm { 
  var %a = $comchan($1,0)
    while %a { 
msg $comchan($1,%a) 4/!\ Spam de $1 --> $address($1,2)
    dec %a 
    } 
}
on *:open:?:{
  antispm $1- 
}

A voir également

Ajouter un commentaire Commentaires
Kerrigan Messages postés 708 Date d'inscription lundi 15 juillet 2002 Statut Membre Dernière intervention 17 mars 2005
3 août 2004 à 15:11
var %i $lines(antispam.txt)
while %i {
if ( $read(antispam.txt,%i) isin $1- ) { $iif((%avdespam),annspm $nick) | close -m $nick | .ignore $address($nick,2) | halt }
dec %i
}

c'est pas une bonne façon de traiter tout ça je te propose ça :

var %i = 1
while $read(antispam.txt,%i) {
if ( $ifmatch isin $1- ) { $iif((%avdespam),annspm $nick) | close -m $nick | .ignore $address($nick,2) | halt }
inc %i
}

ça devrait etre un tout petit peu plus rapide mais faudrait faire le test.
neko01 Messages postés 10 Date d'inscription mardi 2 décembre 2003 Statut Membre Dernière intervention 6 septembre 2004
3 août 2004 à 06:44
merci PaDa pour ces conseils , moi et l'optimisation ce n'est pas ca , de plus pour l'avertissement sur le salon je me suis trompé de ligne c vrai . je corrige ca de suite.
Par contre pour les autres utilité comme kick etc ... je verrais plus tard "surement" car la jai mon script a faire et vu que javai pas vu de sources comme celle ci je me suis dis pourquoi pas la postée juste pour aidé au moin un peu :D
Voila
[n3k0]
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 6
3 août 2004 à 06:02
ouhla j'viens de me lourder dans mon optimisation :p ca merdouille : ca ce sera mieux :

var %a = $comchan($1,0)
while %a {
msg $comchan($1,%a) 4/!\ Spam de $1 --> $address($1,2)
dec %a
}
cs_PaDa Messages postés 1804 Date d'inscription mardi 15 juillet 2003 Statut Membre Dernière intervention 22 septembre 2009 6
3 août 2004 à 05:59
Ce n'est pas vraiment un antispam , mais plutot un détecteur de spam en pv : la différence étant que quand on me parle d'antispam , je vois des pseudos qui se connectent par sockets et "testent" des nicks ou alors font des joins part sans arrêt etc... et que les spams un peu perfectionnés ne viendront jamais te voir si t'es op sur un salon commun avec ce qui limite fortement le truc ...mais bon pas grave ca j'ai ptet pas la même vision que tout le monde :p

Sinon je trouve dommage de pas avoir trop le controle sur ce que tu détectes (l'utilisateur lambda va pas comprendre qu'il peut mettre plein de détections différentes puiske tout est écrit a la suite dans un fichier texte , et il saura pas ou visualiser ce qu'il détecte) une liste aurait ptet été bien

De plus ce que tu détectes est très rigide : si tu veux te pencher dessus utilise des regex

text Entrez ici le text ( ou une partie de ce text ) à stopper,4,80 60 250 15 < on voit pas le "stopper"

Sinon niveau code :
if ( $read(antispam.txt,%i) isin $1- || $read(antispam.txt,%i) == $1- ) le deuxième truc est inutile , déja couvert par la première condition ... tape //echo > $iif(blabla isin blabla,1,0) si tu veux t'en convaincre .

Suggestion : tu pourrais ptet compléter ta source aussi , en proposant diverses réactions autre que "avertir sur le salon" , kick par un bot ou t'as un access , ou avertissement en /echo , ou .spam (commande des ops offs pour demander un kill sur le spammer) etc

Tu devrais mettre button Ok ,7, 240 130 60 20,ok au lieu de button Ok ,7, 240 130 60 20 , et ainsi tu pourrais te passer du dialog -x dans le sclick ...

Enfin l'avertissement est bizarrement fait :
var %a 1
while ( %a <= $comchan($1,0) ) {
set %chanspam $comchan($1,%a)
inc %a
}
msg %chanspam 4/!\ Spam de $1 --> $address($1,2)
avec ca tu n'avertis pas sur les salons ou le spammeur est qu'il spam , mais tu avertis sur le dernier salon ou il est seulement... ne serait ce pas plutot :
var %a 1,%chanspam
while ( %a <= $comchan($1,0) ) {
%chanspam = $comchan($1,%a)
msg %chanspam 4/!\ Spam de $1 --> $address($1,2)
inc %a
}
ou même en un peu mieux optimisé (plus beau a mon gout):
var %a = $comchan($1,0)
while $comchan($1,%a) {
msg $v1 4/!\ Spam de $1 --> $address($1,2)
dec %a
}
($ifmatch au lieu de $v1 pour les anciennes version de mirc) ...

voilou bonne continuation
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (neko01)