Bienvenue, Visiteur
Vous devez vous enregistrer avant de pouvoir poster.

Nom d'utilisateur
  

Mot de passe
  





Rechercher dans les forums



(Recherche avancée)

Statistiques du Forum
» Membres : 644
» Dernier membre : Vanadiium
» Sujets du forum : 1,464
» Messages du forum : 11,019

Statistiques complètes

Derniers sujets
Faire un script qui se dé...
Forum : F.A.Q.
Dernier message : MenzAgitat
17/05/2017, 18:50
» Réponses : 4
» Affichages : 2,263
Interface MegaHAL (versio...
Forum : Releases et support
Dernier message : Vanadiium
13/05/2017, 18:50
» Réponses : 109
» Affichages : 39,146
Defero Eggdrop Telnet Cli...
Forum : Un peu plus loin
Dernier message : CrazyCat
06/05/2017, 14:27
» Réponses : 9
» Affichages : 2,323
Générer un rire diaboliqu...
Forum : Bouts de Scripts
Dernier message : vivi002
03/05/2017, 22:05
» Réponses : 3
» Affichages : 1,943
Aide sur un tcl RAW
Forum : Scripts TCL
Dernier message : Alucard`68
28/04/2017, 23:57
» Réponses : 2
» Affichages : 117
Youtube tcl (Zurl.tcl) ne...
Forum : Scripts TCL
Dernier message : Alucard`68
28/04/2017, 18:22
» Réponses : 23
» Affichages : 3,194
Eggdrop 1.8.1 - Probleme ...
Forum : Eggdrop
Dernier message : Silverscott
27/04/2017, 17:22
» Réponses : 7
» Affichages : 211
Shell gratuit
Forum : Les sites
Dernier message : JuPaname
26/04/2017, 14:58
» Réponses : 4
» Affichages : 183
[Script] VDM fetcher
Forum : Releases et support
Dernier message : Alucard`68
18/04/2017, 18:20
» Réponses : 27
» Affichages : 6,808
problème de timer sur un ...
Forum : Scripts TCL
Dernier message : Alucard`68
18/04/2017, 15:25
» Réponses : 6
» Affichages : 206

 
  Aide sur un tcl RAW
Posté par : Alucard`68 - 28/04/2017, 22:28 - Forum : Scripts TCL - Réponses (2)

Bonsoir à tous,

Alors voila j'essaie de faire un script avec un raw pour detecter la connexion des users et les sajoins apres 5 seconde sur le salon accueil.
Voila le code.

tcl
set chan(sajoin) "#Accueil"
 
bind raw - "NOTICE" sajoin:connexion
 
proc sajoin:connexion {from key arg} {
putlog "lancement proc ok"
 set type [lrange $arg 4 5]
putlog "set type ok"
 set pseudo [lindex $arg 6]
putlog "set pseudo ok"
if {$type == "Client connecting:"} {
putlog "set if type ok"
   set foo [list [utimer 5 sajoin $pseudo $chan(sajoin)]]
putlog "sajoin ok"
 }
}


J'ai mis des putlog pour voir d'ou venais le problème.
Code :
[22:19:11] lancement proc ok
[22:19:11] set type ok
[22:19:11] set pseudo ok
[22:19:11] -NOTICE- *** Client connecting: PetitCoeur (~PetitCoeur@*********.fr) [**.***.**.**] {clients}
Il semblerais que le problème vienne du if mais je ne vois pas comment régler le problème...

Merci pour votre aide future.

Bien à vous. Smile

Bye.


  Eggdrop 1.8.1 - Probleme sur vps OVH
Posté par : Silverscott - 15/04/2017, 19:45 - Forum : Eggdrop - Réponses (7)

Hello tout le monde,

Je possède un vps sur OVH, sur lequel tourne une DEBIAN 8 64bits (Jessie).

J'ai donc installé mon eggdrop sans trop de difficultés. Mais j'ai quelques soucis pour le prendre en main...

Quand je fais un /WHOIS <nickbot> j'ai bien un retour comme quoi il est co sur le serveur Freenode
Quand je fais un /msg <nickbot> hello il me réponds bien et me demande de lui attribuer un mot de passe

Je passe donc à l'étape suivante en faisant un /ctcp <nickbot> CHAT j'ai bien une fenêtre de requête ctcp CHAT qui s'ouvre mais après l'avoir accepté il ne se passe plus rien, la fenêtre ctcp s'ouvre bien mais j'ai un timeout (DCC CHAT a échoué : La connexion a dépasse le temps imparti)

Bref un petit coup de main serait pas de refus ! Smile


  Proc incrementation des scores trivia fonctionnel
Posté par : Epsilon - 30/03/2017, 20:08 - Forum : Scripts TCL - Pas de réponse

J'ai eu quelques soucis avec les scores sur la version 1.3.4 du trivia (télécharger sur ce forum) voici la proc fonctionnel :

Code :
proc tgincrscore {who} {
    global tgscores tgscf tgpointsperanswer tgscorestotal tgscoresbyname
    tggetscores
    if {$tgscorestotal>0} {
        set i 0
        if {![info exists tgscoresbyname([strlwr $who])]} {
            append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who] "
        }
        while {$i<[llength $tgscores]} {
            set _item [lindex $tgscores $i]
            set _nick [lindex [split $_item ,] 2]
            set _time [lindex [split $_item ,] 1]
            set _score [lindex [split $_item ,] 0]
        }
    } else {
        append _newscores "1,[expr 1000000000000.0/[unixtime]],$who,[strlwr $who]"
    }
    
    puts $_sfile "$_newscores"

    return
}


  bind pubm SQL
Posté par : aliasangelius - 30/03/2017, 12:03 - Forum : Scripts TCL - Réponses (17)

Bonjour,

Alors j'ai un soucis sur la détection des phrases via bind pubm en SQL.

J'ai une table sur mon phpmyadmin "box", dedans ce trouve 4 colonnes.

1) mot
2) salon
3) type
4) protect

Alors J'aimerais que sa regarde si la personne dit sur le salon par exemple "connard", si c'est sur #test qui et dans la colonne salon qui vérifie que le type soit bien un badword et qu'il ne soit pas en protect on.

J'ai tester ainsi mais sans aucun résultat, et la je viens poster en espérant avoir quelques explications/aides de votre part si c'est possible.

Voici le morceau de code que j'ai pateme : https://tools.eggdrop.fr/pasteme/view/f6a8e572

NB : Je n'es aucune erreur en party-line, et aucune réaction non plus concernant l'eggdrop actuellement.
NB2 : Ont m'as aussi doner ce code hier pour voir s'il prenez bien en comptes les débugs de la colonne mot, et oui sa passe. Voici le code et la réponse :

tcl
proc stock {} {
    set bdnb "0"
    service:connect
    mysqlsel $::mysqlink "SELECT * FROM `box`"
    if {[mysqlresult $::mysqlink rows] ne 0} {
        while {[set row [mysqlnext $::mysqlink]] != ""} {
            incr bdnb 1
            set stock:$bdnb "[lindex $row 0]"
            putnow "PRIVMSG #Back-Eggdrop :$bdnb $stock:$bdnb"
        }
    }
    putnow "PRIVMSG #Back-Eggdrop :$bdnb"
}



Réponse :

Citation :[02:20:44] ‹@Talk-Me› connard
[02:20:44] ‹@Talk-Me› www
[02:20:44] ‹@Talk-Me› talk-me.net
[02:20:44] ‹@Talk-Me› enculer
[02:20:44] ‹@Talk-Me› 4


  urltitle.tcl perpleXa
Posté par : aliasangelius - 22/03/2017, 12:16 - Forum : Scripts TCL - Réponses (4)

Bonjour,

Alors voilà j'ai récupérer le tcl de perpleXa le urltitle.
Lorsqu'on mets un lien sur le salon, sa nous transmet une info Normalement..

Sauf que sa ne fonctionne pas, et j'ai chercher je trouve pas, si quelqu'un à une idée..

Voici les test :

Citation :[11:14:57] ‹@alias_angelius› https://www.facebook.com/
[11:15:00] ‹@alias_angelius› https://www.youtube.com/watch?v=xhv4f6FjWNM

Aucun message d'erreur en PL, le +urltitle et bien mis aussi.

Le code :
tcl
# urltitle.tcl
# Copyright (C) perpleXa 2004-2006
#
# Redistribution, with or without modification, are permitted provided
# that redistributions retain the above copyright notice, this condition
# and the following disclaimer.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
# PARTICULAR PURPOSE.
 
namespace eval url {
  variable version "3.1";
  variable agent "Opera/8.52 (X11; Linux x86_64; U; en)";
  # Bot will read data in chunks of this size, 8KB is just fine.
  variable readbuf 8192;
  # Read max. 32KB before the connection gets killed.
  # (to prevent the bot from downloading large files when someone pastes shit..)
  variable readlimit 32768;
  variable fds;
  if {![info exists fds]} {
    set fds 0;
  }
  setudef flag urltitle;
  bind pubm -|- * [namespace current]::check;
}
 
proc url::check {nick host hand chan text} {
 
    set text [stripcodes uacgbr $text];
    foreach item [split $text] {
      if {[string match -nocase "http://?*" $item] || [string match -nocase "www.?*" $item] || [string match -nocase "https://?*" $item]} {
        regsub -nocase -- "http(s|)://" [string map [list "\\" "/"] $item] "" url;
        set url [split $url "/"];
        set get [join [lrange $url 1 end] "/"];
        set url [split [lindex $url 0] ":"];
        set host [lindex $url 0]; set port [lindex $url 1];
        if {$port == ""} {set port "80";}
        uconnect $host $port $get $nick $chan;
      }
    }
 
}
 
proc url::uconnect {host port get nick chan} {
  variable agent;
  variable fds;
  variable readbuf;
  set token [namespace current]::[incr fds];
  variable $token;
  upvar 0 $token static;
  array set static {
    data ""
    body 0
    code 0
    sock -1
  }
  if {[catch {set static(sock) [socket -async $host $port]} error]} {
    destroy $token;
    return $error;
  }
  fconfigure $static(sock) -translation {auto crlf} -buffersize $readbuf;
  puts $static(sock) "GET /$get HTTP/1.0";
  puts $static(sock) "Accept: */*";
  if {$port == "80"} {
    puts $static(sock) "Host: $host";
  } else {
    puts $static(sock) "Host: $host:$port";
  }
  puts $static(sock) "User-agent: $agent";
  puts $static(sock) "";
  flush $static(sock);
  fileevent $static(sock) readable [list [namespace current]::handledata $token $nick $chan];
  catch {fconfigure $static(sock) -blocking 0;}
  after [expr 20*1000] [list [namespace current]::destroy $token];
  return $token;
}
 
proc url::handledata {token nick chan} {
  variable readbuf; variable readlimit;
  variable $token;
  upvar 0 $token static;
  if {[eof $static(sock)] || [string length $static(data)]>=$readlimit} {
    destroy $token;
    return;
  }
  set buf [read $static(sock) $readbuf];
  append static(data) $buf;
  foreach line [split $buf "\n"] {
    if {[string match HTTP* $line] && !$static(body)} {
      if {![regexp -- {\d{3}} $line static(code)]} {
        destroy $token;
        return;
      } elseif {$static(code)!=200 && $static(code)!=301 && $static(code)!=302} {
        destroy $token;
        return;
      }
    } elseif {[regexp -nocase -- "^Location:(.+)$" $line -> url]
              && !($static(code)!=301 && $static(code)!=302)} {
      check $nick *!*@* * $chan $url;
      destroy $token;
      return;
    } elseif {[regexp -nocase -- "^Content-type:(.+)$" $line -> type]} {
      if {![string match -nocase text* [string trim $type]]} {
        destroy $token;
        return;
      }
    } elseif {[regexp -nocase -- "^Content-encoding:(.+)$" $line -> encoding]} {
      if {[string match -nocase *gzip* $encoding]
          || [string match -nocase *compress* $encoding]} {
        destroy $token;
        return;
      }
    } elseif {($line == "") && !$static(body)} {
      set static(body) 1;
    } elseif {[regexp -nocase -- {<title>([^<]+?)</title>} $static(data) -> title]
              && $static(code)==200} {
      regsub -all -- {(\n|\r|\s|\t)+} $title " " title;
      set s [expr {[string index $nick end]!="s"?"s":""}];
      puthelp "PRIVMSG $chan :$nick'$s URL title: \"[decode [string trim $title]]\"";
      destroy $token;
      return;
    }
  }
}
 
proc url::destroy {token} {
  variable $token
  upvar 0 $token static;
  if {[info exists static]} {
    catch {fileevent $static(sock) readable "";}
    catch {close $static(sock);}
    unset static;
  }
}
 
proc url::decode {content} {
  if {![string match *&* $content]} {
    return $content;
  }
  set escapes {
    &nbsp; \x20 &quot; \x22 &amp; \x26 &apos; \x27 &ndash; \x2D
    &lt; \x3C &gt; \x3E &tilde; \x7E &euro; \x80 &iexcl; \xA1
    &cent; \xA2 &pound; \xA3 &curren; \xA4 &yen; \xA5 &brvbar; \xA6
    &sect; \xA7 &uml; \xA8 &copy; \xA9 &ordf; \xAA &laquo; \xAB
    &not; \xAC &shy; \xAD &reg; \xAE &hibar; \xAF &deg; \xB0
    &plusmn; \xB1 &sup2; \xB2 &sup3; \xB3 &acute; \xB4 &micro; \xB5
    &para; \xB6 &middot; \xB7 &cedil; \xB8 &sup1; \xB9 &ordm; \xBA
    &raquo; \xBB &frac14; \xBC &frac12; \xBD &frac34; \xBE &iquest; \xBF
    &Agrave; \xC0 &Aacute; \xC1 &Acirc; \xC2 &Atilde; \xC3 &Auml; \xC4
    &Aring; \xC5 &AElig; \xC6 &Ccedil; \xC7 &Egrave; \xC8 &Eacute; \xC9
    &Ecirc; \xCA &Euml; \xCB &Igrave; \xCC &Iacute; \xCD &Icirc; \xCE
    &Iuml; \xCF &ETH; \xD0 &Ntilde; \xD1 &Ograve; \xD2 &Oacute; \xD3
    &Ocirc; \xD4 &Otilde; \xD5 &Ouml; \xD6 &times; \xD7 &Oslash; \xD8
    &Ugrave; \xD9 &Uacute; \xDA &Ucirc; \xDB &Uuml; \xDC &Yacute; \xDD
    &THORN; \xDE &szlig; \xDF &agrave; \xE0 &aacute; \xE1 &acirc; \xE2
    &atilde; \xE3 &auml; \xE4 &aring; \xE5 &aelig; \xE6 &ccedil; \xE7
    &egrave; \xE8 &eacute; \xE9 &ecirc; \xEA &euml; \xEB &igrave; \xEC
    &iacute; \xED &icirc; \xEE &iuml; \xEF &eth; \xF0 &ntilde; \xF1
    &ograve; \xF2 &oacute; \xF3 &ocirc; \xF4 &otilde; \xF5 &ouml; \xF6
    &divide; \xF7 &oslash; \xF8 &ugrave; \xF9 &uacute; \xFA &ucirc; \xFB
    &uuml; \xFC &yacute; \xFD &thorn; \xFE &yuml; \xFF
  };
  set content [string map $escapes $content];
  set content [string map [list "\]" "\\\]" "\[" "\\\[" "\$" "\\\$" "\\" "\\\\"] $content];
  regsub -all -- {&#([[:digit:]]{1,5});} $content {[format %c "\1"]} content;
  regsub -all -- {&#x([[:xdigit:]]{1,4});} $content {[format %c [scan "\1" %x]]} content;
  regsub -all -- {&#?[[:alnum:]]{2,7};} $content "?" content;
  return [subst $content];
}
 
putlog "Script loaded: URL title fetcher v$url::version by perpleXa";



  Aide sur une condition
Posté par : Epsilon - 19/03/2017, 12:27 - Forum : Scripts TCL - Réponses (12)

Bonjour,

j'essaye de faire un petit script, lors de la connection d'un user mon bot effectue un ctcp version, jusqu'ici tout est ok, par contre je voudrais que dès qu'il reçoit aucun retour du ctcp il effectue une action je fais :

Code :
bind ctcr - VERSION ::repctcp::ctcp:reply
proc ::repctcp::ctcp:reply {nick uh hand dest key arg} {
 if {$arg == ""} {
        putlog "Aucune réponse CTCP de $nick"
 }
 return 0
}

Il reçoit bien le ctcp mais la condition doit être mauvaise parce qu'il m'envoit pas le putlog dès qu'il ne reçoit aucune valeur du ctcp

voilà ce qu'il reçoit dès qu'il a une valeur :


Citation :[11:28:50] CTCP reply VERSION: eggdrop v1.6.20 from Bobot (Bot@localhost) to Bobot


  Mettre des dnsbl directement dans l'IRCD
Posté par : Epsilon - 19/03/2017, 01:40 - Forum : Serveurs IRC - Réponses (1)

Bonsoir,

il est possible d'insérer des dnsbl directement dans l'ircd (j'utilise unrealircd 3.2.* ) ça permettra d'alléger mon hopm.

Si vous savez comment procéder, je suis preneur.

Merci


  Récuperation de chaque ligne dans un .txt
Posté par : Epsilon - 18/03/2017, 15:46 - Forum : Scripts TCL - Réponses (7)

Bonjour,

j'aimerai récuperer chaque ligne dans un fichier text sous cet forme (ranges.txt) :

Code :
5.154.190.0/23
5.175.128.0/17
5.187.16.0/20
5.189.128.0/19
5.230.0.0/15
5.249.160.0/24
5.254.128.0/24
....
 

et que mon bot récupère chaque ip et execute une commande pour chaque ligne ex: "ZLINE *@5.154.190.0/23 180 :ban du premiere range"

ainsi de suite pour toute les lignes qu'il trouve dans le fichier texte
Merci de votre futur aide


  Système antiproxy
Posté par : Epsilon - 17/03/2017, 11:58 - Forum : Services IRC - Réponses (18)

Bonjour,

Je souhaite aussi discuter des systèmes antiproxy efficace contre les malfaiteurs qui voudront foutre le boxon (commme c'est connu depuis la naissance d'IRC) sur votre IRCd.

Je voulais connaitre les différents systèmes en place et efficace et avec explication/config si possible.

Je fais encore appel à vos expériences Smile

Merci


  Protection d'un channel avec modes du serveur
Posté par : Epsilon - 17/03/2017, 11:54 - Forum : Serveurs IRC - Réponses (4)

Bonjour à tous,

Je viens vers vous, la communautée pour vous posez des questions concernant les modes de protection d'un salon contre l'antiflood, badwords (surement avec anope ), attaque et j'en passe tout est bon à prendre.

Quelles sont vos protections, vos modes qui pour vous sont les plus efficaces contre les boulets?

Hier j'ai vu pour le mode +f mais avec toute les données difficile de s'y retrouver facilement.

Je fais appel à votre éxperience pour qu'on en parle et partager vos sources Smile

Bonne journée Smile