FORUM D’ENTRAIDE INFORMATIQUE (FEI)
Site d’assistance et de sécurité informatique

Entraide pour le programmation en général (tous langages).
Règles du forum : Entraide concernant la programmation informatique en général, tous langages : recherche ou correction d'un code ou d'une fonction, aide à la réalisation d'un projet...
Pour la programmation web (HTML, CSS, PHP, MySQL...), il est conseillé de s'orienter dans le forum Webmastering.
Merci de lire et de respecter la charte générale du forum.
  • Avatar du membre
  • Avatar du membre
#198686
bonjour , je déterre ^^

ca aurait été interessant et insctructif pour les lecteurs que tu mettes un bout de code pour les aider xD
Avatar du membre
par g3n-h@ckm@n
#198690
oui j'entendais bien ! ^^ en Autoit :)

et pis non juste la partie lecture des SSID des différentes sessions, après le reste est hors sujet par rapport à l intitulé de ce sujet xD
#198691
(Re)Salut :mv:


Premier script : affichage des informations (contenu dans une variable) avec msgbox
Code : Tout sélectionner
Local $SSIDS, $ListSSID, $Info_SSIDS

_SSID_List()
If $ListSSID <> "" Then
	For $b = 1 To StringSplit($ListSSID, @LF)[0]
		$item = StringSplit($ListSSID, @LF)[$b]
		If $item <> "" Then
			$SSID = $item
			$Info_SSIDS &= _InfoSSID($SSID) & @CRLF
		EndIf
	Next
	MsgBox(0, "", $Info_SSIDS)
EndIf


Func _SSID_List()

	$cmdline_1 = 'netsh wlan show profile key=clear | findstr .Profil'
	$nPid = Run(@ComSpec & ' /c' & $cmdline_1, '', @SW_HIDE, 8)
	ProcessWait($nPid)
	While 1
		$SSIDS &= StdoutRead($nPid)
		If @error Or (Not ProcessExists($nPid)) Then ExitLoop
	WEnd

	For $a = 1 To StringSplit($SSIDS, @LF)[0]
		$item = StringSplit($SSIDS, @LF)[$a]
		If $item <> "" Then
			$ListSSID &= StringStripWS(StringSplit($item, ':')[2], 3) & @CRLF
		EndIf
	Next

EndFunc   ;==>_SSID_List


Func _InfoSSID($SSID)

	Local $InfoSSID, $CleSSID, $InfoSSIDS

	$cmdline_2 = 'netsh wlan show profile name="' & $SSID & '" key=clear'
	$nPid = Run(@ComSpec & ' /c' & $cmdline_2, '', @SW_HIDE, 8)
	ProcessWait($nPid)
	While 1
		$InfoSSID &= StdoutRead($nPid)
		If @error Or (Not ProcessExists($nPid)) Then ExitLoop
	WEnd

	For $c = 1 To StringSplit($InfoSSID, @LF)[0]
		$item = StringSplit($InfoSSID, @LF)[$c]
		If $item <> '' Then
			If StringInStr($item, 'contenu de la cl') Then
				$CleSSID = StringStripWS(StringSplit($item, ':')[2], 3)
			EndIf
		EndIf
	Next

	$InfoSSIDS = StringStripWS($SSID, 3) & "|" & $CleSSID
	Return SetExtended(1, $InfoSSIDS)

EndFunc   ;==>_InfoSSID
A vous de l'adapter (ou pas).

++ ^^
#198692
Fais voir ce que ca te retourne au résultat ? suivant quoi y'a beaucoup plus simple ^^
#198694
ah ok j'avais pas fait le rapprochement avec la wifi quand tu disais "clé de sécurité" et j'ai confondu SSID et SID ptdr donc je comprenais pas quelle clé de sécurité tu évoquais , d'où mon désir de voir ce que ca donne.....que je suis bête !! ^^
#198702
Et sinon, pour le SID : https://www.autoitscript.com/forum/topi ... that-user/

