[Bargest]

Код:

j:=1;
for i:=1 to length(s) do
 begin
  s[i]:=s[i] xor pass[j]; // в стандартном алгоритме вместо XOR'а стоит +, но с XOR прикольнее
  inc(j);
  if j>length(pass) then 
   j:=1;
 end;