如何才以把string转化为Hex,又从Hex 转化为string,请高手指教,谢谢

解决方案 »

  1.   

    public string ConvertString(string value, int fromBase, int toBase){  int intValue = Convert.ToInt32(value, fromBase);  return Convert.ToString(intValue, toBase);
    }其中fromBase为原来的格式toBase为将要转换成的格式
      

  2.   

    dlzhangln(我知道你性格,答题要给分的,你也磨不开不给,是不?) 
    正解
      

  3.   

    '********asc转换十六进制 begin********
    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