Dialog permettant de calculer le CRC et le MD5 d'un fichier. Ceci est ma première source, tous commentaires sont les bienvenue, merci :).
Source / Exemple :
menu channel,query {
CRC et MD5 Manager:dialog -m crc.manag crc.manag
}
dialog crc.manag {
title "CRC & MD5 Manager"
size -1 -1 156 98
option dbu
box "CRC et MD5 Manager", 1, 3 2 150 58
text "Fichier", 2, 7 12 16 7
edit "", 3, 24 11 125 10
text "CRC", 4, 9 26 14 7
edit "", 5, 24 24 32 10, center
text "Taille", 6, 59 26 15 8
edit "", 7, 74 24 75 10
button "Ouvrir", 8, 6 78 40 12
button "Calculer", 9, 6 63 144 12
button "Fermer", 10, 110 78 40 12, ok cancel
text "MD5", 11, 9 39 12 7
edit "", 12, 24 37 125 10
button "Afficher", 14, 50 78 56 12
check "Calculer CRC", 16, 26 49 40 10, left
check "Calculer MD5", 17, 83 49 40 10, left
}
on *:dialog:crc.manag:*:*: {
if ($devent == init) {
did -m $dname 3,5,7,12
did -b $dname 9,14,16,17
did -tf $dname 8
did -c $dname 16,17
}
if ($devent == sclick) {
if ($did == 8) {
did -r $dname 3,5,7,12
unset %crc %nopath %space %md5 %crccrc
set %crc $sfile($getdir,Calculer CRC,OK)
if (%crc) {
set %nopath $nopath(%crc)
did -o $dname 3 1 %nopath
did -e $dname 9,16,17
}
else {
did -b $dname 9,14,16,17
}
}
if ($did == 9) {
if (%crc) {
if ($did(16).state == 1) {
set %crccrc $crc(%crc)
did -o $dname 5 1 %crccrc
}
if ($did(17).state == 1) {
set %md5 $md5(%crc)
did -o $dname 12 1 %md5
}
set %space $round($calc($file(%crc).size / 1024 / 1024),2) Mo
did -o $dname 7 1 %space
did -b $dname 9,16,17
did -e $dname 14
}
}
if ($did == 10) {
unset %crc %nopath %space %md5 %crccrc
}
if ($did == 14) {
if (($did(16).state == 1) && ($did(17).state == 0)) {
msg $active 4,1[0 Fichier: %nopath 4|0 Taille: %space 4|0 CRC: %crccrc 4]
}
if (($did(16).state == 0) && ($did(17).state == 1)) {
msg $active 4,1[0 Fichier: %nopath 4|0 Taille: %space 4|0 MD5: %md5 4]
}
if (($did(16).state == 1) && ($did(17).state == 1)) {
msg $active 4,1[0 Fichier: %nopath 4|0 Taille: %space 4|0 CRC: %crccrc 4|0 MD5: %md5 4]
}
}
}
}
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.