Перевод из 2-ой с.с в 16-ую с.с

function Convert2To16([string]$bin_num) {
    # Проверка ввода
    if ($bin_num -notmatch '^[01\.]+$') {
        return "Ошибка: введено некорректное значение."
    }
 
    # Разделение на целую и дробную части
    $int_part, $frac_part = $bin_num.Split('.')
 
    # Перевод целой части в 16-ричную систему счисления
    $int_hex = ''
    $int_dec = [Convert]::ToInt32($int_part, 2)
    while ($int_dec -ne 0) {
        $rem = $int_dec % 16
        switch ($rem) {
            0 {$int_hex = '0' + $int_hex}
            1 {$int_hex = '1' + $int_hex}
            2 {$int_hex = '2' + $int_hex}
            3 {$int_hex = '3' + $int_hex}
            4 {$int_hex = '4' + $int_hex}
            5 {$int_hex = '5' + $int_hex}
            6 {$int_hex = '6' + $int_hex}
            7 {$int_hex = '7' + $int_hex}
            8 {$int_hex = '8' + $int_hex}
            9 {$int_hex = '9' + $int_hex}
            10 {$int_hex = 'A' + $int_hex}
            11 {$int_hex = 'B' + $int_hex}
            12 {$int_hex = 'C' + $int_hex}
            13 {$int_hex = 'D' + $int_hex}
            14 {$int_hex = 'E' + $int_hex}
            15 {$int_hex = 'F' + $int_hex}
        }
        $int_dec = [int]($int_dec / 16)
    }
 
    if ($frac_part) {
        # Перевод дробной части в 16-ричную систему счисления
        $frac_hex = ''
        $frac_dec = 0
        $frac_div = 1
        foreach ($bit in $frac_part.ToCharArray()) {
            if ($bit -eq '1') {
                $frac_dec += 1 / [Math]::Pow(2, $frac_div)
            }
            $frac_div += 1
        }
        for ($i = 0; $i -lt 4; $i++) {
            $frac_dec *= 16
            $rem = [int]$frac_dec
            switch ($rem) {
                0 {$frac_hex += '0'}
                1 {$frac_hex += '1'}
                2 {$frac_hex += '2'}
                3 {$frac_hex += '3'}
                4 {$frac_hex += '4'}
                5 {$frac_hex += '5'}
                6 {$frac_hex += '6'}
                7 {$frac_hex += '7'}
                8 {$frac_hex += '8'}
                9 {$frac_hex += '9'}
                10 {$frac_hex += 'A'}
                11 {$frac_hex += 'B'}
                12 {$frac_hex += 'C'}
                13 {$frac_hex += 'D'}
                14 {$frac_hex += 'E'}
                15 {$frac_hex += 'F'}
            }
            $frac_dec -= $rem
        }
        # Объединение 16-ричных чисел целой и дробной частей
        $result = $int_hex + '.' + $frac_hex
    } else {
        # Присвоение значения переменной результата, если дробная часть отсутствует
        $result = $int_hex
    }
    # Возвращение значения
return "Результат: $result"
}
 
$bin_number = Read-Host "Введите число в двоичной системе счисления"
$hex_number = convert2To16 $bin_number
Write-Host $hex_number

'0x{0:x}' -f 0b10111000111                          # 0x5c7   PowerShell Core
 
'0x{0:x}' -f [convert]::ToInt32('10111000111',2)    # 0x5c7    Windows PowerShell

function ⒃ ([int]$n){'0x{0:x}'-f$n}
⒃ 0b10111000111  # 0x5c7

0b10111000111|fhx

0b11111111

while ($int_dec -ne 1)

    do {
        $rem = $int_dec % 16
        switch ($rem) {
            0 {$int_hex = '0' + $int_hex}
            1 {$int_hex = '1' + $int_hex}
            2 {$int_hex = '2' + $int_hex}
            3 {$int_hex = '3' + $int_hex}
            4 {$int_hex = '4' + $int_hex}
            5 {$int_hex = '5' + $int_hex}
            6 {$int_hex = '6' + $int_hex}
            7 {$int_hex = '7' + $int_hex}
            8 {$int_hex = '8' + $int_hex}
            9 {$int_hex = '9' + $int_hex}
            10 {$int_hex = 'A' + $int_hex}
            11 {$int_hex = 'B' + $int_hex}
            12 {$int_hex = 'C' + $int_hex}
            13 {$int_hex = 'D' + $int_hex}
            14 {$int_hex = 'E' + $int_hex}
            15 {$int_hex = 'F' + $int_hex}
        }
        $int_dec = [int]($int_dec / 16)
    } until ($int_dec -ne 0)

