Запись в файл закодированного текста и наоборот

[zaf]

Помогите пожалуйста плииз...

Нужно добавить текст в файл в зашифрованом виде
Потом прочитать и разшифровать


SMR писал как можно это делать!
Надо просто по циклу накладывать буквы из пароля на буквы текста по операции XOR.
Побитовая операция XOR:
0 ^ 0 = 0
0 ^ 1 = 1
1 ^ 0 = 1
1 ^ 1 = 0
Допустим первая буква слова имеет код 01011001
первая буква пароля 00010010
закодируется так (для наглядности в столбик)
01011001
XOR
00010010
=
01001011
Для того чтобы раскодировать операцию повторяешь.

Тоже самое для остальных букв до конца текста.
Если пароль короче текста (а это обычное дело), то строку пароля накчинаем с начала(повторяем) пока текст не кончиться.
Это алгоритм.
Теперь надо найти перевод символов в код и обратно, а также найти в VB или написать самому XOR


Записываю в файл так
Open "C:\login.txt" For Append Shared As #1
Print #1, Text1.Text
Close #1

Читаю так

nFile = FreeFile

Open "c:\chat.txt" For Input As #nFile
RichTextBox1.Text = Input$(LOF(nFile), #nFile)

Close #nFile

Подскажите плиз чем можно это все заменить чтобы при чтении текст автоматом разкодился ну хотябы самый простой шифр

[zaf]

Да ну нафиг его...
Из-за како_то Лола мозги напрягать!:)

Верно?;)