Salut à tous !Je me mets à la création d'un bot socket en AutoIt.J'ai réussi à parser, etc, mais maintenant je bloque sur l'id 3.Je m'explique. En regardant les sources, je vois :[spoiler]``` public function deserializeAs_HelloConnectMessage(param1:IDataInput) : void { var _loc_4:int = 0; this.salt = param1.readUTF(); var _loc_2:* = param1.readUnsignedShort(); var _loc_3:uint = 0; while (_loc_3 < _loc_2) { _loc_4 = param1.readByte(); this.key.push(_loc_4); _loc_3 = _loc_3 + 1; } return; }// end function ```[/spoiler]Alors je me dis "Parfait ! Si j'arrive à déserializer ce qu'il m'envoie, je pourrai faire la suite". Seulement, je ne comprends pas le``` this.salt = param1.readUTF(); ```ainsi que :``` var _loc_2:* = param1.readUnsignedShort(); ```A ce que j'ai pu comprendre, lorsqu'on fait un readShort, en réalité il prend les deux premiers octets. Dans ce cas, que veut dire ce readUTF?J'ai donc cherché sur les sources OverEdge, et je vois :[spoiler]``` Public Function ReadUTF() Return ReadString() End Function Public Overrides Function ReadString() As String Dim ByteArray() As Byte = MyBase.ReadBytes(ReadUInt16()) Return System.Text.Encoding.UTF8.GetString(ByteArray) End Function ```[/spoiler]Et là, le grand vide dans ma tête !Que dois-je récupérer lorsque je fais un ReadUTF(), en fait?J'avais suivi un tuto sur ce forum pour démarrer et comprendre le protocole D.2, et comme je disais, j'ai réussi à faire quelques petites choses, comme par exemple : [spoiler]``` $hiheader = StringLeft($data, 4) $hiheader = Dec($hiheader) $packet_id = BitShift($hiheader, 2) $lenType = BitAND($hiheader, 3) ```[/spoiler]Alors on ne peut pas dire que je ne cherche pas ! :).Voilà, merci à tous ;)**EDIT** : Finalement, je pense avoir compris ces ReadUTF() et compagnie...Dites-moi, si j'obtiens (pour le deserializeAs_HelloConnectMessage()) : - Comme salt : 0x30303032 (dois-je enlever le 0x ? Et j'ai TOUJOURS ce 30303032, il ne varie jamais, contrairement à la key) - Et comme key : 020683177717462706E7E78567B6D4E3D61535, toujours 19 Bytes, et qui commence toujours avec 02c'est possible que ce soit correct, non?Si c'est le cas, pourriez-vous me donner des pistes pour le cryptage RSA sur AutoIt..? Je sais que ce sera dur m'enfin :).(Si besoin est, je peux vous donner mes fonctions ReadUTF etc)

pour utf il faut lire 2 octets qui te donneront la taille de la chaine , par exemple 00 08 ca te donnera une chaine de 8 caracteres , les 8 caracteres seront les 8 octets qui suivront les 2 de la taille

Euh... Tu en es sûr?Sur OverEdge j'ai :``` Public Function ReadUTF() Return ReadString() End Function Public Overrides Function ReadString() As String Dim ByteArray() As Byte = MyBase.ReadBytes(ReadUInt16()) Return System.Text.Encoding.UTF8.GetString(ByteArray) End Function ```Et donc chez moi :``` Func ReadString() Dim $ByteArray = ReadBytes(ReadUInt16()) $return = UTF8(GetString($ByteArray)) ConsoleWrite("ReadString => " & $return & @CR) Return $return EndFunc ```Ce que tu me dis, j'ai l'impression que c'est un ReadUInt16(), qui me donne juste le message. Ce qui est pas utile...J'ai déjà réussi à parser. A récupérer l'id ainsi que le lenType et le length par la même occasion. Je l'ai dis dans mon post.

oui j'en suis sur la source que tu cites c'est moi qui l'a ecrite , le uint16 (2 octets) sert a savoir la longueur de la chaine puis apres tu lis le nombre d'octets que uint16 te donne et ca sera ca la chainedonne moi le paquet complet (en octets) que tu recuperes via le socket (sans parser ni rien) et je te montre en couleurs

Y'a qqch que j'ai pas pigé dans ce que tu me dis alors. Tu expliques ce qu'il faut passer à ReadUTF() là?Je crois que je suis beaucoup trop perdu dans tous ces codes là...

La conversion est vraiment trop difficile...J'essaie de voir la définition du ReadBytes, et je vois> Lit le nombre d'octets spécifié à partir du flux actuel dans un tableau d'octets et avance la position actuelle de ce nombre d'octets.Mais WTF? J'comprends rien ! Ca veut dire quoi "avance la position actuelle de ce nombre d'octets"? Quelle position actuelle? Le nombre d'octets, c'est celui passé en paramètre?J'suis perdu...**EDIT** : A la base, ces fonctions travaillent sur quoi exactement? Parce qu'on ne leur envoie jamais aucun paramètre ! Du genre ReadInt(), ok mais ReadInt(de quoi?)?

ca travail sur un stream des octets recus , on vas dire que tu recois 00 01 02 03 04 05 ... , au depart tu es sur 00 , tu fais un readbytes(2) par exemple, ca va te renvoyer 00 01 puis ca va se positionner 2 octets plus loin donc sur 02 , tu refais un readbytes(3) ca renverra 02 03 04 puis ca se positionnera 3 octets plus loin donc sur 05 etc ...pour un utf on va dire que tu as un readutf et que tu es sur (xx xx xx ca c'est deja lu ca contient dans ton cas l'id , lenType et le length , en fait le header du message) puis tu as 00 05 54 6F 6F 6E 73 06 07 ...donc il faut lire 2 octets donc readbytes(2) pour connaitre la longueur de la chaine a lire : 00 05 -> 5 de longueurdonc on lit les 5 suivants donc reaadbytes(5) qui sont 54 6F 6F 6E 73

Donc, sur un paquet qui ressemble à ça, on aurait :**00 05 08 00 00 05 A4 00 00 05 A4****ID + LenType Length (puisque lenType = 1) Message**Et si j'ai bien compris, sur ce que** ReadInt()**,** ReadUInt16()** etc travaillent, c'est la partie Message?Et si je fais donc, sur cette partie message, un **ReadBytes(2)**, on commence sur l'octet 00, et on aura 00 00.Puis, un **ReadBytes(1)** commencera à 05, et renverra 05.Finalement un **ReadBytes(5)** commencera à A4, et contiendra A4 00 00 05 A4.Est-ce correct?Et **ReadUInt16()** fonctionne-t-il de la même manière?Aussi, est-ce qu'il recommence de 00 ou bien de la dernière position connue?Merci de ton aide ToOnS :)

Super, merci de cette info ! Je ne récupérais pas mon message de cette manière moi :).Mais tu peux répondre à mes questions ci-dessus s'te plaît?

