只有一個方法，使用的時候很簡單，比如要加密就這樣endecode("data",1234) 解密的時候還是這樣endecode("data",1234)。很簡單的。 代碼： public class encryption public function endecode(byval source as string, byval key as integer) as string dim x as single dim intcharnumber as integer dim shtradint as short dim strchar as string dim strtmp as string if key < 0 then key = key * (-1) end if x = rnd(-key) dim i as integer for i = 1 to len(source) step 1 strchar = mid(source, i, 1) intcharnumber = asc(strchar) whileencode: shtradint = int(127 * rnd()) if shtradint < 30 or shtradint > 100 then goto whileencode intcharnumber = intcharnumber xor shtradint strtmp = strtmp & chr(intcharnumber) next i endecode = strtmp exit function end function end class
