Многократно генерировать пароль через консоль

@Don_Capone · Регистрация: 11.06.2013

Author24 — интернет-сервис помощи студентам

Пишу программку которая должна случайным образом генерировать пароль когда вводишь /string
а вместо этого она не генерирует то что нужно тоесть генерирует но только 1 раз и все!как сделать лучше? вот код:

Delphi

procedure sluch;
const
s='abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
for i:=1 to (p2) do
a:=s[random(length(s)+(pass))+1];
writeln (a);
readln;

может есть еще способ!повторю делаю это в консоли

и еще надо это все записывать в текстовик как это сделать подскажите

@Cyborg Drone · 20.06.2013, 20:32

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

...(p2)...(pass)...

что это за переменые? Поподробнее можно?

@Don_Capone · 21.06.2013, 00:07 **[ТС]**

Сообщение от Cyborg Drone

что это за переменые? Поподробнее можно?

P2:integer;
pass: integer;
ну суть не в том а вот в чем: мне нужно генерировать случайным образом пароль переменная p2 должна отвечать за то со скольки символов начнется генерация нарпимер с 5 будет так например : taF5Q а переменная pass за то до скольки символов будет перебор пароля напирмер ну тоесть его максимальная длинна!

@Ev1l · 21.06.2013, 10:50

ну для начала может лучше так:

Delphi

1	a:=a+s[random(length(s)+(pass))+1];

переменную а перед циклом сбрасывайте, просто по вашему он в а записывает один символ.
Tсли у вас например, pass = 5, исходя из длинны s(62), random(67)+1 и какой символ из строки s вы получите если выпадет 66+1???
судя по циклу переменная p2 все же должна отвечать за длинну пароля, для количества генераций пароля нужно еще один цикл добавить, например так(pass кол-во паролей, p2 - длинна пароля):

Delphi

procedure sluch;
const
s='abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
begin
for i:=1 to (pass) do
   begin
   for j:=1 to (p2) do
      a:=a+s[random(length(s))+1];
   writeln (a);
   a:='';
   end;
readln;
end;

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

мне нужно генерировать случайным образом пароль переменная p2 должна отвечать за то со скольки символов начнется генерация

это я к сожелению не понял...

@Cyborg Drone · 21.06.2013, 14:39

Pascal

program Generate;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var p2, pass: integer;
    a: string;
 
procedure sluch;
 
const s='abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ';
 
var i: integer;
 
begin
  a:='';
  for i := 1 to p2 do a:=a+s[random(length(s))+1];
  for i := 1 to (random(pass + 1) - p2) do a:=a+s[random(length(s))+1];
  write(a, '  ');
end;
 
begin
  p2 := 5;
  pass := 15;
  writeln('min length = ', p2, ' max length = ', pass);
  writeln('Press c<Enter> for change min & max, e<Enter> to exit, only <Enter> to generate');
  while true do
    begin
      readln(a);
      if a = 'c' then begin
                        write('min = '); readln(p2);
                        write('max = '); readln(pass);
                      end;
      if a = 'e' then exit;
      sluch;
    end;
end.

@Cyborg Drone Модератор 9853 / 5223 / 3304 Регистрация: 17.08.2012 Сообщений: 15,974
	20.06.2013, 20:32	2
	Сообщение от Don_Capone ...(p2)...(pass)... что это за переменые? Поподробнее можно? 0

@Don_Capone -7 / 0 / 0 Регистрация: 11.06.2013 Сообщений: 120
	21.06.2013, 00:07 [ТС]	3
	Сообщение от Cyborg Drone что это за переменые? Поподробнее можно? P2:integer; pass: integer; ну суть не в том а вот в чем: мне нужно генерировать случайным образом пароль переменная p2 должна отвечать за то со скольки символов начнется генерация нарпимер с 5 будет так например : taF5Q а переменная pass за то до скольки символов будет перебор пароля напирмер ну тоесть его максимальная длинна! 0

	21.06.2013, 14:39

Опции темы