Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Олимпиады

Страница: 1 |

 

  Вопрос: Помогите с прогой - шифрование Добавлено: 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
Ответов: 6596
 Профиль | | #1 Добавлено: 21.01.08 15:50
Это не является шифрованием.

Ответить

Номер ответа: 2
Автор ответа:
 Satanist



ICQ: 4732902 

Вопросов: 7
Ответов: 26
 Профиль | | #2 Добавлено: 22.01.08 07:20
Поясните.

Ответить

Номер ответа: 3
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 235
Ответов: 8360
 Профиль | | #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
Автор ответа:
 Satanist



ICQ: 4732902 

Вопросов: 7
Ответов: 26
 Профиль | | #4 Добавлено: 25.01.08 10:15
:\ забил xD

Ответить

Номер ответа: 5
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 235
Ответов: 8360
 Профиль | | #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 |

Поиск по форуму





© Copyright 2002-2011 VBNet.RU | Пишите нам