Как сделать сканер открытых портов???

← →
RoLeX (2003-10-17 14:28) [0]

Как сделать сканер открытых портов по заданному IP???

← →
Игорь Шевченко © (2003-10-17 14:32) [1]

лучше как сразу денег поиметь

← →
Кулюкин Олег © (2003-10-17 14:33) [2]

> Игорь Шевченко © (17.10.03 14:32) [1]

Это не вирус, это для самообразования.

← →
RoLeX (2003-10-17 14:35) [3]

> > Игорь Шевченко © (17.10.03 14:32) [1]
>
> Это не вирус, это для самообразования.

Правильно. Но всё-же как его написать??

← →
Семен Сорокин © (2003-10-17 14:37) [4]

2RoLeX
если
Это не вирус, это для самообразования.
Правильно.
тогда ты должен делать это сам.

← →
Игорь Шевченко © (2003-10-17 14:38) [5]

Кулюкин Олег © (17.10.03 14:33)

Это троян для самообразования. А потом сотрудники отдела по борьбе с преступлениями в сфере информационных технологий пошлют на систематическое образование. Например, в Сибирь снег убирать. Весь.

RoLeX (17.10.03 14:35)

Ты ошибся форумом, тебе на www.xakep.ru для безбашенных

← →
Кулюкин Олег © (2003-10-17 14:39) [6]

> Игорь Шевченко © (17.10.03 14:38) [5]
> Это троян для самообразования. А потом сотрудники отдела по борьбе с преступлениями

Это приз, за успешное прохождение первого этапа.

← →
Игорь Шевченко © (2003-10-17 14:41) [7]

Кулюкин Олег © (17.10.03 14:39)

Надеюсь, поощрительный приз ? :)

← →
Кулюкин Олег © (2003-10-17 14:42) [8]

> Игорь Шевченко © (17.10.03 14:41) [7]
> Надеюсь, поощрительный приз ? :)

КОНЕЧНО!
Ему же не запретят пользоваться компьютером.
После окончания срока отсидки :))

← →
RoLeX (2003-10-17 14:43) [9]

Да вы чё не занете чтоль как написать сканер??? Посылаете меня на хакер.ру. Ну напишите мне хоть пример!!!

← →
Кулюкин Олег © (2003-10-17 14:45) [10]

> RoLeX (17.10.03 14:43) [9]
> Да вы чё не занете чтоль как написать сканер??? Посылаете
> меня на хакер.ру. Ну напишите мне хоть пример!!!

Дайте код!
Нафига вы тут собрались, если код не даете?
Какие вы мастера :(((

← →
Fredericco © (2003-10-17 14:47) [11]

> Кулюкин Олег © (17.10.03 14:45) [10]

Ага )))
И сайт ваш ацтой!

← →
RoLeX (2003-10-17 14:47) [12]

