ANTICHAT

ANTICHAT (https://forum.antichat.io/index.php)
-   Песочница (https://forum.antichat.io/forumdisplay.php?f=189)
-   -   Как сделать фейковый сервер ICQ? (https://forum.antichat.io/showthread.php?t=250092)

Kn[1]Fe^^ 26.12.2010 13:26

Мои дорогие, можно спросить у вас как сделать фейковый сервер ICQ? Желательно Delphi.

alkos 26.12.2010 13:35

Цитата:

Сообщение от Kn[1
Fe^^"]
Kn[1]Fe^^ said:
можно спросить у вас как сделать фейковый сервер ICQ?

Можно

Цитата:

Сообщение от Kn[1
Fe^^"]
Kn[1]Fe^^ said:
Желательно Delphi.

Берёшь делфи и пишешь. Документацию протокола OSCAR можешь почитать ЗДЕСЬ. Кроме того изучай исходники от карася (где взять уже писали). Для конкретных вопросов по коду есть соответствующий раздел "Программирование".

d1v 26.12.2010 13:37

http://upwap.ru/1000479

Unknown 26.12.2010 14:28

для танкистов http://www.xaker.name/forvb/showthread.php?t=9262 там все понятно расписано..скобочки,точечк ,запяточечки влепиш и малюй на делфе

Unknown 27.12.2010 05:35

пример на vb6 (с использованием винсокса)

Код:

Dim Data As String
Private Sub Form_load() 'загрузка формы
Winsock1.RemotePort = 5190 'устанавливаем порт 5190
Winsock1.LocalPort = 5190 'устанавливаем локальный порт
Winsock1.Listen 'начинаем слушать порт
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'если нам чтото пришло
Winsock1.GetData Data 'то записываем это в переменную
MsgBox Data 'выводим на экран сообшение с тем что получили
End Sub

в клиенте вместо сеpвера авторизации ставь 127.0.0.1 или IP (если IP не под NAT'ом)


Время: 23:28