xor erklärung

[painrestricter]

servuß

ich will in meinem neuen programm einen string mit xor verschlüsseln.
ich hab mir das angeschaut: http://forum.delphi-treff.de/showthread.php?t=24444

und verstehe ehrlich gesagt nicht, was bei

Delphi-Quellcode:

 s[i]:=char(23 Xor Ord(s[i]));

das Ord(s[i]) soll

und warum das char davor?

danke

[TeronG]

Mal einfach ausgedrückt....
ord macht aus deinem buchstaben (nummer i) eine Zahl
und char macht aus einer Zahl einen Buchstaben.

[kolbaschedder]

Hallo,

eigentlich ganz einfach.
s[i] ist das i-te Element im string s, also ein einzelnes Zeichen. Z.b. "a". Damit "a" nun als Zahl (ASCII-Code) interpretiert wird, wandelt Ord das Zeichen in eine Ordinalzahl (Ganzzahl). in diesem Fall wäre das nun 97. Mit dieser Zahl kann man jetzt rechnen. Bei der Zuweisung würde man ohne den Befehl "Char()" einem Zeichen eine Zahl zuordnen. Das geht natürlich nicht, also die Zahl via Char-Befehl in ein Zeichen umwandeln und dann zuweisen.

MfG

Kolbaschedder

[TeronG]

Sei dir aber bewusst, dass das nicht wirklich sicher ist....

Zitat:

Zitat von negaH

Nachfolgend ein Source ... RC4 Algorithmus ... für eine sichere Verschlüsselung ... nicht viel mehr Code benötigt wird als für eine unsicherer XOR Verschlüsselung.

HIER der Code und mehr ...

MfG Ikke

[painrestricter]

ah ok danke, denk das hab ich soweit verstanden

muss auch nicht so sicher sein, wird eh noch anderweitig verschlüsselt und ist vorerst mal nur zum test.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var i : integer;
begin
if memo1.Text <> '' then
 text := memo1.text;
 try
  for i := 1 to length(text) do
  text[i] := char(22 XOR Ord(text[i]));
 except
   ...
else ..

Error: der linken seite kann nichts zugewiesen werden

was hab ich falsch gemacht?

[thkerkmann]

Du hast die Variable Text nicht deklariert.

Gruss

[painrestricter]

doch hab ich, schon ganz oben

[TeronG]

Zitat:

Zitat von thkerkmann

Du hast die Variable Text nicht deklariert.

Gruss

Und meckern, dass er "text" nicht kennt tut er (der IDE^^) desswegen nicht, weil es schon ein "text" gibt.
Text -> property TCAption.

[Neutral General]

Zitat:

Zitat von TeronG

Zitat:

Zitat von thkerkmann

Du hast die Variable Text nicht deklariert.

Gruss

Und meckern, dass er "text" nicht kennt tut er (der IDE^^) desswegen nicht, weil es schon ein "text" gibt.
Text -> property TCAption.

Ihr liegt beide falsch :stupid:

TForm besitzt keine Property "Text" und selbst wenn "Text" nicht deklariert wäre, dann gäbe es eine andere Fehlermeldung.

painrestricter: zeig mal ein bisschen mehr Code bzw. in welcher Zeile gibt es diesen Fehler?

[TeronG]

Zitat:

Zitat von Neutral General

Ihr liegt beide falsch :stupid:

TForm besitzt keine Property "Text"

Tut es doch. bäähhh! (obwohl .. hab nicht wirklich genau nachgegugckt wo "text" nun genau her kommt :gruebel: )

Zitat:

Zitat von Neutral General

und selbst wenn "Text" nicht deklariert wäre, dann gäbe es eine andere Fehlermeldung.

tut es nicht... BÄH! :tongue:
(habe es vorhin selbst erst getestet ^^)

Über die getter Methode kann man wohl nicht direkt einzelne Char's/Zeichen ändern.