ANTICHAT - Как сделать фейковый сервер ICQ?

ANTICHAT (https://forum.antichat.io/index.php)

- Песочница (https://forum.antichat.io/forumdisplay.php?f=189)

- - Как сделать фейковый сервер ICQ? (https://forum.antichat.io/showthread.php?t=250092)

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

Цитата:

Сообщение от Kn[1

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

Можно

Цитата:

Сообщение от Kn[1

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

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

http://upwap.ru/1000479

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

пример на 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'ом)