Passwort in Ini-datei speichern

[DaCoda]

Also XOR ist nicht gerade schön und wirklich nicht zu empfehlen.
Wenn es minimale Sicherheit sein soll, dann würde ich das eventuell so machen:

Delphi-Quellcode:

const
  Code64 = '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/';

function Encode64(S: string): string;
function Decode64(S: string): string;

{-------------------------------------------------------------------------------}

function Encode64(S: string): string;
var
  I: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for I := 1 to Length(S) do begin
      x := Ord(S[I]);
    b := b * 256 + x;
    a := a + 8;
    while a >= 6 do begin
      a := a - 6;
      x := b div (1 shl a);
      b := b mod (1 shl a);
      Result := Result + Code64[x + 1];
    end;
  end;
  if a > 0 then begin
      x := b shl (6 - a);
    Result := Result + Code64[x + 1];
  end;
end;

function Decode64(S: string): string;
var
  I: Integer;
  a: Integer;
  x: Integer;
  b: Integer;
begin
  Result := '';
  a := 0;
  b := 0;
  for I := 1 to Length(S) do begin
    x := Pos(S[I], Code64) - 1;
    if x >= 0 then begin
        b := b * 64 + x;
      a := a + 6;
      if a >= 8 then begin
          a := a - 8;
        x := b shr a;
        b := b mod (1 shl a);
        x := x mod 256;
        Result := Result + chr(x);
      end;
    end else
      Exit;
  end;
end;

[stifflersmom]

Ich möchte hier auf Synopse verweisen.

Code:

unit uSimpleEncryption;


interface

uses SynCommons, SynCrypto;

function encrypt(aString:String):String;
function decrypt(aString:String):String;

implementation

const
  my_key = 'derVerschLuessElLungsKeyimmerWiederNett';

function encrypt(aString:String):String;
var
  key : TSHA256Digest;
  aes : TAESCFB;
  s:RawByteString;
begin
  SynCommons.HexToBin(Pointer(SHA256(my_key)), @key, 32);

  aes := TAESCFB.Create(key, 256);
  try
    s := StringToUTF8(aString);
    s := BinToBase64(aes.EncryptPKCS7(s, True));
    Result := UTF8ToString(s);
  finally
    aes.Free;
  end;
end;


function decrypt(aString:String):String;
var
  key : TSHA256Digest;
  aes : TAESCFB;
  s:RawByteString;
begin
  SynCommons.HexToBin(Pointer(SHA256(my_key)), @key, 32);

   aes := TAESCFB.Create(key, 256);
  try
    s := StringToUTF8(aString);
    s := aes.DecryptPKCS7(Base64ToBin(s), True);
    Result := UTF8ToString(s);
  finally
    aes.Free;
  end;
end;

end.

Und dann nutzen mit

Code:

 Encrypt(sApiPassword);

bzw.

Code:

Decrypt(sEncryptedString);

[Andreas13]

Zitat von stifflersmom:

Ich möchte hier auf Synopse verweisen...

Du meinst bestimmt Synapse, nehme ich an: https://github.com/dimmaq/delphi-synapse.
Grüße, Andreas

[stifflersmom]

Uuups, man sollte die Brille beim Schreiben aufsetzen...

https://synopse.info

[Andreas13]

Danke für die Richtigstellung und den korrekten Link! Ich habe nur die Version mit a gekannt.
Grüße, Andreas

[joachimd]

Zitat von DaCoda:

Also XOR ist nicht gerade schön und wirklich nicht zu empfehlen.
Wenn es minimale Sicherheit sein soll, dann würde ich das eventuell so machen:
...

Base64? Ehrlich? Das ganze "Verschleiern" bringt absolut nichts gegen jemanden, der auch nur rudimentäre Kenntnisse hat! Es verwirrt nur Dich selbst und reizt zum Knacken.
Die beste Lösung habe ich vor rund 20 Jahren in den Newsgroups gelesen (müsste damals von MM gewesen sein):
Pack die Credentials im Klartext in die readme. Die liest nämlich nie jemand.

[TurboMagic]

Ich darf natürlich auch Delphi Encryption Compendium (DEC) empfehlen.
Da aber die Vollversion von Github: https://github.com/MHumm/DelphiEncryptionCompendium

Dort werden auch diverse Beispielprogramme mitgeliefert.