Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2003.11.13;
Скачать: [xml.tar.bz2];

Вниз

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

 
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;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.72 MB
Время: 0.031 c
3-40925
kosm
2003-10-16 17:45
2003.11.13
BOLD for Delphi - миф или реальность?


3-41046
GAlexis
2003-10-24 14:54
2003.11.13
Управление пользователями


1-41467
Sagrer
2003-11-04 19:37
2003.11.13
Помогите с Selection в Memo.


14-42020
wHammer
2003-10-24 10:05
2003.11.13
Кто может подсказать что случилось с анкетой?


14-42034
Сатир
2003-10-16 12:41
2003.11.13
Delphi 8





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский