إقتباس :رابط البرنامج موجود بتحدي الأستاذ المخضرم عصام esso_x:
https://www.at4re.net/f/thread-3162.html

procedure TForm1.btn1Click(Sender: TObject);
var
A,B:Integer;
begin
Randomize;
   Repeat
A:=Random($989680);
asm
@MP3TOW_004184A7:
        Mov ECX,A
        MOV EAX,$0253B27C9
        MUL ECX
        MOV EAX,ECX
        SUB EAX,EDX
        SHR EAX,1
        ADD EAX,EDX
        SHR EAX,$0F
        IMUL EAX,EAX,$0DF7F
        MOV B,EAX
end;
   until
   Length(IntToStr(B))>7;

 Edit1.Text:=IntToStr(B);
end;

procedure TForm1.btn1Click(Sender: TObject);
var
A,B :Int64;
C,_EDX:Integer;
begin
Randomize;
Repeat
A:= random($989680);
B:= $0253B27C9 ;
_EDX:= StrToInt('$' +Copy(IntToHex(A*B,16),1,8));
C:=Sqr(((A - _EDX)Shr 1 + _EDX  )Shr $0F)* $0DF7F;
  until
 Length(IntToStr(C)) > 7;
 Edit1.Text:=IntToStr(C) ;
end;