[..] Forgeur de paquets

[periaz]

Bonsoir à tous !
Je voudrais savoir s'il est possible de forger des paquets à partir d'AutoIt.

Les paquets auraient cette forme :

► Afficher le texte

Code : Tout sélectionner

47 45 54 20 2F 67 65 6E 65 72 61 74 65 5F 32 30 34 20 48 54 54 50 2F 31 2E 31 0D 0A 48 6F 73 74 3A 20 63 6C 69 65 6E 74 73 31 2E 67 6F 6F 67 6C 65 2E 66 72 0D 0A 55 73 65 72 2D 41 67 65 6E 74 3A 20 4D 6F 7A 69 6C 6C 61 2F 35 2E 30 20 28 57 69 6E 64 6F 77 73 3B 20 55 3B 20 57 69 6E 64 6F 77 73 20 4E 54 20 35 2E 31 3B 20 66 72 3B 20 72 76 3A 31 2E 39 2E 32 2E 33 29 20 47 65 63 6B 6F 2F 32 30 31 30 30 34 30 31 20 46 69 72 65 66 6F 78 2F 33 2E 36 2E 33 0D 0A 41 63 63 65 70 74 3A 20 69 6D 61 67 65 2F 70 6E 67 2C 69 6D 61 67 65 2F 2A 3B 71 3D 30 2E 38 2C 2A 2F 2A 3B 71 3D 30 2E 35 0D 0A 41 63 63 65 70 74 2D 4C 61 6E 67 75 61 67 65 3A 20 66 72 2C 66 72 2D 66 72 3B 71 3D 30 2E 38 2C 65 6E 2D 75 73 3B 71 3D 30 2E 35 2C 65 6E 3B 71 3D 30 2E 33 0D 0A 41 63 63 65 70 74 2D 45 6E 63 6F 64 69 6E 67 3A 20 67 7A 69 70 2C 64 65 66 6C 61 74 65 0D 0A 41 63 63 65 70 74 2D 43 68 61 72 73 65 74 3A 20 49 53 4F 2D 38 38 35 39 2D 31 2C 75 74 66 2D 38 3B 71 3D 30 2E 37 2C 2A 3B 71 3D 30 2E 37 0D 0A 4B 65 65 70 2D 41 6C 69 76 65 3A 20 31 31 35 0D 0A 43 6F 6E 6E 65 63 74 69 6F 6E 3A 20 6B 65 65 70 2D 61 6C 69 76 65 0D 0A 52 65 66 65 72 65 72 3A 20 68 74 74 70 3A 2F 2F 69 6D 61 67 65 73 2E 67 6F 6F 67 6C 65 2E 66 72 2F 69 6D 67 68 70 3F 68 6C 3D 66 72 26 74 61 62 3D 77 69 0D 0A 43 6F 6F 6B 69 65 3A 20 50 52 45 46 3D 49 44 3D 34 66 31 64 64 33 33 37 39 34 30 33 37 65 63 62 3A 55 3D 30 61 30 63 36 38 36 35 39 65 64 32 36 61 63 33 3A 54 4D 3D 31 32 37 31 37 39 37 39 38 33 3A 4C 4D 3D 31 32 37 31 37 39 37 39 38 34 3A 53 3D 78 61 4B 77 57 65 57 53 79 64 76 66 6C 65 4A 65 3B 20 4E 49 44 3D 33 33 3D 61 6B 51 4D 58 46 61 7A 63 54 44 4E 76 65 71 50 6A 32 6B 57 41 76 50 58 44 48 5A 39 79 47 37 6D 33 61 6D 30 51 55 73 47 49 68 65 44 5F 50 69 7A 65 47 4F 47 38 6D 54 4C 4E 39 37 42 4C 47 5F 30 7A 57 61 30 61 62 34 2D 68 68 62 66 59 77 70 56 73 59 6E 6F 74 48 72 77 57 6B 50 6D 65 32 4C 4B 2D 4B 75 68 5A 74 77 6F 36 39 4C 5A 56 74 45 4C 6E 61 50 68 76 55 5A 45 55 57 77 42 53 6C 43 30 0D 0A 0D 0A

Par avance merci !
Periaz

[ragnoff]

Bonjour

