Цитата:
|
Сообщение от 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);
Спасибо.