String ver-/ entschlüssel - einfach ohne Sonderzeichen

[Andreas13]

Hi Alex,

das habe ich zuvor eigentlich gemeint: Wandle Dein verschlüsseltes Passwort in einen Hexadezimal-String um, den Du als Verzeichnis-Name verwenden kannst.

Delphi-Quellcode:

Function ShortString_To_HexString(S : ShortString): AnsiString; // Hexadezimal-String-Array
Type
  CharHexType = String[2];
  
VAR
  c      : Array[0..255] of Byte ABSOLUTE S;
  Len, i : Integer;
  SS     : AnsiString; // verschlüsseltes Passwort als HexString-Array 
  CharHex: CharHexType;
  SHex   : Array[0..255] of CharHexType; // Stelle 0 = Länge als Hex-Zahl!   

Begin
  Len := ord(S[0]); 

  SHex[0] := IntToHex(Len,2); // LängenHex-Zahl

  For i := 1 To Len Do 
  Begin
    // Verschlüsselten String S in ein Hexadezimal-String-Array umwandeln:
    CharHex := IntToHex(c[i],2);
    SHex[i] := CharHex;
  End;

  // AnsiString schreiben:
  SS := '';
  For i:= 0 {!!! auch Längen-Hex-Zahl!!!} To Len Do 
  Begin
    SS := SS + SHex[i];  
  End;
  Result := SS;  
End;