Detection spam simple mais efficace

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 043 fois - Téléchargée 32 fois

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

Messages postés
708
Date d'inscription
lundi 15 juillet 2002
Statut
Membre
Dernière intervention
17 mars 2005

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.
Messages postés
10
Date d'inscription
mardi 2 décembre 2003
Statut
Membre
Dernière intervention
6 septembre 2004

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]
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
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
}
Messages postés
1804
Date d'inscription
mardi 15 juillet 2003
Statut
Membre
Dernière intervention
22 septembre 2009
4
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

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.