محاولة بسيطة في تشفير وفك تشفير بطريقة ما
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 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.
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
رد: محاولة بسيطة في تشفير وفك تشفير بطريقة ما
المرفق من هنا
- الكود:
https://sites.google.com/site/site111dz/delphi/mhawlte-bsytte-fy-tshfyr-wfk-tshfyr-btryqte-ma
ali- مبرمج مجتهد
- عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013
مواضيع مماثلة
» عمليات حسابية بسيطة في java
» أمثلة بسيطة في تعريف الحلقات التكرارية
» بحث في الحقول المفهرسة فقط بطريقة مختلفة
» برنامج حاسبة بسيطة ب Visual C++ 6 مخصص للاعضاء
» مقدمة بسيطة للتعرف على التوجيهات والواجهات والمتحكمات في الLaravel
» أمثلة بسيطة في تعريف الحلقات التكرارية
» بحث في الحقول المفهرسة فقط بطريقة مختلفة
» برنامج حاسبة بسيطة ب Visual C++ 6 مخصص للاعضاء
» مقدمة بسيطة للتعرف على التوجيهات والواجهات والمتحكمات في الLaravel
دلفي تعليم :: منتديات البرمجة :: دلفي
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى