Dim theStr  theStr = InputBox( "请输入要转换的密码：", "输入", "44,41,43,32,43,5,45,64,43,24,31,53,46,57,64,86" )  If theStr <> "" Then           Call InputBox("请复制已经转换好的密码",,zpass(theStr))  End If  Function zpass(pass)  tpass=""  MyArray = Split(pass, ",", -1, 1)  For each thepass in MyArray     if len(thepass) = 1 then      tpass=tpass+"0"     end if     tpass=tpass+hex(thepass)  Next  zpass=tpass  End Function 

Dim theStr  theStr = InputBox( "请输入要转换的端口：", "输入", "223,34,0,0," )  da = Split(thestr, ",", -1, 1)  If theStr <> "" Then           Call InputBox("请复制已经转换好的端口",,Hex2Dec(Dec2Hex(da(3))&Dec2Hex(da(2))&Dec2Hex(da(1))&Dec2Hex(da(0))))  End If  Function Hex2Dec(Hex)        Hex = UCase(Hex)        For i = 1 To Len(Hex)            Select Case Mid(Hex, Len(Hex) - i + 1, 1)                Case "0": B = B + 16 ^ (i - 1) * 0                Case "1": B = B + 16 ^ (i - 1) * 1                Case "2": B = B + 16 ^ (i - 1) * 2                Case "3": B = B + 16 ^ (i - 1) * 3                Case "4": B = B + 16 ^ (i - 1) * 4                Case "5": B = B + 16 ^ (i - 1) * 5                Case "6": B = B + 16 ^ (i - 1) * 6                Case "7": B = B + 16 ^ (i - 1) * 7                Case "8": B = B + 16 ^ (i - 1) * 8                Case "9": B = B + 16 ^ (i - 1) * 9                Case "A": B = B + 16 ^ (i - 1) * 10                Case "B": B = B + 16 ^ (i - 1) * 11                Case "C": B = B + 16 ^ (i - 1) * 12                Case "D": B = B + 16 ^ (i - 1) * 13                Case "E": B = B + 16 ^ (i - 1) * 14                Case "F": B = B + 16 ^ (i - 1) * 15            End Select        Next        Hex2Dec = B  End Function  Function Dec2Hex(Dec)        Dec2Hex = ""        Do While Dec > 0            a = CStr(Dec Mod 16)            Select Case a                Case "10": a = "A"                Case "11": a = "B"                Case "12": a = "C"                Case "13": a = "D"                Case "14": a = "E"                Case "15": a = "F"            End Select            Dec2Hex = a & Dec2Hex            Dec = Dec \ 16        Loop  End Function