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

Discussion in 'Песочница' started by Kn[1]Fe^^, 26 Dec 2010.

  1. Kn[1]Fe^^

    Kn[1]Fe^^ New Member

    Joined:
    24 Dec 2010
    Messages:
    23
    Likes Received:
    4
    Reputations:
    0
    Мои дорогие, можно спросить у вас как сделать фейковый сервер ICQ? Желательно Delphi. :)
     
    #1 Kn[1]Fe^^, 26 Dec 2010
  2. alkos

    alkos Elder - Старейшина

    Joined:
    28 Mar 2007
    Messages:
    1,148
    Likes Received:
    292
    Reputations:
    271
    Можно

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

    d1v Elder - Старейшина

    Joined:
    21 Feb 2009
    Messages:
    674
    Likes Received:
    332
    Reputations:
    120
    http://upwap.ru/1000479
     
    #3 d1v, 26 Dec 2010
  4. C00LPack

    C00LPack Member

    Joined:
    7 Oct 2010
    Messages:
    425
    Likes Received:
    66
    Reputations:
    19
    #4 C00LPack, 26 Dec 2010
  5. C00LPack

    C00LPack Member

    Joined:
    7 Oct 2010
    Messages:
    425
    Likes Received:
    66
    Reputations:
    19
    пример на vb6 (с использованием винсокса)
    Code:
    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'ом)
     
    #5 C00LPack, 27 Dec 2010
    Last edited: 27 Dec 2010
(You must log in or sign up to post here.)