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

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

> Игорь Шевченко © (17.10.03 15:20) [39]
> И съесть. Правда.

Не может быть.
В ней же лазерный лучи, обжечь могут

← →
Anatoly Podgoretsky © (2003-10-17 15:21) [41]

Нет гипертрековую

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

Так лучше всем будет понятно:
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 ListBox1.Items.Add(IntToStr(i)); end;

IP адрес мой.

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

Удалено модератором
Примечание: Мат недопустимо использовать и за это 3 дня RO

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

Надо использовать сокеты:

WSAAsyncEnumPortsByAddr("62.33.92.170") и сразу на Крупскую-стрит в BASHCELL-NET попадаешь.

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

> RoLeX (17.10.03 15:24) [43]
> Чё-то эта прога пиз*ит с портами! Не может быть, чтобы так
> порты быстро сканировались - это раз!

Вот как правильно, так нормально сканирует
function IsOpenPort (IP: string; port: Integer): Boolean;
begin
Sleep(10000)
result := Random (2) = 0;
end;

← →
Johnny Smith © (2003-10-17 15:29) [46]

2Кулюкин Олег © (17.10.03 15:26) [45]
Sleep(10000)
Не, так будет слишком глубоко сканировать - это подходит для промышленного взлома.
Для обычного достаточно установить Sleep(2000)

← →
Fredericco © (2003-10-17 15:29) [47]

Мастера улыбаются.

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

> Fredericco © (17.10.03 15:29) [47]
> Мастера улыбаются.

Анаша лайт. Просто хочется улыбаться.

← →
Verg © (2003-10-17 15:31) [49]

> Игорь Шевченко © (17.10.03 15:26) [44]
> Надо использовать сокеты:
>
> WSAAsyncEnumPortsByAddr("62.33.92.170") и сразу на Крупскую-стрит
> в BASHCELL-NET попадаешь.

Это из Hack Api V2?
Хм. В первой версии не было такой функции...

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

> Verg © (17.10.03 15:31) [49]
> Это из Hack Api V2?
> Хм. В первой версии не было такой функции...

Залейте мне на мыло Hack Api V2

← →
Johnny Smith © (2003-10-17 15:34) [51]

2Кулюкин Олег © (17.10.03 15:32) [50]
Залейте мне на мыло Hack Api V2
А у тебя на мыле порт открыт?
А то не зальется.

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

> А у тебя на мыле порт открыт?
> А то не зальется.

посканируй, мы же прогу офигенную написали !

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

Verg © (17.10.03 15:31)

Это из WSA Extensions for advanced security crackers :)

← →
REA © (2003-10-17 15:37) [54]

Да ну вас. Нужно просто сделать сканер закрытых портов, а все остальные значит открытые. Ну или некоторые.

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

А может порта вообще не быть?
Ну выкрутили его ночью?

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

> А может порта вообще не быть?
> Ну выкрутили его ночью?

или сломали :(
Мне один хакер давал прогу, которая порты ломает. После этого их ни открыть, ни закрыть нельзя :(
Почти все порты себе поломал...

← →
Verg © (2003-10-17 15:42) [57]

> Игорь Шевченко © (17.10.03 15:35) [53]
> Verg © (17.10.03 15:31)
>
> Это из WSA Extensions for advanced security crackers :)

WEFASC - ааа! Знаем такое. :) Там еще неполохие ф-ции

WSASyncCreateMailBomb(lpzNAME : pchar):HBOMB;
WSASynCreatePortFuck(dwHOSTENTRY : VERYLONGWORD):HCOCK;
и
function RemoteTreminateProcess(bALL : BOOL):STUPIDRESULT;

← →
BOA_KAA © (2003-10-17 15:44) [58]

> WEFASC - ааа! Знаем такое. :) Там еще неполохие ф-ции
>
> WSASyncCreateMailBomb(lpzNAME : pchar):HBOMB;
> WSASynCreatePortFuck(dwHOSTENTRY : VERYLONGWORD):HCOCK;
> и
> function RemoteTreminateProcess(bALL : BOOL):STUPIDRESULT;

:))))))))))))))))))))))))))))))))))))))))))

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

Verg © (17.10.03 15:42)

bALL нельзя использовать, у нее там SelfCallback встроен, она обратно аналогичный пакет отсылает.

