Генератор пасс

[grafgrial]

Искал в инете генератор паролей, но так и не нашел подходящего. Все что были не подошли. вся проблема что они
-при каждом запуске выдают пароли постоянно одни и те же
-почему то прибавляет в конце пробел (хотя удалял, все равно писался)
-не проходит пароль так как нет например больших букв или маленьких или цифр, или меньше 6 знаков

[mss]

Ну не нашел. Ну не повезло)
И чего ? Хочешь заказ разместить ?
Размещай, работа-то не пыльная да не шибко дорогая)

[Serge_Bliznykov]

1)

Искал в инете генератор паролей

я не знаю, как Вы искали и что,
взял первые два попавшихся (искал только бесплатные)

http://sonikelf.ru/xoroshij-generator-parolej/

http://freesoft.ru/get.html?ident=15...le=PassGen.rar

оба проверил - работают. никаких проблем.

2) ну и написать такое легко можно! примерно за полчаса.
Уж проще уже алгоритма не придумаешь - знай себе случайные символы из строки бери и в выходную строку кидай..
Неужели трудно на Delphi такое самому написать?!!

[Lime]

Самописный на C# во вложении.

[grafgrial]

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

Ну не нашел. Ну не повезло)
И чего ? Хочешь заказ разместить ?
Размещай, работа-то не пыльная да не шибко дорогая)

Не для этого я здесь разместил

Serge_Bliznykov
не программы, а функцию, да и у них идет такое что в генерируемом не хватает цифры или заглавной буквы,маленькой буквы. написать не трудно, но не получилось..

Lime
можно исходник генерации посмотреть

Пытался разные писать, это только 2 из них, но через каждые 5 наверное идет совпадание или при новом запуске программы такие же пароли генерирует, почему то пробелы добавляет

function getpas(i:integer;BB,MB,CH:boolean):pchar;
const
con1='QWERTYUIOPASDFGHJKLZXCVBNM';
con2='qwertyuiopasdfghjklzxcvbnm';
var s:string; r: integer;
begin
repeat
r:=random(80)+random(50);
if i>0 then
begin
case r of
1:if (BB=true) then
s:=s+con1[random(25)+1];
2:if (MB=true) then
s:=s+con2[random(25)+1];
3:if (MB=true) then
s:=s+inttostr(random(10));
end;
end;
until
length(s)>=i;
while length(s)>i do delete(s,random(length(s)),1);
Result:=pchar(s+inttostr(random(999)));
end;

function getpas2(iff:integer):pchar;
var
S,gh:String;
i,iloop:integer;
begin
S:='QWERTYUIOPASDFGHJKLZXCVBNM1234567890qwertyuiopasdfghjklzxcvbnm';
For i:=0 To 8 do
begin
Randomize;
iloop:=Random(length(s));
gh:=gh+S[ILOOP];
end;
gh:=gh+inttostr(random(999));
while length(gh)>iff do delete(gh,1,1);
Result:=pchar(gh);
end;

[dmitriegorovih]

  const
 simvol:array[0..160] of string =
 (' ','!','"','#','$','%','&',#39,'(',')',
  '*','+',',','-','.','/','0','1','2','3',
  '4','5','6','7','8','9',':',';','<','=',
  '>','?','@','A','B','C','D','E','F','G',
  'H','I','J','K','L','M','N','O','P','Q',
  'R','S','T','U','V','W','X','Y','Z','a',
  'b','c','d','e','f','g','h','i','j','k',
  'l','m','n','o','p','q','r','s','t','u',
  'v','w','x','y','z','À','Á','Â','Ã','Ä',
  'Å','¨','Æ','Ç','È','É','Ê','Ë','Ì','Í',
  'Î','Ï','Ð','Ñ','Ò','Ó','Ô','Õ','Ö','×',
  'Ø','Ù','Ú','Û','Ü','Ý','Þ','ß','à','á',
  'â','ã','ä','å','¸','æ','ç','è','é','ê',
  'ë','ì','í','î','ï','ð','ñ','ò','ó','ô',
  'õ','ö','÷','ø','ù','ú','û','ü','ý','þ',
  'ÿ','[','\',']','^','_','`','{','|','}','~');
var
  Form1: TForm1;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n:integer;
begin
randomize; //Для того что бы не было при старте одних и тех же паролей 
edit1.Text:='';
for n:=1 to 20 do begin
edit1.Text:=edit1.text+simvol[random(160)];
end;
end;

вот рабочий код приводит пароль с бухты барахты ))

[GunSmoker]

Вам абы какой/побаловаться или нормальный/криптостойкий?

почему то пробелы добавляет

Конкретно приведённый код - бажный (да и выглядит он, честно говоря, как полный бред - имхо, конечно).

Не для этого я здесь разместил

Вот чудак человек. Тебе намекнули, что у тебя вопроса нет. В чём вопрос-то?

[Serge_Bliznykov]

grafgrial

1) Randomize нужно вызывать ОДИН раз при запуске программы.
в Delphi для этого идеально подходит событие создания формы OnCreate

procedure TForm1.FormCreate(Sender: TObject);
begin
 Randomize;
end;

2) в функции getpas2 видно, что Вы не знаете (или забыли!), что строка в Delphi индексируется ОТ ЕДИНИЦЫ (а не от нуля, как у Вас...)
поэтому:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;
end;

function getpas2(iff: integer): string;
const S: AnsiString =
  'QWERTYUIOPASDFGHJKLZXCVBNM1234567890qwertyuiopasdfghjklzxcvbnm';
var
  gh: string;
  i : integer;
begin
  gh := '';
  for i := 1 to iff do
    gh := gh + S[Random(length(s))+1];
  Result := gh;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   Memo1.Lines.Append(getpas2(8));
end;

3) вариант функции с опциями - какие символы допустимы в генерируемом пароле
(эта ваша функция getpas), имхо, наиболее предпочтителен.
Но у Вас он тоже не очень прямо реализован.
Хотите, набросаю свой пример?

[chertovich]

function GetPassword(Count: Integer): AnsiString;
var
  ChrTable: AnsiString;
  I: Integer;
  R: Byte;
begin
  { Получение необходимых символов для создания пароля }
  ChrTable := '';
  for I := 65 to 122 do
    if (I < 91) or (I > 96) then
      ChrTable := ChrTable + Chr(I);

//  for I := 192 to 255 do
//    ChrTable := ChrTable + Chr (I);

  // Подключение генератора случайных чисел
  Randomize;

  SetLength(Result, Count);
  for I := 1 to Count do
  begin
    R := Random(Length(ChrTable)) + 1;
    Result[I] := ChrTable[R];
  end;
end;

[Lime]

Во вложении класс,

private void generate_button_Click (object sender, EventArgs e)
        {
            string pwd = ""; 
            for (int i = 0; i < (int)this.passcount.Value; i++)
            {
                
                while (pwd == oldpwd || pwd == "")
                {
                    pwd = pwg1.Genereate((int)this.pass_length.Value);
                
                }
                oldpwd = pwd;
                pass_g++;
                ShowCount();
                rich_result.AppendText(pwd + "\n");
                rich_result.ScrollToCaret();
            }
        }

Не забываем что экземпляр pwg1 нужно создать и "включить" нужные галочки (для набора символов) или-же добавить свой набор в поле "other" (String).


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.