简单的加密 解密 ：求c++源码

[「已注销」]

两个例子：
下面是用VBS写的，
Option Explicit
dim ipt,opt,iptlen,chk
dim i
dim iptarray()
chk=inputbox(" 请选择你要做的操作：" & vbCrlf & " 1:加密 2:解密 3:退出","请选择")
if chk=null or chk="" then chk=0
chk=int(chk)
select case chk
case 1
call jiami()
case 2
call jiemi()
case 3
wscript.quit
case else
msgbox "数据错误"
end select
sub jiami()
ipt=inputbox("请输入原文","bfpms加密")
iptlen=len(ipt)
redim iptarray(iptlen)
for i=0 to iptlen-1
iptarray(i)=chr(asc(Mid(ipt,i+1,1))+i+1)
opt=opt&iptarray(i)
next
msgbox opt
end sub

sub jiemi()
ipt=inputbox("请输入密文","bfpms解密")
iptlen=len(ipt)
redim iptarray(iptlen)
for i=0 to iptlen-1
iptarray(i)=chr(asc(Mid(ipt,i+1,1))-i-1)
opt=opt&iptarray(i)
next
msgbox opt
end sub
-------------下面是用asp写的。
function decrypt(dcode)
dim texts
dim i
for i=1 to len(dcode)
texts=texts & chr(asc(mid(dcode,i,2))-i)
next
decrypt=texts
end function
function encrypt(ecode)
Dim texts
dim i
for i=1 to len(ecode)
texts=texts & chr(asc(mid(ecode,i,2))+i)
next
encrypt = texts
end function
希望大牛给出个C++的。

[bdmh]

就那么几个函数，猜也猜出什么意思了

[「已注销」]

[Quote=引用 1 楼 bdmh 的回复:]

就那么几个函数，猜也猜出什么意思了
[/Quote]
我没学过C++。
我查了资料了也，但是我写出来的代码就不运行。
res=res+(((int)(temp.GetAt(i)))+(1+i));
这是数字的。

[「已注销」]

void CFirstDlg::Onokjia()
{
UpdateData();
CString temp;
temp=CFirstDlg::m_jia;
CString res;
for (int i=0;i<temp.GetLength();i++)
{
int itemp=(int)temp.GetAt(i);
itemp+=(1+i);
res+=itemp;
}
temp="";
m_res=res;
UpdateData(FALSE);

}
这是我写的。OK，但是我感觉不是很高效，王大牛给段，高效代码。