function CalcSerial(var1:integer):integer;
var out1:integer;
begin
  asm
    mov edi,var1
    mov eax,$83340521
    imul edi
    add edx,edi
    sar edx,$9
    mov ecx,edx
    shr ecx,$1f
    add ecx,edx
    imul ecx,ecx,$3e7
    sub edi,ecx
    mov out1,edi 
  end;
  Result:=out1;
end;