VFP调用WIN32API 实现BASE64加密

加菲猫的VFP

于 2023-05-30 14:16:33 发布

阅读量259

点赞数

原文链接：https://mp.weixin.qq.com/s?__biz=MzU1NDE4MjcxNw==&mid=2247488030&idx=1&sn=4ce525b7a4662b397ffb28d7138ce9be&chksm=fbe6234ccc91aa5a1c9b12dd22d6f541a983d65ed4ba922c26cb16a233fdb3749b03fc9d9963&scene=126&sessionid=0

版权

文章提供了一段代码用于测试VFP中的STRCONV13函数与Base64加密方法的性能对比。通过CryptBinaryToString和CryptStringToBinary函数进行Base64编码和解码，展示了在VFP中进行加密操作的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

大家可以测试一下与VFP的STRCONV 13谁快谁慢。代码如下：

#DEFINE CRYPT_STRING_BASE64 0x0001
#DEFINE CRYPT_STRING_NOCRLF 0x40000000
#DEFINE CRYPT_STRING_NOCR 0x80000000


DO declare
SET MEMOWIDTH TO 120


LOCAL cBuffer, cEncoded, cDecoded


TEXT TO cBuffer NOSHOW
Base cryptographic functions provide the most flexible means
of developing cryptography applications. All communication
with a cryptographic service provider (CSP) occurs through
these functions.


A CSP is an independent module that performs all cryptographic
operations. At least one CSP is required with each application
that uses cryptographic functions. A single application can
occasionally use more than one CSP.
ENDTEXT


cEncoded = ToBase64(m.cBuffer)
? cEncoded


cDecoded = FromBase64(cEncoded)
? cDecoded


* end of main


FUNCTION ToBase64(cSrc)
  LOCAL nFlags, nBufsize, cDst
  nFlags=CRYPT_STRING_BASE64


  nBufsize=0
  = CryptBinaryToString(@cSrc, LEN(cSrc),;
    m.nFlags, NULL, @nBufsize)


  cDst = REPLICATE(CHR(0), m.nBufsize)
  IF CryptBinaryToString(@cSrc, LEN(cSrc), m.nFlags,;
    @cDst, @nBufsize) = 0
    RETURN ""
  ENDIF
RETURN cDst


FUNCTION FromBase64(cSrc)
  LOCAL nFlags, nBufsize, cDst
  nFlags=CRYPT_STRING_BASE64


  nBufsize=0
  = CryptStringToBinary(@cSrc, LEN(m.cSrc),;
    nFlags, NULL, @nBufsize, 0,0)


  cDst = REPLICATE(CHR(0), m.nBufsize)
  IF CryptStringToBinary(@cSrc, LEN(m.cSrc),;
    nFlags, @cDst, @nBufsize, 0,0) = 0
    RETURN ""
  ENDIF
RETURN m.cDst


PROCEDURE declare
  DECLARE INTEGER CryptBinaryToString IN Crypt32;
    STRING @pbBinary, LONG cbBinary, LONG dwFlags,;
    STRING @pszString, LONG @pcchString


  DECLARE INTEGER CryptStringToBinary IN crypt32;
    STRING @pszString, LONG cchString, LONG dwFlags,;
    STRING @pbBinary, LONG @pcbBinary,;
    LONG pdwSkip, LONG pdwFlags