Tout ce que je vois dans ce poste, c est un joli paquet de nombre hexadécimaux qui se suivent ... un peu de précision sera nécessaire avant d'obtenir une vraie réponse ...

Qu'entendez vous par "forger des paquets " ?
Le but est t il de créer des nombres hexadécimaux et de les mettre les uns a la suite ? ( je pense que non mais bon, ça montre que je vois pas vraiment ce que vous voulez faire ....)

[Sh4dows]

Peut être voulais il dire envoyé des packets cryptés...

[periaz]

En fait je veux envoyer des paquets à un serveur par TCP/IP. Ces paquets sont écrits sous la forme hexadécimal mais par exemple, 47 45 54 20 2F 67 65 6E 65 72 61 74 65 = GET /generate

[pop45]

Taper TCP dans l'aide de autoit ^^

[periaz]

Salut !

J'ai fais pas mal de recherche ce matin de bon heure et je suis arrivé à cela :

Code : Tout sélectionner

Global $serveurIP = "XXX.XXX.XXX.XXX"
Global $socket
Global $packet = "XX XX XX XX XX XX XX XX XX XX XX"

_connecteServeurGeneral()

Func _connecteServeurGeneral()
TCPStartUp()
   $socket = TCPConnect( $serveurIP , XXXX )
   If ($socket = -1) Then
      MsgBox(0,"Erreur","Erreur de connexion au serveur.")
      Exit
   EndIf
   If ($socket == 1) Then
      MsgBox(0,"Erreur","IP du serveur incorrect")
   EndIf
   If ($socket == 2) Then
      MsgBox(0,"Erreur","Port du serveur incorrect")
   EndIf
   If ($socket <> -1 AND $socket <> 1 AND $socket <> 2) Then
      MsgBox(0,"Information","Vous êtes connecté au serveur.")
  EndIf

  TCPSend( $socket, $packet)
TCPCloseSocket ($socket)
TCPShutdown ( )
EndFunc

Donc voilà, ca me connecte bien au serveur, mais aucun paquet n'est envoyé. La variable $packet contient de l'hexadécimal. J'espère que c'est bien ça que je dois envoyer au serveur ?!

[Sparkdaemon]

Code : Tout sélectionner

Global $serveurIP = "XXX.XXX.XXX.XXX"
Global $socket
Global $packet = "XX XX XX XX XX XX XX XX XX XX XX"

_connecteServeurGeneral()

Func _connecteServeurGeneral()
TCPStartUp()
   $socket = TCPConnect( $serveurIP , 443 )
   If ($socket = -1) Then
      MsgBox(0,"Erreur","Erreur de connexion au serveur.")
      Exit
   EndIf
   If ($socket == 1) Then
      MsgBox(0,"Erreur","IP du serveur incorrect")
   EndIf
   If ($socket == 2) Then
      MsgBox(0,"Erreur","Port du serveur incorrect")
   EndIf
   If ($socket <> -1 AND $socket <> 1 AND $socket <> 2) Then
      MsgBox(0,"Information","Vous êtes connecté au serveur.")
  EndIf

  TCPSend( $socket, $packet)
TCPCloseSocket ($socket)
TCPShutdown ( )
EndFunc

L'ip du serveur sur lequel tu veux te connecter a changé.
Si c'est ce que je penses, le port est 443.

Retrouves l'I.P. dans le Config.xml dans le repertoire d'installation du logiciel Normal.

Après, tu pourra te connecter facilement.

Normalement tu n'envoie pas le premier packet, tu doit le recevoir.

[Habibsbib]

Houuu, ça sent le bot socket pour Dofus tout ça...
Enfin moi ce que j'en dis

[Tlem]

Comme je l'ai déjà dit, tant que les choses n'apparaissent pas en clair et net, cela ne pose aucun problèmes.

[periaz]

Je n'ai jamais joué à dofus et je ne vais jamais joué a ce jeu pourrable ^^
Et pour ceux que ca interesse le port est 8080

[Sparkdaemon]

Donc..

Port 8080 Me fait penser a un serveur Webradio.


Que veux tu faire éxactement ? parce-que quand tu écris dans un fichier (Format MP3 par exemple) les données recut, tu peut jouer la musique
.

[L4crymal]

Le port 8080 en TCP sert à Apache Tomcat et au HTTP alterné
En UDP il est utilisé seulement par FilePhile Master/Relay