Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.10.2019, 16:16   #11
Dezzy
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
такой вариант попробуйте
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, a, b, h, x, y: integer;
  txt, pass, rez: string;
begi

  Memo3.Lines.Clear; // очистить Memo3

  for k := 0 to Memo1.Lines.Count - 1 do begin
    txt := Memo1.Lines.Strings[k];

    pass := edit1.Text;
    x := length(txt); //x длина текста
    y := length(pass); //y длина пароля
    //Делаем цикл, чтобы хватало пароля для перекрытия текста
    //Если размера пароля не будет хватить, то цикл зайдёт заново
    //и добавит пароль к паролю
    while x > y do begin
      pass := pass + edit1.Text;
      y := length(pass);
    end;

    //От первого символа до последнего символа текста берём и приставаиваем
    //значения a и b номера в таблице ASCII
    rez := '';
    for i := 1 to x do begin
      h := ord(txt[i]) + ord(pass[i]);
      if h > 255 then h := h - 255;
      rez := rez + chr(h);
    end;

    Memo3.Lines.Append(rez);

  end;
end;
Теперь 9 строк выводит, вместо нужных 8
Dezzy вне форума Ответить с цитированием
Старый 03.10.2019, 16:17   #12
Dezzy
Пользователь
 
Регистрация: 27.09.2018
Сообщений: 13
По умолчанию

Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
такой вариант попробуйте
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
  i, a, b, h, x, y: integer;
  txt, pass, rez: string;
begi

  Memo3.Lines.Clear; // очистить Memo3

  for k := 0 to Memo1.Lines.Count - 1 do begin
    txt := Memo1.Lines.Strings[k];

    pass := edit1.Text;
    x := length(txt); //x длина текста
    y := length(pass); //y длина пароля
    //Делаем цикл, чтобы хватало пароля для перекрытия текста
    //Если размера пароля не будет хватить, то цикл зайдёт заново
    //и добавит пароль к паролю
    while x > y do begin
      pass := pass + edit1.Text;
      y := length(pass);
    end;

    //От первого символа до последнего символа текста берём и приставаиваем
    //значения a и b номера в таблице ASCII
    rez := '';
    for i := 1 to x do begin
      h := ord(txt[i]) + ord(pass[i]);
      if h > 255 then h := h - 255;
      rez := rez + chr(h);
    end;

    Memo3.Lines.Append(rez);

  end;
end;
Всё, работает. Огромное спасибо
Dezzy вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[C++] Помогите с данной темой: Не создавая отдельного файла, удалить из текстового файла слова, содержащие N гласных букв Mapuo__ Помощь студентам 3 20.04.2017 18:42
Шифрование текстового Dux Общие вопросы Delphi 23 14.08.2015 10:29
Из Паскаля в СИ++. Шифрование текстового файла перестановкой desnet Помощь студентам 1 24.05.2014 09:46
Шифрование текстового файла на Delphi вася радугов Помощь студентам 5 21.11.2012 00:09
Шифрование текстового файла pomoshnic Паскаль, Turbo Pascal, PascalABC.NET 5 14.02.2009 18:21