DeepSeek 提供的完整代码：
程序代码：
1. C 语言 DLL 源代码 (crypto.c)
#include <stdlib.h>
#include <string.h>
#include <stdint.h>
// DLL 导出宏
#ifdef _WIN32
#define DLL_EXPORT __declspec(dllexport)
#else
#define DLL_EXPORT
#endif
// 内存安全的字符串复制函数
static char* safe_strdup(const char* src) {
if (src == NULL) return NULL;
size_t len = strlen(src);
char* dest = (char*)malloc(len + 1);
if (dest == NULL) return NULL;
memcpy(dest, src, len + 1);
return dest;
}
// XOR 加密/解密函数
// 注意：加密和解密使用相同的函数（XOR 特性）
static char* xor_encrypt_decrypt(const char* input, const char* key) {
if (input == NULL || key == NULL) return NULL;
size_t input_len = strlen(input);
size_t key_len = strlen(key);
if (key_len == 0) return safe_strdup(input);
char* result = (char*)malloc(input_len + 1);
if (result == NULL) return NULL;
for (size_t i = 0; i < input_len; i++) {
result[i] = input[i] ^ key[i % key_len];
}
result[input_len] = '\0';
return result;
}
// 统一的加密/解密接口函数
// 注意：使用相同的密钥 "SecretKey123!"，实际使用时可以根据需要修改
DLL_EXPORT char* encode_decode(const char* input) {
const char* key = "SecretKey123!"; // 固定的密钥
return xor_encrypt_decrypt(input, key);
}
// 释放内存函数（必须导出，供 C# 调用释放内存）
DLL_EXPORT void free_memory(char* ptr) {
if (ptr != NULL) {
free(ptr);
}
}
2. C 语言头文件 (crypto.h)
#ifndef CRYPTO_H
#define CRYPTO_H
#ifdef __cplusplus
extern "C" {
#endif
// 导出函数声明
char* encode_decode(const char* input);
void free_memory(char* ptr);
#ifdef __cplusplus
}
#endif
#endif // CRYPTO_H
VFP调用代码：
程序代码：
* 使用 VFP 内置函数处理内存
* 声明原始 DLL 函数
DECLARE INTEGER encode_decode IN crypto.dll STRING input
DECLARE INTEGER free_memory IN crypto.dll INTEGER ptr
* 使用 SYS([color=#800000]2600) 的封装函数[/color]
FUNCTION EncodeDecodeVFP(lcInput)
LOCAL lnPtr, lcResult, lnLen
IF EMPTY(lcInput)
RETURN lcInput
ENDIF
* 调用 DLL
lnPtr = encode_decode(lcInput)
IF lnPtr = 0
RETURN ""
ENDIF
* 方法1：使用 SYS(2600) 获取字符串
* 先获取长度
lnLen = GetStringLength(lnPtr)
IF lnLen > 0
lcResult = SYS(2600, lnPtr, lnLen)
ELSE
lcResult = ""
ENDIF
* 释放内存
= free_memory(lnPtr)
RETURN lcResult
ENDFUNC
* 辅助函数：获取 C 字符串长度
FUNCTION GetStringLength(lnPtr)
LOCAL lnLen, lcChar, lnResult
IF lnPtr = 0
RETURN 0
ENDIF
lnResult = 0
* 逐个字符查找 null 终止符
DO WHILE .T.
lcChar = SYS(2600, lnPtr + lnResult, 1)
IF ASC(lcChar) = 0
EXIT
ENDIF
lnResult = lnResult + 1
ENDDO
RETURN lnResult
ENDFUNC
2026-02-08 23:22
