f#byte [] - > hex - >字符串转换

let byteArrayToHexString (bytes: byte[]) =
    let hexChars = "0123456789ABCDEF"
    let result = new System.Text.StringBuilder()
    for byte in bytes do
        let b = int byte
        result.Append(hexChars.[b >>> 4]) |> ignore
        result.Append(hexChars.[b &&& 0xF]) |> ignore
    result.ToString()

let hexStringToByteArray (hex: string) =
    let bytes = Array.zeroCreate (hex.Length / 2)
    for i in 0..(hex.Length / 2 - 1) do
        bytes.[i] <- byte (int (hex.Substring(i * 2, 2), System.Globalization.NumberStyles.HexNumber))
    bytes

let byteArrayToString (bytes: byte[]) =
    System.Text.Encoding.UTF8.GetString(bytes)

let hexStringToString (hex: string) =
    let bytes = hexStringToByteArray hex
    byteArrayToString bytes