الدرس الثاني : دراسة خوارزمية التسجيل وبرمجة Keygen لبرنامج Quick Starter

[dj-siba]

لا يتم الحساب
لا انصح بهذه الطريقة

const keys : array [0..9] of String = (
'1234 1234567890',
'2568 0123456789',
'3341 9012345678',
'4791 7854567890',
'5234 1597932315',
'6784 5881361290',
'7981 8246585890',
'8888 9998842590',
'9999 2513846215',
'0101 1155887890');

procedure TForm1.Button1Click(Sender: TObject);
begin
  Randomize;
  Edit1.Text := keys[Random(10)];
end;

Plain text

تحديد الكل

هل تملك Backup لمنتدى

لا
لا اتذكر انه طرح Backup للمنتدى