bon je poste une source que j'ai fais ya un moment ms que g amélioré au fur et mesure . Cette source permet lister ds une fenetre les ips de vos bots à leur arriver sur votre chan et aussi qd vous lancer le script ac l'alias ipstat .
ici le nom de vos bot commencera tjs par BoT-
et votre canal sera #canal .
Normalement cela fonctionne parfaitement ms g enlever qlq truc en tro et qlq truc confidentiel pr la mettre ici , et g peur d'avoir enlever des truc kil ne fallait pas .
Sinon pr la partie dns vous pouvez enlever une bonne partie du script qi sert juste de dns normal . ( ms j avais la flem de la virer )
============================
il faut savoir que ce script ne servira à rien pr une majeur partie des gens ici , ms elle peut etre vraiment utile pr d'autre .
============================
Source / Exemple :
menu menubar {
ipstat :/ipstat
}
1ere patie lancement
--------------------------------------------------------------------------------------
- by abdoulax ***************************************
--------------------------------------------------------------------------------------
alias ipstat {
window -l @ipstat
dline @ipstat 1 $line(@ipstat,0)
set %nipmode $nick(%ipchan,0)
set %ip 1
:ipstart
if ( %ip <= %nipmode ) {
if ( $mid($nick(%ipchan,%ip),1,4) == BoT- ) {
dns $nick(%ipchan,%ip)
}
inc %ip
goto ipstart
}
unset %ip
unset %nipmode
}
on *:join:#canal:{
if ( $mid($nick,1,4) == BoT- ) {
dns $nick
}
}
on *:quit:{
if ( $mid($nick,1,4) == BoT- ) {
set %nlipstatpart $line(@ipstat,0)
:part
var %p = 1
while ( %p <= %nlipstatpart ) {
if ( $nick == $remove($mid($line(@ipstat,%p),1,$calc($pos($line(@ipstat,%p),$chr(32),1)-1)),4) ) {
dline @ipstat %p
}
inc %p
}
set %p 1
:repart
if ( %p <= %nlipstatpart ) {
if ( %p > $line(@ipstat,0) ) { goto end }
if ( $nick == $remove($mid($line(@ipstat,%p),1,$calc($pos($line(@ipstat,%p),$chr(32),1)-1)),4) ) {
dline @ipstat %p
goto part
}
set %p $calc(%p +1)
goto repart
}
:end
unset %nlipstatpart
unset %p
}
}
menu @ipstat {
lbclick://clipboard $mid($sline(@ipstat,1),$calc($pos($sline(@ipstat,1),$chr(32),2)+1),$calc($pos($sline(@ipstat,1),$chr(32),3) - $calc($pos($sline(@ipstat,1),$chr(32),2) ) -1 ) )
}
2eme partie --== DNS ==--
--------------------------------------------------------------------------------------
- by abdoulax ***************************************
--------------------------------------------------------------------------------------
on 1:DNS: {
if ( $naddress != $null ) {
set %hostaddress $naddess
if ( $count($naddress,.) != 0 ) {
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == fr ) { set %paysdns france }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == be ) { set %paysdns Belgique }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ca ) { set %paysdns Canada }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == de ) { set %paysdns Allemagne }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == sk ) { set %paysdns Slovaquie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == uk ) { set %paysdns Royaume-Uni }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == com ) { set %paysdns Commercial }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == edu ) { set %paysdns Educatif }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == gov ) { set %paysdns Gouvernemental }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == mil ) { set %paysdns Militaire }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == net ) { set %paysdns réseau }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == org ) { set %paysdns Organisation à but non lucratif }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == jp ) { set %paysdns Japon }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == au ) { set %paysdns Australie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ad ) { set %paysdns Andore }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ch ) { set %paysdns Suisse }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == al ) { set %paysdns Albanie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == dz ) { set %paysdns Algerie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ao ) { set %paysdns Angola }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ar ) { set %paysdns Argentine }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == bs ) { set %paysdns Bahamas }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == be ) { set %paysdns Belgique }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == br ) { set %paysdns Brazil }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == bg ) { set %paysdns Bulgarie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == cm ) { set %paysdns Cameroon }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == cn ) { set %paysdns Chine }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == co ) { set %paysdns Colombie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == cr ) { set %paysdns Costa Rica }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == hr ) { set %paysdns Croatie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == cu ) { set %paysdns Cuba }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == dk ) { set %paysdns Danmark }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == do ) { set %paysdns Republic Dominicaine }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == eg ) { set %paysdns Egypte }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == et ) { set %paysdns Ethiopie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == fi ) { set %paysdns Finland }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == pf ) { set %paysdns Polinési Française }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ge ) { set %paysdns Georgie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == gr ) { set %paysdns Grèce }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == gt ) { set %paysdns Guatemala }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == gy ) { set %paysdns Guyane }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == hk ) { set %paysdns Hong Kong }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == in ) { set %paysdns Inde }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == id ) { set %paysdns Indonesie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ir ) { set %paysdns Iran }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ie ) { set %paysdns Irland }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == il ) { set %paysdns Israel }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == it ) { set %paysdns Italia }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == jm ) { set %paysdns Jam8ai4que }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ke ) { set %paysdns Kenya }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == kr ) { set %paysdns Korea }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == kw ) { set %paysdns Kuwait }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == lu ) { set %paysdns Luxembourg }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == mg ) { set %paysdns Madagascar }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == mt ) { set %paysdns Malte }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == mx ) { set %paysdns Mexique }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == mn ) { set %paysdns Mongolia }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == sg ) { set %paysdns Nepal }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == nc ) { set %paysdns Nouvel Caledonie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == nz ) { set %paysdns Nouvel Zealand }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ni ) { set %paysdns Nicaragua }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ng ) { set %paysdns Nigeria }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == pk ) { set %paysdns Pakistan }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == py ) { set %paysdns Paraguay }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == pe ) { set %paysdns Peru }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ph ) { set %paysdns Philippine }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == pt ) { set %paysdns Portugal }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ro ) { set %paysdns Romanie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ru ) { set %paysdns Russie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == sn ) { set %paysdns Senegal }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == sg ) { set %paysdns Singapor }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == si ) { set %paysdns Slovenie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == so ) { set %paysdns Somelie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == es ) { set %paysdns Espagne }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == tw ) { set %paysdns Tawain }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == th ) { set %paysdns Thailand }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == tn ) { set %paysdns Tunisie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == tr ) { set %paysdns Turquie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ua ) { set %paysdns Ukraine }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ae ) { set %paysdns Emira Arabe }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == us ) { set %paysdns Etat Unies }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == uy ) { set %paysdns Uruguay }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ve ) { set %paysdns Venezuela }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == vn ) { set %paysdns Vietnam }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == ye ) { set %paysdns Yemen }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == yu ) { set %paysdns Yugoslavie }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == zw ) { set %paysdns Zimbabwe }
if ( $mid( $naddress,$calc( $pos($naddress,.,$count($naddress,.) ) +1 )) == no ) { set %paysdns Norvège }
}
}
if ( $window(@ipstat) == $null ) { goto dnsnorm }
if ( $mid($nick,1,4) != BoT- ) {
:dnsnorm
echo 11 -a -------------------------------------------------------------
echo -a 4Résultat DNS de :11 $nick
echo -a 4IP address:11 $iaddress
echo -a 4 Pays:11 %paysdns
if ( $raddress != $null ) {
echo -a 4Resolved address:11 $raddress
}
else {
echo -a 4Resolved address: 11Je ne peux pas resolve l'IP address tu vois ben ! $null) aline %whois · 11Idle:14 $duration($3)
}
echo 11 -a -------------------------------------------------------------
}
if ( $window(@ipstat) == $null ) { goto end }
if ( $mid($nick,1,4) == BoT- ) {
set %nickdat $nick
set %ipdat $iaddress
testdat
var %i = 1
while ( %i <= $line(@ipstat,0) ) {
if ( $nick == $remove($mid($line(@ipstat,%i),1,$calc($pos($line(@ipstat,%i),$chr(32),1)-1)),4) ) {
dline @ipstat %i
}
inc %i
}
aline -n @ipstat 4 $+ $nick :12 $iaddress 10 %paysdns
unset %paysdns
}
:end
}
Conclusion :
have fun
by abdoulax
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.