UDP Chat, На Delphi, без сервера! Опции

[Mr.Floppy]

Вот, вчера накатал вот это: (исходник на дельфи, закодировано xxe)

begin 644 chat.rar
hIa3m6Fc5+AyEQk++1E++++++++11aLEUU0U+ZU+++Cs++++0cmIQHbaS5HAR
hBEU+60+++4BcMLEiN5-mdlVk-0Qwz+JVObePJaPvKG2CX22Vbx8u3HNFMvVH
hCgcU9qww-3BFeotZcL+3XNiGjwvfsYjt24MKbT234fVr2JXGUTLatzsbfU-a
h8ivsEVBQT5SEORvSZBg+CHFInxXbLJZ3j064ZgZP0JDrmKXJoFhjDPQZVAnP
hw44BZcTycXf3xddv9w5uFgZ7xQA8++0zW4TqeTzIQKdo66+c+BE0+++m0E++
h+f-UdP6Of-on5HI6+0+U++-hMKZi9aFaPOQMPj4KDTY1vFItVcE0TA6Rp7w9
h0Xjz7dVX-xGXVsutepVnpLE0SyDAU3ptdTddPW5l1V3w2jml0H53jXL8cZLj
hSmAgDPFuKQ+Z6MUpZa5+X-ItfhNAY6eNiOEtbfMJAuXAYWKM368ohyUhVIsj
hMXRbPJUT17PwXxpGGWj-M64qWMoF6-5xUvkwqIMKd-qCcJA658-jcddc7EWN
hmf6Z1DDa1jXMgVJbxDQcYuVDct00CZ2rZOwhy7q8jq9aQX2RzYh21O9rg55C
hHGjLDJ+78qI5irNYWWEBEXZhpkO2qES5RE4+jzU+Ke4+rhyunOfg3L8NyWol
h-luJXWLqMGs+a5I+gsC+p9eCSOVqmtkmAWom3xGO7JPBXZdaG6v28lKMI0bg
hh+Ger7ZoJ8StwjHMdQbjLL-sC-dSobnthzxs3ByJcYBahruB9aiTKsTTPlT+
hWK3iB1grdeJUmPXyiEs4BbAMFcB4gl3vYsAILvPuaIAm7inM3g7+jEInuwp6
hpig7mzW3Iiq2ScliH9+ETaptyWNEz-fcL447eb8OrvRygCG+CN+ElxNSlDbi
hW24jnqmkS0jp8N+Rmr7elqW9QTQgAhOWBSzydqfssK2j8Y2x+lNy5KPjyFAl
hmTXwJf7DNwpJfeB8oYEZ9OqAg91jMfZke8q-swXqn788LjmqMCPydQJYoWQq
h+JyIbB6FFTV-7iGRx0P2XU3wBC0R8V6AlmiRaCcfRZI9yn8xTzk9tMzlbVt4
hZvcg76nLCF-7N0pl2DPUwjXHFxPDSQbYsmWKRJcf1WApWqeZ-Y4AL3rShtTu
hHBKYEfs93-RfwlOOm3ENRIqjwfUflMyLhS4InZiLrGrWIWK57ddyFryoJAbT
hL5rPRfPZUm69ptpgCrbygwPsFZa7-dz+ndeSWUdJEF01zgz6tv4kcx7oQNrl
hwRX-Fi5vwKWOuKXo93t8VJZ7-E6++9y6NzOdzxFq5rEUU0U+Z+6++7I5+++0
hoFERwyuf5HARBEU+60+++4pVOKsiQ43ndlVoxp1xAAEgNDVdiwRk7TaUIxnp
h2fPrevcGmsuFAET5bgNsfZemoq0T8h+dfXuuLu9kwLRmuVqYvreQLD8u3vbC
hR5TIgFao-7ZnqzOz4jL2OeDl9Fp9H4lcNAphkwFpomO7teXlDX4hJlmE4ykV
hbulqGam1KtbIMtQH9I72MBFwc6oJqRXIJTWJnvnOoe3NWAwI+75vAghwhYA0
hU5Y0WKIJMpjXYjLt-yfDggeMxn5EcPyHvl6wIVp7gRYwi55NEoSN-h523Lmg
h1AGYYKFu3sR9hXLrtySJjTt8nsH3Ry2NQVmw2xOMxhEdTBYp7DAsCLin0x-j
hAxziWASG3ENioGLMSL8OrvyrPwEk4zMwizDzqKVO219SujzcFZPYPF4d018G
hnAHpSBuka5Va-C4pLquCiLdvMkjm45Ym8I6VCdaeblxw5A37rGWyxe3hXq3E
hB0-3UiTl5EwQOzSmyudi2LSVkQAatwBpsJT1OSDC+LkXE8i9OOg33V-5cuE5
h5LzuyRDKkw8YaJ53+Mp6G5w9Fk9KP3ur1-XVz8wGyvji2AZlmREH17qol9qC
hsb9FB61jtu7hUrEmRgFrzqu-FnAtd7Rhkud4TmJmpGGojF0ofqx+ClHzAaj4
hgkS7G0ud5dtFLSDpUwlsEw1QdKZHIJPRtkbpGrlD1gnjxFJv33A3PtbDAaWU
hIZB5wxTUhOmJINT65kG0I7+ZvOE8FnWRY44HhYRdBi5AtYSM08ZYaPAgIYY4
h9fHDkNbT+Dip6ofsQd34TnvecKr9Eum2RSP2cDP3DDif9TA29ITDbQ7Ci2Ab
hKNlRQH9ubRefvUSbsn5cqx75wLCMtqrCy7qjP5q2P2xgpwnSjLeg-119OiQG
E++0zW4TqeTzIl1pv+2+5++++
+
end
sum -r/size 16654/1681

