function PTencrypt(s:string;key,v:dword):string;
var mk,eax,si,ebp,esi,edx,ecx,edi,ebx:dword;
    re:string;
begin
    ecx:=key or $80010000;
    ebx:=v;
    edx:=ebx and $ffff;
    eax:=(ecx shl $10) or edx;
    esi:=length(s);
    re:=copy(s,1,4)+#0#0#0#0+chr(eax)+chr(eax div 256)+chr(eax div $10000)+chr(eax div $1000000);
    eax:=eax shr 4;
    edx:=esi+8;
    eax:=eax+esi;
    re[1]:=chr(edx);
    re[2]:=chr(edx div $100);
    re[3]:=chr(edx div $10000);
    re[4]:=chr(edx div $1000000);
    edx:=eax;
    mk:=ecx;
    ebx:=ebx+(ecx and 255);
    ebp:=0;

    for eax:=4 to esi-1 do begin
        ecx:=byte(s[eax+1]);
        edi:=ecx;
        ecx:=(ecx xor (edx and 255))
            xor (ebx and 255);
        re:=re+chr(ecx);
        ebx:=(eax div 2) * eax;
        ebp:=ebp+edi;
        edx:=edx+ebx;

        ebx:=0; // may be the packet number

        ebx:=(ecx and 255) xor ebx;
    end;
    ecx:=mk and $ffff0000;
    edi:=ebp and $ffff;
    ecx:=ecx or edi;
    re[5]:=chr(ecx);
    re[6]:=chr(ecx div $100);
    re[7]:=chr(ecx div $10000);
    re[8]:=chr(ecx div $1000000);
    result:=re;
end;