Вообщем решил написать генератор списков вида login;pass
В программе 3 режима генерации:
- 1 логин - 1 пароль (RadioButton1)
- 1 логин - список паролей (RadioButton2)
- все логины к каждому паролю (RadioButton3)
Вот код:
Цитата:
procedure TForm1.Button5Click(Sender: TObject);
var
i,i2,s,s2: integer;
r,Text: string;
begin
r:=edit2.Text;
s:=(Mmo1.Lines.Count);
s2:=(Mmo2.Lines.Count);
Text:=Mmo1.Lines.Text;
if rb1.Checked=True then
for i := 0 to Mmo1.Lines.Count-1 do
mmo3.Lines.Add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i]);
if rb2.Checked=True then
For i:=0 to Mmo1.Lines.Count-1 do
For i2:=0 to s do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
if rb3.Checked=True then
For i:=0 to s do
For i2:=0 to Mmo2.Lines.Count-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
end;
Генерация "1 логин- 1 пароль" вроде как бы проходит нормально, но вот с остальными режимами проблема, например во 2 режиме к одному логину подбирается только 5 первых паролей и переходит к следующему логину...а в 3 вообщем почему то в самом конце начинаются пароли без логинов писаться типо ";pass"
Прошу помощи уважаемые форумчане
P.S. Код ужасный, знаю))
И еще, кто знает как удалить пустые строки из memo?
Последний раз редактировалось 19955991; 01.12.2011 в 22:35.
procedure TForm1.Button5Click(Sender: TObject);
var
i,i2,s,s2: integer;
r,Text: string;
begin
r:=edit2.Text;
s:=(Mmo1.Lines.Count);
s2:=(Mmo2.Lines.Count);
Text:=Mmo1.Lines.Text;
if rb1.Checked=True then
for i := 0 to Mmo1.Lines.Count-1 do
mmo3.Lines.Add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i]);
if rb2.Checked=True then
For i:=0 to Mmo1.Lines.Count-1 do
For i2:=0 to s2-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
if rb3.Checked=True then
For i:=0 to s-1 do
For i2:=0 to Mmo2.Lines.Count-1 do
mmo3.Lines.add(mmo1.Lines.Strings[i]+r+mmo2.Lines.Strings[i2]);
end;
Ошибки исправил, но сам код...ммм...странный...
________________
Принимаются пожертвования любых размеров в фонд поддержки начинающих программистов
Кошельки: WMZ - Z276844220882; WMR - R231028582939; WMU - U394136909210; ЯД - 410011494605270.
И еще, кто знает как удалить пустые строки из memo?
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
for Memo1.Lines.Count - 1 downto 0 do
begin
if Memo1.Lines.Strings[i] = '' then
begin
Memo1.Lines.Delete(i);
end;
end;
end;
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]