Не знаю, будет ли работать с гостевика, но в локалке работала. Я удалил из проекта файл ресурсов (в целях экономиии места), так что пересоздайте его.

По идее при отправке на широковещательный адрес 192.168.254.255 сообщение должно прийти всем диалапщикам с гостевика... но мне почему-то не возвращается надо проверить peer-to-peer отправку, если широкощалка не работает - не беда, можно сделать чтоб в цикле сообщения отправлялись... главное - узнать, будет ли вообще с гостевика работать . У кого есть Delphi, откомпилируйте прогу, напишите мне в личку и тогда проверим... Бинарник не выкладываю потому что после компиляции весит много.

Сообщение отредактировал Mr.Floppy - Aug 30 2005, 11:15

[Б.Ззз]

Идея хорошая, только я вообще в этом ничего не понимаю

[-=@L!=-]

А мне уже какой раз кажется что в провах не идиоты сидят.
Единственный рай был с dns-туннелингом. )) Тогда сдавались все. Вплоть до гостя мту. ))

[Mr.Floppy]

А можно попробовать пересылать сообщения вместе в fake-dns пакетами.

[linden]

ИМХО лучше через mailslot =)

[dron]

Ну че сделали чат по гостевику?

Лучше бы ICQ запустили!

[drusha]

Я как-то писал свои протоколы обмена по UDP, Simple IP, Mailslot... Были подводные камни. Но даже не в них дело. Не всегда пробивалось в другой сегмент сети. Даже в локалке. Это всё зависит от настроеу мршрутизаторов, шлюзов и т.п. А уж пров, который предоставляет дай-лап, и вовсе не обязан транслировать всем все широковещательные пакеты. Мог бы, но не обязан. И скорее всего, не будет делать этого. Наоборот, у него скорее всего там что-то вроде файрволла стоит. Который пропускает только то, что ему конкретно известно, зачем и для чего это надо.

[Metallica]

прова заело что нахаляву пользуются все

[drusha]

А какой тап протокол? UDP? А может, лучше взять Simple IP и пошевелить номерами адресами портов? Ну, то есть, сесто на какой-нибудь порт, который обычно используется каким-нибудь стандартным протоколом (хоть бы и DNS), которые никакими файрволлами не отсекаютя... Широковещалка, скорее всего, не пойдёт.

[Tassadar]

гыыыыы нах надо... мы живем в москве в 21 веке во времена широкополосного доступа....

[Metallica]

гыыыыы нах надо... мы живем в москве в 21 веке во времена широкополосного доступа....

Типа дело принципа и все такое

[drusha]

Это вы там у себя отгородились МКАДом от всего остального мира и беситесь с жиру! У нас же провода не везде дотянули, а где дотянули, там безлимитка никак не меньше штуки в месяц. И то, на скорости 128 колобит... Это в 7 км от МКАДа. А где-нить в глубинке...

[Franco Colombo]

