//." File CheckSum (MD5 or SHAxxx)","CALC|VAL",,2,,150,200); if (strlen($what2do) >5) { echo ("ERROR. You Checked BOTH : ".$what2do ." Retry"); } else {$aa=0;} } if ($what2do == "CALC") { $CalcReport = ""; $fn = get("SelectedItemsPathNames",|,a); foreach($file,$fn){ $CalcMd5 = hash("md5",$file,1); $CalcSha1 = hash("sha1",$file,1); $CalcSha256 = hash("sha256",$file,1); $CalcSha512 = hash("sha512",$file,1); $hashedFn = gettoken($file,-1,\); $CalcReport = $CalcReport ."File :". $hashedFn . ."MD5 :" . $CalcMd5 . . "SHA-1 :" . $CalcSha1 . . "SHA256 :". $CalcSha256 . . "SHA512 :" . $CalcSha512 . ; } text ($CalcReport,1050,200); } elseif ($what2do == "VAL") { $ValReport = ""; $fn = get("SelectedItemsPathNames",|,a); foreach($file,$fn) { // fileByFile process $hashedFn = gettoken($file,-1,\); $aa = 1; // Is it a Valid Checksum ? While ($aa) { $Sum = ""; //$Sum = input("Enter MD5 or SHA-1 CheckSum for file :". .$hashedFn); $Sum = input("Enter MD5 or SHAxxx CheckSum for file :"..$hashedFn.." Or 99 to skip this file"); if ($Sum != 99) { $SumLn = strlen($Sum); if (($SumLn != $Md5Ln) && ($SumLn != $Sha1Ln) && ($SumLn != $Sha256Ln) && ($SumLn != $Sha512Ln)) { echo ("ERROR. Invalid MD5 or SHAxxx Sum Length for file : "..$hashedFn.."Entered length was : ". $SumLn. " characters. Retry"); } else { $aa=0; } } else { $SumLn = 0; $aa=0; } } // Is it MD5 or SHAxxx ? if ($SumLn == $Md5Ln) { // read selected file,calculate MD5 sum and compare to input $checkmd5 = hash("md5",$file,1); if (compare($Sum,$checkmd5,i)==0){ //case insensitive $ValReport = $ValReport ."MD5 is VALID for file : "..$hashedFn.; } else { $ValReport = $ValReport ."MD5 is WRONG for file : "..$hashedFn.."Entered MD5 : " . $Sum . ."Calculated MD5 : " . $checkmd5 . ; } } elseif ($SumLn == $Sha1Ln) { // read selected file,calculate SHA-1 sum and compare to input $checsha1 = hash("sha1",$file,1); if (compare($Sum,$checsha1,i)==0){ //case insensitive $ValReport = $ValReport ."SHA-1 is Valid for file : "..$hashedFn.; } else { $ValReport = $ValReport ."SHA-1 is WRONG for file: "..$hashedFn.."Entered SHA-1 : " . $Sum . ."Calculated SHA-1 : " . $checsha1 . ; } } elseif ($SumLn == $Sha256Ln) { // read selected file,calculate SHA-1 sum and compare to input $checsha256 = hash("sha256",$file,1); if (compare($Sum,$checsha256,i)==0){ //case insensitive $ValReport = $ValReport ."SHA256 is Valid for file : "..$hashedFn.; } else { $ValReport = $ValReport ."SHA256 is WRONG for file: "..$hashedFn.."Entered SHA256 : " . $Sum . ."Calculated SHA256 : " . $checsha256 . ; } } elseif ($SumLn == $Sha512Ln) { // read selected file,calculate SHA-1 sum and compare to input $checsha512 = hash("sha512",$file,1); if (compare($Sum,$checsha512,i)==0){ //case insensitive $ValReport = $ValReport ."SHA512 is Valid for file : "..$hashedFn.; } else { $ValReport = $ValReport ."SHA512 is WRONG for file: "..$hashedFn.."Entered SHA512 : " . $Sum . ."Calculated SHA512 : " . $checsha512 . ; } } } if ($ValReport) {text ($ValReport,500,150);} } end 1==1;