Ip bot stat

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 602 fois - Téléchargée 27 fois

Contenu du snippet

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

A voir également

Ajouter un commentaire Commentaires
Messages postés
22
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
10 mars 2004

C'est vrai =)
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

lol , g pas compris le ps !!!

sinon j'avé prèvenu pr la plupar des gens ca sert a rien .
Messages postés
48
Date d'inscription
dimanche 3 août 2003
Statut
Membre
Dernière intervention
8 août 2004

Ca m est pas utile donc ;)..

ps: c pas plutot "SomAlie" ? :o
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

ca serai cool des piti commentaire ....
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012

ca serai cool des piti commentaire
Afficher les 6 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.