procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
const
b: array[0..15] of Byte = ($6B, $60, $CB, $5B, $82, $CE, $90, $B1, $CC, $2B, $6C, $55, $6C, $6C, $6C, $6C);
var
s:string;
e,v:string;
z:word;
i:integer;
begin
s:=Socket.ReceiveText;
e:=Copy(s,2,length(s)-2);
//e:=StrToHex(s,' ');
z:=length(s)-2;
BF.Init(b,16); // пишем ключег
BF.bfDecode(e,length(e)); // декодируем
Form1.ListBox2.Items.Add('<');
Form1.ListBox1.Items.Add(e); // здесь происходит аццкий краш всего живого. лезут ексцепты, выпрыгивает ЦПУ и тп. подозреваю что какое то неправильное смещение при декодировании блоуфишем.
t.Add('0'+IntToStr(z));
Form1.ServerSocket1.Socket.Connections[0].SendText(s);
end;
|