JAW

Сообщение от MicroSur

Сделал конвертер на VBScript для винды, не экзешник, но разницы особо никакой.
Скрипт с аргументом в виде файла прошивки конвертирует туда-сюда, в тот же файл.

Код:

'convert.vbs
'decrypt/encrypt evicVTCmini firmware specified file
Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
fName = WScript.arguments(0)
If Err Then 
msgbox "Firmware file as argument not specified!"
WScript.Quit 
End If
Error.Clear: On Error Goto 0
Set file = objFSO.getFile(".\" & fName)
Set tsFile = file.OpenAsTextStream()
Redim a(file.size)
i = 0
While Not tsFile.atEndOfStream
a(i) = Chr((Asc(tsFile.read(1)) Xor (i + file.size + 408376 - file.size \ 408376)) And 255)
i = i + 1
Wend
bstr = Join(a,"")
tsFile.close
Set outFile = objFSO.CreateTextFile(".\" & fName, True)
outFile.Write(bstr)
outFile.close