问大家个问题，这样的加密，解密怎么算的！目前只有个实例～！

Question

加密后的844605500  解密IP是60.168.87.50

Answer 1

Option ExplicitPrivate Sub Command1_Click()
Dim Data As StringData = Hex(844605500) '里面是所谓加密后的数据If Len(Data) < 8 Then
  Data = String(8 - Len(Data), Asc("0"))
End IfMsgBox "IP:" & Val("&H" & Mid(Data, 7, 2)) & ":" & Val("&H" & Mid(Data, 5, 2)) & ":" & Val("&H" & Mid(Data, 3, 2)) & ":" & Val("&H" & Mid(Data, 1, 2))End Sub

Answer 2

Option ExplicitPrivate Sub Command1_Click()
Dim Data As StringData = Hex(255) '里面是所谓加密后的数据  IP是 255:0:0:0If Len(Data) < 8 Then
  Data = String(8 - Len(Data), Asc("0")) & Data '此处少了一个 Data. 更正一下.
End IfMsgBox "IP:" & Val("&H" & Mid(Data, 7, 2)) & ":" & Val("&H" & Mid(Data, 5, 2)) & ":" & Val("&H" & Mid(Data, 3, 2)) & ":" & Val("&H" & Mid(Data, 1, 2))
End Sub

Answer 3

调用一个Winsock API:inet_ntoa即可.

Answer 4

fvflove的代码没有什么问题,但是如果CPU不是x86架构的,那么解出来就会变成了"50.87.168.60"