Reprinted, Please retain the copyright information! Thank you for your cooperation!
By NetPatch
Welcome www.nspcn.org and www.icehack.com
Recently, penetration tests often encounter RADMIN and other things ..
When encountering such a program, I usually look at the other party's configuration of the RADMIN port and the corresponding PASS (encrypted)
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
// Use a comma to separate the ones read by Haiyang, and then use the following code for conversion.
[Copy to clipboard] [-] CODE:
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 conversion
[Copy to clipboard] [-] CODE:
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