一个字符串用RSA公钥加密为byte[],在用base64 加密成String,在用base64 解密为String

一个字符串用RSA公钥加密为byte[],在用base64 加密成String,在用base64 解密为String

俺有类似的函数，核心加密是用des

原型：
int WINAPI icePub_encryptText3(char *strInput, char *strOutputHexstring, char *strKey)
输入：strInput 待加密文本数据串
strKey 密钥，任意长度
输出：strOutputHexstring 加密后base64串
返回码:

原型：
int WINAPI icePub_decryptText3(char *strInputHexstring, char *strOutput, char *strKey)
输入：strInputHexstring 待解密数据串
strKey 密钥，任意长度
输出：strOutput 解密后数据
返回码: 解密后数据最大长度，为8的倍数

Private Declare Function icePub_encryptText3 Lib "icePubDll.dll" (ByVal strInput As String,ByVal strOutputHexstring As String, ByVal strKey As String) As Integer

Dim len2 As Integer
Dim buff As String
Dim buff2 As String
Dim key As String

buff="Recall Dream Miss, Keep Silk-silk accept as a souvenir, Between You And Me, Stringed music touching."
key="2286766486"
buff2=Space(1024)
len2=icePub_encryptionText3(buff,buff2,key)

MsgBox buff2

Private Declare Function icePub_decryptText3 Lib "icePubDll.dll" (ByVal strInputHexstring As String, ByVal strOutput As String, ByVal strKey As String) As Integer

Dim len2 As Integer
Dim buff As String
Dim buff2 As String
Dim key As String

buff="vVVq0eaCUs8="
key="11223344"
buff2=Space(1024)
len2= icePub_decryptText3(buff,buff2,key)
MsgBox buff2