XOR Text verschlüsseln?!?

Asus · Beiträge: 23

Hiho,
ich habe grade in Delphi Helper "Einfach Text verschlüsseln" gefunden.

Decoden:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button1Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do
    s[i]:=char(23 Xor Ord(s[i]));
end;

Encoden:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

procedure TForm1.Button2Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Dekodieren
  for i:=1 to length(s) do
    s[i]:=char(23 Xor ord(s[i]));
  Edit1.Text:=s;
end;

Bloß wenn ich in edit1 z.B. Hallo eingebe und auf Decoden gehe passiert gar nix und wenn ich auf encoden gehe wir der text gelöscht.
Was soll ich machen damit es funktoniert?
PS: Ja ich will diese leichte verschlüsselung mit den Quelltext!

MFG Martin

TheAxeEffect · Beiträge: 37

1. deklariere "s" als allgemeine variable. wenn du es einzeln deklarierst weiß prizedur button2.click nicht, von welchem "s" die rede ist.
nr2. wenn du anch dem verschlüsseln "s" nicht anzeigen lässt, isses zwar verschlüsselt, aber du siehst das ergebis nicht. dh. du müsstest der verschlüsseln-prozedur noch edit1.text:=s; hinzufügen, dann siehst du auch was du gemacht hast...
dann is die verschlüsselung recht unsicher, da du jeden buchstaben mit char 23 XORST(falls du weißt was das is, sonst erklär ichs dir)....wenn das jemand liest, wird er zwar das mit char 23 nicht sofort wissen, aber er wird sehen was das häufigste zeichen ist...da jeden verschlüsselte zeichen, was im plaintext gleich ist, im verschlüsselten text auch gleich sein wird...dh. "e" wird zb. "X" sein, " " zb. "k" usw. so kommt man sofort drauf, was gemeint ist, da das häufigste zeichen ja "(leerzeichen) " ist, das zweithäufigste normalerweise "e" usw.
wenn du was nich verstehst hab keine bange zu fragen..bin auch anfänger, nur halt nen bisschen weiter^^

Asus · Beiträge: 23

Hallo ok das mit verschlüsselung is mir klar. Ich will halt nur ne leichte
dann hab ich die var jetzt so geschrieben

markieren

Delphi-Quelltext

1:
2:
3:

var
  Form1: TForm1;
  s: String;

jetzt müste sie ja für alle gehen bloß wie soll ich die jetzt ausgeben z.B. in edit2?

PS: Ich will einfach nur für nen game nen srcure ding bauen das bei jeden öffnen die IP und den code(der soll den MainBoard oder biosname verschlüsseln) an ne email senden damit hacker besser aufspürbar sind

MFG Martin

TheAxeEffect · Beiträge: 37

die ausgabe nach dem ver.bzw entschlüsseln sieht so aus:

markieren

Delphi-Quelltext

1:	edit1.text:=s;

in deinem code:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button1Click(Sender:TObject);
var 
  s: String;
  i: Integer;
begin
  // Kodieren
  s:=Edit1.Text;
  for i:=1 to length(s) do begin
    s[i]:=char(23 Xor Ord(s[i]));
end;
edit1.text:=s;
end;

beim entschlüsseln das gleiche

Asus · Beiträge: 23

hi es geht noch ne frage kann man das auch einstellen das es listbox verschlüsselt?
MFG Martin

IceBube · Beiträge: 231

sicher....

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

//Beim Verschlüsseln
s := ListBox1.Items.Text;

//Beim Entschlüsseln
ListBox1.Items.Text := s;

lg

Asus · Beiträge: 23

Ich verschlüssel nur wenn ich das verschlüsselte wieder eingebe habe ich dan halt mein ergebnis^^
ne also hab jetzt den code

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm1.Button3Click(Sender: TObject);
var  
  s: String; 
  i: Integer; 
begin
  // Kodieren 
s := ListBox1.Items.Text;
  for i:=1 to length(s) do begin
    s[i]:=char(28 Xor Ord(s[i]));
end;
s := ListBox2.Items.Text;
end;

bloß es erscheint nix in listbox2

EDIT:
mein fehler sorry geht alles thx

MFG Martin

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme