Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация

генератор login;pass

-

Вопросы и ответы, обсуждения

- Ваши вопросы по Pascal/Delphi только в данном разделе

Ответ
 
Опции темы
Старый 01.12.2011, 22:23   #1
 Разведчик
Аватар для 19955991
 
19955991 набедокурил в прошлом
Регистрация: 08.12.2010
Сообщений: 0
Популярность: -9
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
 
Question генератор login;pass

Вообщем решил написать генератор списков вида 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.
  Ответить с цитированием
Старый 01.12.2011, 22:45   #2
Бандеровец
 Лейтенант-командор
Аватар для VeTaL_UA
 
VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(VeTaL_UA сломал счётчик популярности :(
Регистрация: 12.08.2010
Сообщений: 727
Популярность: 30569
Золото Zhyk.Ru: 1
Сказал(а) спасибо: 57
Поблагодарили 645 раз(а) в 386 сообщениях
Отправить сообщение для VeTaL_UA с помощью ICQ Отправить сообщение для VeTaL_UA с помощью Skype™
 
По умолчанию Re: генератор login;pass

Код:
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.

Perfect World: PWDatabaseScanner, Client, PWNickRenamer, PWClientRenamer, База логинов PW, Гайд по варУ, Зарабатываем репутацию.
Delphi: Авторизация на сайте с помощью Indy, Загрузка изображений с интернета в TImage с помощью Indy, Автоматическая смена стандартной версии Indy в Delphi на Indy 10.0.76 / 10.1.5, Основы парсинга с помощью Indy, Делаем Updater до программы с помощью Indy.
Other: ShowIP, FFUUU смайлы в QIP, Как играть в Minecraft (видеокурс), Как мы захватили человечество :D, Энергия в Лицемер/TopFace, PasGen.


  Ответить с цитированием
Старый 04.12.2011, 20:15   #3
 Разведчик
Аватар для [M.G.] KoBaL
 
[M.G.] KoBaL неизвестен в этих краях
Регистрация: 04.12.2011
Сообщений: 2
Популярность: -55
Сказал(а) спасибо: 0
Поблагодарили 1 раз в 1 сообщении
 
Smile Re: генератор login;pass

Цитата:
Сообщение от 19955991Посмотреть сообщение
И еще, кто знает как удалить пустые строки из 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;
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
  Ответить с цитированием
Пользователь сказал cпасибо:
Алексей =) (04.12.2011)
Ответ

Метки
генератор, gen, generator, пароли, login;pass

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Продам] Почты PW Login;pass by Fifa 11 Fifa 11 Perfect World 21 13.11.2011 18:54
[Продам] login/pass Админа mtrf.ru Kudos Товары/услуги в Сети 0 24.08.2011 00:37
[Помогите!] login:pass - id:auth billaa Общение и обсуждение (Тюряга ВК) 2 05.06.2011 02:20

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 08:48.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net