VPF::des - Форум программистов

namra

Дата 20.11.2008, 21:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Алгоритм DES. Делаю перестановку ключа с уменьшением до 56 бит удаляя контрольные биты выходит что-то не то подскажите в чем проблема.

Код


procedure TForm1.ShifrBtnClick(Sender: TObject);
var
    s1:string;
    i:integer;
begin

   s1:=KeyEdit.Text;


    //Начальная перестановка ключа с уменьшением до 56 битов
    temp:=s1;
    for i:=1 to 56 do
     begin
       temp[i]:=s1[key56[i]];
     end;
    s1:=temp;
   //
   ShifrMemo.Text:=s1;
end;

Riply

Дата 21.11.2008, 06:57 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Комодератор
Сообщений: 572
Регистрация: 27.3.2007
Где: St. Petersburg

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

Цитата(namra @ 20.11.2008, 21:05

)

выходит что-то не то подскажите в чем проблема

"Я тэбэ одын умный вещ скажу. Тока ты не обижайся" (с) Мимино smile

Проблемма в том, что ты не только не удосужился прочитать
хоть какую-нибудь книжку по программированию, но даже просто открыть ее и картинки посмотреть.
Очень тяжело что-то обсуждать с человеком, не владеющим даже элементарными основами (возможно и терминологией).
Не буду удивлена, если выяснится, что ты байт от бита или xor от and отличить не можешь .
Тебе давали ссылки на уроки Анатолия Подгоретцкого. И что ?
Допустим, попробую я тебе что-то сейчас объяснить.
Ты же ни черта не поймешь.
И не потому что глуп, а потому что не знаешь языка на котором будет идти разговор.

--------------------

Решение задач под заказ

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