А какой тап протокол? UDP? А может, лучше взять Simple IP и пошевелить номерами адресами портов? Ну, то есть, сесто на какой-нибудь порт, который обычно используется каким-нибудь стандартным протоколом (хоть бы и DNS), которые никакими файрволлами не отсекаютя... Широковещалка, скорее всего, не пойдёт.

dns 213.135.64.2

proxy-сервер proxy.tsr.ru порт 3128



Сообщение отредактировал Franco Colombo - May 18 2007, 10:39

[drusha]

А чё с этим делать?
Я так понимаю, исправить программу или переписать по образу и подобию... Фактически, - новую. Может быть, не на компонентах Delphi, а на WinSock 32 API... Заменить там протокол UDP на Simple IP (кое-где поменять параметры, задаваемые константами типа PROTO_UDP на PROTO_IP, и максимальный размер пакета (сообщения) может оказаться другой...). Но это - мелочи. Дальше. Сделать настраиваемым адрес порта. Вместо широковещательных пакетов пробегать цикл по последней компоненте ареса (или даж по двум, надо только знть диапазон адресов этого прова, чтобы не перебирать 65 тыс... Наверняка у него меньше). То есть, слать по всем адресам... Адрес порта сказать так, что это якобы запрос к DNS или ответ от DNS. Сам DNS тут не причём, и его адрес нас не интересует. Просто мы используем тот же номер порта чтобы обмануть файрволл и маршрутизатор... Ну, может, не DNS, а что угодно ещё. Но что не вызывает отторжения у маршрутизаторов и файрволлов прова. На самом деле мы пытаемся послать (разослать)пакеты аналогичным приложениям, и только они их могут понять. Мы не знаем их конкретных IP-адресов, но "бьём по площадям"... Но тогда надо эту версию (новую) сделать, разослать, и тогда - испытывать.

[Metallica]

А чё с этим делать?
Я так понимаю, исправить программу или переписать по образу и подобию... Фактически, - новую. Может быть, не на компонентах Delphi, а на WinSock 32 API... Заменить там протокол UDP на Simple IP (кое-где поменять параметры, задаваемые константами типа PROTO_UDP на PROTO_IP, и максимальный размер пакета (сообщения) может оказаться другой...). Но это - мелочи. Дальше. Сделать настраиваемым адрес порта. Вместо широковещательных пакетов пробегать цикл по последней компоненте ареса (или даж по двум, надо только знть диапазон адресов этого прова, чтобы не перебирать 65 тыс... Наверняка у него меньше). То есть, слать по всем адресам... Адрес порта сказать так, что это якобы запрос к DNS или ответ от DNS. Сам DNS тут не причём, и его адрес нас не интересует. Просто мы используем тот же номер порта чтобы обмануть файрволл и маршрутизатор... Ну, может, не DNS, а что угодно ещё. Но что не вызывает отторжения у маршрутизаторов и файрволлов прова. На самом деле мы пытаемся послать (разослать)пакеты аналогичным приложениям, и только они их могут понять. Мы не знаем их конкретных IP-адресов, но "бьём по площадям"... Но тогда надо эту версию (новую) сделать, разослать, и тогда - испытывать.

Друша если можеш то сделай .Я бы может и сделал но мне тода надо книжки доставать и намесяц ато и на два сидеть писать ..

Сообщение отредактировал Metallica - Nov 19 2006, 10:49

[drusha]

А мне оно - надо? С кем я так буду чатиться? Люди, которые интересуют меня, они не здесь.

[Tier]

тебе смольный может за такую работу сушек отвалить)))
***
а ты не для себя сделай, для народа
***
хорошо сказал))) "они не здесь" ... они уже там...

Сообщение отредактировал Tier - Nov 19 2006, 12:49

[Metallica]

А мне оно - надо? С кем я так буду чатиться? Люди, которые интересуют меня, они не здесь.

А ты для народа , тебе многие спасибо скажут (будеш для нас как нео спаситль)

НО скареее всего такие программмы существуют надо только поискать

Сообщение отредактировал Metallica - Nov 19 2006, 13:06

[ismolnik]

main.pas - ok

[Metallica]

А мне оно - надо? С кем я так буду чатиться? Люди, которые интересуют меня, они не здесь.

Друша А веть мы можем создать модемную сеть

Как называются проги которые (Модемный чат )