``` Et si j'ai bien compris, sur ce que ReadInt(), ReadUInt16() etc travaillent, c'est la partie Message? ```ca travail sur tout le paquet recu , mais dans mon post precedent je suposais que tu avais deja lu 00 05 08 (c'est mes xx xx xx) , donc que tu es possitioné sur 00 (le 2iem 00 de 00 05 08 00) , ca c'est a toi de voire comment te positionner apres le header , tu as compris deja comment le header marche puisque tu lis ID + LenType Length (puisque lenType = 1) ca devrait etre facile de te positionner au depart du messageune fois que tu es au depart du message alors oui ca c'est correct :> Et si je fais donc, sur cette partie message, un ReadBytes(2), on commence sur l'octet 00, et on aura 00 00.Puis, un ReadBytes(1) commencera à 05, et renverra 05.Finalement un ReadBytes(5) commencera à A4, et contiendra A4 00 00 05 A4.Est-ce correct? pour ReadUInt16() ca fonctionne pareil c'est en realité un ReadBytes(2)

Ok c'est parfait.Mais ce que je voulais savoir, c'est si la dernière position connue retenue est celle sur laquelle tous les ReadXX() travailleront ou bien s'ils sont complètement indépendants les uns des autres?Par exemple, si j'ai :00 00 05 A4 00 00 05 A4Puis que je fais ReadBytes(2) (et donc d'après ce que tu viens de me dire un ReadUInt16()), ça me sort 00 00.La suite est donc :05 A4 00 00 05 A4Mais est-ce que ceci est la suite seulement pour le ReadBytes ou bien pour tous les autres ReadXX()?**EDIT** : Comment j'ai pu oublier ! Merci énormément !! Tu m'éclaires comme jamais ! C'est super de savoir tout ça :). Merci ;)

Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Création d'un bot socket

d4rkv4n

Le boulot à fournir ne me fait pas peur. Sinon, j'n'aurai pas commencé en AutoIt :D.

Ouip, s'il passe par là et qu'il peut m'aider, j'en serai ravi. Toute aide est bonne à prendre, surtout quand on sait qu'on est le premier (?) à faire un bot socket en AutoIt pour le proto 2 :P.

Anonymous

tu n'est pas vraiment le 1er a faire un bot socket en autoit, les autres ont simplement abandonnée l'idée. C'est pas facile ... surtout après, une fois la connections faites, sans multi-threading ça devient bien plus complexe et difficile voir impossible ... Mais qui sais ? tu sera peut être le premier à avoir "réussi". (et je ne parle que pour une seule connections)

Après y'aura peut être des petite astuce du genre ouvrir plusieurs processus mais ça sera pour plus tard ^^

d4rkv4n

A ce que j'ai vu, ce sont des VirtualKey's, ces valeurs.

Dans ce cas, un &H21 est en réalité un PgUp. Je ne comprends donc pas ce code :

Dim buffer2 As Byte() = New Byte(&H100 - 1) {}

Sachant qu'un &H100 serait, si c'est en décimal qu'on doit convertir, un @, et si c'est de l'octal, un d.

Donc ce n'est pas un nombre. Je ne comprends donc pas ce que devrait retourner &H100 - 1... Une idée?

Anonymous

d’après ce que j'ai lu et vite fait chercher en 30 sec ...

&H43 serai en fait 43 en hexadécimal

donc &H100 serai 100 en hexadécimal ...

mais j'y connais pas trop en vb la syntaxe '^^

ToOnS

c'est ca &Hyy en vb ca veut dire hexa -> 0xyy

dans le cas de &H43 , page up en ascii mais ici c'est pas un caractere , c'est un chiffre donc 67

d4rkv4n

Donc... Si ta démarche est correcte, &H121 => 289 base 10. Alors la boucle :

For i = &H21 To &H121 - 1
    buffer2((i - &H21)) = CByte(Key.Item(i))
Next i

"décryptée" serait :

For $i = 33 To 288 ;289 - 1
    $buffer2[$i - 33] = Hex($key[$i], 2)
Next

Ca te semble correct?

ToOnS

oui ca doit donner ca , je suis pas sur du $buffer2($i - 33) = Hex($key[$i], 2) car je sais pas ce que fait Hex en autoit

edit : j'ai verifié sur le wiki autoit et en fait tu peux ne pas mettre ",2" car au depart c'est deja sur une longueur de 2

Anonymous

sur le wiki autoit il est mit ca ? bizarre étant donné que par défaut c'est sur 8 digit ...

d4rkv4n

Oui ToOnS, par défaut on a un hexa de 8 chiffres, alors qu'un Byte est un hexa de 2 chiffres.

ToOnS

y'aura 8 digits (0000 0043 pour 0x43) dans buffer donc au final 0x43 non ? (enfin ca sera d'ailleur 67 au final)