> Дайте код!
> Нафига вы тут собрались, если код не даете?
> Какие вы мастера :(((

Я о томже! Сколько слов, а не одного примера не было ещё.

← →
Кулюкин Олег © (2003-10-17 14:47) [13]

> Fredericco © (17.10.03 14:47) [11]
> И сайт ваш ацтой!

Злые все, грубые и жадные.
Не альтруисты!

← →
Игорь Шевченко © (2003-10-17 14:48) [14]

RoLeX (17.10.03 14:43)

Можем еще куда-нибудь послать. Например, на goto.

Знаем, мы, как удалить спец. чернила с гербовой бумаги, знаем, сообщили нам специалисты. Знаем, но не скажем (с) Химия и жизнь.

Мы же писали сканеры, ходя в гору 5 километров зимой в гололед, с встречным ветром, а ты на халяву хочешь. Не по-товарищески это.

← →
Кулюкин Олег © (2003-10-17 14:48) [15]

> RoLeX (17.10.03 14:47) [12]
> Я о томже! Сколько слов, а не одного примера не было ещё.

Давай забъем на этот поганый сайт?
Я пошел на хацкер.ру

← →
Danilka © (2003-10-17 14:51) [16]

ок, лови код:
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=1 to 1000 do
if IsOpenPort("192.168.100.1",i) Memo1.Add(IntToStr(i));
end;

проверяет открытые потры в диапазоне от 1 до 1000.

← →
Danilka © (2003-10-17 14:52) [17]

злые вы все, а я добрый

← →
Кулюкин Олег © (2003-10-17 14:53) [18]

> Danilka © (17.10.03 14:51) [16]

Я скопироват свою крутую прогу, а она говорит Undeclared identifier Button1Click.
Это тупая дельфя глючит?
Дайте готовый проект в мыло

← →
Anatoly Podgoretsky © (2003-10-17 14:54) [19]

RoLeX (17.10.03 14:35) [3]
Самообразование сложно написать.

← →
Danilka © (2003-10-17 14:56) [20]

[18] Кулюкин Олег © (17.10.03 14:53)
Перезагрузи компьютер, сделай дефрагментацию дисков А и С и попробуй еще - должно получиться! Я всегда так делаю.

← →
Fredericco © (2003-10-17 15:00) [21]

> Danilka © (17.10.03 14:56) [20]

Кинь на мыло кусок кода, который перзагружает комп и потом делает дефрагментацию. А то юзера мой супер проги это заколебет делать вручную.

← →
Кулюкин Олег © (2003-10-17 15:05) [22]

> Danilka © (17.10.03 14:56) [20]
> Перезагрузи компьютер, сделай дефрагментацию дисков А и
> С и попробуй еще - должно получиться! Я всегда так делаю.

Да тут все злые :(((
Обижусь и не стану программистом :(

← →
RoLeX (2003-10-17 15:08) [23]

Несовсем правильно прогу написал, ну ладно, вот как я написал:
procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:=1 to 1000 do if IsOpenPort("192.168.100.1",i) then Memo1.Text:=IntToStr(i); end;
Тока он пишет: Undeclared identifier: "IsOpenPort"

← →
Nikky © (2003-10-17 15:09) [24]

> Перезагрузи компьютер, сделай дефрагментацию дисков А и
> С и попробуй еще - должно получиться! Я всегда так делаю.

а у меня нет C: %((
Только Z:
Сказали в магазине, что C: быстро разбирают :((

← →
Игорь Шевченко © (2003-10-17 15:10) [25]

RoLeX (17.10.03 15:08)

> Несовсем правильно прогу написал

Это он нарочно, чтобы над тобой поиздеваться

← →
Nikky © (2003-10-17 15:10) [26]

> RoLeX (17.10.03 15:08) [23]

а поставил:

uses HackerToolKit;

?

← →
Кулюкин Олег © (2003-10-17 15:11) [27]

>> RoLeX (17.10.03 15:08)
>> Несовсем правильно прогу написал
> Это он нарочно, чтобы над тобой поиздеваться

Это он на зло, издевается над нами.
Напишу ка я ему 5300 писем

← →
Johnny Smith © (2003-10-17 15:12) [28]

2RoLeX (17.10.03 15:08) [23]
Тока он пишет: Undeclared identifier: "IsOpenPort"
Чтобы он не писал эту ошибку, добавь в код:
function IsOpenPort(IP:string):Boolean;
begin
Result:=True;
end;

> Johnny Smith © (17.10.03 15:12) [28]

не, я так всегда делаю

function IsOpenPort (IP: string; port: Integer): Boolean;
begin
result := Random (2) = 0;
end;

> function IsOpenPort (IP: string; port: Integer): Boolean;
> begin
> result := Random (2) = 0;
> end;

Randomize еще позвать надо

>
> Кулюкин Олег © (17.10.03 15:15) [30]

неааа!
Тогда почему-то получаются, что каждый раз разные порты открыты:((
Не могу понять почему

> неааа!
> Тогда почему-то получаются, что каждый раз разные порты
> открыты:((
> Не могу понять почему

Вирус.
Какой-то гад трояна написал!

← →
RoLeX (2003-10-17 15:17) [33]

ага, уменя ваще это не сканер, а чё-то непонятное:

function IsOpenPort (IP: string; port: Integer): Boolean;
begin
result := Random (2) = 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=1 to 1000 do
if IsOpenPort("62.33.92.170",i) then Memo1.Text:=IntToStr(i);
end;

2Nikky © (17.10.03 15:16) [31]
Зато моей функцией порты если не открыты, вскрываются автоматически!
По крайней мере, так пишется в Memo1...

> RoLeX (17.10.03 15:17) [33]

теперь ты один из нас, брат!

> Nikky © (17.10.03 15:18) [36]
> теперь ты один из нас, брат!

А правда что при посвящении в Хакера надо зарезать мышь?
Оптическую?

Это все "цветочки", вот где задача -

Как сделать сканер закрытых портов?

Я пробовал сделать руками, т.е. спросил у соседа - не получилось.... в смысле сосед посоветовал сделать головой, но.... больно же... :((

Кулюкин Олег © (17.10.03 15:19)

> А правда что при посвящении в Хакера надо зарезать мышь?
> Оптическую?

И съесть. Правда.

Как сделать сканер открытых портов??? Найти похожие ветки