VB 加密 解密，在VB中写一个简单的加密解密程序控件，VB -。请为RC4 加密的函数定义您自己的键，这个函数在解密:第一个参数是需要解密，第二个参数是key(同上)的时候也会用到，_还叫加密？第一个参数是需要加密的数据，第二个参数是键(请自行定义)。
1、简单VB.NET 加密与 解密PrivateFunctionmyEncrypt(ByValCodeAsString)asstringdimresultasstring dimcurrentcharaforiasinteger 0 to code。length 1 currentcharcode . Substring(I，1)SelectCaseCode。子串(我，
2、VB 加密 解密,急!!= = = = = = = = = = = = = = private subcommand 1 _ Click()common dialog 1。ShowOpenIfLen(CommonDialog1。)> 0 then list 1 . additemcondialog 1 .()dimiasintegerfori 0 tolis 1。列表计数1开放列表1。二进制1开放列表1的列表(I)。清单(一)和。加密for binaryas 2d IMT 1 asstring * 1，
T1T2 IIF (ASC (T1) 55 > 128，ASC (T1) 55128，ASC (T1) 55) Put2，T2 Loopclosenextmsgbox加密Over End Sub = = = = = = = = = = = = =。
3、VB 加密和 解密数字向前推多少位数？_还叫加密？加密最起码也要当成乱码吧？请为RC4 加密的函数定义您自己的键。第一个参数是需要加密的数据，第二个参数是键(请自行定义)。这个函数在解密:第一个参数是需要解密，第二个参数是key(同上)的时候也会用到。给我另一个版本。我以前可以在Access中使用它。
4、用VB写个简单 加密/ 解密 程序图上的控件，你只要把它放上，然后复制下面的代码，就OK了:dimlgasinteger 加密private子命令1 _ click () text2dima()，b()asstringlglen(text 1)redima(LG)，b(LG)for i1 Olga(I)Mid(text 1，1)b(I)AscW(a(I))xor 4 text 2 text 2
