Detecteur de spam configurable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 6 854 fois - Téléchargée 27 fois

Contenu du snippet

ba c'est un simple detecteur de spam qu'on peut configurer en ajoutant des trucs du genre wwww. ou http://

Source / Exemple :


;######################################################
;################# Detecteur de spam par C-r1L ################
;####################URL: www.fdr.ift.cx #####################
;########## .::F:D:R::. Fuck Da RipperZ mIRC Scripting clan ##########
;#######################################################

dialog spam {
  title Road`s IRC Spam Detector
  option dbu
  size -1 -1 120 70
  box "Spam List",1,1 1 50 68
  list 3,2 10 47 66,autohs
  radio "Enable",4,54 3 30 10
  radio "Disable",5,87 3 30 10
  button "Add",6,54 17 30 10
  button "Del",7,88 17 30 10
  button "close",8,51 50 69 10.cancel
}

on *:dialog:spam:sclick:*:{
  if $did == 4 { set %spam on }
  if $did == 5 { set %spam off }
  if $did == 6 {
    set %list $?="Wich Word Do You Want To Detect?"
    set %list.spam $addtok(%list.spam,%list,44)
    did -a $dname 3 %list
    unset %list
  }
  if $did == 7 {
    set %list.spam $deltok(%list.spam,$did(spam,3).sel,44)
    did -d $dname 3 $did(spam,3).sel
    halt
  }
  if $did == 8 { dialog -x spam spam }
}
on *:dialog:spam:init:0:{
  if %spam == on { did -c $dname 4 }
  if %spam == off { did -c $dname 5 }
  var %x = 0
  while %x <= $numtok(%list.spam,44) {
    inc %x
    did -a spam 3 $gettok(%list.spam,%x,44) 
  } 
}

on *:text:*:#:{
  var %x = 0
  while %x <= $numtok(%list.spam,44) {
    inc %x
    if $gettok(%list.spam,%x,44) isin $1- { echo -a 4******5Spam detected from 4 $nick 1(5 $+ $address $+ 1)5 on4 $chan $+ . }

  }
}

Conclusion :


ouala rien d'bien complexe mais ca sert bien

A voir également

Ajouter un commentaire Commentaires
Messages postés
427
Date d'inscription
dimanche 6 juillet 2008
Statut
Membre
Dernière intervention
4 mai 2009

d'où vient le mot "SPAM" ?

SPAM est un acronyme pour "Spiced Pork And Meat" (pâté épicé à base de porc et de viande). La théorie la plus courante veut que le terme provienne d’un sketch des Monty Python, dans lequel les comiques britanniques chantaient : "Spam spam spam spam, spam spam spam spam, spam spam spam spam…". La chanson, interminable et interprétée crescendo, couvrait les propos des autres protagonistes.
Messages postés
25
Date d'inscription
mercredi 18 février 2004
Statut
Membre
Dernière intervention
22 décembre 2009

La source est simpa mais pourquoi les boutons sont-ils en anglais ?
Messages postés
15
Date d'inscription
samedi 5 juillet 2003
Statut
Membre
Dernière intervention
8 janvier 2005

Tu dis peut-être pour les "noobs" qui ne parlent pas l'anglais, mais ton français n'est pas mieux. Secondo tu fais des fautes sur la source en collant ... Relativise et fait des remarques aux normes au lieu de potasser quelqu'un qui essaye :) .
Messages postés
3
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
23 août 2005

Bravo ! j'adore cette sources! je l'ai mit en francais pour les noob comme moi! bravo vraiment

dialog spam {
title Detecteur de Spam
option dbu
size -1 -1 120 70
box "Spam List",1,1 1 50 68
list 3,2 10 47 66,autohs
radio "Activer",4,54 3 30 10
radio "Desactiver",5,87 3 30 10
button "Ajouter",6,54 17 30 10
button "Supprimer",7,88 17 30 10
button "Fermer",8,51 50 69 10.cancel
}
button "Fermer",8,51 50 69 10.cancel
on *:dialog:spam:sclick:*:{
if $did == 4 { set %spam on }
if $did == 5 { set %spam off }
if $did == 6 {
set %list $?="Ajouter le mot Spam"
set %list.spam $addtok(%list.spam,%list,44)
did -a $dname 3 %list
unset %list
}
if $did == 7 {
set %list.spam $deltok(%list.spam,$did(spam,3).sel,44)
did -d $dname 3 $did(spam,3).sel
halt
}
if $did == 8 { dialog -x spam spam }
}
on *:dialog:spam:init:0:{
if %spam == on { did -c $dname 4 }
if %spam == off { did -c $dname 5 }
var %x = 0
while %x <= $numtok(%list.spam,44) {
inc %x
did -a spam 3 $gettok(%list.spam,%x,44)
}
}
µ}
on *:text:*:#:{
var %x = 0
while %x <= $numtok(%list.spam,44) {
inc %x
if $gettok(%list.spam,%x,44) isin $1- { echo -a 4******5Spam de 4 $nick 1(5 $+ $address $+ 1)5 sur4 $chan $+ . }
µ if $gettok(%list.spam,%x,44) isin $1- { echo -a 4******5Spam de 4 $nick 1(5 $+ $address $+ 1)5 sur4 $chan $+ . }
}
}
Messages postés
28
Date d'inscription
jeudi 10 avril 2003
Statut
Membre
Dernière intervention
16 octobre 2004

pour cette ereur la tu rajoute juste un bouton en + XD ac ok
genre tu mets button "close",8,51 50 69 10 ok :) et sa a la place de button "close",8,51 50 69 10.cancel et sa devrai aller logiquement :) enfin je crois apres faut tester :) si non tu matte l aide de mirc
Afficher les 11 commentaires

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.