esi:=0;
for i:=1 to length(s) do begin
esi:=(ord(s[i]) shl 8 ) xor esi;
eax:=8;
while eax>0 do begin
 if esi:=$8000 then inc(esi,esi)
  else begin
   inc(esi,esi);
   esi:=esi xor $1021 ;
  end;
 dec(eax);
end;
end;