Encryption 如何在QB64中加密文件

我试图用QB64中的这个程序加密一个文件

它实际上并不加密文件，并且总是返回successful。为什么?

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

声明库
函数加密文件（f$）
函数解密文件（f$，BYVAL f&）
结束声明
打印“输入文件名”；
输入f$
如果f$”“那么
f$=f$+CHR$（0）
x=加密文件（f$）
如果x=0，则
打印“加密文件时出错。”
其他的
打印“文件加密”
如果结束
如果结束
结束

解决方案是检测文件名的加密状态，例如：

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

---

很明显，你调用它是正确的，所以这是一个问题，为什么你的C++代码不起作用，而不是为什么QB64代码不工作。目标文件正在加密：仅对加密它的用户透明，并且看不到任何类似二进制的文本。