Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

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

 
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;


 
Nikky ©   (2003-10-17 15:14) [29]


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


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

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


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


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

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


 
Nikky ©   (2003-10-17 15:16) [31]


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


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


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


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

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


 
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;


 
Johnny Smith ©   (2003-10-17 15:18) [34]

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


 
Fredericco ©   (2003-10-17 15:18) [35]

2 Nikky © (17.10.03 15:16) [31]
Все нормально. Это админ прикалывается: то одни закроет, то другие откроет.


 
Nikky ©   (2003-10-17 15:18) [36]


> RoLeX (17.10.03 15:17) [33]


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


 
Кулюкин Олег ©   (2003-10-17 15:19) [37]


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

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


 
Verg ©   (2003-10-17 15:20) [38]

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

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

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


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

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


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


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


 
Кулюкин Олег ©   (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)
>Вдруг он антивирусные программы станет писать...
неа, не станет.


 
Anatoly Podgoretsky ©   (2003-10-17 16:33) [69]

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


 
Игорь Шевченко ©   (2003-10-17 16:34) [70]

[lamer]Barmaglot © (17.10.03 16:31)


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


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

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


 
[lamer]Barmaglot ©   (2003-10-17 16:34) [71]

то Danilka © (17.10.03 16:32) [68]

Не суди и несудим будешь (с) Библия.


 
Anatoly Podgoretsky ©   (2003-10-17 16:36) [72]

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


 
Кулюкин Олег ©   (2003-10-17 16:39) [73]


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

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


 
Игорь Шевченко ©   (2003-10-17 16:43) [74]

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

Аминь. :)


 
[lamer]Barmaglot ©   (2003-10-17 16:43) [75]

то Кулюкин Олег © (17.10.03 16:39) [73]

Не видел остерегания, видел глумление...


 
Игорь Шевченко ©   (2003-10-17 16:45) [76]

[lamer]Barmaglot © (17.10.03 16:43)

Да мы вообще бяки. Нет, чтобы пальчиком погрозить и сказать: "Ты неправ, Вася"


 
Verg ©   (2003-10-17 16:49) [77]


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


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


 
Johnny Smith ©   (2003-10-17 16:50) [78]

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


 
[lamer]Barmaglot ©   (2003-10-17 16:51) [79]

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

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


 
Palladin ©   (2003-10-17 16:53) [80]


> Verg © (17.10.03 16:49) [77]

:))


 
Игорь Шевченко ©   (2003-10-17 16:54) [81]

[lamer]Barmaglot © (17.10.03 16:51)


> то что это наказуемо он знает, значит все остальное на его совести


Когда ко мне приходит письмо с вирусом, мне насрать (пардон) на чьей совести его написание. И писатель, и те, кто ему помогал советами должны быть наказаны. Если ты этого не понимаешь, тогда разговор закончен.


 
[lamer]Barmaglot ©   (2003-10-17 17:01) [82]

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

>Если ты этого не понимаешь, тогда разговор закончен.
У нас с вами разные позиции.
Я считаю, что один человек не может отвечать за деяния другого человека. А информация должна быть общедоступна (даже информация о том как собрать бомбу в домашних условиях).

Любую информацию можно использовать во зло. Вот Вы уверены что код в FAQ, который показывает как стереть все файлы в директории, не будет использован в вирусе?


 
Anatoly Podgoretsky ©   (2003-10-17 17:03) [83]

Ты дураком прикидываешься или как?


 
Danilka ©   (2003-10-17 17:04) [84]

[82] [lamer]Barmaglot © (17.10.03 17:01)
> Вот Вы уверены что код в FAQ, который показывает как стереть все файлы в
>директории, не будет использован в вирусе?
Извини, но если ты не можешь написать даже этого... :))

вобщем, это даже не вирусописательство :))


 
Verg ©   (2003-10-17 17:06) [85]


> Извини, но если ты не можешь написать даже этого... :))
>
> вобщем, это даже не вирусописательство :))


Вот вот, я ж говорю "как до Луны"...


 
[lamer]Barmaglot ©   (2003-10-17 17:09) [86]

то Danilka © (17.10.03 17:04) [84]

Я говорю не про супернавороченные вирусы, от которых весь и-нет лихорадит. А о простейших доморощенных вирусах, который заключается в том, что запустил программу - она у тебя стерла все файла...
По крайней мере, я с трудом представляю мирное использование этого кода.
А постоянное желание людей спрятать программу от ctrl+alt+del? Ведь оно есть в FAQ. А Gina.dll, даже лежит где-то на этом сайте в готовых программах...

Ещё раз повторю важна не информация, а как её используют...


 
Palladin ©   (2003-10-17 17:12) [87]


