Шифр гаммирования

Тема в разделе "Delphi", создана пользователем velya1337, 12 май 2019.

  1. velya1337

    velya1337 Знающий

    Регистрация:
    25 май 2018
    Сообщения:
    123
    Симпатии:
    44
    Розыгрышей:
    0
    Репутация:
    2
    Помогите создать программу которая шифрует текст шифром гаммирования.
    На форме нужно 2 едита и 2 кнопки. В первый эдит вводится текст который в зашифрованном виде выводится во второй эдит при нажатии на кнопку и дешифруется при нажатии на вторую кнопку и выводится в эдит1
     
  2. EEvgrafov

    EEvgrafov Новый пользователь

    Регистрация:
    8 апр 2019
    Сообщения:
    1
    Симпатии:
    0
    Розыгрышей:
    0
    Репутация:
    0
    Там же все просто. На форму компоненты накидать а кода полно в поиске.
    Не знаю как тут код выделять...

    Вот пример из сети.

    procedure proc_encr(s_source,s_gamma:String;Var s_rez:String);
    Var i,j:Integer;
    begin
    s_Rez:='';
    i:=1;
    While i<=Length(s_Source) do
    begin
    For j:=1 to Length(s_gamma) do
    s_rez:=s_rez+chr(ord(s_source[i+j-1]) xor ord(s_gamma[j]));
    i:=i+Length(s_gamma);
    end;
    end;

    s_source - что нужно закодировать.
    s_gamma - как не странно - гамма.
    s_rez - результат
     

Поделиться этой страницей

  • Яндекс.Метрика
  • Рейтинг@Mail.ru