procedure TForm1.Button1Click(Sender: TObject);

var i: integer;

begin

listbox1.Clear;

for i:=0 to memo1.lines.count-1 do

if length(memo1.lines.Strings)=strtoint(edit1.Text) then listbox1.items.add(memo1.lines.strings);

end;

procedure TForm1.Button2Click(Sender: TObject);

var i,j,k, nashel: integer;

Slovo, Simvol: string;

begin

listbox2.Clear;

for i:=0 to listbox1.Items.Count-1 do

begin

Slovo:=listbox1.Items;<br/>
for j:=1 to strtoint(edit1.Text) do<br/>
begin<br/>
Simvol:=Slovo[j];<br/>
nashel:=0;<br/>
for k:=0 to listbox2.Items.Count-1 do<br/>
if Simvol=listbox2.Items[k] then nashel:=1;<br/>
if nashel=0 then listbox2.Items.Add(Simvol);<br/>
end;<br/>
end;<br/>
<br/>
listbox2.Sorted:=true;<br/>
end;<br/>
<br/>
procedure TForm1.Button3Click(Sender: TObject);<br/>
var i: integer;<br/>
begin<br/>
edit2.Clear;<br/>
for i:=0 to listbox2.Items.Count-1 do<br/>
edit2.Text:=edit2.Text+listbox2.Items;

end;

Эх, хотел доброе дело сделать

Доброго времени суток, уважаемые форумчане.

Есть ли вообще какой софт для вывода из строя Wi-Fi роутера удалённо?

Подразумевается, что роутер в пределах видимости моего Wi-Fi адаптера, и я его атакой хочу привести к поломке, повреждению, нарушению функционирования, к дальнейшей непригодности к использованию.

Добрый день. Как то наткнулся на мобильные проги для атаки на wifi по wps, довольно все просто и эффективно. Есть чтото подобное (без лишних заморочек) на линукс? а еще лучше исходники на python3? А вообще шикарно скрип автоматизированной проверки всех точек в зоне видимости)))

Какой способ лучше, эффективней, практичней, надёжней?