vb数字加密解密程序,vb设计一个逆序数字的程序

vb如何执行加密和解密(有汉字的函数没有问题，VB专家:设计一个-2解密1234566。用VB对文本-2解密进行编码这是我在网上找到的一段代码加密 解密非常好，应该符合要求，用加密算法找出如何在VB中写清楚text21 加密和解密 Thanks，I) 1)next sub加密。

谢谢，为什么在我的用户里找不到我问过自己的这个问题？我想给你加分。怎么会？Private子命令2 _ click()dimstring string，strout asstring，secasstring，strpas string，numasinteger，iasinteger，jasdoublesecqwertuiopasdfhjklzxcvbmnstrintext 2 . text Enter strIN replace(strIN，

)空间处理numlen(Strin)for I 1 tonumstrpmid(Strin，1)由符号jInStr(1，sec，strp)Ifj0得到，所以px 3 > 0，即x>0。此题还要求使方程x ^ 4px ^ 3 Q0有正整数解的素数p和q；而素数p必须是奇素数，否则就是偶素数，那么p2，等式就变成:x 4 q2x 3，即q2x 3x4x 3x (2x) > 0，得到2x>0，即x。