我试图模拟密码学中的一个算法,我需要将0和1s的字符串转换回一个单词。示例:我有: 01011110010101101000001101100001101我已经将它拆分为一个字符串数组: 0101111,0010101,.
每个成员有7个字符。我想要一封在UTF8中代表0101111的信?我该怎么做?
我尝试CType("0010101",拜特),但失败了。这条路我最多可以通过111。帮助:/
发布于 2014-06-12 17:19:10
UTF-8是8位,只有7位。你是说7位ASCII吗?
在这种情况下,你可以:
Function BinToStr(binStr As String) As String
Dim i As Long
For i = 0 To (Len(binStr) / 7) - 1
[A1] = CLng(Mid(binStr, i * 7 + 1, 7))
BinToStr = BinToStr & Chr([BIN2DEC(A1)])
Next
End Function
如果这不是你要找的,就告诉我。
https://stackoverflow.com/questions/24190001
复制相似问题