fciv et chcp ?

Aide et conseils concernant AutoIt et ses outils.
Règles du forum
.
Répondre
papami
Niveau 4
Niveau 4
Messages : 84
Enregistré le : lun. 19 nov. 2007 17:25
Status : Hors ligne

fciv et chcp ?

#1

Message par papami » jeu. 18 juil. 2019 07:59

Bonjour,
à l'aide :)

avec ce code
$f="C:\test\essai2.txt"
$hash = Run ( @ComSpec & " /c fciv -add " & '"' & $f & '"' & " -md5", @TempDir, @SW_HIDE, $STDOUT_CHILD )
ProcessWaitClose ( $hash )
$hashstring = StdoutRead ( $hash )
msgbox (0,"Hash","MD5=" & '"' & $hashstring & '"')
le résultat est correct
mais si le fichier s'appelle pépé.txt il y a erreur (comme pour tout autre caractère accentué)

comment paramétrer (envoyer chcp ...) pour résoudre le problème ?

Merci beaucoup

jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2090
Enregistré le : lun. 30 mars 2009 21:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: fciv et chcp ?

#2

Message par jchd » jeu. 18 juil. 2019 11:03

Il y a pire : si le nom de fichier contient des caractères Unicode > 0x100, fciv ne le traite pas du tout ! Il n'est pas non plus spécialement véloce sur les gros fichiers et le format de stockage n'est pas formidable.

A votre place, je ferais le(s) hash(es) moi-même et je les stockerais à ma façon. Ma façon c'est forcément une base de données SQLite, ça va sans dire !
Voici un squelette de pseudo code :

Code : Tout sélectionner

#include <SQLite.au3>

