verschlüsseln eines strings mit DEC von Hagen Reddmann

[Sharky]

Jup.

Es ist definitiv so das EnCode verschlüsselt:

Delphi-Quellcode:

const
  DefCipherClass: TCipherClass = TCipher_Rijndael; //mögliche siehe Cipher.pas und Cipher1.pas
  CipherMode = cmCBC; // Cipher-Mode: cmCTS, cmCBC, cmCFB, cmOFB, cmECB

procedure TFRM_Main.Button4Click(Sender: TObject);
begin
  with DefCipherClass.Create('', nil) do // Verschlüsseln
  begin
    try
      Mode := CipherMode;
      InitKey('blubb',nil);
      Edit3.Text := EncodeString(Edit2.text);
    finally
      Free;
    end;
  end;
end;

procedure TFRM_Main.Button5Click(Sender: TObject);
begin
  with DefCipherClass.Create('', nil) do // Entschlüsseln
  begin
    try
      Mode := CipherMode;
      InitKey('blubb',nil);
      Edit4.Text := DecodeString(Edit3.text);
    finally
      Free;
    end;
  end;
end;