Форумы на Хакер

Добро пожаловать! Это — архивная версия форумов на «Хакер.Ru». Она работает в режиме read-only.

написал генератор листов паролей брута

Пользователи, просматривающие топик: none

Зашли как: Guest

Все форумы >> [Компилируемые языки] >> написал генератор листов паролей брута

Имя

Сообщение

<< Старые топики Новые топики >>

написал генератор листов паролей брута - 2009-03-15 00:27:51.466666

Patriott

Сообщений: 36
Оценки: 0
Присоединился: 2009-03-14 18:13:26.236666

написал генератор листов паролей брута
новичкам будет полезен


 program passgen2;
 var f:text; n:string;
 c:byte;
 procedure cifri;
 var i,a,b:longint; ch:char;
 begin
 writeln ('begin is_');
 read(a);
 writeln('end is_');
 read(b);
 
 for i:=a to b  do writeln(f,i);
 writeln('ALL DONE!!!');
 close(f);
 end;
 procedure buckcifr;
 var ch,i:char; l,l1,l2,l3,l4,l5,l6,l7,l8,l9,l10,l11,l12,l13,l14,l15,j:byte;
 a:array[1..200] of char;
 f:text; r:string;
 begin
 assign (f,n);
 rewrite (f);
 writeln('Input length of passwords');
 read(l);
 j:=1;
 for i:='a' to 'z' do
  begin
  a[j]:=i; j:=j+1;
  end;
 for i:='A' to 'Z' do
  begin
  a[j]:=i; j:=j+1;
  end;
 for i:='1' to '9' do
  begin
  a[j]:=i; j:=j+1;
  end;
 writeln('Enter special symbols (one in string)');
 repeat
  readln(a[j]);
  j:=j+1;
  writeln ('add new? y/n');
  readln(ch);
  until upcase(ch)='N';
  writeln('LOADING......');
 
  case l of
  1: for l:=1 to j do writeln(f,a[l]);
  2: begin
     for l:=1 to j do
     for l1:=1 to j do begin r:= a[l]+a[l1];
       writeln(f,r);
       end;end;
  3:   begin
     for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do  begin  r:=a[l]+a[l1]+a[l2];
      writeln(f,r);
       end;end;
  4:   begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3];
      writeln(f,r);
       end;end;
  5:   begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4];
      writeln(f,r);
       end;end;
   6:   begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do
      for l5:=1 TO j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5];
      writeln(f,r);
       end; end;
  7:   begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6];
      writeln(f,r);
       end; end;
 
 8:       begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
       for l7:=1 TO j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7];
      writeln(f,r);
       end; end;
  9:       begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
       for l7:=1 TO j do
        for l8:=1 TO j do  begin   r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8];
      writeln(f,r);
       end; end;
  10:       begin
       for l:=1 to j do
     for l1:=1 to j do
     for l2:=1 to j do
     for l3:=1 to j do
     for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
       for l7:=1 TO j do
        for l8:=1 TO j do
        for l9:=1 TO j do  begin  r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9];
      writeln(f,r);
       end;end;
  11:       begin
      for l:=1 to j do
      for l1:=1 to j do
      for l2:=1 to j do
      for l3:=1 to j do
      for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
      for l7:=1 TO j do
      for l8:=1 TO j do
      for l9:=1 TO j do
      for l10:=1 TO j do  begin   r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9]+a[l10];
      writeln(f,r);
       end; end;
  12:       begin
      for l:=1 to j do
      for l1:=1 to j do
      for l2:=1 to j do
      for l3:=1 to j do
      for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
      for l7:=1 TO j do
      for l8:=1 TO j do
      for l9:=1 TO j do
      for l10:=1 TO j do
      for l11:=1 TO j do  begin   r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9]+a[l10]+a[l11];
      writeln(f,r);
       end;end;
  13:       begin
      for l:=1 to j do
      for l1:=1 to j do
      for l2:=1 to j do
      for l3:=1 to j do
      for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
      for l7:=1 TO j do
      for l8:=1 TO j do
      for l9:=1 TO j do
      for l10:=1 TO j do
      for l11:=1 TO j do
      for l12:=1 TO j do   begin    r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9]+a[l10]+a[l11]+a[l12];
      writeln(f,r);
       end; end;
  14:       begin
      for l:=1 to j do
      for l1:=1 to j do
      for l2:=1 to j do
      for l3:=1 to j do
      for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
      for l7:=1 TO j do
      for l8:=1 TO j do
      for l9:=1 TO j do
      for l10:=1 TO j do
      for l11:=1 TO j do
      for l12:=1 TO j do
      for l13:=1 TO j do  begin   r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9]+a[l10]+a[l11]+a[l12]+a[l13];
      writeln(f,r);
       end;end;
  15:       begin
      for l:=1 to j do
      for l1:=1 to j do
      for l2:=1 to j do
      for l3:=1 to j do
      for l4:=1 TO j do
      for l5:=1 TO j do
      for l6:=1 TO j do
      for l7:=1 TO j do
      for l8:=1 TO j do
      for l9:=1 TO j do
      for l10:=1 TO j do
      for l11:=1 TO j do
      for l12:=1 TO j do
      for l13:=1 TO j do
      for l14:=1 to j do  begin
      r:=a[l]+a[l1]+a[l2]+a[l3]+a[l4]+a[l5]+a[l6]+a[l7]+a[l8]+a[l9]+a[l10]+a[l11]+a[l12]+a[l13]+a[l14];
      writeln(f,r);
             end;end;
 end;
 close(f);
 end;
 
 begin
 writeln ('This is PASSGEN2 ( coding by Patriott/ icq 9770161 )');
 writeln('After end the program will be closed');
 writeln;
 writeln ('Input name of new file');
 readln(n);
 n:=n+'.txt';
 assign (f,n);
 rewrite (f);
 writeln;
 writeln ('What chars to use?');
 writeln('1-"0123456789"');
 writeln('2-"abcd...WXYZ...1234...and your (!@#%^&amp;*:"&lt;&gt;?...)');
 readln(c);
 if c=1 then cifri;
 if c=2 then buckcifr;
 
 
 end.

Post #: 1

RE: написал генератор листов паролей брута - 2009-03-15 01:05:10.406666

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

Эмм…"новичкам будет полезен"- типо ты как опытный пишешь?)) Я не вчитывался особо,но там где то случайно не цикл 12-кратной вложености был?[sm=ag.gif][sm=ag.gif] Вообще не оч даже хочется осознавать всю хитрость твоего алгоритма, только вот советую не светить этим "творением" для твоего же блага)) Впрочем ща сам увидишь что скажут о таком коде люди))

Post #: 2

RE: написал генератор листов паролей брута - 2009-03-15 01:43:54.376666

L2nkeR

Сообщений: 115
Оценки: 0
Присоединился: 2009-02-02 04:03:17.786666

Сразу говорю, что рекурсия укоротила бы твой код минимум в 7 раз.

Post #: 3

RE: написал генератор листов паролей брута - 2009-03-15 02:52:30.786666

_SaZ_

Сообщений: 4329
Оценки: 398
Присоединился: 2008-01-30 02:18:05.553333

Какое убожество… Что такое "лист паролей брута"?

Post #: 4

RE: написал генератор листов паролей брута - 2009-03-15 11:57:27.956666

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

O_o Код жесть…

Кстати, а что она делает ?

Post #: 5

RE: написал генератор листов паролей брута - 2009-03-15 19:00:22.723333

FriLL

Сообщений: 2539
Оценки: 335
Присоединился: 2007-08-11 17:14:26.703333

ТС еще раз увижу выпрашивание плюсов будет бан

Post #: 6

RE: написал генератор листов паролей брута - 2009-03-15 21:47:07.933333

Zmaster

Сообщений: 930
Оценки: 0
Присоединился: 2007-02-09 19:02:43.500000

ТС, если честно, то код ужасный, можно сделать все намного проще и красивее. Запомни, кодить - это исскуство, просто набросать функции языка с параметрами - это и дурак сможет.

Post #: 7

RE: написал генератор листов паролей брута - 2009-03-15 22:02:57.336666

VaZoNeZ

Сообщений: -6758
Оценки: 0
Присоединился: 2008-10-31 14:38:43.796666

Устроим конкурс - кто соптимизирует больше всего - тот и выиграл!

Post #: 8

RE: написал генератор листов паролей брута - 2009-03-15 22:08:23.556666

Genco

Сообщений: 1662
Оценки: 90
Присоединился: 2007-12-16 23:11:22.003333

Не,ну если по-хорошему,то клавиши Ctrl+A & Del –лучшая оптимизация этого дела)) *Потом можно заново и с нуля,но совсееем не обязательно*

Post #: 9

RE: написал генератор листов паролей брута - 2009-03-15 22:14:05.013333

SmanxX1

Сообщений: 208
Оценки: 0
Присоединился: 2007-07-31 14:33:56.650000

quote:

Устроим конкурс - кто соптимизирует больше всего - тот и выиграл!

На, оптимизируй это: :D:D:D

/*
  * Program to compute an approximation of pi
  *  by Brian Westley, 1988
  */
 #define _ -F&lt;00||--F-OO--;
 int F=00,OO=00;main(){F_OO();printf("%1.3f\n",4.*-F/OO/OO);}F_OO()
 {
             _-_-_-_
        _-_-_-_-_-_-_-_-_
     _-_-_-_-_-_-_-_-_-_-_-_
   _-_-_-_-_-_-_-_-_-_-_-_-_-_
  _-_-_-_-_-_-_-_-_-_-_-_-_-_-_
  _-_-_-_-_-_-_-_-_-_-_-_-_-_-_
 _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
 _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
 _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
 _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
  _-_-_-_-_-_-_-_-_-_-_-_-_-_-_
  _-_-_-_-_-_-_-_-_-_-_-_-_-_-_
   _-_-_-_-_-_-_-_-_-_-_-_-_-_
     _-_-_-_-_-_-_-_-_-_-_-_
         _-_-_-_-_-_-_-_
             _-_-_-_
 }

Post #: 10

RE: написал генератор листов паролей брута - 2009-03-15 23:01:42.356666

L2nkeR

Сообщений: 115
Оценки: 0
Присоединился: 2009-02-02 04:03:17.786666

quote:

ORIGINAL: SmanxX1
/* * Program to compute an approximation of pi * by Brian Westley, 1988 */ #define _ -F<00||--F-OO--; int F=00,OO=00;main(){F_OO();printf("%1.3f\n",4.*-F/OO/OO);}F_OO() { _-_-_-_ _-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_-_-_-_-_ _-_-_-_-_-_-_-_ _-_-_-_ }

жестко однако)

Post #: 11

RE: написал генератор листов паролей брута - 2009-03-16 00:04:25.550000

vvviperrr

Сообщений: 301
Оценки: 0
Присоединился: 2007-03-20 21:33:16.790000

2SmanxX1
мне больше стишок понравился :)

Post #: 12

Страниц: [1]

Все форумы >> [Компилируемые языки] >> написал генератор листов паролей брута

Связаться:
Вопросы по сайту / xakep@glc.ru

Предупреждение: использование полученных знаний в противозаконных целях преследуется по закону.