|
|
|
|
#1
13.03.2010, 03:18
|
|||
|
|||
Клиент-Сервер
Доброго времени суток. Я задался целью написать програмку ( клиент ) под уже созданный сервер ... Смысл программки - авторизация пользователей
Через софт, который отлавливает пакеты я посмотрел ... При отправке логина и пароля с моей програмки идёт вот этот пакет Код:
01 | 6E 6F 76 75 | 73 74 65 73 | 74 30 37 32 | 0D 0A 00 00 novustest072.... Код:
01 | 74 65 73 74 | 65 72 0D 0A | 00 00 00 00 | 00 00 00 00 tester.......... А вот аналогичная программка, отправляя логин и пароль отправляет вот такой пакет Код:
01 | 33 00 15 03 | 29 2A 21 20 | 2E 2F 30 2E | 2F 6B 62 6D 3...)*! ./0./kbm 02 | 5B 6C 6D 6E | 6F 60 61 5B | 5B 5B 5B 5B | 5B 5B 5B 5B [lmno`a[[[[[[[[[ 03 | 5B 5B 5B 5B | 5B 5B 5B 5B | 5B 5B 5B 5B | 5B 5B 5B 5B [[[[[[[[[[[[[[[[ 04 | 5B 5B 00 00 | 00 00 00 00 | 00 00 00 00 | 00 00 00 00 [[.............. Есть какие нибудь методы для того, чтобы мою программку подогнать под аналогичную ? Я пишу программку через TcpClient, не подскажите, как 2 пакета объединить в один ... Логин и пароль отсылаются как 2 разных пакета, а нужно, чтобы отсылались как 1 ... Последний раз редактировалось JackRu, 13.03.2010 в 03:32. |
|
#2
13.03.2010, 06:04
|
||||
|
||||
Цитата:
Скорее всего это шифрование base64, хотя не уверен  |
|
#5
16.03.2010, 10:11
|
||||
|
||||
|
Примерно так можно послать
Код:
var buf: array[0..3] of Byte = ($33, $00, $15, $03); procedure TForm1.Button1Click(Sender: TObject); var sendedLen: Integer; begin sendedLen := TcpClient.SendBuf(buf[0], SizeOf(buf)); end; |
Линейный вид
