Clear

Set Default To e:\GoTest

DECLARE long Sum IN test.dll long,long
?Sum(1,2)


DECLARE string ProcessString IN test.dll string
?ProcessString ("world")

DECLARE long ProcessString IN test.dll string
?Sys(2600,ProcessString ("world") , 12)

DECLARE long ProcessStringLen IN test.dll string
?ProcessStringLen("world")

DECLARE string AESDecrypt IN test.dll string,string
?AESDecrypt("world","myverystrongpasswordo32bitlength")

DECLARE string GenerateRSAKeyPair IN test.dll long
Local lcRSAString
m.lcRSAString = GenerateRSAKeyPair( 1024 )
PrivateKey = Getwordnum( m.lcRSAString , 1 , Chr(13) )
?PrivateKey

PublicKey  = Getwordnum( m.lcRSAString , 2 , Chr(13) )
?PublicKey  

[此贴子已经被作者于2024-12-24 21:35编辑过]

声明中与vfp的sum()有无冲突

暂时不考虑那么多，如果有冲突声明AS掉,这个主要测试在全平台上是否正常，包括移动平台。。。

请使用虚拟机建立测试环境

无任何环境设置，直接调用语句：得出：
3  
Hello, world   
Hello, world
5
8FGqeF5YJ6cLLXw9itFxYmbWfG8v

[此贴子已经被作者于2024-12-24 15:23编辑过]

是XP和win98,win10,win11,帮忙测试的最终送一份全平台加密库！

说出你的系统平台。。。。

WinXP-Win2003-Win7-Win10Home-Win10Lstc，均为实机测试，见楼上图，希望可以帮助到楼主，谢谢。

目测，WinXP-Win2003下，crypto/aes 这儿有点问题，显示crypto/aes: 无效密钥大小33