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

相关文章推荐

豪气的创口贴 · 16歲少年涉打開港鐵車尾駕駛室及緊急出口 ...· 3 月前 ·

爱旅游的伤疤 · 《FIRE EMBLEM Echoes ...· 7 月前 ·

千杯不醉的生菜 · 数据库dmp文件怎么导入mysql_mysq ...· 1 年前 ·

英俊的书签 · 话剧《热干面之味》国庆期间再度上演！本轮演员 ...· 1 年前 ·

逼格高的抽屉 · 《打开心世界》影评 - 知乎· 2 年前 ·

腾讯云

开发者社区

文档意见反馈控制台

首页 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

推荐文章

豪气的创口贴 · 16歲少年涉打開港鐵車尾駕駛室及緊急出口工會批惡作劇行為累己累人 | 無綫新聞TVB News

3 月前

爱旅游的伤疤 · 《FIRE EMBLEM Echoes 另一位英雄王》開放下載能讓「TCG FE 0」愛瑪等人成為夥伴的 DLC《Fire Emblem Echoes: Shadows of Valentia》 -

7 月前

千杯不醉的生菜 · 数据库dmp文件怎么导入mysql_mysql数据库怎么导入dmp文件_mysql导入数据库dmp文件怎么打开 - 腾讯云开发者社区 - 腾讯云

1 年前

英俊的书签 · 话剧《热干面之味》国庆期间再度上演！本轮演员阵容公布_澎湃号·政务_澎湃新闻-The Paper

1 年前

逼格高的抽屉 · 《打开心世界》影评 - 知乎

2 年前

Stack Overflow用户