19,468
社区成员
发帖
与我相关
我的任务
分享
'信息加密
function EnStr(str)
dim strLen,i
dim strTemp,strChar
strLen=len(str)
strTemp=""
strChar=""
for i=1 to strLen
strChar=Chr((Asc(Mid(str,i,1))+1) Xor 23)'加密((字符集)异或23)
strTemp=strTemp&strChar
next
EnStr=strTemp'反向字符串StrReverse
end function
'信息解密
function UnStr(str)
dim strLen,i
dim strTemp,strChar
strLen=len(str)
strTemp=""
strChar=""
for i=1 to strLen
strChar=Chr((Asc(Mid(str,i,1)) Xor 23)-1)'解密((字符集异或23))
strTemp=strTemp&strChar
next
UnStr=strTemp'反向字符串
end function
int strLen,i;
CString a;
char *str="wss:fds~发大水!~~";
char *strTemp,*strChar;
strLen=strlen(str);
for(i=0;i<strLen;i++)
{
*strChar=(*(str+i)+1)^23;//运行到这里有问题!
strcat(strTemp,strChar);
}
a= strTemp;
char* EnStr(char *str)
{
int strLen,i;
char *strTemp,*strChar;
strLen=strlen(str);
for(i=0;i<strLen;i++)
{
*strChar=(*(str+i)+1)^23;
strcat(strTemp,strChar);
}
return strTemp;
}