求加密代码
以下为解密代码,请各位老大帮我研究出加密代码.

Long i
String ls_str1
String ls_str2

ls_str1 = "加密后的字符"
DO WHILE Len(ls_str1) >= i
ls_str2 = ls_str2 + Mid(ls_str1,Len(ls_str1) - i,1)
ls_str2 = ls_str2 + Mid(ls_str1,i + 1,1)
i += 2
LOOP
MessageBox("解密后的字符",ls_str2)
[解决办法]

Long i 
String ls_str1 
String ls_str2 , ls_str3

ls_str1 = "加密后的字符"//"加密后的字符"
DO WHILE Len(ls_str1) >= i 
ls_str2 += Mid(ls_str1,Len(ls_str1) - i,1) 
ls_str2 += Mid(ls_str1,i + 1,1) 
i += 2 
LOOP 
MessageBox( "解密后的字符",ls_str2)

//加密
i = 0
int j
j = len(ls_str2) / 2
for i = 1 to j
ls_str3 += mid(ls_str2, 2 * i, 1) + mid(ls_str2, len(ls_str2) - 2 * i, 1) 
next
MessageBox( "加密后的字符",ls_str3 )