DEC6.0 Verständnisfrage AES Ver-/Entschlüsselung

[DieDolly]

Ich verstehe, wie man eine Datei reinlädt, sie ver- und entschlüsselt. Der Rest ist ein Geheimnis für mich.

[TurboMagic]

Habe mir den Anhang noch nicht anschauen können, empfehle aber aus verschiedenen Gründen den Development Zweig zu nutzen.

Dort ist das mit dem Progress schon so umgebaut wie es mit V6.1 veröffentlicht werden wird. Sollte einfacher als das aus DEC 6.0 sein. Und ja ein einfaches Demo Programm ist da auch dabei.

Zu Base64: in der Format.pas ist da was passendes für drin...
Und Methoden die auf RawByte Strings arbeiten sind auch vorhanden, da sollte es auch keine Unicode String #0 Probleme geben.

[EdAdvokat]

die in #3 hochgeladene Demo ist auf Basis der Version 6.1 von DEC (Develelopment-Zweig) erstellt worden. Hinsichtlich der Progress-Funktion habe ich mich für die 3. Variante "anonymous method as progress event" entschieden. Auch die anderen in der Demo von TurboMagic aufgeführten Varianten wären möglich.
Die Demo ist also auf dem neusten Stand des DEC 6.1.

[Aviator]

Ich schaue mir die Format.pas morgen mal genauer an sofern ich die Zeit dazu finde. Danke schonmal für den Hinweis. Um das Verschlüsseln einer Datei geht es hier nicht im Geringsten sondern um das Verschlüsseln eines einzelnen Strings.

[Aviator]

Zitat von TurboMagic:

Zu Base64: in der Format.pas ist da was passendes für drin...
Und Methoden die auf RawByte Strings arbeiten sind auch vorhanden, da sollte es auch keine Unicode String #0 Probleme geben.

Ich habe mir die DECFormats.pas jetzt mal angeschaut. Allerdings finde ich da jetzt nicht wirklich einen passenden Funktionsaufruf um mein Problem zu lösen. Kannst du mir da noch etwas auf die Sprünge helfen?
[EDIT] Zudem wäre die Frage, ob diese ganze hin und her Konvertiererei da sein muss oder ob das noch einfacher geht. Daher nochmal die Bitte ob sich jemand, der sich nicht über irgendeine UI und obfuscated Code auslassen will, mal meine Klasse in meinem ersten Post anschauen und was dazu sagen kann.[/EDIT]

Ich habe mir aktuell mal damit beholfen, dass ich alle #0 Chars aus meinem String entferne. Aber das ist ja nicht die Lösung. Wichtig ist nochmal, dass ich keine Datei sondern nur einen einfachen String AES verschlüsseln möchte.

[Rollo62]

Zitat von DieDolly:

Der Rest ist ein Geheimnis für mich.

Genau das ist ja der Sinn der Sache

[DieDolly]

Damit meine ich das UI.

[himitsu]

Zitat von DieDolly:

Zitat von Rollo62:

Zitat von DieDolly:

Der Rest ist ein Geheimnis für mich.

Genau das ist ja der Sinn der Sache

Damit meine ich das UI.

Klar,

denn vom Code her sollte es ja kein Geheimnis sein.
"security through obscurity" ist nicht per se sicher.

Es ist bekannt, damit kann auch jeder nach Schwachstellen oder absichtlichen Hintertüren schauen,
aber es muß schwer/aufwändig/langsam genug sein, damit man es dennoch nicht so laucht aufbekommt.

[TurboMagic]

Hallo,

probiere mal den Ansatz (ungetestet):

Delphi-Quellcode:

function TAes.Encrypt(PlainText: string; IV:TBytes):string;
var
  AES: TCipher_AES;
  Res: TArray<Byte>;
begin
  try
    AES := TCipher_AES.Create;
    try
      AES.Mode := cmCBCx;
      AES.Init(FAesKeyReader.GetAesKey, IV);
      result := DECFormat.TFormat_Base64.Encode(IV + AES.EncodeStringToBytes(RawByteString(PlainText)));
    finally
      AES.Free;
    end;
  except
    // snip
  end;
end;

Liefert gleich alles in Base64 zurück.
Seit XE7 kann man Arrays auch einfach so verketten...

[Aviator]

Also mit der Lösung zum Verschlüsseln funktioniert dann auch das Entschlüsseln ohne die #0 Chars. Danke!
Allerdings bleibe ich bei der Base64 Encode Methode aus System.NetEncoding, da die mir direkt einen String zurückgibt den ich dann weiterverarbeiten/speichern kann.

Was mir noch etwas Sorge bereitet ist das Trennen des IVs von den eigentlichen Nutzdaten. Wird dafür wirklich ein Stream benötigt oder gibt es hierfür auch einen einfacheren Weg wie beim Verknüpfen von zwei Byte Arrays?