Scan ip snipet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 209 fois - Téléchargée 30 fois

Contenu du snippet

Ceci est une petite snipet qui permet de réaliser un scanner d'ip, par exemple pour un jeu en réseaux...

Source / Exemple :


on *:sockopen:ScanIp*:echo @ScanIp $longip($sock($sockname).ip) open on port $sock($sockname).port | sockclose $sockname

alias ScanIp {
  window @ScanIp
  renwin @ScanIp @ScanIp $1 to $2 on port $3 
  echo 5 @ScanIp -------------------------------------
  echo 4 @ScanIp ***Scan $1 to $2 on port $3 
  sockclose ScanIp*
  if ( . isin $1 ) && ( . isin $2 ) CheckIp $longip($1) $longip($2) $3
  else echo Paramètre error. ScanIp xxx.xxx.xxx.xxx xxx.xxx.xxx.xxx port
}

alias CheckIp {
  ;echo -a $longip($1)
  sockopen ScanIp $+ $1 $+ $rand(1,9999) $1 $3
  if ( $1 < $2 ) .timerScanIp 1 .1 CheckIp $calc( $1 +1) $2 $3
  else renwin @ScanIp @ScanIp waiting... :: Double Click sur la fenêtre @ScanIp pour lancer un nouveau scan.
}

menu @ScanIp {
  dclick { ScanIp $$?="Entrer l'ip de dépard :" $$?="Entrer l'ip de fin :" $$?="Entrer le port :" }
}
menu menubar {
  ScanIP :/ScanIp $$?="Entrer l'ip de dépard :" $$?="Entrer l'ip de fin :" $$?="Entrer le port :"
}

Conclusion :


Have fun

A voir également

Ajouter un commentaire

Commentaires

abdoulax
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012
-
DaRk_OsIrIs, je pourais te dir un commentaire poa très utile..... :p

Have fun
DaRk_OsIrIs
Messages postés
12
Date d'inscription
mardi 23 mars 2004
Statut
Membre
Dernière intervention
15 avril 2005
-
.. pa tré utile pour la plu par des gens .. -_-
Zova
Messages postés
155
Date d'inscription
mardi 15 juin 2004
Statut
Membre
Dernière intervention
24 août 2010
-
Et "dépard" devient "départ" .. enfin c'est si peu mais j'aime quand y'a pas de fautes d'orthographe ;)
abdoulax
Messages postés
875
Date d'inscription
samedi 17 mai 2003
Statut
Membre
Dernière intervention
22 juin 2012
-
nikel, a vrai j'avais la flem de chercher. Ms c parfait.

Mci
COOLMAN002
Messages postés
976
Date d'inscription
lundi 16 juin 2003
Statut
Membre
Dernière intervention
1 juillet 2012
1 -
if ( . isin $1 ) && ( . isin $2 ) CheckIp $longip($1) $longip($2) $3

< devient >

if ($numtok($1,46) 4) && ($numtok($2,46) 4) { CheckIp $longip($1) $longip($2) $3 }

non ?

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.