Ich hatte grad ein wenig Langeweile und habe mal was runtergeschrieben. Ist sicherlich noch verbesserungswürdig..
Function HexToBase32 ($HexString)
{
$Base32Chars = @("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z","2","3","4","5","6","7")
$ArrDez = @()
for ($i = 0; $i -lt $HexString.Length/2; $i++)
{
$HexStringTwoChars = $HexString.Substring($i*2, 2)
$ArrDez += [System.Convert]::ToInt32($HexStringTwoChars,16)
}
for ($i = 0; $i -lt $ArrDez.Length; $i++)
{
$DezToByte = [convert]::ToString($ArrDez[$i],2)
while ($DezToByte.Length -lt 8)
{
$DezToByte = "0"+$DezToByte
}
$ByteChain += $DezToByte
}
while (($ByteChain.Length % 5) -gt 0 )
{
$ByteChain = $ByteChain + "0"
}
for ($i = 0; $i -lt $ByteChain.Length/5; $i++)
{
$FiveBits = $ByteChain.Substring($i*5, 5)
$BitsToDez = [convert]::ToInt32($FiveBits,2)
$Base32CharChain = "$Base32CharChain" + $Base32Chars[$BitsToDez]
}
return $Base32CharChain
}
