2016年8月27日
vb6转16进制
摘要： Public Function xEncode(ByVal strEncode As String) As String If strEncode "" Then var_51 = "0x" For i = 1 To Len(strEncode) var_50 = Hex(AscW(CStr(Mid(strEncode, i, 1)))) var_51 = var... 阅读全文
posted @ 2016-08-27 17:46 comsky 阅读(612) 评论(0) 推荐(0) 编辑