Clear ASLR Bit in PE Executable

NoASLR.ps1

$filePath = $args[0]
$addr_e_lfanew = 0x3c
$uint32 = 0x4

$fh = [System.IO.File]::Open($filePath, [System.IO.FileMode]::Open, [System.IO.FileAccess]::ReadWrite)
$fh.Seek($addr_e_lfanew, [System.IO.SeekOrigin]::Begin)
$buffer = New-Object byte[] $uint32
$_ = $fh.Read($buffer, 0, $uint32)
$e_lfanew = [System.BitConverter]::ToUInt32($buffer, 0)
Write-Output $e_lfanew

$addr_dc = $e_lfanew + 0x5e
$fh.Seek($addr_dc, [System.IO.SeekOrigin]::Begin)
$buffer = New-Object byte[] $uint32
$_ = $fh.Read($buffer, 0, $uint32)
$dc = [System.BitConverter]::ToUInt32($buffer, 0)
$bitmask = -bnot 0x40
$dc_new = $dc -band $bitmask
Write-Output $dc_new

$ba = [System.BitConverter]::GetBytes($dc_new)
$fh.Seek($addr_dc, [System.IO.SeekOrigin]::Begin)
$fh.Write($ba, 0, $ba.Length)

$fh.Flush()
$fh.Close()