обновление в блоге - Создание многопользовательского чата

[Beermonza]

Ты бездумно исключил из привата кодировку шрифта, а на прием оставил прежнюю позицию вырезки, естественно, нет теперь прежних 4-х байт, а клиент считает что есть, вот и начинает резать с половины ника. Поскольку по вырезке получается половина ника и часть времени, то такого клиент в списке не находит и создает новую вкладку. Тут нужно еще условие создать: если нет в списке ника, вырезанного из привата, то ничего не создавать.

Приватное сообщение с клиента будет выглядеть вот так:

ClientSocket2.Socket.SendText('3' + pagecontrol1.ActivePage.Caption + Chr(152)
                              + '>> ['+TimeToStr(Time)
                              +']  '+Nik
                              +':  '+TextEdit.Text);

Прием приватного сообщения у клиента будет выглядеть так:

Memo.Lines.Add(Copy(txt, 3 + Length(niktemp), len - Length(niktemp) - 1));

У сервера отправка приватного сообщения:

SS2.Socket.Connections[i].SendText('3' + niks + Chr(152)
                                   + '>> [' + TimeToStr(Time)
                                   + ']  ' + Niks
                                   + ':  ' + TextEdit.Text);

У сервера прием приватного сообщения:

Memo.Lines.Add(Copy(txt, 3 + Length(PrivateUser), len - Length(PrivateUser) - 1));

У сервера трансляция приватного сообщения:

SS2.Socket.Connections[b].SendText('3' + TUserList(Socket.Data).Name + Chr(152)
                                   + Copy(txt, 2 + Length(PrivateUser) + 1, Length(txt) - Length(PrivateUser) - 2));

[darek13]

ООо спасибо большое!, все работает правдо опять придется переделывать разшифровку, но то ничего страшного, а еще такой вопрос, у тебя по случайности нет исходников алгоритма шифровария AES для текста, а то чего то нормального найти не могу

[Beermonza]

Такого нет. Оно тебе нужно? ...есть у тебя шифрование и достаточно, ...а кто поумнее тот хоть как расшифрует, только время потратит.

[darek13]

у меня вообще было сначала реализовано шифрование Base64 а потом поверх XOR, но руководитель сказал что не канает такая фишка, надо что то по серьезней, а на сколько я знаю то сейчас самый матерый это и есть AES хотя я подумывал над DES

[Beermonza]

Фильм "Семнадцать мгновений весны" смотрел? ...момент когда Штирлиц получил шифровку, взял книгу с полки и по указателям "вытащил" весь зашифрованный текст - вот это надежно. Книга в данном случае - таблица подмены. Сделай несколько таблиц и помести в укромном месте у клиента и сервера, ...в пакете должна быть ссылка на номер таблицы, по ней каждое сообщение будет шифроваться по разному, перехватчик никогда не узнает как расшифровать пакет, а если у него есть клиент, то никакое шифрование не поможет, если он ломанет программу. Размер пакета изменится на 1 байт.

[darek13]

Beermonza, помоги еще с такой проблемой, когда у меня клиент отправляет сообщение клиенту, то сначала ж оно проверяется на сервере кому предназначенно. Так вот, как у меня все работает: когда сообщение было отослоно(в зашифрованном виде) от клиента, сервер его принял, затем он считал с БД пароль отправителя, расшифровал сообщение и поместил его в переменную TEMP. Потом как происходит действия, если получатель сервер, то он выводит это сообщение себе, которое находится в этой переменной. Тут проблем нет. Проблема вот в чем, если получатель не сервер, а какой то клиент, то начинается перебор поиска нужно клиента. После того как получатель был найден, то сервер считывает с БД его пароль и шифрует текст с переменной TEMP в переменную STRTEMP и потом отправляет сообщение этим куском кода:

SS2.Socket.Connections[b].SendText('3' 
                                   + TUserList(Socket.Data).Name + Chr(152)
                                   + Copy(txt, 2 + Length(PrivateUser) + 1, Length(txt) - Length(PrivateUser) - 2));

Но сама проблема в том что, так, он отправляет сообщение в том зашифрованном виде, в котором изначально послал отправитель (клиент), а мне нужно что бы он послал сообщение которое находится в переменной STRTEMP. Вот я не могу это реализовать, помоги пожалуйста!

[Beermonza]

darek13, ты видимо не ознакомился с командами копирования, и не понимаешь до сих пор смысл кода, что привел. Давай еще раз поясню. Copy - команда копирования содержимого некоторой строки формата String:

Copy({строка}, {начальный символ}, {длина копирования});

Код, что ты привел, заменяет в пакете привата ник получателя на ник отправителя. Зачем? ...клиент прикрепляет ник того, кому передать сообщение, чтобы сервер нашел адресата по этому нику. Когда сервер нашел адресата, то получатель, чтобы отобразить вкладку, должен знать ник отправителя, вот сервер и меняет ник в пакете. Если все переложить на клиента, т.е. в пакете будет и ник "от кого" и "кому", то можно жульничать как вздумается, просто указывая левые ники так, что приваты будут идти от одного человека, но от имени того, кого он вписал посредством левой программы. Этого допускать нельзя.

Зашифровывать нужно пакет уже с подменой ника. Если твой STRTEMP содержит подмену, то и отсылай как SS2.Socket.Connections[b].SendText('3'+STRTEMP); ...и всего делов. Код команды '3' и вообще любой код шифровать нельзя, иначе ты будешь прогонять все пакеты через расшифровку, а потом только смотреть код. А если код левый? ...например '9', но ты не узнаешь этого пока не расшифруешь. Правильнее будет, сначала смотреть первый байт, если он попадает в диапазон кодов, то обрабатывать - отправлять на расшифровку, иначе - выпнуть пользователя.

[darek13]

Нет STRTEMP содержит только зашифрованный текст, без ника и команды

[darek13]

Например когда сервер передает сообщение клиенту то

SS2.Socket.Connections[i].SendText('3' + niks + Chr(152)
                                                      + '>> ['+TimeToStr(Time)
                                                      + '] '+Niks
                                                      + ': '+strtmp);

strtmp - это чисто зашифрованный текст

[Beermonza]

Так нереально определить начало текста, тем более, что время тоже не постоянно имеет одно и тоже число байт. Зашифровывай все после байта Chr(152), ...и расшифровывай на другой стороне, соответственно.