Kryptering

Kode 

const
   C1 = 52845;   {Used for encryption of Master Password string}
   C2 = 11719;
   Key = 1234;

{ Standard Decryption algorithm - Copied from Borland}
function Encrypt(const InString:string): string;
var
  I : Byte;
  StartKey : Integer;
begin
  Result := '';
  StartKey := cStartkey;

  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(Result[I]) + StartKey) * MultKey + AddKey;
  end;
end;
{ Standard Encryption algorithm - Copied from Borland}
function Decrypt(const InString:string): string;
var
  I : Byte;
  StartKey : Integer;
begin
  Result := '';
  StartKey := cStartkey;
  for I := 1 to Length(InString) do
  begin
    Result := Result + CHAR(Byte(InString[I]) xor (StartKey shr 8));
    StartKey := (Byte(InString[I]) + StartKey) * MultKey + AddKey;
  end;
end;

jarh men det skulle gerne være en fil og ikke n string der skulle krypteres... Eller os ska stringen loade filen og gemme den igen...
Mvh.
Rune Jensen

Kode 

Memo1.Lines.LoadFromFile('Filnavn');
S := Memo1.Text;
Encrypt(S);
Memo1.Text := S;
Memo1.Lines.SaveToFile('Filnavn');