Генератор паролей, найти ошибку в коде

@Dragwor · Регистрация: 01.04.2013

Author24 — интернет-сервис помощи студентам

Всем привет, нужна ваша помощь, есть код генератора паролей на паскале

Pascal

procedure GiveMeThеPasswords;
var
SBase, SDict: string; 
 
procedure BruteForce(S: string; n: integer); 
var
i: integer;
begin
for i := 1 to Length(SDict) do
begin
s[n] := SDict[i];
if n = 1 then
Memo1.Lines.Add(s)
else
BruteForce(s, n - 1);
end;
 
end;
 
begin
SBase := '1234'; 
SDict := '1234567890';
BruteForce(SBase, Length(SBase)); 
end;

1) Как его запустить чтобы он работал, я его копирую в прогу, ему не нравится это

Pascal

1	Memo1.Lines.Add(s)

Пишет что не известное имя
2) Как организовать запись создаваемых паролей в файл?
Я хочу запустить чтобы он через консоль все это делал

@APALoff · 22.12.2014, 10:18

Сообщение от Dragwor

procedure BruteForce

А теперь прочитайте правила 5.7 https://www.cyberforum.ru/announcement.php?a=3 :

Запрещено создание и распространение вредоносного ПО, вирусов, кряков и взлома лицензионного софта, а также публикация ссылок для их скачивания.

Брутфорс это подбор пароля, т.е. можно классифицировать как "взлом"!

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	22.12.2014, 10:18	2
	Сообщение от Dragwor procedure BruteForce А теперь прочитайте правила 5.7 https://www.cyberforum.ru/announcement.php?a=3 : Запрещено создание и распространение вредоносного ПО, вирусов, кряков и взлома лицензионного софта, а также публикация ссылок для их скачивания. Брутфорс это подбор пароля, т.е. можно классифицировать как "взлом"! 0