السلام عليكم لدي برنامج
Function puiss(n1,n2:integer):integer;
var i,cpt:integer;
begin
cpt:=1;
for i:=1 to n2 do
begin
cpt := n1 * cpt;
end;
puiss:=cpt;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,mp:integer;
ch:string;
begin
mp:=0;
ch:= Form1.Edit1.Text;
For i:= 1 to length(ch) do
begin
mp := mp + (puiss(2,i) * ord(ch)-5);
showmessage(inttostr(mp));
end ;
Form1.Edit2.Text := inttostr(mp);
end;
end.
هدا لتشفير ااسم المستخدم واريد ان اعمل له برنامج العكسي اي لدي الاسم مشفر و استخر الاسم الصحيح لاضعه في برنامجي و شكرا
