Генератор на основе текста

[kroŧ]

подскажите как сделать генератор на основе вот этого текста

8qw5p2o4
ia84geuj
us0bcrsz
2mxko170
ijhla6bw
4fikevf1
nftmgpxl
c2l0aj6i
btljfsq5
swt24etu
74ozcq3z
ekkjnc7c
66hkmgx8
rfhvfiry
md4n21l8
advdlhus
fwrow8ix
vb8stguy
wioonr7c
2baloqk1
7wjlzjmv

вот простой генератор

var
Result, str, str1, str2, str3, str4, str5, str6 : string;
PLen, stroka, i : integer;
begin
Randomize;
str:='';
Memo1.Clear;
stroka := SpinEdit2.Value;
str1 := '1234567890';
str2 := 'abcdefghijklmnopqastuvwxyz';
str3 := 'ABCDEFGHIJKLMNOPQASTUVWXYZ';
str4 := '!@#$%^&*()_+|\=-<>.,/?''; :"][}{';
str5 := 'абвгдеёжзийклмнопрстуфхцчшщъыьэюя';
str6 := 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
PLen := SpinEdit1.Value;
if CheckBox1.Checked = True
then str:=str+str1;
if CheckBox2.Checked = True
then str:=str+str2;
if CheckBox3.Checked = True
then str:=str+str3;
if CheckBox4.Checked = True
then str:=str+str4;
if CheckBox5.Checked = True
then str:=str+str5;
if CheckBox6.Checked = True
then str:=str+str6;
if CheckBox1.Checked or
CheckBox2.Checked or
CheckBox3.Checked or
CheckBox4.Checked or
CheckBox5.Checked or
CheckBox6.Checked = False
then
MessageDlg('Выберите символы, которые вы хотите использовать!',mtWarning,[mbOK],0)
else
for i := 1 to stroka do begin
Result := '';
repeat
Result := Result+str[Random(Length(str))+1];
until (Length(Result) = PLen);
Memo1.Lines.Add(Result);
end;

ну мне нужно на основе своего текста то есть загрузить из файла key.txt строки верных паролей
их анализировать и генерировать на основе их пароль
как это можно сделать
Необходима узнать алгоритм генерации пароля на основе верных паролей и генерировать на основе их уже другие пароли ни знаю как это сделаю прошу помочь заранее благодарю!

[NiCola999]

в чем проблема то? Корректно сформулируйте свой вопрос, еще желательно запятые ставить

[kroŧ]

у меня есть файл с верными паролями от одного сайта где то 20 000 верных паролей
Можно ли как то сгенерировать остальные максимально верные пароли на основе уже имеющихся? или это из области фантастики

[NiCola999]

Нужно искать зависимость между паролями, но скорей всего эти пароли составлены случайным образом, примерно как у вас в программе. А может быть, что реальные пароли зашифрованы каким-то хитрым алгоритмом.

p.s ваш генератор можно было бы написать используя только одну строку, но это так, к сведению

[ChEaTeR-abc]

Можно ли как то сгенерировать остальные максимально верные пароли на основе уже имеющихся? или это из области фантастики

Что значит "максимально верные"?Всмысле максимально похожие на имеющиеся пароли?

[kroŧ]

ChEaTeR-abc нет получить алгоритм генерации пароля на основе верного пароля из файла, мне сказали это нужно нейросеть в дельфе и модуль RegExplorer.pas (Если есть пример у кого выложите), ну я в этом не шарю инфы не могу найти может есть легче варианты?