| Вопрос: Помогите с прогой - шифрование | Добавлено: 21.01.08 09:22 |
Автор вопроса:  Satanist | ICQ: 4732902 |
|
Давно бьюсь над прогой, чёто хрень получается :) В общем, вот ситуация: есть некоторый текст и есть пароль, с помощью которого нужно текст зашифровать. Расшифровывается текст тем же паролем.
P A S W +-+-+-+-+ |a|b|c|d| +-+-+-+-+ |e|f|g|*| +-+-+-+-+ Результат шифрования: "bfaecgd*". Суть в том, что выстраивается таблица из символов текста, количество столбцов равно длине пароля. Всё счастье заполняется буквами слева направо и сверху вниз, в пустые клетки ставится звёздочка. Шифрованный текст складывается из символах в столбцах, сверху вниз. Столбцы выбираются в порядке следования букв (Столбец "А" в первую очередь, так как среди символов пароля "A" первый по алфавиту). Знаю, объяснил тупо, но надеюсь из примера всё понятно ;) Помогите пожалуйста, я в отчаянии! |
| Ответы | Всего ответов: 5 |
|
Номер ответа: 1 Автор ответа:  Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | Цитата | #1 | Добавлено: 21.01.08 15:50 |
| Это не является шифрованием. | ||
|
Номер ответа: 2 Автор ответа: Satanist ICQ: 4732902 Вопросов: 7 Ответов: 26 |
Профиль | Цитата | #2 | Добавлено: 22.01.08 07:20 |
| Поясните. | ||
|
Номер ответа: 3 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #3 | Добавлено: 23.01.08 02:48 |
помойму ТС лепит обычного цезаря  ..
ТС, делай так: dim alfavit$ = "qwertyuiop" dim alfavit2$ = "poiuytrewq" dim source$ = "toopo" dim result$ for i = 1 to len (source$) pos = instr (1, alfavit$, mid$(source$,i,1),1) result$ = result$ & mid$(alfavit2$,pos,1) next i P.S. Ниче не тестил |
||
|
Номер ответа: 4 Автор ответа: SatanistICQ: 4732902 Вопросов: 7 Ответов: 26 |
Профиль | Цитата | #4 | Добавлено: 25.01.08 10:15 |
| :\ забил xD | ||
|
Номер ответа: 5 Автор ответа: HACKERРазработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #5 | Добавлено: 27.01.08 06:07 |
|
:\ Т.е. ты только копипестить умеешь?
Private Sub Form_Load()
Dim alfavit$: alfavit$ = "qwertyuiop" Dim alfavit2$: alfavit2$ = "poiuytrewq" Dim source$: source$ = "toopo" Dim result$ For i = 1 To Len(source$) pos = InStr(1, alfavit$, Mid$(source$, i, 1), 1) result$ = result$ & Mid$(alfavit2$, pos, 1) Next i MsgBox result$ End Sub |
||
Страница: 1 |