الفريق العربي للهندسة العكسية
كيفية استقبال اي اسم تحويله الي الهكس - نسخة قابلة للطباعة

+- الفريق العربي للهندسة العكسية (https://www.at4re.net/f)
+-- قسم : منتديات الهندسة العكسية - Reverse Engineering Forums (https://www.at4re.net/f/forum-4.html)
+--- قسم : الأسئلة والإستفسارات، حلول المشاكل و تبادل الخبرات - Expert Exchange Newbie Questions Answers (https://www.at4re.net/f/forum-36.html)
+--- الموضوع : كيفية استقبال اي اسم تحويله الي الهكس (/thread-1368.html)



كيفية استقبال اي اسم تحويله الي الهكس - Polia - 13-01-2020

السلام عليكم ورحمة الله 
اخواني اريد معرفة كيفية استقبال اي اسم من Edit وتحويله الي Hex ومن ثم جمع اعداد ال Hex 
وطباعتهم في Edit اخر بلغة الدلفي


RE: كيفية استقبال اي اسم تحويله الي الهكس - x-member - 13-01-2020

مرحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة 
 
 
function custom ( const s:string):string;
var i,k : integer;
begin
k := 0;
    for i := 1 to length(s) do
      begin
         k  := k + ord(s[i]);
      end;
      result := result + IntToHex(k,2);
end;

في حدث الضغط على ال Button  : 
edit2.text := custom(edit1.text);



RE: كيفية استقبال اي اسم تحويله الي الهكس - Polia - 14-01-2020

(13-01-2020, 08:47 PM)Rever7eR كتب : مرحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 
الكود كالتالي : ضع ال Function تحت التعليمة {$R *.dfm} مباشرة 

شكرا لك عزيزي مودتي وتقديري


(13-01-2020, 08:47 PM)Rever7eR كتب : رحبا , قم بعمل فورم يحتوي على 2 مكونات  Edit و مكون Button 

أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص


RE: كيفية استقبال اي اسم تحويله الي الهكس - الباحث - 14-01-2020

(14-01-2020, 12:07 PM)Polia كتب : أضافة الي هدا السؤال
بخصوص الفنكشن costume مدا تعيد هل تعيد int ام string وما معني النوع string بعد الأقواص

معنى string بعد الاقواس أن الدالة ترجع القيمه من من نوع سلسله(string)