Espion en echo et sur salon have fun

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 593 fois - Téléchargée 24 fois

Contenu du snippet

Voila c'est ma 2eme version de mon spy bon c'est pas du top en socket etc ba voila je pose sa pour les boulets ou autres :]

Source / Exemple :


;##################
;#Scripting: Espion(Spy).              
;#
;#Auteur: /* devorZ */              
;#
;#Année: 2008               
;#
;#Ouverture : /Espion    
;#
;##################

alias espion dialog -m spy spy 
dialog Spy {
  title "- Espion - /Espion"
  size -1 -1 107 63
  option dbu
  button "Fermer", 10, 3 51 101 11, flat ok cancel
  text "Salon Log :", 1, 3 2 27 8
  text "Salon a Espioner :", 2, 55 2 44 8
  edit "", 3, 3 10 50 10
  edit "", 5, 55 10 50 10
  text "Afficher :", 6, 3 23 25 7
  check "", 7, 32 22 6 10
  check "", 8, 69 22 7 10
  button "Stoper Espion", 12, 3 41 101 9, flat
  button "Espioner !", 4, 3 32 101 9, flat
  text "Salon log", 9, 40 23 25 8
  text "Echo", 11, 77 23 13 8
}
on *:Dialog:spy:*:*:{
  if ($devent == sclick) {
    if ($did = 4) { set %state on | echo -a Espion Activer ( Spy ) }
    if ($did = 12) { unset %state  | echo -a Espion Desactiver ( Spy ) }
    if ($did(7).state == 1) { set %espion.salon ON | unset %espion.echo }
    else { unset %echo.salon }
    if ($did(8).state == 1) { set %Espion.echo ON | unset %espion.salon }
    else { unset %espion.echo }
  }
  Elseif ($devent == init) {
    if (%espion.salon == ON) { did -c spy 7 }
    if (%espion.echo == ON) { did -c spy 8 }
    if %logr { did -a spy 3 %logr }
    if %spr { did -a spy 5 %spr }
  }
  Elseif ($devent == edit) {
    if ($did = 3) { set %logr $did(3) }
    if ($did = 5) { set %spr $did(5) }
  }
}
on *:Join:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 10Join14 )1 14 » $+ $nick $+ 14»  $chan 14(2 $+ $Address($nick,2) $+ 14) $nick(#,0) Users | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 10Join14 )1 14 » $+ $nick $+ 14»  $chan 14(2 $+ $Address($nick,2) $+ 14) $nick(#,0) Users | halt }
}
on *:PART:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 5Part14 )1 14 » $+ $nick $+ 14»  de  $chan 14(2 $+ $Address($nick,2) $+ 14) $+ 14(1 $+ $1- $+ 14)1 $nick(#,0) User | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 5Part14 )1 14 » $+ $nick $+ 14»  de  $chan 14(2 $+ $Address($nick,2) $+ 14) $+ 14(1 $+ $1- $+ 14)1 $nick(#,0) User | halt }
}
on *:KICk:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 4Kick14 ) 14 » $+ $nick $+ 14» 4KICK  4 $knick (  $+  $1- $+ ) | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 4Kick14 ) 14 » $+ $nick $+ 14» 4KICK 4 $knick (  $+  $1- $+ ) | halt }
}
on *:text:*:%spr:{
  if (%state == on) && (%espion.salon == on) && ($nick isop $chan) && ($nick !isvo $chan) { msg %logr 14( Spy 14)  14»4@ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick !isop $chan) && ($nick isvo $chan) { msg %logr 14( Spy 14) 14»3+ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick isop $chan) && ($nick isvo $chan) { msg %logr 14( Spy 14) 14»4@3+ $+ $nick $+ 14» $1- | halt }
  if (%state == on) && (%espion.salon == on) && ($nick !isop $chan) { msg %logr 14( Spy 14) 14»1 $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick isop $chan) && ($nick !isvo $chan) { echo -a 14( Spy 14)  14»4@ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick !isop $chan) && ($nick isvo $chan) { echo -a 14( Spy 14) 14»3+ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick isop $chan) && ($nick isvo $chan) { echo -a 14( Spy 14) 14»4@3+ $+ $nick $+ 14» $1- | halt }
  Elseif (%state == on) && (%espion.echo == on) && ($nick !isop $chan) { echo -a 14( Spy 14) 14»1 $+ $nick $+ 14» $1- | halt }
}
on ^1:NICK:{
  if (%state == on) && (%espion.salon == on) { msg %logr  14(1 7Nick 14)14 » $+ $nick $+ 14» à changer de Pseudo en : $newnick $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a  14(1 7Nick 14)14 » $+ $nick $+ 14» à changer de Pseudo en : $newnick $+ . | halt }
}
ON ^1:QUIT:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14( 2Quit 14) » $+ $nick $+ 14» $1- $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14( 2Quit 14) » $+ $nick $+ 14» $1- $+ . | halt }
}
ON ^*:ACTION:*:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 6Action 14)1 4 14» $+ $nick $+ 14» 6/me $1- $+ . | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 6Action 14)1 4 14» $+ $nick $+ 14» 6/me $1- $+ . | halt }
}
ON ^*:RAWMODE:%spr:{
  if (%state == on) && (%espion.salon == on) { msg %logr 14(1 12Mode14 )1  $nick 1met le mode $replacecs( $1,+b,+b,-b,-b,+v,3+v3,-v,3-v,+o,4+o4,-o,4-o12,+h,12+h12,-h,12-h3,v,3v4,o,4o,b,b12,h,12h)   $replace($2-,$me, $+ $me $+ 1) | halt }
  Elseif (%state == on) && (%espion.echo == on) { echo -a 14(1 12Mode14 )1  $nick 1met le mode $replacecs( $1,+b,+b,-b,-b,+v,3+v3,-v,3-v,+o,4+o4,-o,4-o12,+h,12+h12,-h,12-h3,v,3v4,o,4o,b,b12,h,12h)   $replace($2-,$me, $+ $me $+ 1) | halt }
}

Conclusion :


.

A voir également

Ajouter un commentaire Commentaires
Menu menubar {
mouchard:mouchard
}
alias mouchard dialog -m sentc sentc

dialog sentc {
title "Mouchard Par DhCp"
size -1 -1 580 360
text "Veillez mettre les pseudos à espionner dans les cases ci-dessous ." ,1,10 10 450 40,style(left)
box "Please fill in your sentences: ",50,10 53 530 275,style
text "Sentence 1:",2,20 70 65 20,style(left)
combo 3,85 70 445 20,style(edit)
text "Sentence 2:",4,20 95 65 20,style(left)
combo 5,85 95 445 20,style(edit)
text "Sentence 3:",6,20 120 65 20,style(left)
combo 7,85 120 445 20,style(edit)
text "Sentence 4:",8,20 145 65 20,style(left)
combo 9,85 145 445 20,style(edit)
text "Sentence 5:",10,20 170 65 20,style(left)
combo 11,85 170 445 20,style(edit)
text "Sentence 6:",12,20 195 65 20,style(left)
combo 13,85 195 445 20,style(edit)
text "Sentence 7:",14,20 220 65 20,style(left)
combo 15,85 220 445 20,style(edit)
text "Sentence 8:",16,20 245 65 20,style(left)
combo 17,85 245 445 20,style(edit)
text "Sentence 9:",18,20 270 65 20,style(left)
combo 19,85 270 445 20,style(edit)
text "Sentence 10:",20,20 295 65 20,style(left)
combo 21,85 295 445 20,style(edit)
button "Clear all",82,310 335 70 20,style(edit)
button "Save",80,390 335 70 20,style(ok)
button "Cancel",81,470 335 70 20,style(cancel)
}
on *:dialog:sentc:init:*:{
if (%spy1 == NotSet) did -ci sentc 3 1 Tapez le pseudo concerné
if (%spy2 == NotSet) did -ci sentc 5 1 Tapez le pseudo concerné
if (%spy3 == NotSet) did -ci sentc 7 1 Tapez le pseudo concerné
if (%spy4 == NotSet) did -ci sentc 9 1 Tapez le pseudo concerné
if (%spy5 == NotSet) did -ci sentc 11 1 Tapez le pseudo concerné
if (%spy6 == NotSet) did -ci sentc 13 1 Tapez le pseudo concerné
if (%spy7 == NotSet) did -ci sentc 15 1 Tapez le pseudo concerné
if (%spy8 == NotSet) did -ci sentc 17 1 Tapez le pseudo concerné
if (%spy9 == NotSet) did -ci sentc 19 1 Tapez le pseudo concerné
if (%spy10 == NotSet) did -ci sentc 21 1 Tapez le pseudo concerné
if (%spy1 != NotSet) did -ci sentc 3 1 %spy1
if (%spy2 != NotSet) did -ci sentc 5 1 %spy2
if (%spy3 != NotSet) did -ci sentc 7 1 %spy3
if (%spy4 != NotSet) did -ci sentc 9 1 %spy4
if (%spy5 != NotSet) did -ci sentc 11 1 %spy5
if (%spy6 != NotSet) did -ci sentc 13 1 %spy6
if (%spy7 != NotSet) did -ci sentc 15 1 %spy7
if (%spy8 != NotSet) did -ci sentc 17 1 %spy8
if (%spy9 != NotSet) did -ci sentc 19 1 %spy9
if (%spy10 != NotSet) did -ci sentc 21 1 %spy10
did -t sentc 80 1
}
on *:dialog:sentc:sclick:80:{
if ($did(sentc,3).text != Tapez le pseudo concerné) set %spy1 $did(sentc,3).text
if ($did(sentc,5).text != Tapez le pseudo concerné) set %spy2 $did(sentc,5).text
if ($did(sentc,7).text != Tapez le pseudo concerné) set %spy3 $did(sentc,7).text
if ($did(sentc,9).text != Tapez le pseudo concerné) set %spy4 $did(sentc,9).text
if ($did(sentc,11).text != Tapez le pseudo concerné) set %spy5 $did(sentc,11).text
if ($did(sentc,13).text != Tapez le pseudo concerné) set %spy6 $did(sentc,13).text
if ($did(sentc,15).text != Tapez le pseudo concerné) set %spy7 $did(sentc,15).text
if ($did(sentc,17).text != Tapez le pseudo concerné) set %spy8 $did(sentc,17).text
if ($did(sentc,19).text != Tapez le pseudo concerné) set %spy9 $did(sentc,19).text
if ($did(sentc,20).text != Tapez le pseudo concerné) set %spy10 $did(sentc,21).text
if ($did(sentc,3).text == Tapez le pseudo concerné) set %spy1 NotSet
if ($did(sentc,5).text == Tapez le pseudo concerné) set %spy2 NotSet
if ($did(sentc,7).text == Tapez le pseudo concerné) set %spy3 NotSet
if ($did(sentc,9).text == Tapez le pseudo concerné) set %spy4 NotSet
if ($did(sentc,11).text == Tapez le pseudo concerné) set %spy5 NotSet
if ($did(sentc,13).text == Tapez le pseudo concerné) set %spy6 NotSet
if ($did(sentc,15).text == Tapez le pseudo concerné) set %spy7 NotSet
if ($did(sentc,17).text == Tapez le pseudo concerné) set %spy8 NotSet
if ($did(sentc,19).text == Tapez le pseudo concerné) set %spy9 NotSet
if ($did(sentc,21).text == Tapez le pseudo concerné) set %spy10 NotSet
}
on *:dialog:sentc:sclick:79:userinfo
on *:dialog:sentc:sclick:82:{
set %spy1 NotSet
set %spy2 NotSet
set %spy3 NotSet
set %spy4 NotSet
set %spy5 NotSet
set %spy6 NotSet
set %spy7 NotSet
set %spy8 NotSet
set %spy9 NotSet
set %spy10 NotSet
did -ci sentc 3 1 Tapez le pseudo concerné
did -ci sentc 5 1 Tapez le pseudo concerné
did -ci sentc 7 1 Tapez le pseudo concerné
did -ci sentc 9 1 Tapez le pseudo concerné
did -ci sentc 11 1 Tapez le pseudo concerné
did -ci sentc 13 1 Tapez le pseudo concerné
did -ci sentc 15 1 Tapez le pseudo concerné
did -ci sentc 17 1 Tapez le pseudo concerné
did -ci sentc 19 1 Tapez le pseudo concerné
did -ci sentc 21 1 Tapez le pseudo concerné
}

