[@Rafa3L]

passwd - это твой пароль в базе.(6 символов).

longkey- секретный пароль базы.

longkey,passwd,toto :string;

Код:

ik := 1;
longkey:='GQ$%9s';
for i := 1 to length(passwd) do
  begin
    // шифр XOR алгоритм, шифр ксор
    toto := chr((ord(passwd[i]) xor ord(longkey[ik])));
    inc(ik);
    if ik>length(longkey) then ik := 1;
    result := result + toto;
  end;