مساعدة في بناء كيغن لبرنامج

[TeRcO]

تفضل :
 

procedure TForm1.Button1Click(Sender: TObject);
var
 NUM1,NUM2:integer;
begin
 Randomize;
 Repeat
 NUM1:= StrToInt(Format('%.8u',[Random(99999999)]));

  ASM
        PUSHAD
        MOV ECX,NUM1
        MOV EAX,0253B27C9h
        MUL ECX
        MOV EAX,ECX
        SUB EAX,EDX
        SHR EAX,1
        ADD EAX,EDX
        SHR EAX,0Fh
        IMUL EAX,EAX,0DF7Fh
        MOV NUM2, EAX
        POPAD
  end;
 Until
      (Length(IntToStr(NUM1)) = 8);

  Edit1.Text:= Format('%u',[NUM2]);
end;