Question

知道自己的用户名和密码，如何把它转成base64编码

Answer 1

原型：
int WINAPI icePub_base64Encode(char *strData,int dataLen,char *strCode)
输入：strData 待处理数据
dataLen 待处理数据长度
输出：strCode base64编码，编码后的长度一般比原文多占1/3的存储空间
返回码: strCode编码长度

char buff[1024];
char buff2[1024];

strcpy(buff2,"又是一年秋来到，花落谁家院？心如潮水情似海，苦痛与甘甜。日日夜夜相陪伴，怎堪离别怨。世间纷扰多坎坷，命里难成全，常忆来时路，泪光迷离眼。情愿不相识，不相知，不相守，不相爱，伤痛不因有我，离别不因有我，决策不因有我，其实生命不该有我...一场梦，终需醒，两颗真心相待，天地可见。一世情，分与合，有缘无缘不求，两不亏欠。");

typedef int (WINAPI ICEPUB_BASE64ENCODE)(char *strData,int dataLen,char *strCode);
ICEPUB_BASE64ENCODE *icePub_base64Encode = 0;
HINSTANCE hDLLDrv = LoadLibrary("icePubDll.dll");
if(hDLLDrv)
{
icePub_base64Encode=(ICEPUB_BASE64ENCODE *)GetProcAddress(hDLLDrv,"icePub_base64Encode");
}
if(icePub_base64Encode)
icePub_base64Encode(buff2,strlen(buff2),buff);
if(hDLLDrv)
FreeLibrary(hDLLDrv);

AfxMessageBox(buff);

Private Declare Function icePub_base64Encode Lib "icePubDll.dll" (ByVal strData As String, ByVal dataLen As Integer, ByVal strCode As String) As Integer

Dim a2 As Integer
Dim buff As String
Dim buff2 As String

buff2="真了不起~"
buff=Space(1024)
a2=icePub_base64Encode(buff2,LenB(buff2),buff)

MsgBox buff