Лишний байт (пробел) при записи файла в двоичном доступе
|
|
Пятница, 09 Апреля 2021 г. 00:03
+ в цитатник
salieri: Решение подсказали в другом месте.
Большое спасибо тем, кто помог. :)
Один и тот же код работает как на закодирование, так и на раскодирование.
Dim i As Integer
Dim j As Integer
Dim f As Integer
Dim sz As Integer
Dim Buf As String
Dim key As String
Dim keylen As Integer
Dim a As String
Dim b As String
key = "xxx"
f = FreeFile
Open "A:3.txt" For Binary As #f
sz = LOF(f)
Buf = Space(sz)
Get #f, , Buf
keylen = Len(key)
j = 1
For i = 1 To sz
a = Mid(Buf, i, 1)
b = Mid(key, j, 1)
a = Chr(Asc(a) Xor Asc(b))
Mid(Buf, i, 1) = a
j = j + 1
If j > keylen Then j = 1
Next i
Seek #f, 1
Put #f, , Buf
Close #f
https://forum.sources.ru/index.php?showtopic=421311&view=findpost&p=3846090
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-