ca serait utile si on depasserait 255 (0xFF) mais c'est jamais le cas

Anonymous

En autoit c'est un peu plus compliqué ^^

parce que dans son tableau buffer il aura la représentation en String du chiffre hexadécimal et non le chiffre "réel"

donc il aura "0000 0043" pas plus. A lui de faire les modifications plus tard de ce qu'il veux faire '^^

d4rkv4n

Euh, en fait un Byte est représenté de 00 à FF. AutoIt ne gère pas les Bytes, je dois simuler. Et pour simuler un Byte, je dois donc faire Hex(chiffre, 2). Si je ne fais pas ça, mes fonctions Write (donc WriteInt et compagnie) écriraient 0000 0043 au lieu de simplement envoyer 43. Tu comprends?

Pour nous, bien sûr que 00 00 00 43 = 43, mais pas pour AutoIt :).

d4rkv4n

@Pandi_Panda, que veux-tu dire par "le chiffre réel" ?

J'aurai, par exemple, "7A" (et non 0000 007A comme tu le penses, vu que j'ai mis le paramètre 2 sur la fonction Hex()).

Et c'est ce qu'on veut il me semble. On vent une représentation hexadécimale, d'où le CByte(Key.Item(i)). Je me trompe?

Anonymous

par exemple ceci;

MsgBox(0,"",Binary(Hex(16,2)))

affiche quelque chose de bisarre non?

d4rkv4n

Assez oui. Expliquons pourquoi.

Déjà, Hex(16, 2) = 10.

Ensuite, on demande Binary(10). Binary retourne l'hexadécimal d'un string. Or, le string "10" en bytes = 3130. Donc, Binary(Hex(16, 2)) retourne 0x3130

d4rkv4n

Rah mince, je bloque encore !

En VB.Net, on doit faire :

Dim parameters As New RSAParameters

Seulement, ObjCreate() sert à créer un objet à partir d'une classe, mais RSAParameters n'est pas une classe mais une structure. As-tu une idée de ce qu'on pourrait faire?

EDIT : J'ai tenté un :

$parameters = $provider.ExportParameters(False)

Puis un :

$parameters.Modulus = $buffer2

Mais AutoIt me sort :

==> The requested action with this object has failed.:
$parameters.Modulus = $buffer2
$parameters.Modulus = $buffer2^ ERROR

Et c'est la même chose lorsque je mets ExportParameters(True) (Apparemment pour exporter les paramètres privés). Aussi en convertissant l'array de bytes $buffer2 en une grosse chaîne hexa. Rien n'y fait.

EDIT 2 : Apparemment, ça ne vient pas de ce que moi je lui donne, mais plutôt de ce qu'on a au départ, puisqu'un

MsgBox(0, "", VarGetType($parameters.Modulus))

me retourne la même erreur, à savoir :

==> The requested action with this object has failed.:
MsgBox(0, "", VarGetType($parameters.Modulus))
MsgBox(0, "", VarGetType($parameters.Modulus^ ERROR

Anonymous

En effet ça pose un certains problème ... me suis un minimum renseigné et apparemment Objcreate() ne prendrai pas en compte les structure et compagnies, faudrait utilisé l'udf AutoitObject. Même si actuellement j'ai du mal à saisir ...

Bref' vous pouvez lire ce post-ci

Pour des variable structurée j'ai pu trouvé des semblant de réponse ... ici

mais va falloir remuer tout ça, ceci devrai être faisable, mais actuellement j'en ai aucune idée ...

d4rkv4n

Wahou Pandi_Panda, tu as créé un post sur les forums AutoIt pour mon information, merci à toi !

Je vais essayer de suivre ce post, encore merci.

Anonymous

C'est avec plaisir, ce sujet m’intéresse aussi ...

Cependant suivre ce topic ne servira à rien car je l'ai mit en "résolu" vu le peu de retour d'information, il faudrait mieux se tourner vers le forum US d'autoit.

« Page précédente