VPF::Немогу сообразить как построить цкл

Kurganec

Дата 3.7.2008, 02:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 35
Регистрация: 6.6.2008
Где: СПБ

Репутация: нет
Всего: нет

Всем привет.

Собственно в чём проблема: мне нужен был словарь числовых паролей для брута.

может быть и не стоит изобретать велосипед, но нагуглить я ничего не смог.

захотелось сделать самому

Код


program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
   f1:text;
   a,b,c,d,e,f,g,h,i,j,k,l,m,n,o :integer;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  Write('press enter to begin');
   Readln;
   assign(f1,'dic.txt');
   rewrite(f1);
           For a:=0 to 1 do begin
               For b:=0 to 1 do begin
                  For c:=0 to 2 do begin
                     For d:=0 to 3 do begin
                        For e:=0 to 5 do begin
                           For f:=0 to 8 do begin
                              For g:=0 to 9 do begin
                                 For h:=0 to 9 do begin
                                   For i:=0 to 9 do begin
                                     For j:=0 to 9 do begin
                                        For k:=0 to 9 do begin
                                           For l:=0 to 9 do begin
                                              For m:=0 to 9 do begin
                                                  For n:=0 to 9 do begin
                                                       For o:=0 to 9 do begin

                                                     Write(f1,a);
                                                     Write(f1,b);
                                                     Write(f1,c);
                                                      Write(f1,d);
                                                      Write(f1,e);//5
                                                      Write(f1,f);
                                                     Write(f1,g);
                                                     Write(f1,h);
                                                      Write(f1,i);
                                                      Write(f1,g);
                                                      Write(f1,k);
                                                     Write(f1,l);
                                                     Write(f1,m);
                                                      Write(f1,n);
                                                      Write(f1,o); //15


                                                       writeln('-----');
                                                       Write(a);
                                                     Write(b);
                                                     Write(c);
                                                      Write(d);
                                                      Write(e);//5
                                                      Write(f);
                                                     Write(g);
                                                     Write(h);
                                                      Write(i);
                                                      Write(g);
                                                      Write(k);
                                                     Write(l);
                                                     Write(m);
                                                      Write(n);
                                                      Write(o); //15
                                                       writeln;


   end ;
    end  ;
    end  ;
    end ;
    end ;
    end  ;
    end  ;
   end  ;
   end  ;
   end ;
   end ;
   end ;
    end;
    end ;

   end ;

     close(f1);
     writeln('dict created');
end.

Согласитесь - некрасивые циклы smile

и не практична программа становится - изменится длинна пароля -переписывай всю программу

Как сделать лучше?

Это сообщение отредактировал(а) Kurganec - 3.7.2008, 02:34

Rohoss

Дата 3.7.2008, 02:47 (ссылка)

(нет голосов)

Загрузка ...

Начальник интернета

Профиль
Группа: Завсегдатай
Сообщений: 1308
Регистрация: 9.10.2006
Где: Matrix

Репутация: нет
Всего: 18

Цитата(Kurganec @ 3.7.2008, 02:33

)

Как сделать лучше?

Имхо, используй рекурсию

--------------------

Файловый менеджер Explorer.Net скачать video

Dobermann

Дата 3.7.2008, 11:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

Код


k:=97
for i:=1 to N do begin
  write(f1, chr(k)); inc(k);

mmvds

Дата 3.7.2008, 12:07 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6

http://forum.vingrad.ru/forum/topic-202791.html

Dobermann

Дата 3.7.2008, 15:36 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 992
Регистрация: 7.1.2008

Репутация: нет
Всего: 0

Цитата(mmvds @ 3.7.2008, 12:07

)

http://forum.vingrad.ru/forum/topic-202791.html

Чёт, если честно, я не понял о чем там твой код =)

mmvds

Дата 3.7.2008, 18:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 22.12.2007

Репутация: нет
Всего: 6

Цитата(Dobermann @ 3.7.2008, 15:36

)

Чёт, если честно, я не понял о чем там твой код =)

Код создает словарь паролей для брута
alf- алфавит символов из которых могут состоять пароли
a- минимальное кол-во символов в пароле
b- максимальное кол-во символов в пароле

Это к тому что

Цитата(Kurganec @ 3.7.2008, 02:33

)

может быть и не стоит изобретать велосипед, но нагуглить я ничего не смог.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »