Autoit Création d'un bot socket

[d4rkv4n]

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

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 .

 

[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.