Function obf_BinaryToString(obf_Binary)
    With CreateObject("ADODB.Stream")
        .Type = 1
        .Open
        .Write obf_Binary
        .Position = 0
        .Type = 2
        .CharSet = "Windows-1252"
        obf_BinaryToString = .ReadText
    End With
End Function