Моя работа - Delphi - GOSTEncryption

Да, этот модуль использован в моей базе данных для общежитий.

Если Вы имели в виду текст программы, в котором использовался этот модуль, то более менее показательного примера нет. Если я Вам дам кусок из базы данных, то с этим куском Вы будете разбираться еще дольше, чем без него. Если Вам что-то не понятно, Вы можете задать мне Ваши вопросы в этом форуме.

насколько я понял, скачать код программы «База данных для общежитий» полностью или частично возможности нет?

База данных для общежитий распространяется за wmz.

1. Почему опубликована (public) процедура GenerateGamma? Может я не так понял, но я думал она используется по ходу работы алгоритма кодировки/декодировки.

Генерация гаммы и ее применение - это два разных метода. Гамму может потребоваться сгенерировать не применяя ее; реализовав в одном методе генерация+применение я лишил бы пользователя возможности 1) получить случайную гамму 2) зашифровать с использованием заранее сгенерированной гаммы

Случайные последовательности может потребоваться генерировать и за пределами этого класса. Например, у меня есть класс для работы с зашифрованным файловым потоком как с обычным файловым потоком. Для его реализации не достаточно процедуры шифрования: в поток могут дописываться данные; гамму требуется догенерировать по ходу добавления новых данных.

2. Куда должны указывать указатели src, dst, gamma?

Обычно:
src - источник (откуда берутся данные)
dst - приемник (куда записывается результат)
gamma - указатель на гамму.

Эти три указателя - просто указатели на некоторую область памяти; эта память рассматривается как последовательность байтов (слов, двойных слов - в зависимости от метода).

3. Что такое noblocks?

noblocks - Number Of Blocks (количество блоков). Я когда-то придумывал такие имена. Сейчас я эту переменную назвал бы block_count.

Что нужно, чтобы начать кодинг? 1. Насколько я понял нужно вызвать (обязательно) SetPassword, Set128Table, SetTable, SetKey. А уже потом начинать кодирование.

Ой.. У меня это было 15 сентября 2001 года, думаете я что-то помню? Буду вспоминать, если вдруг обману - не судите строго

Для работы методов EncryptSimple, DecryptSimple, GenerateImito и GenerateGamma требуются ключевые данные и таблица замен.

Ключевые данные устанавливаются методом SetKey. Этот метод вызывать обязательно.

Таблица замен устанавливается одним из двух методов Set128Table или SetTable. Один из этих двух методов нужно вызвать обязательно. Их отличие - формат таблицы замен.

SetTable устанавливает таблицу во внутреннем формате, как она используется перечисленными выше методами. В этом внутреннем формате, если я правильно помню, идет 4 блока по 256 байт. В каждом блоке содержится случайная последовательность чисел от 0 до 255. Каждое число может встретиться в блоке ровно один раз; то есть берем числа от 0 до 255, перемешиваем их в случайном порядке, это и будет один блок таблицы замен.

Set128Table преобразует таблицу из 128-байтовой последовательности во внутренний формат. Если я не ошибаюсь, эта 128-байтовая последовательность может быть случайной. Могу и ошибаться.

Метод SetPassword вызывать не обязательно. Он разработан лично мной для того, что бы не ломать голову над тем, как устанавливать ключевые данные и таблицу замен. Этот метод получает на вход строку и устанавливает ключевые данные и таблицу замен в соответствие с этой строкой. В самом простом случае для ключевых данных можно взять тот пароль, который ввел пользователь. Таблицу замен можно сделать постоянной. В ГОСТе, если я правильно помню, написано, что таблица замен не является секретным данным (секретным является только ключ), но сохранение в секрете таблицы замен повышает надежность алгоритма.

2. Простая замена: EncryptSimple (a1,a2: pchar...

Да, это метод для шифрования простой заменой. Его можно вызывать после установки ключа и таблицы замен. Для расшифровки данных, зашифрованных методом простой заменой, следует использовать метод DecryptSimple.

3. С гаммой: сначала ApplyGamma (a1, gm: pchar...), потом EncryptSimple (a1,a2: pchar...

Ужас %) нет %) шифрование простой заменой и шифрование с гаммой - это два разных режима шифрования.

Для шифрования с гаммой нужно сначала сгенерировать гамму при помощи GenerateGamma, а потом применить ее при помощи ApplyGamma. Расшифровка - повторным применением той же гаммы.

Хотя нет, там в 128-байтовой таблице замен, по-моему, идет 8 блоков по 16 байтов в каждом; в каждом блоке - случайная последовательность чисел от 0 до 15; в каждом байте используются только младшие 4 бита. Снова же, если я правильно помню

Извинити не подскажите а для чего нам нужна asm вставка?

Хотел еще спросить у есть процедура generate imito она для чего нужна в этом коде?

Здравствуйте! Вообще я хотела в самом малом разобраться, с адресами. у вас N1 и N2 какого типа?Мне кажется у Вас типа Item, но у меня он ругается, использую делфи 7. И потом хотела разобраться, после прцедуры shifr, в Temp даёт только 3 символа,помогите разобраться, какой тип надо брать?  
private
N1:string[4];
Temp:string[4];
....
procedure TForm1.shifr;
var
aN1:^byte;
aTemp:^byte;
begin
aN1:=@N1;
aTemp:=@Temp;
      asm
         mov ecx, 4
         mov edi, aN1
         mov esi, aTemp
@bb:     mov al, [edi]
         mov [esi], al
         inc esi
         inc edi
         loop @bb
      end;
edit1.text:=Temp;  
...
procedure TForm1.Button1Click(Sender: TObject);
N1:=N1+edit3.Text[i];
...
shifr;

Здравствуйте! У меня вопрос такой: Почему вы решили реализовать Гост на делфи, ведь написанный на ассемблере быстрее обрабатывает текст большой длиный, а делфи отстаёт во времени?

Здравствуйте, Юрий!
Очень понравился Ваш сайт. Особенно реализация ГОСТ шифрования.
Не могли бы Вы показать реализацию этого модуля в проекте?