Csharp and Vbscript: Encryption/Decryption Functional

                DecEncClass
     {
                               Enc( s)
         {
        
               str=;
               key = ;
               strLen=str.Length;
               keyLen=key.Length;    
               returnStr;
              returnStr=;
     
             ( i=; i<s.Length;i++)
             {
                 ( n=; n<strLen;n++)
                 {
                                                        (Mid(str, n, ) == Mid(s, i, ))                      {
                         returnStr = returnStr + Mid(key, n, );
                         ;
                     }
                  }
             
             }
                            returnStr;
         }
                            Dec( s)
         {
              str = ;
              key = ;
              strLen=str.Length;
              keyLen=key.Length;    
              returnStr;
             returnStr = ;
             
             ( i=;i<s.Length;i++)
             {
                 (  n=; n<keyLen;n++)
                 {
                                                          (Mid(key, n, ) == Mid(s, i, ))
                     {
                         returnStr = returnStr + Mid(str, n, );
 
                         ;
                                               }
                } 
             }            
                                 returnStr;
       }
                                     Left( param,  length)
          {
                                result = param.Substring(, length);
                              result;
          } 
                                Right( param,  length)
          {
                                result = param.Substring(param.Length-length, length);
                              result;
          }
                                  Mid( param, startIndex,  length)
          {
               result = ;
                               result = param.Substring(startIndex, length);
         
                              result;
          }
                                Mid( param, startIndex)
          {
                                result = param.Substring(startIndex);
                              result;
          }
     }

vbscript:

 <%
 
 
  Enc(s)
  str=
  key=
     strLen=(str)
     keyLen=(key)
     
      returnStr
     returnStr=
     
      i=  (s)
          n=  strLen
              (str,n,)=(s,i,) 
                 returnStr=returnStr&(key,n,)
                  
                  
          
     
     
     Enc=returnStr
 
 
 
  Dec(s)
  str=
  key=
     strLen=(str)
     keyLen=(key)
     
      returnStr
     returnStr=
     
      i=  (s)
          n=  keyLen
              (key,n,)=(s,i,) 
                 returnStr=returnStr&(str,n,)
                  
                  
          
     
     
     Dec=returnStr
 
 
 
 %>