Форум АНТИЧАТ

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)
-   -   Пасслисты (https://forum.antichat.xyz/showthread.php?t=158648)

marcos 23.11.2009 14:03
Пасслисты
 
Всем привет! Не подскажите как можно написать на паскале генератор спам листов? Так, чтобы перебирал все значения с 6 символов до 10...

Thenno 23.11.2009 18:22
Цитата:
Сообщение от marcos
Всем привет! Не подскажите как можно написать на паскале генератор спам листов? Так, чтобы перебирал все значения с 6 символов до 10...
Извиняюсь, а спам листы для чего?
Можешь просто запустить 5 циклов поочередно, один генерирует значения для 6 символов, другой для 7 и так до последнего, которые генерирует для 10.

marcos 24.11.2009 12:31
Нет, про циклы я додумался, как сделать именно перебор?

Thenno 24.11.2009 16:10
Цитата:
Сообщение от marcos
Нет, про циклы я додумался, как сделать именно перебор?
А тебе перебор чего именно нужен.

Впринципе, делается так.

Код:
program brutik;
var
  n:integer; a:array[1..100000] of char; k:char; f:text;
 
procedure brut(t:integer);
  var i:char; j:integer;
  begin
    if t=n then
      begin
        for j:=1 to n do
          write (f, a[j]);
        writeln (f);
      end
    else
      for i:='a' to k do
        begin
          a[t+1]:=i;
          brut (t+1);
        end;
  end;
begin
  assign (f,'pass.txt');
  rewrite (f);
  k:='z';
  n:=3;
  brut (0);
  close (f);
end.
Использутеся рекурсия. n-колличество цифр в числе, то есть его тебе нужно будет каждый раз менять.

marcos 07.12.2009 14:43
А что означает переменная Т? и почему она равна 0?

DeaD_MoroZ 07.12.2009 19:38
Цитата:
Сообщение от marcos
А что означает переменная Т? и почему она равна 0?
ну смотри, если t=n то перебирать цифры, если не т то буквы


Время: 03:06