SOCKET ANTISPAM

on 1:LOAD: { 
  echo -a 4 Vous installez le Socket-Antispam Scripté par ISoKa. | echo -a 4 S'il vous plait respecter le travail des autres au lieu de pomper comme des sauvages : )
  set %proprisock $$?"Pseudo Proprietaire sur l'IRC" | set %serverconsok chat7.x-echo.com | set %port.sock 6667 | set %serverconsok2 chat9.x-echo.com
  set %port.sock2 6667 | set %chandusocket #Salon | set %chanechosock #Salon | set %cyclesock 480 | set %nbfrazeignore 10
  set %sock.kline 1 | set %formatenvoiechospam 10SPAM | set %identcomm ! | load -rs socketantispam\socket-pour-scan.txt | majdetectspe
  echo -a 4 Pour toute aide dans la mesure ou c'est moi qui aurai du vous le donner | echo -a 4 /query ISoKa :o)
  echo -a 4 Sinon, demmerdez vous : ) | echo -a 4 Pour commencer faites un click droit en channel puis >> 4 °*¤ Socket Anti Spam ¤*°
  echo -a 4 Tout si trouve pour demarer. Ensuite une fois le socket lancé, !aide :o) | echo -a 4 Enjoy it ! And have fun :o) 
}
###################SOCKET ANTISPAM################## 
alias sockvie {
  window -benk @Socket.Antispam 0 0 550 200 
}
; ----------------Ouverture socket-----------------
on *:sockopen:NoSpam:{
  set %scan-en-cour non | unset %countpourignore* | set %repondrespam non | set %socket.actif oui | set %colosock  $+ [ $rand(2,6) ]
  //set %socket.nick [ $read(SocketAntiSpam\Configs-socket\socketnick.txt) ] $+ $rand(a,v) $+ [ $lower($read(SocketAntiSpam\Configs-socket\socketnick.txt)) ] | //set %socket.realname $read(SocketAntiSpam\Configs-socket\socketnick.txt)
  echo -t @Socket.Antispam 6Configuration Socket... | sockwrite -n $sockname NICK %socket.nick | echo -t @Socket.Antispam 6Nick : %socket.nick
  sockwrite -n $sockname USER $rand(a,z) $+ $rand(a,z) $+ $rand(a,z) "" "localhost" : %socket.realname | echo -t @Socket.Antispam 6RealName : %socket.realname
  sockmark $sockname %socket.nick | echo -t @Socket.Antispam 5Socket connecté à %serverconsok !
  sockwrite -n NoSpam JOIN %socket.chan | sockwrite -n NoSpam JOIN %chandusocket | socknospamjoin | write -c socketantispam\Fichiers-tampon\tamponblacklist.txt
}
on *:sockclose:NoSpam:{ set %socket.actif non }
#########DETECTION#########
on *:sockread:NoSpam:{
  if ($sockerr > 0) {  | echo -t @Socket.Antispam 14Erreur Socket... | return }
  ;-----------------Reponse au ping et detection des messages privé-------------------
  sockread %nospam.received
  if ($gettok(%nospam.received,1,32) == PING) { sockwrite -n $sockname PONG $gettok(%nospam.received,2,32) }
  if ($gettok(%nospam.received,2,32) == JOIN) && (*guest@* iswm %nospam.received) && (%blacklistage = on) { set %chanblacklist $gettok(%nospam.received,3,32) | testblacklistjoin $right($gettok($gettok(%nospam.received,1,32),1,33),-1) } 
  if ($gettok(%nospam.received,2,32) == PRIVMSG) || ($gettok(%nospam.received,2,32) == NOTICE) || ($gettok(%nospam.received,2,32) == 301) {
    set %text $remove($strip($right($gettok(%nospam.received,4-,32),-1)),$chr(44)) | set %textpastrip $right($gettok(%nospam.received,4-,32),-1) | var %cleansub = $regsub(%textpastrip,/[àáâãäåðÂÃÄŪ]/g,a,%textpastrip) | var %cleansub = $regsub(%textpastrip,/[€éêëèÈÉÊË£]/g,e,%textpastrip) | var %cleansub = $regsub(%textpastrip,/[ìíîïÌÍÎÏ¡]/g,i,%textpastrip)   
    if ($gettok(%nospam.received,2,32) = 301) { set %text $remove($strip($right($gettok(%nospam.received,5-,32),-1)),$chr(44)) }
    if ($right($gettok($gettok(%nospam.received,1,32),1,33),-1) == %pseudo2spamaignore) || ($right($gettok($gettok(%nospam.received,1,32),1,33),-1) == %pseudo2spamaignore2) { halt }
    else {
      if ($gettok(%nospam.received,3,32) == %socket.nick) {
        set %repondre0spam oui
        ;-----------------Ignore utils sur quelques pseudos ou base de pseudo------------------- 
        var %kiparleausocket $gettok($right($gettok($gettok(%nospam.received,1,32),1,33),-1),1,124)
        var %kiparleausocketlong $right($gettok($gettok(%nospam.received,1,32),1,33),-1)
        if ($gettok(%nospam.received,2,32) = 301) { var %kiparleausocket $gettok($gettok($gettok(%nospam.received,4,32),1,33),1,124) | var %kiparleausocketlong $gettok($gettok(%nospam.received,4,32),1,33) }
        if ($regex(%kiparleausocket,/(chat.\.x-echo|irix|sbp)/i)) { halt }
        if (%kiparleausocketlong == %socket.nick) ||  (%kiparleausocketlong == %socket2.nick) { halt }
        ;------------------Detection des Non Spams par compteur de phrases----------------------
        var %cheminaccesignore  $+(socketantispam\ignore\,$left(%kiparleausocket,1),\,$left(%kiparleausocket,2),.txt)
        if (%kiparleausocket == $read(%socketantispam\fichiers-tampon\Ignorerspamapresdetect.txt, w, %kiparleausocket)) { halt }  
        elseif ($isfile(%cheminaccesignore) == $true) { if (%kiparleausocket == $read(%cheminaccesignore, w, %kiparleausocket)) { halt } }
        elseif (% [ $+ countpourignore $+ [ %kiparleausocket ] ] != $null) && (% [ $+ countpourignore $+ [ %kiparleausocket ] ] < %nbfrazeignore) { inc %countpourignore $+ %kiparleausocket }
        elseif (!% [ $+ countpourignore $+ [ %kiparleausocket ] ] ) { set %countpourignore $+ %kiparleausocket 1 }
        elseif (% [ $+ countpourignore $+ [ %kiparleausocket ] ] == %nbfrazeignore) { write %cheminaccesignore %kiparleausocket | write socketantispam\ignore.txt %kiparleausocket | echo -t @Socket.Antispam 6 %kiparleausocket Mis en Ignore List | ssock %chandusocket 6 %kiparleausocket Mis en Ignore List | Halt }
        ;---------------------Ignorer automatiquement sur certaines reactions---------------------
        if ($regex(%text,/(anti(.?)pv)/i)) { set %pseudo2spamaignore %kiparleausocketlong | set %repondre0spam non }
        ;-------------------------Base de detection des messages de Spam-------------------------
        ;Ajout texte précedent pour spam multiligne
        if (% [ $+ spammultiligne $+ [ %kiparleausocket ] ] != $null) { set -u180 %text [ %text ] $+ $chr(32) $+ % [ $+ spammultiligne $+ [ %kiparleausocket ] ] }

        ;regsub nettoyage texte
        var %textrem , %megareg = $regsub(%text,/([^-[:alnum:]\._\\\/€:@])/g,,%textrem) | var %textrem $remove(%textrem,$chr(44),$chr(130))

        ;regex des URL
        if ($regex(%textrem,/((((w|\\\/\\\/)(.?)){3}|3w|h(.?)((t|†)(.?)){2}p(.?)))((:?(\/\/|\\\\))|\.)?([[:alnum:]]{1,}(([[:punct:]]{1,}[[:alnum:]]{1,})+)?)\.(fr|new\.fr|free\.fr|ifrance|com|org|net|fluo\.net|tk|tf|be|fb\.bz|st|xxl\.st|xxl|c\.la|biz|tm|nf|tc|ws|cx|tv|ca|dd\.am|info|lv|ws|uk)/i)) { spamdetecter %kiparleausocketlong %text | halt }

        ;regex des URL par IP
        elseif ($regex(%textrem,/(http:\/\/\S+|www\.\S+)([1-2]?[0-9]?[0-9]\.){3}[1-2]?[0-9]?[0-9]/i)) { spamdetecter %kiparleausocketlong  %text | halt } 

        ;regex NUM TEL
        elseif ($regex($remove(%textrem,$chr(44)),/(codeallopassB|((sms|pack)((.+)?)8(1|2)[0-9]{3}|8(1|2)[0-9]{3}((.+)?)(sms|pack))|\D((o|0)8(([^a-z])?[0-9]){8})\D|^((o|0)8(([^a-z])?[0-9]){8})\D|\D((o|0)8(([^a-z])?[0-9]){8})$)/i)) { spamdetecter %kiparleausocketlong %text | halt }

        ;regex autres URL particulieres
        elseif ($regex(%textrem,%detectspe)) { spamdetecter %kiparleausocketlong %text | halt }

        ;regex MAIL avec demande
        elseif ($regex(%textrem,\w+@\w+\.(net|fr|org|com|fr))) {
          if ($calc($regex(%textrem,/((live|show|visio|vizio|video|cam)[^@])/i) + $regex(%textrem,/(amicauxouplus|str(.{1,2})p|chaud|cho((.{1,3})?)de|sex|coquine|exhibe|cokine|gode|soumi|hot[^m][^a][^i][^l])/i) + $regex(%textrem,/(\D[0-9][:punct:][0-9]{1,2}\D|€|allopass|euro)/i) + $regex(%textrem,/(photo|film|phone|msn)/i)) >= 2) { spamdetecter %kiparleausocketlong %text | halt }
          ;Mail Verifiés
          elseif ($regex(%textrem,/((priz-pass|sandra846|mathilde9391|wizwiz27|udimsn|amelyyye|kimykokine2|aconitum|sandra842|katymsn|oceamsn|anniejolie25|camille_hot|celine_amateur|elodie_claire_78240|italienneparis|julie_laptitecoquine|lauracaline|natacha-show|ninabombasse|sarahwhite69|sofia|supercokine93)(@hotmail))/i)) { spamdetecter %kiparleausocketlong %text | halt } 
        }
        ;----------------------Autres Phrases à dire Automatiquement aux Spams-----------------------
        if ($regex(%text,/(mon\sage)/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ >  %text | .timer 1 %trep  ssock %kiparleausocketlong quel age ? }
        elseif ($regex( %text,/(((c|ç)(a|â|à)\sv(a|â|à).?(\?))|(et\stoi))/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text | .timer 1 %trep ssock %kiparleausocketlong  $read(socketantispam\configs-socket\et-toi.txt) }
        elseif ($regex(%text,/(a\ste\s(di|tente)|int.r.ss|t.as((.{1,10})?)\?)/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text | .timer 1 %trep ssock %kiparleausocketlong $read(socketantispam\configs-socket\oui.txt) }
        elseif (*visio*hot* iswm %text) && (*allo*pass* iswm %text) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ >  %text | .timer 1 %trep  ssock %kiparleausocketlong comment ? }      
        if ($regex(%textrem,/(d(i|î|ï)|tap|r.p.t.)/i)) { 
          var %text1code , %megareg47258 = $regsub(%textpastrip,/((1\,1|2\,2|3\,3|4\,4|5\,5|6\,6|7\,7|8\,8|9\,9|10\,10|11\,11|12\,12|13\,13|14\,14)((.+)?)((([0-9]{2}|[0-9])\,([0-9]{2}|[0-9])|([0-9]{2}|[0-9]))|))/Ug,,%text1code) | set %text $strip(%text1code)
          var %textcode , %megareg258 = $regsub(%text,/([^-[:alnum:]_\\\/€@\s])/g,,%textcode) | set %textcode $replace(%textcode,$chr(32) $+ $chr(32),$chr(32)) 
          if ($regex(%textcode,/(((\s.\s.)+)((\s.\s)?))/i)) { var %textcodemot $regml(1) | var %textcodetemp $remove(%textcodemot,$chr(32)) | var %textcode $replace(%textcode, [ %textcodemot ] , [ [ %textcodetemp ] $+ [ $chr(32) ] ] ) }
          if ($regex(%textcode,/((\srepetants|\srepetant|\srepetan|\srepeter|\srepetes|\srepete|\srepets|\srepet|\sdisants|\sdisant|\sdisans|\sdires|\sdisan|\sdire|\sdits|\sdis|\sdit|\sdi|\stapants|\stapant|\stapans|\stapan|\staper|\stapet|\stapes|\stape))/i)) { var %nummotdetect $findtok(%textcode,$wildtok(%textcode , [ $regml(1) ] $+ *,1,32) ,1,32) | var %declencheurreg $regml(1) | var %eclencheurcode $wildtok(%textcode, [ $regml(1) ] $+ *,1,32) | var %limitverifmotdudi1 $calc( [ %nummotdetect ] +11) | inc %nummotdetect }                   
          while (%limitverifmotdudi1 >= %nummotdetect) {
            if ($regex($gettok(%textcode ,%nummotdetect ,32),/(ok\sok|ok|livecam|camera|vi.io|yes|ch(.{1,2})de|coquine)/i)) || ($isupper($left($gettok(%textcode ,%nummotdetect ,32),1)) == $true) || (($len($gettok(%textcode ,%nummotdetect ,32)) >= 4) && ($len($gettok(%textcode ,%nummotdetect ,32)) < 8) && ($calc($count($gettok(%textcode ,%nummotdetect ,32),z,r,t,y,p,q,s,d,f,g,h,j,k,l,m,w,x,c,v,b,n) /$len($gettok(%textcode ,%nummotdetect ,32))) >= 0.70)) { set %repondre0spam non | .timer 1 5 ssock %kiparleausocketlong $lower($gettok(%textcode ,%nummotdetect ,32)) }
            inc %nummotdetect
          }
          if ($len($right(%eclencheurcode, - $+ [ $len( [ %declencheurreg ] ) ] )) >= 1) { set %repondre0spam non | var  %motducode $right(%eclencheurcode,- $+ $len( [ %declencheurreg ] )) | .timer 1 2 ssock %kiparleausocketlong $lower(%motducode) }
          echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text 
        }
        elseif ($regex(%text,/(asv|\s(a|â|à)ge|[1-3][0-9])/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ >  %text | .timer 1 %trep  ssock %kiparleausocketlong $rand(2,4) $+ $rand(0,9) $+ m $+ $rand(3,9) $+ $rand(0,6) }
        elseif ($regex( %text,/(code|a(l+)opass)/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text | .timer 1 %trep ssock %kiparleausocketlong  $read(socketantispam\configs-socket\allopass.txt) }
        elseif ($regex( %text,/(a\sle\sfai|la\sforme|vais\sbien\smerci|\.\.\.)/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text | .timer 1 %trep ssock %kiparleausocketlong  $read(socketantispam\configs-socket\tacam.txt) } 
        elseif ($regex( %text,/(site)/i)) { set %repondre0spam non | echo -t @Socket.Antispam 1< $+ %kiparleausocketlong $+ > %text | .timer 1 %trep ssock %kiparleausocketlong  $read(socketantispam\configs-socket\kelsite.txt) } 
        ;--------Gestion des spams multilignes--------------------
        if $regex(%textrem,/(str(.{1,2})p|show|msn|allo(.+)?pass|€|code|@|hot)/i) { set -u180 % [ $+ spammultiligne $+ [ %kiparleausocket ] ] %text } 
        ;------------------------Echo de ce qu'a dit la Personne au Socket et Reponse aléatoire du Socket---------------------------
        if (%repondre0spam = oui) {
          echo -t @Socket.Antispam 14< $+ %kiparleausocketlong $+ > %text | set %trep $rand(8,20) | set %xpseudo2 %kiparleausocketlong | set %repondrespam non
          if (%xpseudo2 isin $read(%socketantispam\fichiers-tampon\Ignorerspamapresdetect.txt, w, %xpseudo2)) { halt }  
          elseif (!%pseudopourrepalecosck) { set %pseudopourrepalecosck %kiparleausocketlong }
          elseif ($findtok(%pseudopourrepalecosck, [ %kiparleausocketlong ] ,0,44)) { halt }
          else { set %pseudopourrepalecosck [ %pseudopourrepalecosck ] $+ [ $chr(44) ] $+ [ %kiparleausocketlong ] }
        }
      }
    }
  }
  ;---------------------------Detection du bannisement du socket------------------------
  if ($gettok(%nospam.received,2,32) == 474) { echo -t @Socket.Antispam 14 Le socket est banni de $gettok(%nospam.received,4,32) $+ , impossible de rejoindre le chan | ssock %chandusocket  4 $avertproprisock Le socket est banni de $gettok(%nospam.received,4,32) $+ , impossible de rejoindre le chan }
  ;---------------------------Detection du Kick du socket-------------------------
  if ($gettok(%nospam.received,2,32) == KICK) && ($gettok(%nospam.received,4,32) == %socket.nick) { echo -t @Socket.Antispam 14 Le socket a été expulsé de $gettok(%nospam.received,3,32) | ssock %chandusocket  4 $avertproprisock Le socket a été expulsé de $gettok(%nospam.received,3,32) }
  ;-------------------------------Detection du Kill du socket----------------------------
  if ($gettok(%nospam.received,2,32) == KILL) && ($gettok(%nospam.received,3,32) == %socket.nick) { echo -t @Socket.Antispam 14 Le socket vient d'être KILL du serveur | stopsocket | lancersocket  }
  ;-------------------------------------Detection d'un kill pour Spam et actions associées-----------------------------
  if ($gettok(%nospam.received,2,32) == QUIT) && (*spam* iswm %nospam.received) { 
    if ((*kill* iswm %nospam.received)) && ((*[exp/spam]* iswm %nospam.received)) && ((*auto* iswm %nospam.received)) { var %pseudokillsocket %kiparleausocketlong | var %pseudokillsocketcourt %kiparleausocket | blaclistsurdetectkill %pseudokillsocketcourt }
  }
  ;---------------------------Commandes Salons Socket---------------------------
  if ($gettok(%nospam.received,3,32) == %chandusocket) && ($gettok(%nospam.received,2,32) == PRIVMSG) {
    var %text21 = $strip($right($gettok(%nospam.received,4-,32),-1))
    if (%kiparleausocket = %proprisock) || (%kiparleausocket == $read(SocketAntiSpam\configs-socket\user.txt, w, %kiparleausocket )) {
      ;---------------------------!HELP----------------------------- 
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (aide == $right($gettok(%text21,1,32),-1)) {
        ssock %chandusocket 3 %identcomm $+ lancersocket , Lance le socket
        ssock %chandusocket 3 %identcomm $+ stopsocket , Arrete le socket
        ssock %chandusocket  3 %identcomm $+ scan 4<salon> Scanne la nicklist du salon pour y trouver du spam
        ssock %chandusocket  3 %identcomm $+ monjouet bah c'pour etre sur de jouer tout seul :x 
        ssock %chandusocket  3 %identcomm $+ jepretemonjouet pour montrer qu'on est pas une capricieuses : )
        ssock %chandusocket  3 %identcomm $+ addchan 4<salon> Rajoute un salon à la surveillance 
        ssock %chandusocket  3 %identcomm $+ delchan 4<salon> Supprime un salon de la surveillance   
        ssock %chandusocket  3 %identcomm $+ viewchan Donne la liste des salons sous surveillance
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ setchan 4<salon> <raccourci> Permet de definir un raccourci pour les scans (exemple: !scan sl au lieu de !scan #salon
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ delsetchan 4<salon> <raccourci> Permet d'effacer l'association d'un salon avec son raccourci
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ viewsetchan Voir la liste des raccourcis pour les scans salon
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ cyclesock 4<Minutes.Secondes> Permet de definir le cycle de deco reco du socket
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ xtest 4<pseudo> Lance un test de spam sur <pseudo>
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ delnick 4<pseudo> Retire pseudo de la Blacklist
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ testjoinon : activer detection des spams on join
        .timer 1 1 ssock %chandusocket  3 %identcomm $+ testjoinoff : desactiver detection des spams on join
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ stats Permet d'avoir quelques chiffres sur le socket
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ adduser 4<Pseudo> : Ajouter un user autorisé sur le socket
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ deluser 4<Pseudo> : Supprimer un user autorisé sur le socket
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ ignore 4<Pseudo> : Mettre en Ignore-List pour le socket un Pseudo
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ designore 4<Pseudo> : Supprimer un Pseudo de L'Ignore-List
        .timer 1 2 ssock %chandusocket  3 %identcomm $+ defignore 4<Nombre> : Définit le nombre de phrases dites par un pseudo sans spammer à partir du quel un pseudo est mis en Ignore-List
        .timer 1 3 ssock %chandusocket  3 %identcomm $+ autoscanon : Scanner de facon automatique et aléatoire des nicklists
        .timer 1 3 ssock %chandusocket  3 %identcomm $+ autoscanoff  : Arrete le Scan automatique
        .timer 1 3 ssock %chandusocket  3 %identcomm $+ debug  : Réinitialise certaines variables en cas de bugs
      }
      ;-----------------------!IGNORE----------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (ignore == $right($gettok(%text21,1,32),-1)) {
        var %pseudoaignorecommande $gettok($gettok(%text21,2,32),1,124)
        if (%pseudoaignorecommande == $read(SocketAntiSpam\ignore.txt, w, %pseudoaignorecommande)) { ssock %chandusocket  6 %pseudoaignorecommande deja en Ignore-List | halt }
        var %cheminaccesignorecommande  $+(socketantispam\ignore\,$left(%pseudoaignorecommande,1),\,$left(%pseudoaignorecommande,2),.txt) | write %cheminaccesignorecommande %pseudoaignorecommande | write socketantispam\ignore.txt %pseudoaignorecommande | ssock %chandusocket  6 %pseudoaignorecommande Mis en Ignore List 
      }
      ;---------------------!DESIGNORE---------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (designore == $right($gettok(%text21,1,32),-1)) {
        var %pseudoadesignorecommande $gettok($gettok(%text21,2,32),1,124)
        if (%pseudoadesignorecommande != $read(SocketAntiSpam\ignore.txt, w, %pseudoadesignorecommande)) { ssock %chandusocket  6 %pseudoadesignorecommande inconnu dans Ignore-List | halt }
        var %cheminaccesdesignorecommande  $+(socketantispam\ignore\,$left(%pseudoadesignorecommande,1),\,$left(%pseudoadesignorecommande,2),.txt)
        if ($read(%cheminaccesdesignorecommande,w,$+(%pseudoadesignorecommande))) {  write $+(-dl,$readn) %cheminaccesdesignorecommande }
        if ($read(socketantispam\ignore.txt,w,$+(%pseudoadesignorecommande))) {  write $+(-dl,$readn) socketantispam\ignore.txt }
        ssock %chandusocket  6 %pseudoadesignorecommande Supprimé de l'Ignore List 
      }
      ;-----------------------!STATS-------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (stats == $right($gettok(%text21,1,32),-1)) {
        set %nb-chan-stats $lines(socketantispam\configs-socket\chan.txt) | var %compteurlistchan 1 | var %liste-chan-socket 
        while (%nb-chan-stats >= %compteurlistchan) { set %liste-chan-socket $addtok(%liste-chan-socket ,$read(socketantispam\configs-socket\chan.txt,%compteurlistchan),32)  | Inc %compteurlistchan }
        set %nb-utilisateur-sock $lines(socketantispam\configs-socket\user.txt) | var %compteurlistuser 1 | var %liste-user-socket 
        while (%nb-utilisateur-sock >= %compteurlistuser) { set %liste-user-socket $addtok(%liste-user-socket  ,$read(socketantispam\configs-socket\user.txt,%compteurlistuser),32)  | inc %compteurlistuser }
        ssock %chandusocket  4------------------STATISTIQUES SOCKET-----------------------
        ssock %chandusocket  2 Proprietaire : 4 %proprisock
        ssock %chandusocket  2 Pseudos des utilisateurs : 4 %liste-user-socket ( %nb-utilisateur-sock )
        ssock %chandusocket  2 Nombre de Spams detecté : 4 %sock.kline
        ssock %chandusocket  2 Nombre de Pseudos Blacklistés : 4 $lines(socketantispam\badnick.txt)
        ssock %chandusocket  2 Nombre de Pseudos Ignorés : 4  $lines(socketantispam\ignore.txt)
        ssock %chandusocket  2 Salons sous surveillance : 4 %liste-chan-socket  ( %nb-chan-stats )
        ssock %chandusocket  2 Cycle de connection du socket : 4 %cyclesock secondes 
        ssock %chandusocket  4------------------------------FIN----------------------------------
      }
      ;-------------------------!STOPSOCKET-----------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (stopsocket == $right($gettok(%text21,1,32),-1)) { stopsocket }
      ;--------------------------!MONJOUET (ou je le prete)----------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (monjouet == $right($gettok(%text21,1,32),-1)) { set %monjouet on | ssock %chandusocket  4 Oui oui voila c'est ton jouet : ) }
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (jepretemonjouet == $right($gettok(%text21,1,32),-1)) { set %monjouet off | ssock %chandusocket  4 Ca c'est une bonne fifille qui prete ses jouets : ) }
      ;-----------------------------!DEFIGNORE-------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (defignore == $right($gettok(%text21,1,32),-1)) { 
        if ($gettok(%text21,2,32) isnum) { set %nbfrazeignore $gettok(%text21,2,32) | ssock %chandusocket  3 Nombre de phrases prononcées avant ignore du pseudo est maintenant de 4 $gettok(%text21,2,32) }
      }
      ;--------------------------!CYCLESOCK-----------------------------------

      if ($left($gettok(%text21,1,32),1) == %identcomm) && (cyclesock == $right($gettok(%text21,1,32),-1)) { 
        var %testtemps $gettok(%text21,2,32) 
        if (*.* iswm %testtemps) && ( [ $gettok(%testtemps,1,46) ] isnum) && ( [ $gettok(%testtemps,2,46) ] isnum) { set %cyclesock $calc( [ $gettok(%testtemps,1,46) ] *60 + [ $gettok(%testtemps,2,46) ] ) | ssock %chandusocket  3Le cycle de connection du socket est Désormais de :4  $gettok(%testtemps,1,46) min et $gettok(%testtemps,2,46) sec }
        if (*.* !iswm %testtemps) && ( [ %testtemps ] isnum) { set %cyclesock $calc(%testtemps *60) | ssock %chandusocket  3Le cycle de connection du socket est Désormais de :4  %testtemps $+ min }
        else { ssock %chandusocket  4 Hey ! Tu veux bien me donner quelque chose de correct pour une fois ? : ) (min.sec) }
      }
      ;----------------------------!ADDUSER-------------------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (adduser == $right($gettok(%text21,1,32),-1)) { 
        var %useradd = $gettok(%text21,2,32) 
        if (%useradd == $read(SocketAntiSpam\configs-socket\user.txt, w, %useradd )) { ssock  %chandusocket 4 %useradd 2déja ayant droit }
        else { write SocketAntiSpam\configs-socket\user.txt %useradd | ssock %chandusocket 4 %useradd 2ajouté dans userlist }
      }
      ;-----------------------------!DELUSER-------------------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (deluser == $right($gettok(%text21,1,32),-1)) { 
        var %userdel = $gettok(%text21,2,32) 
        if (%userdel = $read(SocketAntiSpam\configs-socket\user.txt, w, %userdel)) {
          if ($read(SocketAntiSpam\configs-socket\user.txt,w,$+(%userdel))) { write $+(-dl,$readn) SocketAntiSpam\configs-socket\user.txt | ssock  %chandusocket 4 %userdel 2supprimé de la userlist }
        }
        else { ssock  %chandusocket 4 %userdel 4n'est pas un ayant droit }
      }
      ;------------------------------!ADDCHAN--------------------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (addchan == $right($gettok(%text21,1,32),-1)) { 
        var %chanadd = $gettok(%text21,2,32) 
        if (%chanadd == $read(SocketAntiSpam\configs-socket\chan.txt, w, %chanadd )) { ssock  %chandusocket %chanadd déja sous surveillance }
        else { write SocketAntiSpam\configs-socket\chan.txt %chanadd | ssock  %chandusocket %chanadd rajouté à la surveillance }
      }
      ;--------------------------------!DELCHAN---------------------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (delchan == $right($gettok(%text21,1,32),-1)) { 
        var %chandel = $gettok(%text21,2,32) 
        if (%chandel == $read(SocketAntiSpam\configs-socket\chan.txt, w, %chandel)) {
          if ($read(SocketAntiSpam\configs-socket\chan.txt,w,$+(%chandel))) { write $+(-dl,$readn) SocketAntiSpam\configs-socket\chan.txt | ssock %chandusocket %chandel supprimé de la surveillance }
        }
        else { ssock  %chandusocket %chanadd n'est pas sous surveillance }
      }
      ;-----------------------------------!XTEST-------------------------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (xtest == $right($gettok(%text21,1,32),-1)) { 
        if (%text21 = !xtest) { ssock %chandusocket Veuillez donner un Pseudo à Xtest }
        else { messagepourspam $gettok(%text21,2,32) }
      }    
      ;------------------------------------!TESTJOIN (ON ou OFF)---------------------------
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (testjoinon == $right($gettok(%text21,1,32),-1)) { set %blacklistage on | ssock %chandusocket  Detection Spams on join activé }
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (testjoinoff == $right($gettok(%text21,1,32),-1)) { set %blacklistage off | ssock %chandusocket  Detection Spams on join Désactivé }
      ;-------------------------------------!DELNICK-------------------------------------  
      if ($left($gettok(%text21,1,32),1) == %identcomm) && (delnick == $right($gettok(%text21,1,32),-1)) {
        if (%text21 = !delnick) { ssock %chandusocket Veuillez donner un Pseudo à supprimer de la Blacklist }
        else {
          var %pseudoasuppr = $gettok(%text21,2,32) 
          if (%pseudoasuppr == $read(SocketAntiSpam\badnick.txt, w, %pseudoasuppr )) { 
            var %cheminaccesdell  $+(socketantispam\badnick\,$left(%pseudoasuppr,1),\,$left(%pseudoasuppr,2),.txt)
            if ($read(%cheminaccesdell,w,$+(%pseudoasuppr))) { write $+(-dl,$readn) %cheminaccesdell }
            if ($read(SocketAntiSpam\badnick.txt ,w,$+(%pseudoasuppr))) { write $+(-dl,$readn) SocketAntiSpam\badnick.txt | ssock %chandusocket  4 %pseudoasuppr  Retiré de la Blacklist }     
          }
          else { ssock %chandusocket  4 %pseudoasuppr non trouvé dans la blacklist }
        }
      }
    }
  }
}
#################MENU NICKLIST####################
menu Nicklist {
  °*¤ Xtest ¤*°:{
    if (%socket.actif = oui) { set %pseudxtest $addtok(%pseudxtest,$1,44) }
    else { msg %chandusocket !xtest $$1 }
  }
  -
  ScaNeR-NicKLiST:{ msg %chandusocket %identcomm $+ scan $chan }
  -
}
####################REACTION SOCKET SI SPAM DETECTE######################
alias spamdetecter {
  if (% [ $+ spammultiligne $+ [ $gettok($1,1,124) ] ] ) { unset % [ $+ spammultiligne $+ [ $gettok($1,1,124) ] ] }
  unset %countpourignore $+ $gettok($1,1,124) | unset %countpourignore2 $+ $gettok($1,1,124)
  set %pseudo2spamaignore $1 | write socketantispam\fichiers-tampon\Ignorerspamapresdetect.txt $gettok($1,1,124)
  .timer 1 120 purgeignorelistapresspam $1
  inc %sock.kline | echo -t @Socket.Antispam 4*SPAM* (n° $+ %sock.kline $+ )  < $+ $1 $+ > $2-
  sockwrite -n NoSpam PRIVMSG  %chandusocket : 4*SPAM* (n° $+ %sock.kline $+ ) < $+ $1 $+ > $2-
  if ($1 isin $read(SocketAntiSpam\badnick.txt, w, $1)) { echo -t @Socket.Antispam $1 Blacklisted  deja listé | halt }
  var %cheminaccestock  $+(socketantispam\badnick\,$left(%pseudo2spamaignore,1),\,$left(%pseudo2spamaignore,2),.txt)
  write %cheminaccestock %pseudo2spamaignore | write SocketAntiSpam\badnick.txt %pseudo2spamaignore | echo -t @Socket.Antispam %pseudo2spamaignore Blacklisted 
  halt
}
#############LANCER TEST##################
alias messagepourspam { set %pseudxtest $addtok(%pseudxtest,$1,44) }
##################PARLER A TRAVERS SOCKET###################
alias ssock { 
  if (%socket.actif == oui) {
    sockwrite -n NoSpam PRIVMSG $1 : $2- 
    if ($1 != %chandusocket) { echo -t @Socket.Antispam 14<1 $+ %socket.nick ->3 $1 $+ 14 $+ > 7 $strip($2-) }
  }
}
##############LANCER SOCKET#################
alias lancersocket {
  creerhashbase | write -c socketantispam\Fichiers-tampon\adressscan.txt | write -c socketantispam\Fichiers-tampon\fichiertamponscan.txt
  write -c socketantispam\Fichiers-tampon\fichiertamponscanmask.txt | write -c socketantispam\Fichiers-tampon\Ignorerspamapresdetect.txt
  write -c socketantispam\Fichiers-tampon\tamponblacklist.txt  | write -c socketantispam\Fichiers-tampon\evitedoublonp0d.txt
  set %blacklistage on | sockopen NoSpam %serverconsok %port.sock | sockopen NoSpam2 %serverconsok2 %port.sock2
  write -c socketantispam\F