on *:text:*:#:{
if ( %spy1 isin $nick) || ( %spy2 isin $nick) || ( %spy3 isin $nick) || ( %spy4 isin $nick) || ( %spy5 isin $nick) || ( %spy6 isin $nick) || ( %spy7 isin $nick) || ( %spy8 isin $nick) || ( %spy9 isin $nick) || ( %spy10 isin $nick) {
if ($window(@Mouchard)) {
aline -ph @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
}
elseif (!$window(@Mouchard)) {
window -mk0ne @Mouchard
aline -ph 4 @Mouchard [ $time ] 11 $nick a dit sur 8 $chan  $1-
}
}
}



peut être sa ? mouchard: jusqua 10 nick a votre guise d en métre plus
Messages postés
58
Date d'inscription
mercredi 21 novembre 2007
Statut
Membre
Dernière intervention
7 mars 2009

BOULET7612,
slt, ta question ma intéroger, vut que j'ai eu la meme idée, genre éspioner une seul persone a sa connection a un serveur ou une conversation entre2 usager.. sa pourait mieux porter son nom de espion,
++
je notrai si amélioration ..
Messages postés
8
Date d'inscription
vendredi 1 juin 2007
Statut
Membre
Dernière intervention
6 octobre 2008

pourquoi ne pas pousser le vice un peut plus loin.style le paramettrer pour espionner ce que dis une seule personne.ou pouvoir filtrer les discution style enlever le spam ou des chose du genre la ca ferait une remote qui peut avoir du style
Messages postés
44
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
17 avril 2009

