إحصاء جميع الإحتمالات الممكنة من محارف وارقام

هذي محاولتي الفاشلة في كتابة الكود

procedure TForm1.Button1Click(Sender: TObject);

var

i,i1,i2,m1,m2,m3,loob2,loob3:Integer;a1,a2:string; dar:array of string; dd:Integer;

label lable1,lable2,lable3,lable4 ;

begin

dd:=1;

Randomize;

hash:= Edit1.Text;

salt:= Edit2.Text;

a:= Edit4.Text;

m1:=Length(a);

a2:=a[m1];

a1:=a[1];

loob2:=0; loob3:=0;

for i:=1 to 100 do begin

if (a1[2] and a1[3])=Length(a)then begin

for i1:=1 to Length(a) do begin //( ab )

a1:= a1+a[i1];

Memo1.Lines.Add(a1);

if i1 := Length(a) then begin

i1:=1;

a1:= a[1]+a1;

case Length(a1) of

2 :begin Inc loob2; a1[2]:= a[loob2];

3:begin Inc loob3 ; a1[3]:= a[loob3];

end;

end;

case Pos(a2,a1) of

//1 : begin a1:=a[1] + a1 ;

>1 : ;

else ;

end;

end;

end;

end; }

end;

end;

end.

ســاعــدوني أرجــوكـم

السلام عليكم

الفكره بسيطه وسهله

كما درسنا في مادة الرياضيات المحدوده فان عدد الاحتمالات من 000 الى 999 يكون 1000 احتمال وذلك لان كل خانه من الخانات الثلاث تُمثل ب10 رموز (0 ، 1 ، ... ، 9) فيكون عدد الاحتمالات هو ضرب عدد الرموز في الخانة الاولى في عدد الرموز في الخانة الثانية في عدد الرموز في الخانة الثالثة اي 10*10*10 والناتج يكون 1000 هو عدد جميع الحتمالات.

وفي حال اردنا معرفة الاحتمالات بحيث لا يتكرر الرمز في اي خانة مثل (255 , 666 , 338) فيكون ذلك بضرب عدد الرموز في الخانة الاولى في (عدد الرموز في الخانة الثانيه - 1) في (عدد الرموز في الخانة الثالثة - 2) اي 10 * 9 * 8 = 720 احتمال.

واعتقد ان تمثيل ما سبق برمجيا سهل للغايه.