function [marcado] = Testador (Todas)

dirIn = 'C:\warter\In_Wav\';
dirOut = 'C:\warter\Out_Wav\';
dirRelat = 'C:\warter\Relatorio\';

listaIn = dir (dirIn);

%Intervalos de 2,5 segundos de audio
tempo = 125000;
Delta = 0.008;
fator = 0.05;
Fourrier = 0; 

password = 2466;
maxDelta = Delta + 0.001; 
atualiza = 0.01;
vezes = 1;

%Arquivo de Saida
nomeRelat = strcat (dirRelat,'ResultadosTeste.xls');
fid = fopen(nomeRelat,'a');
fprintf (fid,'Delta\tPontos por Seg\tSegmentos\tMedia (NM)\tMedia (M)\tMedia(DP-NM)\tMedia(DP-M)\tNormal(J-NM)\tNormal(L-NM)\tNormal(J-M)\tNormal(L-M)\tmaxSNR\tPassword\n\n');
fclose(fid);

%Arquivo de Saida
nomeRelat = strcat (dirRelat,'Password_ERRADOS.xls');
fid = fopen(nomeRelat,'a');
    
fprintf (fid,'Verificando Marca com Password Errado\n');
fprintf (fid,'Password Correto - %d\n\n',password);

fclose (fid);



%while (fator < 0.051)
cont = 0;
%s = 0;
while  (Delta < maxDelta)
   
   while (cont < vezes)
       %disp (Delta);
       MarcarAudio (password, Delta, Fourrier, fator,tempo);
   
       listaOut = dir (dirOut);
       disp 'Gerando dados Estatisticos';
       disp '--------------';  
       if (Todas ==1)
            Estatisticas (password, Delta, Fourrier, fator, dirIn, listaIn, dirOut, listaOut,tempo);
       else
            for i=3:length(listaIn)
                aux = [listaIn(1) listaIn(2) listaIn(i)];
                aux2 = [listaOut(1) listaOut(2) listaOut(i)];
                Estatisticas (password, Delta, Fourrier, fator,dirIn, aux, dirOut, aux2,tempo);
            end
        end
   %movefile('C:\warter\Out_Wav\*.*','C:\warter\MusicasdeTeste\','f');
   %disp 'Testando Passwords Errados';
   %disp '--------------';  
   %TestaPasswordERRADO (password, fator,tempo);
   %disp '--------------';  
        disp '     '; 
   %fator = fator + 0.01;
        %delete ('C:\warter\Out_Wav\*.*');
      
   %Arquivo de Saida
        nomeRelat = strcat (dirRelat,'ResultadosTeste.xls');
        fid = fopen(nomeRelat,'a');
        %fprintf (fid,'\n\n\n'); 
        fclose(fid);
        password = floor(10000*rand(1,1));
        cont = cont + 1;
    end
    Delta = Delta + atualiza;
    cont  = 0;
    %cont = cont + 1;
    %s = s + 11;
end