Scan ip snipet

Soyez le premier à donner votre avis sur cette source.

Snippet vu 11 751 fois - Téléchargée 32 fois

Commenter

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 1
15 avril 2005 à 17:39
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
15 avril 2005 à 16:02
.. pa tré utile pour la plu par des gens .. -_-
Zova Messages postés 150 Date d'inscription mardi 15 juin 2004 Statut Membre Dernière intervention 24 août 2010 2
9 févr. 2005 à 06:46
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 1
7 févr. 2005 à 20:47
nikel, a vrai j'avais la flem de chercher. Ms c parfait.

Mci
COOLMAN002 Messages postés 969 Date d'inscription lundi 16 juin 2003 Statut Membre Dernière intervention 1 juillet 2012 1
7 févr. 2005 à 19:58
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 ?
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 (abdoulax)