delphi4arab منتديات دلفي للعرب - مشكلة في برنامج التشفير

بسم الله الرحمن الرحيم
السلام عليكم
عندي مشكلة في برنامج التشفير الذي اصنعه

- فكرة البرنامج هو انشاء ملفين من نوع تكست واحد اسمه planie.txt وهو الملف الدي نريد تشفيره
والاخر اسمه crypye.txt وهو الملف الناتج عن عملية التشفير هذان الملفان ينشئان في المسار التالي :
\:c

الكود هو :

PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  p,c:TextFile;
  sp,sc:string;
  x:integer;
  i:byte;
begin
    Memo1.Lines.SaveToFile('c:\planie.txt');
    Memo2.lines.SaveToFile('c:\crypt.txt');
    AssignFile(p,'c:\planie.txt');
    AssignFile(c, 'c:\crypt.txt');
    ReSet(p);
    ReWrite(c);
    readln(p,sp);
    x:=length(sp);
    for i:=1 to x do
       begin
        sc[i]:=chr(ord(sp[i]) xor 13);
       end;
    Write(c,sc);
    CloseFile(p);
    CloseFile(c);
    Memo2.lines.LoadFromFile('c:\crypt.txt') ;
end; 

والمشكلة هنا ولم افهم كيف اقوم بحلها :

PHP كود :
sc[i]:=chr(ord(sp[i]) xor 13); 

البرنامج التشفير مرفق
جزاكم الله خيرا وزادكم علما

و عليكم السلام و رحمة الله و بركاته

1- عندي مشكلة في برنامج التشفير الذي اصنعه : حدد أكثر (نوع الخطأ,عند التشفير, ....الخ)
2- فكرة البرنامج إنشاء ملفين ؟؟ يعني نقوم بتشفير الملف الذي سننشأه ؟؟.
3- الكود الذي وضعته : يقوم بحفظ محتوى الـ Memo1 , Memo2 ثم يقوم بتشفير السطر الأول
فقط من Memo1 ...؟؟
4- الخطأ هو أنك لم تضع قيم إبتدائية للـ Memo1 يتم على إثرها تشفير النص .

راجع هذا الموضوع :

ما هي الملفات و كيف نتعامل معها ؟؟ ‏

بالتوفيق ,,

سوف اوضح اكثر عمل البرنامج
- البرنامج هو برنامج تشفير الملفات من نوع txt
- محتويات البرنامج :

1- memo1 , memo2 , Botton1 , Botton2 , Botton 3 , Botton4

طريقة العمل البرنامج :

1- عندى تشغيل البرنامج تكون memo1 و memo2 فارغتان
2- عندى ضغط على crypter text يقوم البرنامج بانشاء ملفين في \:c
الملف planie.txt الدي يحتوي على المعلومات التي ادخلناها في memo1
ثم يقوم الان بقراءة الملف planie.txt و تشفير المعلومات التي بداخله تم يضعها في الملف crypt.txt
ثم يقوم بظهارها داخل memo2

صورة توضح شكل البرنامج
[صورة: 2itfwcg.jpg]

بارك الله فيك وفي ولديك الله ينورك

أخي abdelmalek لقد فهمت فكرة البرنامج من الكود
و قد أشرت الى بعض النقاط لتصححها !! أين محاولتك ؟؟.

بالتوفيق ,,

السلام عليكم

شكرا اخي على مساعدتك لي بفضلك وجت الحل وهو كالاتي:

PHP كود :
begin
       Memo1.Lines.SaveToFile('c:\planie.txt');
       Memo2.lines.SaveToFile('c:\crypt.txt');
       AssignFile(p,'c:\planie.txt');
       AssignFile(c, 'c:\crypt.txt');
       ReSet(p);
       ReWrite(c);
    Repeat
       readln(p,sp);
       x:=length(sp);
       for i:=1 to x do
         begin
          Write(c,chr(ord(sp[i]) xor strtoint(edit1.text)));
         end;
       Writeln(c,'');
    until eof(p);
       CloseFile(p);
       CloseFile(c);
       Memo2.lines.LoadFromFile('c:\crypt.txt') ;
  end; 

الله ينورك اخي TF6M