محاولة بسيطة في تشفير وفك تشفير بطريقة ما - منتديات الجلفة لكل الجزائريين و العرب

العودة   منتديات الجلفة لكل الجزائريين و العرب > منتديات التقنية > منتدى البرمجة

منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل...

في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة تقرير عن مشاركة سيئة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .

آخر المواضيع

محاولة بسيطة في تشفير وفك تشفير بطريقة ما

 
 
أدوات الموضوع انواع عرض الموضوع
قديم 2016-07-04, 13:51   رقم المشاركة : 1
معلومات العضو
طيباوي ابو علي1
عضو نشيط
 
إحصائية العضو










افتراضي محاولة بسيطة في تشفير وفك تشفير بطريقة ما

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله تعالى وبركاته
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

أمـــــــا :

أيها الاخوه أقدم لكم هذا الرنامج الذي تم انجازه بدلفي
من أجل المبتدئين في الرمجة بدلفي وغيرهم

وبمنسبة حلول شهر رمضان الكريم أعاده الله عليكم وعلينا بالخير
ان شاء الله أمين

وتقبل الله منا ومنكم الصيام أمين

البرنامج محاولة بسيطة في تشفير وفك تشفير بطريقة ما

ارجو منكم دعوة في الغيب لي والى ولي والى من علمنا من قريب وبعيد





كود:
unit untUnite; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label6: TLabel; BitBtn1: TBitBtn; mmCode: TMemo; mmEncode: TMemo; edtDecode: TMemo; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private public end; var Form1: TForm1; strString, strString1: String; implementation {$R *.dfm} function AjouteEtoile(Etoile: String): String; var S: String; begin S := Etoile; if Length(S) mod 2 <> 0 then S := S + '*'; Result := S; end; procedure Cut_(S: String); var strS: String; begin strS := copy(S, 0, Length(S) div 2); delete(S, 1, Length(S) div 2); strString := strS; strString1 := S; end; function Encode_: String; var i: Integer; begin for i := 1 to Length(strString1) do Result := Result+strString[i]+strString1[i]; end; function Decode_(): String; var i: Integer; Decodes: String; begin strString := ''; strString1 := ''; for i := 1 to Length(Form1.mmEncode.Text) do if i mod 2 <> 0 then strString := strString+Form1.mmEncode.Text[i] else strString1 := strString1+Form1.mmEncode.Text[i]; Decodes := strString+strString1; for i := 1 to Length(Decodes) do if Decodes[i] <> '*' then Result := Result+Decodes[i]; end; procedure TForm1.Button1Click(Sender: TObject); begin Cut_(AjouteEtoile(mmCode.Text)); mmEncode.Text := Encode_(); end; procedure TForm1.Button2Click(Sender: TObject); begin edtDecode.Text := Decode_(); end; end.








 

الملفات المرفقة
نوع الملف: rar techfirror.rar‏ (2.5 كيلوبايت, المشاهدات 11)

رد مع اقتباس
 


تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

الساعة الآن 03:47

المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية


2006-2024 © www.djelfa.info جميع الحقوق محفوظة - الجلفة إنفو (خ. ب. س)

Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc