[R] Wifi Passwords Recovery by Hackoo

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
Avatar du membre
Hackoo
Niveau 4
Niveau 4
Messages : 52
Enregistré le : ven. 03 févr. 2012 19:31
Localisation : Tunisie
Status : Hors ligne

[R] Wifi Passwords Recovery by Hackoo

#1

Message par Hackoo »

Salut tout le monde :)
Je suis entrain de "traduire" mon batch Wifi Passwords Recovery.bat vers Autoit.
Image d'écran du batch :

Wifi Passwords Recovery.png
► Afficher le texteWifi Passwords Recovery.au3
Après la compilation je rencontre un message d'erreur qui vient je crois de la dimension du tableau ?
le message est : "Error : Array variable has incorrect number of subscripts or subcript dimension range exceeded"
Merci de votre aide ;)
Modifié en dernier par Hackoo le mer. 21 mars 2018 01:49, modifié 2 fois.
La connaissance s'acquiert par l'expérience, tout le reste n'est que de l'information. Albert Einstein
Le savoir est la seule matière qui s'accroît quand on la partage. Socrate
mdanielm
Membre émérite
Membre émérite
Messages : 254
Enregistré le : mer. 11 déc. 2013 19:48
Status : Hors ligne

Re: Wifi Passwords Recovery  

#2

Message par mdanielm »

A toi de peaufiner:

#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
;#AutoIt3Wrapper_Change2CUI=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Constants.au3>
#include <Array.au3>
#include <String.au3>
#include <MsgBoxConstants.au3>

;If IsAdmin() Then MsgBox(64, "", "The script is running with admin rights.")


Global $MyCmd = _GetDOSOutput('netsh wlan show profiles')

$sSSID = StringRegExp($MyCmd, '(?si)\s*.*?:\s*(.*?)' & @cr, 3)
Global $res = ""

For $i=1 to Ubound($sSSID)-1
;If $sSSID[$i] <> "" Then
   $GetPassword =_GetDOSOutput('netsh wlan show profiles '& chr(34) & $sSSID[$i] & chr(34) & _
   ' key=clear | find "Conten"')
   $res &= '[' & $i & '] ' & $sSSID[$i] & $GetPassword & @crlf
;EndIf
Next

FileDelete("list.txt")
FileWrite("list.txt", $res)

;---------------------------------------------------
Func _GetDOSOutput($Command)
   Local $iPid , $sOutput = ''

   $iPid = Run('"' & @ComSpec & '" /C ' & $Command,"",@SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

   $sOutput &= StdoutRead($iPid, False, False)
   While @error = 0
      Sleep(10)
      $sOutput &= StdoutRead($iPid, False, False)
   WEnd

   Return $sOutput
EndFunc
 
Avatar du membre
Hackoo
Niveau 4
Niveau 4
Messages : 52
Enregistré le : ven. 03 févr. 2012 19:31
Localisation : Tunisie
Status : Hors ligne

Re: Wifi Passwords Recovery

#3

Message par Hackoo »

Merci mdanielm pour votre rèponse :bisou:
J'ai une question : Est-ce-qu'on peut changer la couleur de l'output de la console en vert comme dans le batch ?
Sinon si vous avez des remarques a citer, je suis à votre écoute ;)
Voici le nouveau code :
► Afficher le texteWifi Passwords Recovery.au3
La connaissance s'acquiert par l'expérience, tout le reste n'est que de l'information. Albert Einstein
Le savoir est la seule matière qui s'accroît quand on la partage. Socrate
Avatar du membre
orax
Modérateur
Modérateur
Messages : 1479
Enregistré le : lun. 23 mars 2009 04:50
Localisation : ::1
Status : Hors ligne

Re: Wifi Passwords Recovery

#4

Message par orax »

Pour écrire en couleur dans la console : SetConsoleTextAttribute.
De petits détails peuvent faire toute la différence. — Quand la boule de neige commence à rouler… poussez-la. (Columbo)
mdanielm
Membre émérite
Membre émérite
Messages : 254
Enregistré le : mer. 11 déc. 2013 19:48
Status : Hors ligne

Re: Wifi Passwords Recovery

#5

Message par mdanielm »

Ta version plante si un réseau n'a pas de mot de passe.
Après la ligne $pass=... il faut tester @error et si <> 0 , ne pas utiliser $pass[0].
Moi, je ne peux pas utiliser la console, il s'affiche:

! Your script requires Admin rights while SciTE is running at normal level.
! This means no Console output from the script will be displayed and SciTE will show the script as ended right away.
Avatar du membre
Hackoo
Niveau 4
Niveau 4
Messages : 52
Enregistré le : ven. 03 févr. 2012 19:31
Localisation : Tunisie
Status : Hors ligne

Re: Wifi Passwords Recovery

#6

Message par Hackoo »

orax a écrit : ven. 09 mars 2018 00:55 Pour écrire en couleur dans la console : SetConsoleTextAttribute.
@orax Merci :bisou: ça marche 5/5 cette fonction
@mdanilem
! Your script requires Admin rights while SciTE is running at normal level.
! This means no Console output from the script will be displayed and SciTE will show the script as ended right away.
J'ai le même message que vous !
Effectivement, il faut compiler cette source avec la version console pour voir le résultat :wink:
► Afficher le texteWifi Passwords Recovery.au3
La connaissance s'acquiert par l'expérience, tout le reste n'est que de l'information. Albert Einstein
Le savoir est la seule matière qui s'accroît quand on la partage. Socrate
Avatar du membre
TommyDDR
Modérateur
Modérateur
Messages : 2086
Enregistré le : mar. 22 juil. 2008 21:55
Localisation : Nantes
Status : Hors ligne

Re: Wifi Passwords Recovery

#7

Message par TommyDDR »

Si vous voulez éviter ce message, lancer SciTe avec les droits d'administrateur.
3.1415926535897932384626433832795028841971693993751058209749445923078164062862089986280348253421170679
mdanielm
Membre émérite
Membre émérite
Messages : 254
Enregistré le : mer. 11 déc. 2013 19:48
Status : Hors ligne

Re: Wifi Passwords Recovery

#8

Message par mdanielm »

Toujours pas. Remplace. If $pass[0] <> 0. par. If @error = 0
Avatar du membre
Hackoo
Niveau 4
Niveau 4
Messages : 52
Enregistré le : ven. 03 févr. 2012 19:31
Localisation : Tunisie
Status : Hors ligne

[R] Wifi Passwords Recovery by Hackoo

#9

Message par Hackoo »

Voici la nouvelle version suite a vos remarques.
Alors, si quelqu'un parmi vous me teste si ça marche ou non ou bien si ce code doit-être optimisé ou non ? avant de passer en résolu
► Afficher le texteWifi Passwords Recovery
La connaissance s'acquiert par l'expérience, tout le reste n'est que de l'information. Albert Einstein
Le savoir est la seule matière qui s'accroît quand on la partage. Socrate
Répondre