VS FoxPro编码的类型开发者社区

文章/答案/技术大牛

发布

C:\PROGRAM FILES (X86)\MICROSOFT VISUAL FOXPRO 9\

lcCryptLib = HOME() + "FFC\_Crypt.vcx"
IF NOT FILE( lcCryptLib )
    MESSAGEBOX( "No crypt class library." )
    RETURN 
ENDIF 
SET CLASSLIB TO ( lcCryptLib ) ADDITIVE 
oCrypt = CREATEOBJECT( "_CryptAPI" )
oCrypt.AddProperty( "myPassKey" )
oCrypt.myPassKey = "Hold property to represent some special 'Key/pass phrase' "
*/ Place-holder to get encrypted value
lcEncryptedValue = ""
? oCrypt.EncryptSessionStreamString( "Original String", oCrypt.myPassKey, @lcEncryptedValue )
*/ Show results of encrypted value
? "Encrypted Value: " + lcEncryptedValue 
*/ Now, to get the decrypted from the encrypted...
lcDecryptedValue = ""
? oCrypt.DecryptSessionStreamString( lcEncryptedValue, oCrypt.myPassKey, @lcDecryptedValue )
? "Decrypted Value: " + lcDecryptedValue

推荐文章

空虚的葡萄酒 · java list添加数据在最前面-掘金

2 年前

茫然的烈马 · Android推送服务(GCM)----GCM Architectural Overview翻译 - Neal.Xu - 博客园

2 年前

好帅的苦咖啡 · 关于spring boot 的maven 多模块，父子pom 引用的问题_父类pom有子类为什么引用不到_隔壁老陈先生的博客-CSDN博客

3 年前

体贴的路灯 · windows GStreamer环境配置及vs2019配置_德星的博客-CSDN博客

3 年前

Stack Overflow用户