' **********************************************************
' File encoding/decoding using XOR function
' arguments:
'   sFileFullName, String, requared: full file name
'   sKey, String, requared:          key for edcoding/decoding
' returning values:
'   0: no errors; not 0: some error occured
Function ForCESpecialBreakRepear%(sFileFullName$, sKey$)
Dim n&, f%, b0 As Byte, b As Byte
Dim lFileLen&, lKeyLen&, lUBound&

On Error GoTo Fail

' ограничение допустимых символов "ключа"
'If sKey Like "*[!@$_0-9a-zA-Zа-яА-Я]*" Then
'    MsgBox "Недопустимый символ в ключе", vbExclamation + vbOKOnly, "Кина не будет"
'    ForCESpecialBreakRepear = &H100
'    Exit Function
'End If


f = FreeFile

' открыть файл для прямого доступа
Open sFileFullName For Binary As #f


' определить верхнюю границу цикла (на тот случай если ключ окажется длиннее файла)
lFileLen = LOF(f): lKeyLen = Len(sKey)
If lKeyLen < lFileLen Then lUBound = lKeyLen Else lUBound = lFileLen


' "испортить"/восстановить файл
For n =  1 & To lUBound
    b = CByte(Asc(Mid(sKey, n)))
    Get #f, n, b0: b = b Xor b0: Put #f, n, b
Next n

' закрыть файл
Close #f

NormExit:
    Exit Function

Fail:
    ' обработчик ошибок написать самостоятельно
    ForCESpecialBreakRepear = &H112
    Resume NormExit
End Function

skey = skey & Hex(b)

b = CByte("&H" & Mid(skey,  2  * i -  1 ,  2 ))