Einzelnen Beitrag anzeigen

Andreas13

Registriert seit: 14. Okt 2006
Ort: Nürnberg
719 Beiträge
 
Delphi XE5 Professional
 
#5

AW: String ver-/ entschlüssel - einfach ohne Sonderzeichen

  Alt 8. Mai 2019, 10:44
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;
  Mit Zitat antworten Zitat