Csharp and Vbscript: Encryption/Decryption Functional

  1 /// <summary>
  2     /// 塗聚文
  3     /// 20130621
  4     /// 自定义字符串加密解密
  5     /// </summary>
  6    public class DecEncClass
  7     {
  8         /// <summary>
  9         /// 
 10         /// 加密
 11         /// </summary>
 12         /// <param name="s"></param>
 13         /// <returns></returns>
 14         public string Enc(string s)
 15         {
 16        
 17              string str=@"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\/._ -,;涂聚文";
 18              string key = @"fokuq3FnR2HlcI9CSsL10myrdUpNbh7AjtXa65vQWPwYTZgBEDMOiG8xeVKJz4%!^_$-,;咭㙍塗";
 19              int strLen=str.Length;
 20              int keyLen=key.Length;    
 21              string returnStr;
 22              returnStr="";
 23     
 24             for(int i=0; i<s.Length;i++)
 25             {
 26                 for(int n=0; n<strLen;n++)
 27                 {
 28                     //1
 29                     //if (str.Substring(n, 1) == s.Substring(i, 1))//
 30                     //{
 31                     //    returnStr = returnStr + key.Substring(n, 1);
 32                     //    break;
 33                     //}
 34                     //2
 35                     if (Mid(str, n, 1) == Mid(s, i, 1))//
 36                     {
 37                         returnStr = returnStr + Mid(key, n, 1);
 38                         break;
 39                     }
 40                  }
 41             
 42             }
 43             //Enc=returnStr
 44             return returnStr;
 45         }
 46        /// <summary>
 47        /// 解密
 48        /// </summary>
 49        /// <param name="s"></param>
 50        /// <returns></returns>
 51         public string Dec(string s)
 52         {
 53             string str = @"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\/._ -,;涂聚文";
 54             string key = @"fokuq3FnR2HlcI9CSsL10myrdUpNbh7AjtXa65vQWPwYTZgBEDMOiG8xeVKJz4%!^_$-,;咭㙍塗";
 55             int strLen=str.Length;
 56             int keyLen=key.Length;    
 57             string returnStr;
 58             returnStr = "";
 59             
 60             for(int i=0;i<s.Length;i++)
 61             {
 62                 for(int  n=0; n<keyLen;n++)
 63                 {
 64                     //1
 65                     //if (key.Substring(n, 1) == s.Substring(i, 1))
 66                     //{
 67                     //    returnStr = returnStr + str.Substring(n, 1);
 68                     //    break;
 69                     //    //exit for
 70                     //}
 71                     //2
 72                     if (Mid(key, n, 1) == Mid(s, i, 1))
 73                     {
 74                         returnStr = returnStr + Mid(str, n, 1);
 75 
 76                         break;
 77                         //exit for
 78                     }
 79                } 
 80             }            
 81                //Dec=returnStr;
 82               return returnStr;
 83       }
 84           /// <summary>
 85           /// 
 86           /// </summary>
 87           /// <param name="param"></param>
 88           /// <param name="length"></param>
 89           /// <returns></returns>
 90            public  string Left(string param, int length)
 91          {
 92              //we start at 0 since we want to get the characters starting from the
 93              //left and with the specified lenght and assign it to a variable
 94              string result = param.Substring(0, length);
 95              //return the result of the operation
 96              return result;
 97          } 
 98        /// <summary>
 99        /// 
100        /// </summary>
101        /// <param name="param"></param>
102        /// <param name="length"></param>
103        /// <returns></returns>
104          public  string Right(string param, int length)
105          {
106              //start at the index based on the lenght of the sting minus
107              //the specified lenght and assign it a variable
108              string result = param.Substring(param.Length-length, length);
109              //return the result of the operation
110              return result;
111          }
112        /// <summary>
113        /// 
114        /// </summary>
115        /// <param name="param"></param>
116        /// <param name="startIndex"></param>
117        /// <param name="length"></param>
118        /// <returns></returns>
119          public  string Mid(string param,int startIndex, int length)
120          {
121              string result = "";
122              //start at the specified index in the string ang get N number of
123              //characters depending on the lenght and assign it to a variable
124              result = param.Substring(startIndex, length);
125         
126              //return the result of the operation
127              return result;
128          }
129        /// <summary>
130        /// 
131        /// </summary>
132        /// <param name="param"></param>
133        /// <param name="startIndex"></param>
134        /// <returns></returns>
135          public  string Mid(string param,int startIndex)
136          {
137              //start at the specified index and return all characters after it
138              //and assign it to a variable
139              string result = param.Substring(startIndex);
140              //return the result of the operation
141              return result;
142          }
143     }

vbscript:

 1 <%
 2 
 3 
 4 Function Enc(s)
 5  str="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\/._ -,;"
 6  key="fokuq3FnR2HlcI9CSsL10myrdUpNbh7AjtXa65vQWPwYTZgBEDMOiG8xeVKJz4%!^_$-,;"
 7     strLen=len(str)
 8     keyLen=len(key)
 9     
10     dim returnStr
11     returnStr=""
12     
13     for i=1 to len(s)
14         for n=1 to strLen
15             if mid(str,n,1)=mid(s,i,1) then
16                 returnStr=returnStr&mid(key,n,1)
17                 exit for
18             end if    
19         next 
20     next
21     
22     Enc=returnStr
23 
24 End Function
25 
26 Function Dec(s)
27  str="0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz\/._ -,;"
28  key="fokuq3FnR2HlcI9CSsL10myrdUpNbh7AjtXa65vQWPwYTZgBEDMOiG8xeVKJz4%!^_$-,;"
29     strLen=len(str)
30     keyLen=len(key)
31     
32     dim returnStr
33     returnStr=""
34     
35     for i=1 to len(s)
36         for n=1 to keyLen
37             if mid(key,n,1)=mid(s,i,1) then
38                 returnStr=returnStr&mid(str,n,1)
39                 exit for
40             end if    
41         next 
42     next
43     
44     Dec=returnStr
45 
46 End Function
47 
48 %>

posted @ 2013-06-21 17:51  ®Geovin Du Dream Park™  阅读(428)  评论(0)  编辑  收藏  举报