Разобраться в коде шифрования - 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

Оцени полезность:

12   голосов , оценка 3.667 из 5