Codieren mit Passwort

**Matze33**

Hi,
ich hab hier ein Problem. Bin noch Delphi Anfänger und hab Version 6.

Also in der Schule haben wir die Aufgabe bekommen, einen Codierer zu erstellen, der den Text mit einem Passwort verschlüsselt. Das geht auch schon bei mir - fast. Es wird immer nur bis an die Stelle codiert, wo der Buchstabe im Passwort kommt. Also wenn man dann zB einen engliscen Text hat und als Passwort Ä setzt, geht alles.
Mein Lehrer hat mir dann gesagt, ich soll die Verarbeitung in einem Array of Bytes machen. Da hab ich vorher noch nie mit gearbeitet und hab dementsprechend keine Ahnung, wie ich da ran gehe.
Also momentan sieht mein Code so aus:

zusammenfalten · markieren

Delphi-Quellcode:

			unit U_Codieren2;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Menus, StdCtrls, Buttons, ExtCtrls;

type

  TForm1 = class(TForm)

    Memo1: TMemo;

    MainMenu1: TMainMenu;

    Datei1: TMenuItem;

    Neu1: TMenuItem;

    ffnen1: TMenuItem;

    Speicherals1: TMenuItem;

    Schlieen1: TMenuItem;

    OpenDialog1: TOpenDialog;

    SaveDialog1: TSaveDialog;

    Hilfe1: TMenuItem;

    Info1: TMenuItem;

    Btn_Codieren: TBitBtn;

    E_Passwort: TLabeledEdit;

    procedure Schlieen1Click(Sender: TObject);

    procedure Neu1Click(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure ffnen1Click(Sender: TObject);

    procedure Speicherals1Click(Sender: TObject);

    procedure Info1Click(Sender: TObject);

    procedure Btn_CodierenClick(Sender: TObject);

  private

  Arbeit:Array [0..1000] of byte;

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Schlieen1Click(Sender: TObject);

begin

 close;

end;

procedure TForm1.Neu1Click(Sender: TObject);

begin

  Memo1.Clear;

  E_Passwort.Clear;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

  Memo1.Clear;

  E_Passwort.Clear;

end;

procedure TForm1.ffnen1Click(Sender: TObject);

begin

  if(OpenDialog1.Execute) then Memo1.Lines.LoadFromFile(OpenDialog1.FileName);

end;

procedure TForm1.Speicherals1Click(Sender: TObject);

begin

  if SaveDialog1.Execute then Memo1.Lines.SaveToFile(SaveDialog1.FileName);

end;

procedure TForm1.Info1Click(Sender: TObject);

begin

  //

end;

procedure TForm1.Btn_CodierenClick(Sender: TObject);

var

  V_Text, V_Passwort:string;

  i, step,d:Integer;

begin

  d:=0;

  V_Passwort:=E_Passwort.Text;

  V_Text:=Memo1.Text;

  for i:=1 to length(V_Text) do

  begin

    step:=Ord(V_Passwort[d]);

    d:=d+1;

  if d>length(V_Passwort) then d:=1;

  V_Text[i]:=char(step XOR Ord(V_Text[i]));

  Memo1.Text:=V_Text;

  end;

end;

end.

Wäre toll, wenn ihr mir das verbessern könntet und auch etwas erklären (wenn es nicht eh eindeutig ist

)

Gruß

Codieren mit Passwort

Codieren mit Passwort

Forumregeln