Hallo,
möchte das codierte Passwort wieder in klartext darstellen.
Jetzt kommt die fehlermeldung Inkompatible Typen AnsiChar und Char?

markieren

Delphi-Quellcode:

    SL := TStringList.Create;
  try
    SL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Password.dat');
    if SL.Count>0 then
      Edit6.Text:=SL[0];
        s := Edit6.Text;
    for y := 1 to Length(s) do s[y] := Char(23 xor Ord(c[y])); // Hier ist das Problem

Wie sind denn y, s und c definiert?

markieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
 i :integer;
 SL: TStrings;
 s: String[255];
 c: array[0..255] of Byte absolute s;

Versuchs mal mit  for y := 1 to Length(s) do s[y] := Chr(23 xor Ord(c[y])); Das "Gegenstück" von Ord ist Chr und nicht Char.

leider bleibt die Fehlermeldung gleich

Starter Version Berlin 10.1

Irgendwie erscheint mir das Ganze nicht so recht sinnvoll.

s ist ein String und c ist ein Array an der Adresse von s.

Damit sind s und c inhaltlich gleich.

Eigentlich hätte ich hier eher sowas erwartet:for y := 1 to Length(s) do s[y] := Chr(23 xor Ord(s[y]));

Die wichtigsten Infos hat jemand vergessen:

Welche Delphi-Verison
und wie ist S deklariert?

Zitat von strom:

markieren

Delphi-Quellcode:

    SL := TStringList.Create;
  try
    SL.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Password.dat');
    if SL.Count>0 then
      Edit6.Text:=SL[0];
        s := Edit6.Text;
    for y := 1 to Length(s) do s[y] := Char(23 xor Ord(c[y])); // Hier ist das Problem

Ich weiß leider nicht wies in Berlin um irgendwelche Zauberei steht aber meiner Meinung nach, sollte es in s := Edit6.Text; krachen, da s ein Shortstring ist und Edit1.Text eine Widechar.
Ich würde gleich einen Zeiger übergeben, der als PBytearray agiert,
(ich Liebe dieses verschämte herumhampeln um Char/WideChar) denn wie an anderer Stelle schon einmal jemand schrieb, es werden Bytes und keine Chars verschlüsselt.

Gruß
K-H