Как скачать софт с этого сайта?

При скачивании исполняемых файлов часто скачиваемое блокируется по соображениям безопасности. Чтобы облегчить жизнь в таких ситуациях, все исполняемые файлы заданы в виде 7-zip архивов текстовых файлов. Из них получаете на своем компьютере исполняемые файлы, которые затем на своем компьютере проверяете антивирусом. Последовательность действий для получения исполняемых файлов описана далее.

Для преобразования текстовых файлов в исполняемые требуется:
1) Создать указанные далее файл toBIN.VBS и файл toEXE.BAT и поместить их в одну папку.
2) Извлечь в эту же папку требуемые текстовые файлы из архивов 7-zip.
3) Запустить файл toEXE.BAT в этой папке. Дождаться завершения.
В результате в папке появятся исполняемые файлы, которые можете проверять антивирусом и затем использовать.

Файл toBIN.VBS (просто скопируйте в текстовом редакторе в файл toBIN.VBS ):
' toBIN.VBS: TXT => binary //krym52 22.08.2021
' Param: TXT
Set objArgs = WScript.Arguments
if objArgs.Count > 0 then
sFc=objArgs(0)
Set FSOc = CreateObject("Scripting.FileSystemObject")
Set fC = FSOc.OpenTextFile(sFc,1)
s=fC.ReadLine
i=InStr(s,vbTab)
if i = 0 then
n=-1
else
sFb=Mid(s,1,i-1)
n=CLng(Mid(s,i+1))
'msgbox sFb & vbTab & CStr(n)
end if
Set FSOb = CreateObject("Scripting.FileSystemObject")
Set fB = FSOb.CreateTextFile(sFb, true)
while not fC.AtEndOfStream
s=fC.ReadLine
while s <> ""
s1="&H" & Mid(s,1,2)
b=Chr(CInt(s1))
fB.Write(b)
s=Mid(s,4)
wend
wend
fB.Close
fC.Close
'msgbox sFb & vbTab & CStr(n)
end if

Файл toEXE.BAT (просто скопируйте в текстовом редакторе в файл toEXE.BAT ):
for %%f in (*.TXT) do toBIN.VBS %%f

Top