Password Style in delphi - نسخة قابلة للطباعة

Password Style in delphi - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : Password Style in delphi (/showthread.php?tid=53)

Password Style in delphi - delphi4ever - 24-02-2008

السلام عليكم ورحمة الله.
من أجل إنجاز مربع خاص بكلمة المرور Password في دلفي عن طريق المكون Tedit طبعا وكما هو موضح في الصورة نقوم بما يلي:

1- نضع مكون Tedit من الزاوية Standard .
2- نذهب إلى الخاصية Font ثم Name أي إسم الخط المستعمل ونضع أحد الخطوط التالية:
Arial , Tahoma, Verdana من أجل أن يظهر نص كلمة المرور على شكل دوائر.
3- نذهب إلى الخاصية PasswordChar الخاصة بالمكون Tedit دائما ومكان 0# نضع 149# وهذا أيضا من أجل أن يظهر نص كلمة المرور على شكل دوائر.
وفي الأخير نكون قد حصلنا على مبتغانا. Big Grin

Password Style in delphi - merouane - 25-02-2008

السلام عليكم

مشكوووور delphi4ever

أضيف لمن أراد أن يطلع على مثال للتشفير طالع المشاركة التالية:

http://www.delphi4arab.net/forum/showthread.php?tid=58

كود :
var
    s: string[255];
    c: array[0..255] of Byte absolute s;
    i: Integer;
begin
    { Crypte le text / تشفير النص }
        s := Edit1.Text;
        for i := 1 to ord(s[0]) do c[i] := 23 xor c[i];
        LabCrype.Caption := s;
    { Décrypte le text / فك تشفير النص  }
        s := LabCrype.Caption;
        for i := 1 to Length(s) do s[i] := Char(23 xor ord(s[i]));
        LabDecrype.Caption := s;
end;

تحياتي

Password Style in delphi - delphi555 - 26-02-2008

السلام عليكم
كنت ابحث عن هدا الشرح مند مدة
والحمد لله وجدته بفضلكم
ننتظر كل مفيد منكم اخواني

Password Style in delphi - merouane - 26-02-2008

السلام عليكم

ملاحظة: لا يستخدم المثال اعلاه للتشفير، و إنما هو مثال

لابد من التعديل عليه أو استعمال طرق أخرى

كود :
[align=right]لاحظوا الرقم 23 [/align]
c[i] := 23 xor c[i];

وهنا أيضا 
 s[i] := Char(23 xor ord(s[i]));

------------------------------------------------------------------------------------------

[align=right]تغييربسيط[/align]
التشفير
c[i] := (27*Length(s)) xor c[i];

فك التشفير
 s[i] := Char((27*Length(s)) xor ord(s[i]));

تحياتي

Password Style in delphi - Happy03 - 04-12-2010

في كود التشفير أعلاه تظهر الرسالة
Erreur

type incompatibles AnsiChar et char

إقتباس : for i := 1 to Length(s) do s[i] := Char(23 xor ord(s[i]));

شكرا

Password Style in delphi - kachwahed - 04-12-2010

أنت تستخدم نسخة دلفي حديثة
قم بتحويل AnsiChar.. استخدم البحث.

Password Style in delphi - Happy03 - 05-12-2010

شكرا..استخدم نسخة 2009

نقطة أخرى كذالك مشكل مع :

إقتباس :- نذهب إلى الخاصية passwordchar الخاصة بالمكون tedit دائما ومكان 0# نضع 149# وهذا أيضا من أجل أن يظهر نص كلمة المرور على شكل دوائر.

لا تقبل 149#