Разобраться в коде шифрования - VB
Формулировка задачи:
Всем привет! Очень нужна ваша помощь. Перейду сразу к сути: есть некая программа, она запршивает один документ в зашифрованном виде, в себе содержит скрипт(алгоритм?) дешифровки. Как написать программу из этой, которая бы вызывала тот файл, дешифровывала его и записывала в *.txt уже расшифрованным?
Прикладываю эту программу и файл.
Решение задачи: «Разобраться в коде шифрования»
textual
Листинг программы
Option Explicit Dim s, i, j, d if WScript.arguments.count < 1 then wscript.quit with createobject("scripting.filesystemobject") s=.opentextfile(WScript.arguments(0)).readall For i = 1 To Len(s) j = Asc(Mid(s, i, 1)) If j > 15 Then d = d & Chr(j + 1) else d = d & Mid(s, i, 1) Next .createtextfile(WScript.arguments(0) & ".txt").write d end with
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д