# -*- coding: UTF-8 -*-
 
require "zlib"
exit if Object.const_defined?(:Ocra)
 
def logo()
 print '
 
   _______   __     _____  ___    ________    ____  ____    ________  
  /"     "| |" \\   (\\"   \\|"  \\  |"      "\\  ("  _||_ " |  /"       ) 
 (: ______) ||  |  |.\\\\   \\    | (.  ___  :) |   (  ) : | (:   \\___/  
  \\/    |   |:  |  |: \\.   \\\\  | |: \\   ) || (:  |  | . )  \\___  \\    
  // ___)   |.  |  |.  \\    \\. | (| (___\\ ||  \\\\ \\__/ //    __/  \\\\   
 (:  (      /\\  |\\ |    \\    \\ | |:       :)  /\\\\    //\\   /" \\   :)  
  \\__/     (__\\_|_) \\___|\\____\\) (________/      \\__/     (_______/   
 
           Find Duplicates v1.0       By Elektro H@cker
 
'
end
 
def help()
 print '
 Este programa busca archivos duplicados comprobando el hash CRC32.
 
 [*] Modo de empleo:
 
     FINDUS [OPCIONES] [RUTA]
 
 [*] Opciones:
 
     [-R]  Habilita la búsqueda recursiva en subdirectorios. 
 
 [*] Ejemplos:
 
     FINDUS "%CD%"
     FINDUS -R "C:\Windows"
 
'
Process.exit
end
 
def errorcontrol()
  if ARGV.empty?
    help
  elsif ARGV.length == 2 and not File.directory? (ARGV[1])
    help
  elsif ARGV.length == 1 and not File.directory? (ARGV[0])
    help
  end
  if ARGV[0] =~ /-r/i
    $folder = ARGV[1]
    Dir.chdir($folder)
    resursive = File.join("**", "*.*")
    $files = Dir.glob(resursive)
  elsif 
    $folder = ARGV[0]
    Dir.chdir($folder)
    not_resursive = File.join("*.*")
    $files = Dir.glob(not_resursive)
  end
end
 
logo
errorcontrol
$list = ""
 
# Listar los archivos del directorio
File.open("#{ENV['TEMP']}\\dir.txt", 'w+') do |file|  
 file.puts $files
end
 
# Comparar el crc de cada archivo listado
File.read("#{ENV['TEMP']}\\dir.txt").each_line { |line|
 begin
  file      = File.read(line.strip) ; nil
  file_crc  = Zlib.crc32(file,0).to_s(16)
  file_size = File.size(line.strip)
   if $list[file_crc.to_s]
     print "#{$folder}\\#{line.strip.gsub('/', '\\')}\n#{$list.split(file_crc).first.split(")").last.split("\n\n").last}#{file_crc})\n\n"
   end
  $list << "#{$folder}\\#{line.strip.gsub('/', '\\')}\n(CRC32: #{file_crc}) (BYTES: #{file_size})\n\n"
 rescue
  print "Archivo inaccesible #{$folder}\\#{line}"
 end
}
 
 
__END__
 

mediainfo "archivo.mp3" "--Inform=General;%Duration/String3%"

mediainfo "archivo.mp3" "--Inform=General;%%Duration/String3%%"

@Echo OFF
 
:: Generador de listas de música aleatorias.bat
:: By Elektro H@cker
 
Title %~n0
Mode con cols=50 lines=3
Setlocal enabledelayedexpansion
chcp 1252 >NUL
 
Set "Carpeta=%cd%"
 
Echo+
Echo: Espere, Se esta randomizando la lista...
Echo #EXTM3U>"%Temp%\Lista Winamp.tmp"
For /F "Tokens=*" %%$ in ('Dir /B /S "%CARPETA%" ^| Findstr /I /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
For /F "Tokens=2* Delims=;" %%$ in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo %%$>>"%Temp%\Lista Winamp.m3u")
Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
Exit

echo %pathext%