Par contre j'ai beau chercher, je ne vois pas l'intérêt de se balancer les données en echo ...
Et juste pour parler du code, moi j'avais codé la possibilité d'afficher ou non les événements, ce qui permettait d'anticiper (et donc éviter) certains excess flood, genre dans les heures de 'pointe', tout les événements étaient sur OFF, et seulement le on text fonctionnait... te voila une idée pour update ton code devorz ^^ (Ne m'oblige pas à dépoussiérer le mien pour le poster ici)
Autre chose aussi en ce qui concerne les codes couleur, évite les ctrl+k 1, pense à ceux qui comme moi ont un fond noir ...ctrl+o fait l'affaire puisqu'il fait du blanc sur fond noir et du noir sur fond blanc.
Pourquoi aussi ne pas inclure des commandes inputs permettant aux autres personnes profitant du spy de pouvoir effectuer différents 'réglages' du bot en ton absence ?
Et le must, c'est une boucle qui te permet te récupérer la liste des users @ et des voices (si tu ajoutes les regular ca va ptet flooder un poil)
Tu as maintenant presque toutes les clés en main pour faire une copie du mien ;]

djul.

Ps: désolé pour les deux mails de plus UAIP, mais je pense avoir fourni deux commentaires constructifs pour le code et non avoir alimenté des débats qui ont plus leur place sur un salon irc par exemple plutôt que sur ce genre de forum. :]
Messages postés
44
Date d'inscription
lundi 24 septembre 2007
Statut
Membre
Dernière intervention
17 avril 2009

Même pas besoin de 30 personnes, il suffit d'une dizaine de lignes en autant de secondes pour excess flood... peut être qu'un bon réglage de l' "antiflood" de base du mIRC peut résoudre le soucis.
En ce qui concerne l'intérêt du code, perso j'ai codé ce genre de chose aussi à l'époque ou on était une bonne dizaine ban à vue d'un salon, plutôt que de se connecter à 10 chacun derrière un proxy, un seul y va et fait partager les autres sur le salon #farai au lieu de #rastafarai (ceci n'est qu'un exemple de salon au hasard :D). D'ailleurs faudrait trouver un salon pour renvoyer ce qui se passe sur #aide vu que le taux de ban à vue y est très fort actuellement..sacré serveur Orange n'est ce pas..
Afficher les 52 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.