Time Stamp Authority

###########################################################
# 1. Crear un fichero solicitud de sellado (TimeStampRequest) usando SHA 512.
###########################################################

$ openssl ts -query -data file.png -no_nonce -sha512 -out file.tsq

# Utilizando -cert, FreeTSA incluye el certificado raiz cacert.pem en el fichero tsr devuelto. (Opcional)
# Si se ha utilizado "-cert" al crear el archivo tsq, la verificación del mismo no necesita de "-untrusted".

$ openssl ts -query -data file.png -no_nonce -sha512 -cert -out file.tsq

# Como sellar muchos ficheros fácilmente?

# Para realizar un sellado de multiples archivos se puede crear un listado con sus hashes SHA-512 y sellarlo.
# Empaquetar los ficheros en un archivo zip, rar, img, tar, etc y sellarlo sería otra opción igual de válida.

# Ejemplo: crear un listado con los hashes de todos los archivos del directorio /var/log/
$ find /var/log/ -type f -exec sha512sum {} + > compilation.txt

###########################################################
# 2. cURL: Realizar sellados de tiempo (HTTP / HTTPS / Tor).
###########################################################

$ curl -H "Content-Type: application/timestamp-query" --data-binary '@file.tsq' https://freetsa.org/tsr > file.tsr

# Utilizando la red Tor para sellar un fichero tsq.
$ curl -k --socks5-hostname 127.0.0.1:9050 -H "Content-Type: application/timestamp-query" --data-binary '@file.tsq' https://4bvu5sj5xok272x6cjx4uurvsbsdigaxfmzqy3n3eita272vfopforqd.onion/tsr > file.tsr

# tsget es útil para sellar multiples solicitudes (tsq): https://www.openssl.org/docs/manmaster/apps/tsget.html

$ tsget -h https://freetsa.org/tsr file1.tsq file2.tsq file3.tsq

###########################################################
# 3. Verificar sellos de tiempo.
###########################################################

$ wget https://freetsa.org/files/tsa.crt
$ wget https://freetsa.org/files/cacert.pem

# Información el sellado de tiempo (fichero tsr).
$ openssl ts -reply -in fichero.tsr -text

# Dos formas de verificar la autenticidad del sellado.
$ openssl ts -verify -data fichero -in fichero.tsr -CAfile cacert.pem -untrusted tsa.crt 
$ openssl ts -verify -in fichero.tsr -queryfile fichero.tsq -CAfile cacert.pem -untrusted tsa.crt
Verification: OK

$ perl client.pl freetsa.org 318 file

client: tsq file: file.tsq 
client: tsr file: file.tsr 
client: [Connected to freetsa.org:318]
client: client: transfer of the file.tsq to the server completed 
client: 40	file.tsq

# Por defecto el fichero TSQ exige una respuesta TSR con la cadena completa de certificados (raíz e intermedios).
# Si no se desea incluir la cadena de certificados en las respuestas (ficheros tsr), se debe cambiar la linea 16 por la 15 en el script.