Приветствую Вас ГостьЧетверг, 18.04.2024, 21:51

В помощь админу


Каталог статей

Главная » Статьи » Windows » Скрипты

Скрипт шифрования скриптов

В данной статье представлен скрипт шифрования скриптов. Данное шифрование позволит скрыть от ненужных глаз данные, используемые в скриптах (например логины и пароли электронной почты).

Данный скрипт я использовал в одном небольшом проекте, чтобы скрыть от глаз обычного пользователя логин и пароль от почтового ящика, который использовал скрипт для отправки на сервер команды для сброса терминальной сессии. Отдельно этот небольшой минипроект будет выложен позднее.

Сам скрипт шифрования. Поддерживает как vbs, так и js скрипты. Хотя в интернете есть указание, что данный скрипт может и hta шифровать, но я не добавлял поддержку hta в свой скрипт, так как им не пользуюсь.

Ещё один момент. Сам скрипт не надо запускать для шифрования. Шифрование происходит методом натаскивания скрипта на этот скрипт шифрования EncodeScript.vbs:

Option Explicit

dim oEncoder, oFilesToEncode, file, sDest
dim sFileOut, oFile, oEncFile, oFSO, i
dim oStream, sSourceFile
dim ext, ext2, point

set oFilesToEncode = WScript.Arguments
set oEncoder = CreateObject("Scripting.Encoder")
For i = 0 to oFilesToEncode.Count - 1
    set oFSO = CreateObject("Scripting.FileSystemObject")
    file = oFilesToEncode(i)
    'msgbox(file)
    point = instr(file,".")
    'msgbox(point)
    If point Then
        ext = lcase(mid(file, point + 1))
        if ext = "vbs" Then ext2 = "vbe"
        if ext = "js" Then ext2 = "jse"
    End if
    'msgbox(ext & " " & ext2)
    set oFile = oFSO.GetFile(file)
    Set oStream = oFile.OpenAsTextStream(1)
    sSourceFile=oStream.ReadAll
    oStream.Close
    sDest = oEncoder.EncodeScriptFile("." & ext, sSourceFile, 0, "")
    'sFileOut = Left(file, Len(file) - 3) & "vbe"
    sFileOut = Left(file, Point) & ext2
    msgbox(sFileOut)
    Set oEncFile = oFSO.CreateTextFile(sFileOut)
    oEncFile.Write sDest
    oEncFile.Close
Next

 

 

Категория: Скрипты | Добавил: isz (27.04.2022)
Просмотров: 503 | Теги: vbs, vbscript, шифрование | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Категории раздела
Active Directory [12]
DHCP [1]
Windows [13]
Wins [1]
Групповая политика [3]
Программы [2]
Резервное копирование [6]
Сеть [5]
Скрипты [31]
Терминальный сервер [7]
Почта [7]
Реестр [2]
Реестр Windows
Командная строка [7]
CMD: Командная строка Windows
Поиск
Форма входа
Наш опрос
Оцените мой сайт
Всего ответов: 147
Друзья сайта
  • Официальный блог
  • Сообщество uCoz
  • FAQ по системе
  • Инструкции для uCoz
  • Статистика