https://www.autoitscript.com/forum/topi ... y-editing/

Mais surtout : https://www.autoitscript.com/forum/topi ... ng-an-sid/
Code : Tout sélectionner
ConsoleWrite(_GetSid(@UserName)&@CR) ; Display specified users sid

Func _GetSid($sUsername = @UserName)
    Local $oWMIService
    Local $oColAccounts

    $oWMIService = ObjGet("winmgmts:\\.\root\cimv2")
    If Not IsObj($oWMIService) Then
        SetError(2)
        Return 0
    EndIf
    $oColAccounts = $oWMIService.ExecQuery("Select * From Win32_UserAccount")

    For $oAccount In $oColAccounts
        If $oAccount.Name = $sUsername Then
            SetError(0)
            Return $oAccount.Sid
        EndIf
    Next
    SetError(1)
    Return 0
EndFunc   ;==>_GetSidoÝ÷ ØLZ^jëh×6ConsoleWrite(_GetSid()&@CR) ; Display current users sid

#198750
J'imagine que la clé dont tu parles est la clé WEP ?...
C'est simple, tu vas devoir pirater ton réseau ;-) (humour)

Si tu est connectée sur ton pc fixe en tant qu'administrateur, tu devrais pouvoir voir ta clé WEP ( que ton pc utilise pour se connecter au routeur ) ou la modifier.
Connectes toi à ton routeur (quelque chose du type: http://192.168.0.1 ,avec internet explorer bien sûr ).
Il devrait te demander un login et un mot de passe (que tu es sensée connaître si il s'agit de ton réseau ! )
Une fois dans la fenêtre de paramétrage de ton routeur il devrait y avoir un onglet "sécurité" ou tu devrais pouvoir modifier ta clé WEP.
Utilise la même clé WEP sur tes deux machines (pc fixe et portable) pour te connecter au routeur.

Je te conseille de lire ceci : A propos de 192.168.0.1
Bon courage !
Tu peux assi aller jeter un oeuil par ici, ça pourrer aider sur le sujet : http://keistaru.com/2UUh


Pnr Status TextNow VPN
Modifié en dernier par bougti le lun. 25 févr. 2019 13:04, modifié 3 fois.
#198752
Salut.

Je sais déjà cela, merci ^^


tu es juste hors sujet.


Si tu est connectée sur ton pc fixe en tant qu'administrateur, tu devrais pouvoir voir ta clé WEP ( que ton pc utilise pour se connecter au routeur ) ou la modifier.
- Quel PC fixe ? :lol:
- As-tu remarqué que c'était posté dans la rubrique Programmation ? :siffle: :siffle:

Connectes toi à ton routeur (quelque chose du type: http://192.168.0.1 ,avec internet explorer bien sûr ).
- Quel routeur ? :lol:
- De un, tu es hors sujet, de plus, tu me parles d'IE : XD je l'utilise pas merci. lol

Une fois dans la fenêtre de paramétrage de ton routeur il devrait y avoir un onglet "sécurité" ou tu devrais pouvoir modifier ta clé WEP.
Utilise la même clé WEP sur tes deux machines (pc fixe et portable) pour te connecter au routeur.
En quoi tout ceci va m'aider à récupérer toutes les SSID / clé wep en INVITE DE COMMANDES ?

Je te conseille de lire ceci : A propos de 192.168.0.1
Bon courage !
Fallait lire le sujet, un conseil qui peut servir dans le futur.






++
#200675
Je déterre :

mouhahahahahhahaahaha

je réenterre

===>[]
Site "Le bon coin"

Bonsoir, Vérifez le chemin du dossier […]

Coucou Didier, Voici le lien URL: https://www.vir[…]

problème au démarrage

Bonsoir, Pour controle Télécharge […]

Bonjour, A chaque démarrage de mon pc, j'a[…]