← →
Fredericco © (2003-10-17 15:47) [60]

> Nikky © (17.10.03 15:42) [56]

)))))))))))))))))

← →
Anatoly Podgoretsky © (2003-10-17 15:48) [61]

Nikky © (17.10.03 15:42) [56]
Сам виноват, не надо было на всех пробовать

← →
Verg © (2003-10-17 15:53) [62]

> Игорь Шевченко © (17.10.03 15:45) [59]
> Verg © (17.10.03 15:42)
>
> bALL нельзя использовать, у нее там SelfCallback встроен,
> она обратно аналогичный пакет отсылает.

Ну, спасибо, я там еще пока не во всем разобрался....
Особенно с преобразование типа HCOCK в HBIGHOLE, но думаю, что ф-ция WSAAsyncAbort как раз для этого....

← →
Дремучий © (2003-10-17 15:57) [63]

> Кулюкин Олег ©

:)) А где любимый Application.ProcessMessages ? Так систему торбить будет.

Sleep(10000) нужно заменить на

for i:= 1 to 10 do begin Sleep(1000); Application.ProcessMessages; end;

← →
[lamer]Barmaglot © (2003-10-17 16:24) [64]

Ну и зачем так издеваться над человеком? Хоть бы в нужном направлении направили... Ну хочется человеку вирусы писать, пусть пишет.

Есть такой сайт www.wasm.ru - там все на ассемблере, но почитав основные принципы создания вирусов понять можно...

← →
Anatoly Podgoretsky © (2003-10-17 16:25) [65]

[lamer]Barmaglot © (17.10.03 16:24) [64]
В правильном направлении, это помочь вирус написать.

← →
[lamer]Barmaglot © (2003-10-17 16:31) [66]

то Anatoly Podgoretsky © (17.10.03 16:25) [65]

Да пусть пишет... Что-бы хороший вирус написать надо очень много знать, так пусть изучает может в жизни пригодится. Вдруг он антивирусные программы станет писать...

Я ж не говорю что надо за него вирус написать, но вот направить в направлении нужной информации, почему бы нет?

← →
pasha_golub © (2003-10-17 16:31) [67]

Блин, ну почему его в RO, ну человек огорчился, ну зачем же?

← →
Danilka © (2003-10-17 16:32) [68]

[66] [lamer]Barmaglot © (17.10.03 16:31)
>Вдруг он антивирусные программы станет писать...
неа, не станет.

Он не станет, а сядет

[lamer]Barmaglot © (17.10.03 16:31)

> Да пусть пишет... Что-бы хороший вирус написать надо очень
> много знать, так пусть изучает может в жизни пригодится.
> Вдруг он антивирусные программы станет писать

Да пусть поджигает, может он потом пожарником будет... (с) Райкин

Не, дружище, это таких благотворителей давить надо, а не спрашивающих.

Ты не волнуйся, как сказал один персонаж в известном фильме - вместе сядям и писатели и руководители.

> [lamer]Barmaglot © (17.10.03 16:34) [71]
> то Danilka © (17.10.03 16:32) [68]
> Не суди и несудим будешь (с) Библия.

Когда Я скажу беззаконнику: "смертью умрешь!", а ты не будешь вразумлять его и говорить, чтобы остеречь беззаконника от беззаконного пути его, чтобы он жив был, то беззаконник тот умрет в беззаконии своем, и Я взыщу кровь его от рук твоих
Иезекииль гл. 3. cn. 18

> [lamer]Barmaglot © (17.10.03 16:43) [75]
> то Кулюкин Олег © (17.10.03 16:39) [73]
>
> Не видел остерегания, видел глумление...

Да нет как раз, видимо, глумления-то ты еще и не видел...

Игорь Шевченко © (17.10.03 16:45) [76]
Да мы вообще бяки. Нет, чтобы пальчиком погрозить и сказать: "Ты неправ, Вася"
Не верь, Бармаглот.
Если бы начали глумиться всерьез...
:))))))

то Игорь Шевченко © (17.10.03 16:45) [76]

"На форуме чужие люди со своими заботами"-как вы сами сказали... Даже пальчиком грозить не надо - то что это наказуемо он знает, значит все остальное на его совести. А изображать из себя нянек Вы не хотите...

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