_SQLite_Startup()
_SQLite_Open("MonRépertoire\Hashes.sq3) ; open Database
_SQLite_Exec(-1, "CREATE TABLE if not exists Hashes (Id integer primary key, Date char, Chemin char, Fichier char, MD5 char, SHA1 char);" & _
				"create index if not exists IdxCheminComplet on Hashes (Chemin, Fichier);" & _
				"create index if not exists IdxFichier on Hashes (Fichier);" _
			)
_FileListToArrayRec()
Local $md5, $sha1, $fullpath, $chemin, $fichier
For fichier In list
	_PathFull()		; optionnel
	_PathSplit()	; -> chemin, fichier
	$md5 = _md5forfile($fullpath)
	$sha1 = _sha1forfile($fullpath)
	_SQLite_QuerySingleRow(..., $fullpath, ...)
	If old_md5 <> $md5 or old_SHA1 <> $sha1 Then
		Disp("Le fichier ... a changé ...")
		...
	Else
		Disp("Nouveau fichier ...")
		_SQLite_Exec(-1, "insert into hashes (Date, Chemin, Fichier, MD5, SHA1) " & _
						 "values (datetime, " & esc($chemin) & ", " & esc($fichier), ", " & $md5 & ", " & $sha1 & ";)" _
					)
	EndIf
Next
_SQLite_Close()
_SQLite_Shutdown()
Voir ce fil : https://www.autoitscript.com/forum/topi ... for-files/
Il serait même souhaitable de chiffer cette BdD, ce qui est très simple. Il suffit d'utiliser System.Data.SQLite.dll au lieu de sqlite.dll et d'ajouter deux lignes de code :

Code : Tout sélectionner

_SQLite_Startup()
_SQLite_Open("MonRépertoire\Hashes.sq3) ; open Database
Local $key = InputBox("Contrôle d'accès", "Entrer la clé de chiffrement", "", "*", ...)	; saisie de la clé
_SQLite_Exec(-1, "pragma key = " & esc($key) & ";")	; permet la lecture d'une base chiffrée
Pour le chiffrement initial, changer la clé ou annuler le chiffrement : _SQLite_Exec(-1, "pragma rekey = " & esc($newkey) & ";")
Par contre, avant de changer la clé d'un chiffrement en place, il faut bien sûr fournir l'ancienne clé. Si la clé est perdue, la base devient illisible (c'est le but !).
On dispose aussi de :
pragma hexkey = '012345ABCD'
pragma hexrekey = '012345ABCD'
pour indiquer une clé en format binaire.

https://system.data.sqlite.org/index.ht ... loads.wiki

Si vous tenez absolument à utuliser fciv, le plus simple est de faire une conversion de l'encodage du résultat.

Code : Tout sélectionner

Func _CodepageToString($sCP, $iCodepage = Default)
	If $iCodepage = Int(RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Nls\Codepage", "OEMCP"))
	Local $tText = DllStructCreate("byte[" & StringLen($sCP) & "]")
	DllStructSetData($tText, 1, $sCP)
	Local $aResult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $iCodepage, "dword", 0, "struct*", $tText, "int", StringLen($sCP), _
			"ptr", 0, "int", 0)
	Local $tWstr = DllStructCreate("wchar[" & $aResult[0] & "]")
	$aResult = DllCall("kernel32.dll", "int", "MultiByteToWideChar", "uint", $iCodepage, "dword", 0, "struct*", $tText, "int", StringLen($sCP), _
			"struct*", $tWstr, "int", $aResult[0])
	Return DllStructGetData($tWstr, 1)
EndFunc   ;==>_CodepageToString
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.

Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11430
Enregistré le : ven. 20 juil. 2007 20:00
Localisation : Bordeaux
Status : Hors ligne

Re: fciv et chcp ?

#3

Message par Tlem » jeu. 18 juil. 2019 16:19

Bonjour.
Pour contourner le problème de caractères accentués, renommez simplement le fichier avec un nom temporaire qui conviendra à fciv, ou si le fichier est de petite taille faites en une copie dans un dossier temporaire. ^^

Il existe d'autres solutions :
  • Pure AutoIt. Mais ne comptez pas sur la performance.

  • AutoIt + Dll (il me semble avoir vu ça sur le forum US).

  • Outil de calcul compatible avec les accents (md5sums.exe par exemple).

  • Ligne de commande Powershell (Powershell get-filehash File2Test.exe -algorithm MD5)

  • VBscript.

  • Et il existe très surement d'autres solutions.
Après quelques tests, la solution fciv est vraiment la plus rapide sur de gros fichiers. 22s pour un fichier de 6 Go alors que PowerShell mets 30 s et md5sums.exe mets 40 s.
Je n'ai pas testé les solutions AutoIt car je sais d'office que les temps seront plus élevés. Mais si vos fichiers ont une taille raisonnable (quelque Mo tout au plus) et que vous n'avez pas plusieurs dizaines de fichiers à tester, alors la solution pure AutoIt est pour vous.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".

papami
Niveau 4
Niveau 4
Messages : 84
Enregistré le : lun. 19 nov. 2007 17:25
Status : Hors ligne

Re: fciv et chcp ?

#4

Message par papami » jeu. 18 juil. 2019 16:30

Bonjour,
et merci.
je vais essayer ...

Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11430
Enregistré le : ven. 20 juil. 2007 20:00
Localisation : Bordeaux
Status : Hors ligne

Re: fciv et chcp ?

#5

Message par Tlem » jeu. 18 juil. 2019 16:40

Une autre solution que j'ai oublié de vous indiquer, consiste à utiliser le nom court des fichiers (le nom 8.1). ^^
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".

papami
Niveau 4
Niveau 4
Messages : 84
Enregistré le : lun. 19 nov. 2007 17:25
Status : Hors ligne

Re: fciv et chcp ?

#6

Message par papami » jeu. 18 juil. 2019 16:53

ah ben ça c'est peut-être une bonne idée :)

toutefois si FCIV traite bien les fichiers avec caractères accentués dans le texte.

re-merci

jchd
AutoIt MVPs (MVP)
AutoIt MVPs (MVP)
Messages : 2090
Enregistré le : lun. 30 mars 2009 21:57
Localisation : Sud-Ouest de la France (43.622788,-1.260864)
Status : Hors ligne

Re: fciv et chcp ?

#7

Message par jchd » jeu. 18 juil. 2019 20:03

Oui, mais pas les caractères Unicode > 0xFF
La cryptographie d'aujourd'hui c'est le taquin plus l'électricité.

papami
Niveau 4
Niveau 4
Messages : 84
Enregistré le : lun. 19 nov. 2007 17:25
Status : Hors ligne

Re: fciv et chcp ?

#8

Message par papami » jeu. 18 juil. 2019 20:19

oui c'est vrai vous l'aviez dit au début et cela peut poser problème.
Il y a aussi -certutil mais je ne sais pas l'utiliser en direct comme dans la commande Run ... fciv en tête de ce fil
et si pas de probl. avec Unicode aussi...

Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11430
Enregistré le : ven. 20 juil. 2007 20:00
Localisation : Bordeaux
Status : Hors ligne

Re: fciv et chcp ?

#9

Message par Tlem » jeu. 18 juil. 2019 21:51

Pour fonctionner dans tous les cas avec fciv, alors la solution de renommage me semble la plus simple/fiable.

Sinon, la solution PowerShell devrait fonctionner pour tous les cas aussi.


Envoyé de mon Smartphone en utilisant Tapatalk


Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".

Répondre