VPF::Кодирование в файле - Форум программистов

Dred

Дата 8.1.2008, 15:02 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет

Подскажите как можно закодировать информацию в файле... smile

20071231

Дата 8.1.2008, 15:20 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 44
Регистрация: 26.5.2007
Где: Россия, Белая Кал итва

Репутация: нет
Всего: нет

Ну, я например, кодирую так. Беру произвольный пароль, потом каждый байт исходного текста, меняю по принципу: код первого символа пароля + код первого символа текста, если код становится больше 255 то -255. и так повторяем пароль по всему тексту. Вот в коде:

Код


a = Text1 'исходный текст
r = Пароль1 'пароль
k = Len(r) 'количество символов в пароле
d = Len(a) 'количество символов в тексте

For c = 1 To d

b = Mid(a, c, 1)
o = o + 1
If o > k Then o = 1
r1 = Mid(r, o, 1)
b1 = Asc(b)
r2 = Asc(r1)

b3 = b1 + r2
If b3 > 255 Then b3 = b3 - 255

f1 = Chr(b3)
Text = Text & f1
Next

Text2 = Text ' здесь закодированный текст

Dred

Дата 8.1.2008, 15:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 71
Регистрация: 6.1.2007

Репутация: нет
Всего: нет

А раскодировать как?

20071231

Дата 8.1.2008, 15:44 (ссылка)

(нет голосов)

Загрузка ...

Ну обратный процесс, там плюсовали, раскодировать вычитаем:

Код


'раскодирование
a = Text2
r = Пароль1
k = Len(r)
d = Len(a)

For c = 1 To d
b = Mid(a, c, 1)
o = o + 1
If o > k Then o = 1
r1 = Mid(r, o, 1)
b1 = Asc(b)
r2 = Asc(r1)

b3 = b1 - r2
If b3 <= 0 Then b3 = b3 + 255

f1 = Chr(b3)

Text = Text & f1
Next
Text3 = Text 'раскодированный текст

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »