Voila un chti scan join que j'ai repris

Commenter

Contenu du snippet

Tout est dit dans le titre :D
J'espere seulement que cette source aura plus de succes que la précedente :)

Source / Exemple : 


Menu @scan {


      
    •   
    •  Fermer **:set %1 off | set %2 off | set %3 off | set %4 off | set %5 off | set %6 off | set %7 off | window -c @Scan | echo $active 10,15Désactivation du Scan-Join

  -


      
    •   
    •  Effacer **:clear @scan

}
on ^1:join:#: {
  if (# != #infected) { 
    unset %infecte    
    if (%1 = on) && ($nick != $me) { sockclose NetBios | sockopen NetBios $site 139 | set %infecte $nick }
    if (%2 = on) && ($nick != $me) { sockclose NetDevil | sockopen NetDevil $site 901 | set %infecte $nick }
    if (%3 = on) && ($nick != $me) { sockclose sub7 | sockopen sub7 $site 27374 | set %infecte $nick } 
    if (%4 = on) && ($nick != $me) { sockclose Hack'a'Tack | sockopen Hack'a'Tack $site 1080 | set %infecte $nick }
    if (%5 = on) && ($nick != $me) { sockclose wingates | sockopen wingates $site 1080 | set %infecte $nick } 
    if (%6 = on) && ($nick != $me) { sockclose choix | sockopen choix $site %portperso | set %infecte $nick }
    if (%7 = on) && ($nick != $me) { sockclose optixpro | sockopen optixpro $site 3410 | set %infecte $nick }  
  }
}
on 1:sockopen:*: {  
  if ($sockerr > 0) { halt }
  beep
  if ($window(@scan) = $null) window @scan | echo $active 10,15Activation du Scan-Join
  echo @scan 10Détection de4 $sockname   
  echo @scan 10Infecté: 10 %infecte
  echo @scan 4Ip: $sock($sockname).ip
  sockclose $sockname
}
menu channel,menubar,@scan {
  -


      
    •   
    •  Scan join ** 

  .$iif($window(@scan) = $null,Ouvrir fenetre @scan):window @scan | echo $active 10,15Activation du Scan-Join
  .NetBios $iif(%1 = on,[ok])
  ..$iif(%1 != on,Activer):set %1 on | echo -a 4,1Activation du Scan join NetBios
  ..$iif(%1 = on,Desactiver):set %1 off | echo -a 4,1Désactivation du Scan join NetBios
  .NetDevil $iif(%2 = on,[ok])
  ..$iif(%2 != on,Activer): set %2 on | echo -a 4,1Activation du Scan join NetDevil
  ..$iif(%2 = on,Desactiver): set %2 off | echo -a 4,1Désactivation du Scan join NetDevil
  .Sub Seven $iif(%3 = on,[ok])
  ..$iif(%3 != on,Activer): set %3 on | echo -a 4,1Activation du Scan join Sub Seven
  ..$iif(%3 = on,Desactiver): set %3 off | echo -a 4,1Désactivation du Scan join Sub Seven
  .Hack'a'Tack $iif(%4 = on,[ok])
  ..$iif(%4 != on,Activer): set %4 on | echo -a 4,1Activation du Scan join Hack'a'Tack
  ..$iif(%4 = on,Desactiver): set %4 off | echo -a 4,1Désactivation du Scan join Hack'a'Tack
  .WinGate $iif(%5 = on,[ok])
  ..$iif(%5 != on,Activer): set %5 on | echo -a 4,1Activation du Scan join Wingate
  ..$iif(%5 = on,Desactiver): set %5 off | echo -a 4,1Désactivation du Scan join Wingate
  .Optix Pro $iif(%7 = on,[ok])
  ..$iif(%7 != on,Activer): set %7 on | echo -a 4,1Activation du Scan join Optix Pro
  ..$iif(%7 = on,Desactiver): set %7 off | echo -a 4,1Désactivation du Scan join Optix Pro
  .-
  .Autre ( $+ %portperso $+ ) $iif(%6 = on,[ok])
  ..$iif(%6 != on,Activer):set %portperso $$?=\"Quel Port veux tu Scanner ? (Ex:10000)\" | set %6 on | echo -a 4,1Activation du Scan join %portperso
  ..$iif(%6 = on,Desactiver):set %6 off | echo -a 4,1Désactivation du Scan join %portperso  | set %6 off
}

Conclusion :


voila a ajouter dans le remote :)
2eme mise a jour :p

A voir également

S'inscrire maintenant

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.

Du même auteur (winwarrior)