Comment chiffrer un fichier dans QB64

Question

Je tente de chiffrer un fichier à l'aide de ce programme dans QB64.

Il ne crypte pas réellement le fichier et revient toujours avec succès. Pourquoi?

DECLARE LIBRARY 
    FUNCTION EncryptFile (f$) 
    FUNCTION DecryptFile (f$, BYVAL f&) 
END DECLARE 
PRINT "Enter filename"; 
INPUT f$ 
IF f$ <> "" THEN 
    f$ = f$ + CHR$(0) 
    x = EncryptFile(f$) 
    IF x = 0 THEN 
     PRINT "Error encrypting file." 
    ELSE 
     PRINT "File encrypted." 
    END IF 
END IF 
END 

Answer 1

La solution a été de détecter l'état de chiffrement d'un nom de fichier comme celui-ci:

REM checks encryption status of a filename 
DECLARE DYNAMIC LIBRARY "advapi32" 
    FUNCTION FileEncryptionStatusA% (f$, f&) 
END DECLARE 
DO 
    PRINT "Filename"; 
    INPUT f$ 
    IF f$ = "" THEN END 
    x = FileEncryptionStatusA(f$, f&) 
    IF x = 0 THEN 
     PRINT "Error accessing file." 
    END IF 
    IF x THEN 
     SELECT CASE f& 
      CASE 0 
       PRINT "File can be encrypted." 
      CASE 1 
       PRINT "File is encrypted." 
      CASE 2 
       PRINT "File is system." 
      CASE 3 
       PRINT "File is root." 
      CASE 4 
       PRINT "File is system directory." 
      CASE 5 
       PRINT "Encryption status unknown." 
      CASE 6 
       PRINT "File system does not support encryption." 
      CASE 7 ' reserved 
      CASE 8 
       PRINT "File is read-only." 
     END SELECT 
    END IF 
LOOP 
END