Moin zusammen,
ich habe schon diverse Verschlüsselungen versucht die auch funktionieren (Xor, Polyalphabetische Substitution).
Leider benötige ich eine Verschlüsselungsvariante, welche keine Sonderzeichen generiert, da ich das Ergebnis als Ordner auf der Festplatte erstellen möchte (aus Datenschutzgründen darf der Ordnername nicht lesbar sein).
Falls jemand denkt das damit Schindluder betrieben wird, dem möchte ich gleich widersprechen und auch keine Diskussion dazu anfangen.
Kennt jemand von euch solche Verfahren ohne Sonderzeichen?
Der InputStr könnte so aussehen:

MyStr_GeilerName Danke schonmal für eure Anregungen

Hi Alex,

vor kurzem habe ich einen möglichen Lösungsvorschlag geschildert, der auch zu Deiner Aufgabenstellung passen würde:

https://www.delphipraxis.net/200188-...ml#post1428892

Gruß
Andreas

Du kannst ja wie gewohnt in eine beliebige Byte-Sequenz verschlüsseln und das Ergebnis dann mit Base64 in einen brauchbaren String umwandeln.

Zitat von Uwe Raabe:

Du kannst ja wie gewohnt in eine beliebige Byte-Sequenz verschlüsseln und das Ergebnis dann mit Base64 in einen brauchbaren String umwandeln.

Nein, das geht so nicht, denn Base64 verwendet Zeichen die nicht als Dateinamen verwendet werden dürfen.

Das Prinzip wie bei Base64 eine Byte-Folge in eine Zeichenkette kodiert wird ist aber der richtige Weg, man darf halt nur gültige Zeichen verwenden.

Siehe Wikipedia

Zitat:

Bei Dateinamen oder URL können die Zeichen + , / und = nicht verwendet werden, da sie dort für besondere Funktionen reserviert sind. In einem solchen Fall wird mit „base64url“ eine inkompatible Abwandlung beschrieben. Die Zeichen + und / werden dann durch - (Minus, ASCII 2Dhex) und _ (Unterstrich, ASCII 5Fhex) ersetzt. Das Füllzeichen = am Ende wird prozentkodiert zu %3d, kann aber entfallen, wenn die Länge des Strings bekannt ist.

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.

zusammenfalten · markieren

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;

Ich verwende zum verschlüsseln das DEC (Delphi Encryption Compedium) von Hagen Redman. Kostenloser Download:

• https://github.com/decfpc/DelphiEncryptionCompendium (Auf "Clone or download" und dann auf "download zip" klicken) (von 2017)
• https://github.com/winkelsdorf/Delph...3/DEC_v5.2.zip (von 2015)

Ich verwende DEC 5.2. Die obere Variante ist für neuere Delphi-Versionen.

Beispiel-Code:

zusammenfalten · markieren

Delphi-Quellcode:

function TfrmStringEncrypter.Crypt(
  AText: RawByteString;
  APassword: RawByteString;
  AAlgorithm: TCipherAlgorithm = caBlowfish;
  AEncrypt: Boolean = True): RawByteString;
var
  Cipher: TDECCipher;
begin
  // Cipher erzeugen
  Cipher := Self.GetCipherClass(AAlgorithm).Create;

  // initialisieren
  Cipher.Init(APassword);

  // String ent-/ver-schlüsseln
  if AEncrypt then
    Result := Cipher.EncodeBinary(AText)
  else
    Result := Cipher.DecodeBinary(AText);

  // Speicher freigeben
  FreeAndNil(Cipher);
end;

Komplettes Demo-Projekt im Anhang!

Zitat von Alex_ITA01:

(aus Datenschutzgründen darf der Ordnername nicht lesbar sein).

Für diese Zwecke sollten eigentlich die Zugriffsrechte angepasst werden. Eine Verschlüsselung von Dateinamen/Ordnernamen scheint mir eher "Security by Obscurity" zu sein.
mit Base16 hast Du keine Sonderzeichenprobleme.

Gruß
K-H