So ich ha jetzt mal nen eigenes verschlüsselprog. nur es funzt noch nicht!!!
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
s: String;
i,i2: Integer;
begin
// Kodieren
s:=Edit1.Text;
for i:=1 to length(s) do
begin
for i2 := 0 to 25 do
begin
if(s[i] = buchstaben[i2]) then
begin
s[i]:=char(nummer_buchstaben[i2] Xor Ord(s[i]));
break;
end;
if(i2 = 25) then
s[i]:=char(7 Xor Ord(s[i]))
end;
end;
Edit2.text := s;
end;
procedure TForm1.Button2Click(Sender: TObject);
var s: String;
i,i2: Integer;
begin
s:=Edit1.Text;
for i:=1 to length(s) do
begin
for i2 := 0 to 25 do
begin
if(s[i] = buchstaben[i2]) then
begin
s[i]:=char(nummer_buchstaben[i2] Xor Ord(s[i]));
break;
end;
if(i2 = 25) then
s[i]:=char(7 Xor Ord(s[i]))
end;
end;
Edit2.text := s;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
buchstaben[0] := 'a'; buchstaben[1] := 'b'; buchstaben[2] := 'c';
buchstaben[3] := 'd'; buchstaben[4] := 'e'; buchstaben[5] := 'f';
buchstaben[6] := 'g'; buchstaben[7] := 'h'; buchstaben[8] := 'i';
buchstaben[9] := 'j'; buchstaben[10] := 'k'; buchstaben[11] := 'l';
buchstaben[12] := 'm'; buchstaben[13] := 'n'; buchstaben[14] := 'o';
buchstaben[15] := 'p'; buchstaben[16] := 'q'; buchstaben[17] := 'r';
buchstaben[18] := 's'; buchstaben[19] := 't'; buchstaben[20] := 'u';
buchstaben[21] := 'v'; buchstaben[22] := 'w'; buchstaben[23] := 'x';
buchstaben[24] := 'y'; buchstaben[25] := 'z';
nummer_buchstaben[0] := 9;
nummer_buchstaben[1] := 20;
nummer_buchstaben[2] := 11;
nummer_buchstaben[3] := 14;
nummer_buchstaben[4] := 2;
nummer_buchstaben[5] := 28;
nummer_buchstaben[6] := 5;
nummer_buchstaben[7] := 19;
nummer_buchstaben[8] := 10;
nummer_buchstaben[9] := 17;
nummer_buchstaben[10] := 23;
nummer_buchstaben[11] := 4;
nummer_buchstaben[12] := 12;
nummer_buchstaben[13] := 13;
nummer_buchstaben[14] := 3;
nummer_buchstaben[15] := 16;
nummer_buchstaben[16] := 29;
nummer_buchstaben[17] := 30;
nummer_buchstaben[18] := 26;
nummer_buchstaben[19] := 21;
nummer_buchstaben[20] := 15;
nummer_buchstaben[21] := 27;
nummer_buchstaben[22] := 8;
nummer_buchstaben[23] := 6;
nummer_buchstaben[24] := 18;
nummer_buchstaben[25] := 25;
end;
Kann mir jemand helfen??