如何才以把string转化为Hex,又从Hex 转化为string,请高手指教,谢谢
解决方案 »
- 如何开启toolStrip添加的自定义控件的事件
- 文本框中不绑定数据源,想在边上加个首条,下一条,上一条和最后一条记录,这些按钮应怎样写事件呢?
- 高分解决OleDbCommandBuilder更新数据问题
- 如何用IHTMLDOMNode建立一个 IHTMLElement
- 有一个方法,关于线程的,看不懂,请教一下大虾,做啥用的
- 消息队列可以清除队列中的一条信息吗?
- 求教!!----使用 myDataAdapter.Updata("Table")更新的问题.
- [SOS]:为何窗体不能再一次被弹出
- 关于DSOframe注册的问题
- c# 用户控件问题
- 一个很简单的但又很急的问题!!!急急急
- 我这册CSDN近一年了,以前我发的帖子在"我的帖子"里面找不到了,怎样才能看到我以前发过得帖子?
}其中fromBase为原来的格式toBase为将要转换成的格式
正解
Public Function toHexStr(ByVal str)
tempStr = ""
str = Left(str & Space(24), 24)
For i = 1 To Len(str)
tempStr = tempStr + Hex(Asc(Mid(str, i, 1)))
Next
toHexStr = tempStr
End FunctionPublic Function toHexStrRvs(ByVal str)
tempStr = ""
For i = 1 To Len(str) Step 2
tempStr = tempStr + Chr(intHexStrToInt(Mid(str, i, 2)))
Next
toHexStrRvs = tempStr
End Function
Function intHexStrToInt(strHex)
Dim i, Length, total
Length = Len(strHex)
strHex = UCase(strHex)
For i = Length To 1 Step -1
Dim intv
intv = Asc(Mid(strHex, Length - i + 1, 1)) - 65
If intv >= 0 Then
total = total + 16 ^ (i - 1) * (10 + intv)
Else
total = total + 16 ^ (i - 1) * (intv + 17)
End If
Next
intHexStrToInt = total
End Function