Decrypten von Daten in TStringList fehlerhaft

[himitsu]

Was macht denn Encrypt?

Wenn bei der Verschlüsselung aus "einfachen" Zeichen "Steuerzeichen" entstehen, dann handelt es sich quasi um "binäre" Daten und diese darfst du nicht in Komponenten laden, welche auf entsprechende Steuerzeichen reagieren.

Bei der TStringList sind das vorallem #0, #10 und #13.
- alles nach einer #0 wird ignoriert
- und Zeichen #10 und #13 werden eventuell umgewandelt, bzw. die TStringList paßt Zeilenumbrüche an den des Systems an

[Uwe Raabe]

Zitat von himitsu:

Was macht denn Encrypt?

Steht doch im Code...

Zitat von himitsu:

Wenn bei der Verschlüsselung aus "einfachen" Zeichen "Steuerzeichen" entstehen, dann handelt es sich quasi um "binäre" Daten und diese darfst du nicht in Komponenten laden, welche auf entsprechende Steuerzeichen reagieren.

Bei der TStringList sind das vorallem #0, #10 und #13.
- alles nach einer #0 wird ignoriert
- und Zeichen #10 und #13 werden eventuell umgewandelt, bzw. die TStringList paßt Zeilenumbrüche an den des Systems an

Das ist genau das worauf ich hinaus wollte. Wenn du nicht sicherstellen kannst, daß keine Steuerzeichen innerhalb des Strings auftauchen, kannst du keine StringList (zumindest nicht zum Schreiben in und Lesen aus einer Datei) benutzen.

[Kytrix]

Delphi-Quellcode:

function HexStringToStr(s : string):string;
begin
  if s = '' then
    Result := ''
  else
  begin
    if Odd(length(s)) then
      s := '0'+s;
    SetLength(Result, Length(s) div 2);
    HexToBin(Pchar(s), PChar(Result), Length(Result));
  end;
end;

procedure TfMain.BtOpenClick(Sender: TObject);
Var w:Word;
    Crypt: String;
begin
  w:=16518;

  OpenDialog1.Execute;
  RegInfo.LoadFromFile(OpenDialog1.FileName);
  Crypt:=RegInfo.Text;
  EdShowInfo.Text:=Decrypt(HexStringToStr(Crypt),w);// load decryptet from Base16
end;

und

Delphi-Quellcode:

function StrToHexString(const s : string):string;
begin
  if s = '' then
    Result := ''
  else
  begin
    SetLength(Result, Length(s)*2);
    BinToHex(PChar(s), PChar(Result), Length(s));
  end;
end;

procedure TfMain.SaveEncrypted(Sender: TObject);
Var InformationText: TStringList;
  w:Word;
  Crypt:String;
begin
  fMain.Visible:=false;
  w:=  16518;
  InformationText:=TstringList.Create();
  Crypt:=StrToHexString(Encrypt(CreateRegInfo,w)); // Save encrypted as Base16
  InformationText.Add(Crypt);
  InformationText.SaveToFile(ExtractFilePath(ParamStr(0))+'reg_info.dat');

end;

jetzt bekomme ich einen halb richtig entschlüsselten string

edit: irgendwo ist noch der wurm drinne ^^

danke für die antworten

[Kytrix]

es wird immer die hälfte der länge des verschlüsselten und strings richtig entschllüsselt

[p80286]

Da würde ich ein neueres Delphi mit UniCode-Char vermuten.
Natürlich wäre es für die Fehlersuche auch hilfreich,zu sehen mit welchen Daten Du arbeitest.

Gruß
K-H

[Bummi]

Warum liest/schreibst (ver/enrschlüsselst) Du die Daten nicht in einen (File)Stream, dann hättest Du den ganzen (Unicode)Stringärger "von der Backe"?

[Kytrix]

Ich nutze XE2 wie behebe ich den jetzt das problem ? ich weiß nicht wo ich ansetzen soll