Пакеты от ГС

[st01en]

Сообщение от stirena

На первый взгляд:
надо поправить вот в этой строчке

l2.DecryptGP(pck[3],length(pck)-2);

т.к у string нету 0-го символа, они начинаются с 1

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

if ListBox1.ItemIndex = 0 then
l2.InitKey(pck[5])
else
l2.DecryptGP(pck[3],length(pck)-2);

Спасибо.