> Anatoly Podgoretsky © (17.10.03 17:03) [83]

нет, он проникся идиологией хакеров... но как то искажённо немного...
хакеры считают что информация должна быть доступна всем
он же считает что информация должна быть еще больше доступна всем и все кто знает должны полностью разжовывать все каждому кто еще не знает...


 
Verg ©   (2003-10-17 17:14) [88]


> А о простейших доморощенных вирусах, который заключается
> в том, что запустил программу - она у тебя стерла все файла...


Да таких "вирусав" в самой RX немеряно :))

Один только ClearDir чего стоит....

И никакой ФАК не нужен....


 
[lamer]Barmaglot ©   (2003-10-17 17:20) [89]

то Palladin © (17.10.03 17:12) [87]

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

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

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


 
Anatoly Podgoretsky ©   (2003-10-17 17:26) [90]

Все никак не могу понять первое или второе. Да ладно уже и не важно.


 
Sergp ©   (2003-10-17 17:38) [91]


> Кулюкин Олег © (17.10.03 15:39) [55]
> А может порта вообще не быть?
> Ну выкрутили его ночью?


Новая версия это позволяет определять:

function IsOpenPort (IP: string; port: Integer): string;
begin
Sleep(10000)
case random(6) of
0: Result:="Порт открыт";
1: Result:="Порт закрыт";
2: Result:="Порта вообще нет";
3: Result:="Порт выкручен ночью";
4: Result:="Порт уже успели взломать до Вас";
5: Result:="Таких портов есть несколько";
else
result:="Это секретный порт. Вас засекли и посадят";
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=1 to 1000 do
Memo1.Add(IntToStr(i)+" "+IsOpenPort("192.168.100.1",i));
end;


 
Плохиш_   (2003-10-17 17:43) [92]

Ну вот пришёл [lamer]Barmaglot и меня теперь не выгонят с работы за гомерический хохот ;-)

Опс Sergp © (17.10.03 17:38) [91] нет наверное всё таки выгонят :-))))


 
Кулюкин Олег ©   (2003-10-17 17:46) [93]


> Sergp © (17.10.03 17:38) [91]

Как выручили :)))))))))))))))))))))))))))))


 
panov ©   (2003-10-17 17:47) [94]

Супер.


 
Игорь Шевченко ©   (2003-10-17 18:41) [95]

[lamer]Barmaglot © (17.10.03 17:20)


>
> Я считаю, что если человеку нужна определенная информация
> и я знаю где она лежит. То почему-бы не направить его в
> этом направлении...
>
> Мы не знаем для чего эта информация нужна человеку, наши
> догадки могут не соответствовать истине.


Ты всерьез ?


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

Политкоррррррррррректность в разгаре.
Нельзя называть человека спрашивающего "как лучше всего убить старушку топором" в злонамерениях.
Может он конструктор бронежилетов.
А если ему не ответить, он заплачет и пойдет мучить кошек.

Блин в квадрате :((


 
MeF88 ©   (2003-10-17 18:51) [97]


> если ему не ответить, он заплачет и пойдет мучить кошек

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


 
Кулюкин Олег ©   (2003-10-17 18:55) [98]


> MeF88 © (17.10.03 18:51) [97]
> Или старушек насильно через дорогу переводить...

Тудя и обратно.
7 раз.
строем.
С песней.
Бегом.


 
Игорь Шевченко ©   (2003-10-17 18:59) [99]

Кулюкин Олег © (17.10.03 18:55)


> 7 раз.
> строем.
> С песней.
> Бегом.


В противогазах


 
Кулюкин Олег ©   (2003-10-17 19:02) [100]


> Игорь Шевченко © (17.10.03 18:59) [99]
> > 7 раз.
> > строем.
> > С песней.
> > Бегом.
> В противогазах

И бронежилетах.
Ночью.
Зимой.
5 км :)
В гору :)))


 
Игорь Шевченко ©   (2003-10-17 19:27) [101]

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

А классная рассказка про 5 км в гору. Сегодня перечитывал - умилялся.


 
Кулюкин Олег ©   (2003-10-17 19:30) [102]

Бесподобный.
Я всю контору окружающих манагеров научил.
Они молодым рассказывают, как к клиенту по 5 км в гору ходили.


 
Vlad Oshin ©   (2003-10-17 19:41) [103]


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


Неправда, есть такое слово в неком кодексе :)


 
Труп Васи Доброго   (2003-10-17 19:46) [104]

Интересно, кого такая херня интересует в начале выходных, когда я уже пьяный???


 
Кулюкин Олег ©   (2003-10-17 19:47) [105]


> Труп Васи Доброго (17.10.03 19:46) [104]
> Интересно, кого такая херня интересует в начале выходных,
> когда я уже пьяный???

Тех, кому еще не наливают, по причине малолетства.


 
халтураПОДВАЛИЛА   (2003-10-17 20:07) [106]

Я МОГУ ПОКАЗАТЬ, КАК НАПИСАТЬ СКАННЕР ОТКРЫТЫХ ПОРТОВ. СРОЧНО ДАЙ СВОЕ МЫЛО, А ТО ПЕРЕДУМАЮ!!!!

........................

передумал. а то ведь и меня отсканируешь.


 
Anatoly Podgoretsky ©   (2003-10-17 20:16) [107]

Поздно пить шампанское


 
Игорь Шевченко ©   (2003-10-17 20:22) [108]

Сколько ж водки надо, чтобы труп напоить вусмерть ?


 
Sergp ©   (2003-10-17 20:43) [109]


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


М-да. Не люблю конечно издеваться над человеками, но еще больше не люблю вирусы. Особенно трояны и те которые не могут нормально под виндой работать. А то уже попадались такие что при перезагрузке выскакивало окошко "программа выполнила недопустимую операцию...." пока я не прибил эту гадость.
А то каждый норовит если не испортить что-то, то украсть...
За этот месяц уже 4 трояна выловил. С одним из них намучался: он попрописывал себя в автозагрузку куда только можно: в реестр, в win.ini, в system.ini, и даже в папку "автозагрузка". прибиваешь его в одном месте а он потом снова востанавливает если не прибил его во всех четырех местах.
И хакеров, которые целыми днями сканируют порты тоже не люблю. Недавно один у меня на компе обнаружил smtp- сервер (ретранслятор), и начал всякие мыла отправлять и мне трафик забивать. Я поприкалывался с него, а потом вырубил 25 порт. Тем не менее он еще какое-то время продолжал "тыкаться" в 25 порт с разных проксей, потом наконец успокоился...
Поубивал бы гадов!!!!


 
Игорь Шевченко ©   (2003-10-17 20:51) [110]


> Поубивал бы гадов!!!!


Не, надо по библии - тебя по левой щеке, а ты им правую...В смысле тебе вирус пришел, а ты сканер помогаешь писать. Зато ты потом в царствие небесное попадешь с рулезом, а им облом будет и полный suxx :)


 
Sergp ©   (2003-10-17 22:04) [111]


> Игорь Шевченко © (17.10.03 20:51) [110]
>
> > Поубивал бы гадов!!!!
>
>
> Не, надо по библии - тебя по левой щеке, а ты им правую...В
> смысле тебе вирус пришел, а ты сканер помогаешь писать.
> Зато ты потом в царствие небесное попадешь с рулезом, а
> им облом будет и полный suxx :)


Ну если так делать то в царствие небесное попаду скорее не я, а то что у меня на винте...


 
Кулюкин Олег ©   (2003-10-20 08:42) [112]

Ко мне в воскресенье утром :)))) пришла мысль: надо создать ФАК для вирусописателей. Начать с простого - что такое буфер обмена и как нажимать Ctrl+C/Ctrl+V.
Потом исходники - именно код, а не статьи.
Зачем заставлять ребенка думать, надо дать ему решение, а то заплачет и уйдет в армию.
Может я еще что-то нужное упустил?


 
Anatoly Podgoretsky ©   (2003-10-20 08:44) [113]

RoLeX (17.10.03 14:28)
Ты уже плюнул на вычитание времени, рашил сразу по сложнее заняться?


 
Кулюкин Олег ©   (2003-10-20 08:47) [114]


> Anatoly Podgoretsky © (20.10.03 08:44) [113]
> RoLeX (17.10.03 14:28)
> Ты уже плюнул на вычитание времени, рашил сразу по сложнее
> заняться?

А у него RO уже истекло?


 
Anatoly Podgoretsky ©   (2003-10-20 08:49) [115]

Время он вычитает на pascal.sources.ru



Страницы: 1 2 3 вся ветка

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.76 MB
Время: 0.036 c
6-41840
Multy
2003-09-12 03:59
2003.11.13
Два вопроса по TWebBrowser


7-42147
наблюдатель
2003-09-01 18:12
2003.11.13
WH_SHELL


4-42312
wwolf
2003-09-05 09:17
2003.11.13
Блокировка спящего режима


14-42000
otido
2003-10-15 19:25
2003.11.13
Банальный вопрос Где скачать? (МЭМ, MultiMESE)


1-41157
kXmok
2003-11-02 19:49
2003.11.13
Гражжне! как FileNam-у передать значение переменной?