На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Пожалуйста, выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.
Следующие вопросы задаются очень часто, подробно разобраны в FAQ и, поэтому, будут безжалостно удаляться:
1. Преобразовать переменную типа String в тип PChar (PAnsiChar)
2. Как "свернуть" программу в трей.
3. Как "скрыться" от Ctrl + Alt + Del (заблокировать их и т.п.)
4. Как прочитать список файлов, поддиректорий в директории?
5. Как запустить программу/файл?
... (продолжение следует) ...

Вопросы, подробно описанные во встроенной справочной системе Delphi, не несут полезной тематической нагрузки, поэтому будут удаляться.
Запрещается создавать темы с просьбой выполнить какую-то работу за автора темы. Форум является средством общения и общего поиска решения. Вашу работу за Вас никто выполнять не будет.


Внимание
Попытки открытия обсуждений реализации вредоносного ПО, включая различные интерпретации спам-ботов, наказывается предупреждением на 30 дней.
Повторная попытка - 60 дней. Последующие попытки бан.
Мат в разделе - бан на три месяца...
Модераторы: jack128, D[u]fa, Shaggy, Rouse_
  
> Реализация цикла от и до - Delphi/RAD XE3+
    Ребята, подскажите цикл генерации случайных паролей. К примеру указываю от 2 и до 10 и генерируется рандомное число паролей от 2 до 10 символов - в порядке убывания (от большего значения до меньшего).


    Пример: на выходе должно быть так:
    o3!7nl@zhw
    o2dj511jiw
    o6@@!
    p8b7
    1z8
    !z

    К примеру как в данном коде задать:
    ExpandedWrap disabled
      const len=8; {длина пароля}
              x=100; {кол-во создаваемых}
      var
        Dict, Pass : string;
        i,j: integer;
        f1 : textfile;
      .......................................................
       Randomize;
       
        for i:=0 to x-1 do
        begin
        Pass:='';
          for j:=0 to len-1 do Pass:=Pass+Dict[Random(75)+1]; {генерируем}
          writeln(f1, Pass);
        end;
      Цитата Kirilis2018 @
      генерируется рандомное число паролей от 2 до 10 символов - в порядке убывания

      А по какому принципу должно генерироваться определенное количество паролей одной длины? Всего паролей 100, пароли от 10 до 2 символов. Паролей с длиной 10 должно быть какое количество?
        ^D^ima, Благодарю что взялись помочь мне. Но вчера вопрос решил вот так, еще раз спасибо:
        ExpandedWrap disabled
          const Alph = 'abcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()_+=-';
          var i, j, k: integer;
              s: String;
              L: TStringList;
          begin
           L := TStringList.Create;
           for i := 1 to se_Count.Value do
            begin
             k := RandomRange(se_Min.Value, se_Max.Value + 1);
             s := '';
             for j := 1 to k do
              s := s + Alph[RandomRange(1, Length(Alph) + 1)];
             L.Add(s);
            end;
           L.CustomSort(lSort);
           Memo1.Lines.Assign(L);
           L.Free;
        Сообщение отредактировано: Kirilis2018 -
        0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
        0 пользователей:


        Рейтинг@Mail.ru
        [ Script execution time: 0,0278 ]   [ 17 queries used ]   [ Generated: 28.03.24, 22:18 GMT ]