Привет всем. Я, вероятно, не понимаю каких-то азов, но, уже все попробовал, надеюсь на помощь зала )
вообщем, пытаюсь я зашифровать текст в файл, а потом расшифровать его. И не получается при работе с русским шрифтом(а также перевод и возврат каретки и, возможно, что-то еще).
Что я не догоняю?
m$="d:\test.txt" a$="ф" Debug "исходнодн="+a$ OpenFile(5, m$, #PB_UTF8 ) ; игры с #PB_UTF8/#PB_Unicode и вообще без не помогают b=Asc(a$) ! Asc("5") ;шифруем WriteByte(5, b) ; если делать b$=Chr(b) и затем WriteString(5, b$), то 1 русский символ расшифровывается правильно, но при работе с большим текстом выясняется ; что иногда дописывается всякая дополнительная мура и после этого дешифровка ломается. ; по такой же причине не срабатывают операции при записи/считывании из памяти. CloseFile(5) ; дешифровка OpenFile(5, m$, #PB_UTF8 ) ;без разницы, стоит тут #PB_UTF8 или ничего не стоит, все рано не работает b=ReadByte(5) b$=Chr(b ! Asc("5")) ;ДЕшифруем CloseFile(5) Debug "получилось="+b$ DeleteFile(m$)
Отредактировано Goga (15.11.2020 14:16:23)