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

相关文章推荐

无聊的刺猬 · 缪尔格出任雷诺集团销售和区域事业部执行副总裁 ...· 4 月前 ·

文武双全的罐头 · 原国民党老兵：今天被政府承认了当年爱国没白 ...· 4 月前 ·

爱逃课的小狗 · 【童年动画】小太极之中华五千年 ...· 9 月前 ·

八块腹肌的大葱 · 牛津译林版英语7-9年级上下册单词默写版，预 ...· 1 年前 ·

虚心的橙子 · 京杭运河-水务知识-深圳市罗湖区人民政府门户网站· 1 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 TVP

最新优惠活动

文章/答案/技术大牛

发布

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

推荐文章

无聊的刺猬 · 缪尔格出任雷诺集团销售和区域事业部执行副总裁_搜狐汽车_搜狐网

4 月前

文武双全的罐头 · 原国民党老兵：今天被政府承认了当年爱国没白爱【6】--时政--人民网

4 月前

爱逃课的小狗 · 【童年动画】小太极之中华五千年 1-14集_哔哩哔哩_bilibili

9 月前

八块腹肌的大葱 · 牛津译林版英语7-9年级上下册单词默写版，预习复习必备！可下载打印_初中_电子版_全套

1 年前

虚心的橙子 · 京杭运河-水务知识-深圳市罗湖区人民政府门户网站

1 年前

Stack Overflow用户