Detection spam simple mais efficace

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

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)