دلفي تعليم
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

اذهب الى الأسفل

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

مُساهمة  ali 4/7/2016, 3:38 pm

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

أمـــــــا :

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

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

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

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

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



الكود:

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

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  ali 4/7/2016, 3:42 pm

المرفق من هنا
الكود:
https://sites.google.com/site/site111dz/delphi/mhawlte-bsytte-fy-tshfyr-wfk-tshfyr-btryqte-ma

ali
مبرمج مجتهد

عدد المساهمات : 913
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى