Detecteur de spam configurable

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 004 fois - Téléchargée 28 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
griffondorr Messages postés 427 Date d'inscription dimanche 6 juillet 2008 Statut Membre Dernière intervention 4 mai 2009
23 avril 2009 à 19:40
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.
kaizer63 Messages postés 25 Date d'inscription mercredi 18 février 2004 Statut Membre Dernière intervention 22 décembre 2009
14 avril 2007 à 20:34
La source est simpa mais pourquoi les boutons sont-ils en anglais ?
OoZz Messages postés 15 Date d'inscription samedi 5 juillet 2003 Statut Membre Dernière intervention 8 janvier 2005
26 sept. 2005 à 14:44
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 :) .
dimitrivba Messages postés 3 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 23 août 2005
23 août 2005 à 01:54
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 $+ . }
}
}
pierre2565 Messages postés 28 Date d'inscription jeudi 10 avril 2003 Statut Membre Dernière intervention 16 octobre 2004
4 sept. 2004 à 00:52
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

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.