+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : مشكلة في برنامج التشفير (/showthread.php?tid=1635)
مشكلة في برنامج التشفير - abdelmalek - 10-02-2010
بسم الله الرحمن الرحيم
السلام عليكم
عندي مشكلة في برنامج التشفير الذي اصنعه
- فكرة البرنامج هو انشاء ملفين من نوع تكست واحد اسمه 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);
البرنامج التشفير مرفق
جزاكم الله خيرا وزادكم علما
مشكلة في برنامج التشفير - TF6M - 10-02-2010
و عليكم السلام و رحمة الله و بركاته
1- عندي مشكلة في برنامج التشفير الذي اصنعه : حدد أكثر (نوع الخطأ,عند التشفير, ....الخ)
2- فكرة البرنامج إنشاء ملفين ؟؟ يعني نقوم بتشفير الملف الذي سننشأه ؟؟.
3- الكود الذي وضعته : يقوم بحفظ محتوى الـ Memo1 , Memo2 ثم يقوم بتشفير السطر الأول
فقط من Memo1 ...؟؟
4- الخطأ هو أنك لم تضع قيم إبتدائية للـ Memo1 يتم على إثرها تشفير النص .
راجع هذا الموضوع :
ما هي الملفات و كيف نتعامل معها ؟؟
بالتوفيق ,,
مشكلة في برنامج التشفير - abdelmalek - 11-02-2010
سوف اوضح اكثر عمل البرنامج
- البرنامج هو برنامج تشفير الملفات من نوع 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]](http://i48.tinypic.com/2itfwcg.jpg)
بارك الله فيك وفي ولديك الله ينورك
مشكلة في برنامج التشفير - TF6M - 11-02-2010
أخي abdelmalek لقد فهمت فكرة البرنامج من الكود
و قد أشرت الى بعض النقاط لتصححها !! أين محاولتك ؟؟.
بالتوفيق ,,
مشكلة في برنامج التشفير - abdelmalek - 11-02-2010
السلام عليكم
شكرا اخي على مساعدتك لي بفضلك وجت الحل وهو كالاتي:
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