Генератор случайных чисел/англ.букв, вопрос

[BDA]

Странно, что именно этот attachment не скачивается (более ранние скачиются спокойно).

[Serge_Bliznykov]

Сообщение от BDA

Странно, что именно этот attachment не скачивается (более ранние скачиются спокойно).

Это 100% косяк - результат переезда на новый сервер.
Если у Вас архив остался, то проще ещё раз выложить.
если нет - надо администратора форума привлекать (Alar), а это долго и сложно...

[alextrof94]

Сам недавно себе генератор паролей писал =)
Любая дельфя, я думаю, подойдет...

const AlphabetSmall='abcdefghijklmnopqrstuvwxyz';
const AlphabetBig='ABCDEFGHIJKLMNOPQRSTUVWXYZ';
const AlphabetNumbers='0123456789';
// можно было все в одну строку запихнуть, но а вдруг...

procedure TFMain.Button1(Sender: TObject); // клик по кнопке "generate"
var
  newPassword: String; // пароль
  i, j:Integer; // счетчики

  function getRandomChar(str: String):String; //функция добавления НОВОЙ буквы к паролю, т.е. буквы/цифры в пароле не будут повторяться.
  var
    c:Char;
  begin
    case Random(3) of
      0: c:=AlphabetSmall[Random(Length(AlphabetSmall))+1];
      1: c:=AlphabetBig[Random(Length(AlphabetBig))+1];
      else c:=AlphabetNumbers[Random(Length(AlphabetNumbers))+1];
    end;
    if Pos(String(c),str)>0 then
      result:= getRandomChar(str)
    else
      result:=c;
  end;

begin
 for j :=0 to StrToInt(edit1.text)-1 do // количество ключей
 begin
  newPassword=''; // два ' (апострофа)
  for i := 0 to 31 do 
   newPassword:=newPassword+getRandomChar(newPassword);
  listbox1.items.add(newPassword); // добавляем их в листбокс
 end;
end;

для примера много что стер, а конкретно, работал с AnsiString'ами, чтобы шифровать было удобнее.

[BDA]

Сообщение от Serge_Bliznykov

Это 100% косяк - результат переезда на новый сервер.
Если у Вас архив остался, то проще ещё раз выложить.
если нет - надо администратора форума привлекать (Alar), а это долго и сложно...

Да-да-да, незачем беспокоить администратора из-за какого-то атачмента. Изначальные коды удалил, но оказалось, что по привычке скачал сам атачмент после выкладывания
В принципе, его содержание не отличается от описанного в 6 посте.

Сообщение от SephirothAz

Какую сборку программ мне надо, чтоб это самому написать?

Подойдет любая, как уже отметил alextrof94. Если совсем срочно, то какую-нибудь портабл версию Дельфи 7 (до 100 мб), я лично как-то привык к РАД студии 2010 (форматирование кода из коробки и оформление как-то поновее ), если важна лицензионность, то можно попробовать Лазарус (чуть отличается от Дельфи - могут понадобиться некоторые изменения в исходном коде).

[SephirothAz]

Спасибо, работает. Низкий поклон.)