if ($bin_num -notmatch '^(?:(?:[01]+\.[01]+)|(?:[01]+))$') {

1..15|%{[int]($_ /16)}

$int_hex = ''
$int_dec = 8
do {
    $rem = $int_dec % 16
    switch ($rem) {
        0 {$int_hex = '0' + $int_hex}
        1 {$int_hex = '1' + $int_hex}
        2 {$int_hex = '2' + $int_hex}
        3 {$int_hex = '3' + $int_hex}
        4 {$int_hex = '4' + $int_hex}
        5 {$int_hex = '5' + $int_hex}
        6 {$int_hex = '6' + $int_hex}
        7 {$int_hex = '7' + $int_hex}
        8 {$int_hex = '8' + $int_hex}
        9 {$int_hex = '9' + $int_hex}
        10 {$int_hex = 'A' + $int_hex}
        11 {$int_hex = 'B' + $int_hex}
        12 {$int_hex = 'C' + $int_hex}
        13 {$int_hex = 'D' + $int_hex}
        14 {$int_hex = 'E' + $int_hex}
        15 {$int_hex = 'F' + $int_hex}
    }
    $int_dec = [int]($int_dec / 16)
} until ($int_dec -ne 0)

$int_hex = ''
$int_dec = 8
while ($int_dec -ne 1) {
    $rem = $int_dec % 16
    switch ($rem) {
        0 {$int_hex = '0' + $int_hex}
        1 {$int_hex = '1' + $int_hex}
        2 {$int_hex = '2' + $int_hex}
        3 {$int_hex = '3' + $int_hex}
        4 {$int_hex = '4' + $int_hex}
        5 {$int_hex = '5' + $int_hex}
        6 {$int_hex = '6' + $int_hex}
        7 {$int_hex = '7' + $int_hex}
        8 {$int_hex = '8' + $int_hex}
        9 {$int_hex = '9' + $int_hex}
        10 {$int_hex = 'A' + $int_hex}
        11 {$int_hex = 'B' + $int_hex}
        12 {$int_hex = 'C' + $int_hex}
        13 {$int_hex = 'D' + $int_hex}
        14 {$int_hex = 'E' + $int_hex}
        15 {$int_hex = 'F' + $int_hex}
    }
    $int_dec = [int]($int_dec / 16)
}

function converter {
    param (
        [Parameter(Mandatory)]
        [AllowEmptyString()]
        [ValidateLength(1,20)]
        [ValidatePattern("[0-9A-Fa-f\.]+")]
        [string]$num,
        [ValidateSet(2,8,10,16)]
        [int]$s1 = 2,
        [ValidateSet(2,8,10,16)]
        [int]$s2 = 16
    )
    if ($s1 -eq $s2){
        return "Сорри, невменяемые действия не выполняю :)"
    }
    if($s1 -lt 16){
        $x = $s1 - 1
        if (($num -match '[A-Fa-f]') -or
            (sls -inp $num -patt '\.' -all).matches.count -gt 1 -or
            $num -match "[^0-$x.]"
        ){
            return "Таких чисел не бывает"
        }
    } else {
        if ((sls -inp $num -patt '\.' -all).matches.count -gt 1){
            return "Таких чисел не бывает"
        }
    }
    $arr = @('0','1','2','3','4','5','6','7','8','9','A','B','C','D','E','F')
    $numint,$numfrct = $num.split('.')
    $i,$k = ($numint.length-1),0
    if ($numint) {
        foreach ($itemint in $numint.tochararray()){
            if($s1 -lt 16){$a = [int]"$itemint"} else {$a = iex "0x$itemint"}
            $tmpint += $a*([math]::pow($s1,$i))
            $i--
        }
    } else {$tmpint = 0}
    if ($numfrct){
        foreach ($itemfrct in $numfrct.tochararray()){
            $k--
            if($s1 -lt 16){$b = [int]"$itemfrct"} else {$b = iex "0x$itemfrct"}
            $tmpfrct += $b*[math]::pow($s1,$k)
        }
    }
    $numdec = (iex "$tmpint") + $tmpfrct
    if ($s2 -eq 10){return "$numdec"} else {$onumint,$onumfrct = "$numdec".split('.')}
    $outstr,$otmpint = '',(iex "$onumint")
    if ($otmpint){
        while ($otmpint -gt 0){
            $outstr = "$($arr[($otmpint % $s2)])" + $outstr
            $otmpint = [math]::truncate($otmpint/$s2)
        }
    } else {$outstr = $arr[0]}
    if ($onumfrct){
        $outstr += '.'
        $otmpfrct,$j = (iex "0.$onumfrct"),0
        while ($otmpfrct -gt 0 -and $j -lt 6){
            $j++
            $otmpfrct *= $s2 
            $outstr += $arr[([math]::truncate($otmpfrct))]
            if ($otmpfrct -ge 1){$otmpfrct -= [math]::truncate($otmpfrct)}
        }
    }
    return $outstr
}
 
 
$n = read-host 'Введите число '
$ss1 = read-host 'Введите основание системы счисления входящего числа (2,8,10,16) '
$ss2 = read-host 'Введите основание системы счисления выходящего числа (2,8,10,16) '
$param = @{num = $n}
if ($ss1 -or $ss2){
    $param += @{
        s1 = [int]$ss1
        s2 = [int]$ss2
    }
}
 
converter @param

$str = [string](Read-Host "Введите двоичное число")
$str = ('0' * (4 - $str.Length % 4)) + $str 
 
$str -split '(?<=\d{4})(?=(?:\d{4})+$)' `
     -replace '0000','0' -replace '0001','1' -replace '0010','2' `
     -replace '0011','3' -replace '0100','4' -replace '0101','5' `
     -replace '0110','6' -replace '0111','7' -replace '1000','8' `
     -replace '1001','9' -replace '1010','a' -replace '1011','b' `
     -replace '1100','c' -replace '1101','d' -replace '1110','e' `
     -replace '1111','f' -join ''

$str
 -split '(....)'
   -replace '0000','0' -replace '0001','1' -replace '0010','2' -replace '0011','3' -replace '0100','4'
   -replace '0101','5' -replace '0110','6' -replace '0111','7' -replace '1000','8' -replace '1001','9' 
   -replace '1010','a' -replace '1011','b' -replace '1100','c' -replace '1101','d' -replace '1110','e' 
   -replace '1111','f'
 -join '';

"abcd" -replace
"b","9"