function [y] = PatchWork(y, password, Delta, Fourrier, fator)


if Fourrier == 1
    y = fft (y);
end

% Gerando os conjuntos A e B que sao indices do vetor y
[A,B] = GeraConjuntos(length(y), password, fator);

%Metodo 1
% Inserindo a marca no audio
%y(A) = Delta + y(A);
%y(B) = (- Delta)+ y(B);

% Metodo 2
% Inserindo a marca no audio
%y(A) = (1 + Delta)*y(A);
for i=1:length(A)
    y(A(i)) = y(A(i)) + abs( y(A(i)) * Delta);
    y(B(i)) = y(B(i)) - abs( y(B(i)) * Delta);
end
%y(B) = (1 - Delta)*y(B);

%LEMBRAR DE ALTERAR ESSA PARTE SE USAR FOURRIER!!!!!!!!!!!!
y = AjustaValores(y);

clear A B;

if Fourrier == 1
    y = ifft (y);
end