что такое IntNo? гугль про такой тип данных сразу не рассказывает.
квадратные скобки вокруг переменных в коде — просто для удобства восприятия или что-то еще значат? у меня итоговый вариант без скобок, пока работает:
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;
p.s.
сейчас разбираюсь в некотором алгоритме генерации и поражаюсь объему кода необходимого для эмуляции пары-тройки ассемблерных команд ;)
p.p.s.
сорри за первый вопрос, что такое IntNo уже понял.
Поиск
Друзья
Администрация