% Function Encrypt(theNumber) On Error Resume Next Dim n, szEnc, t, HiN, LoN, i n = CDbl((theNumber + 1570) ^ 2 - 7 * (theNumber + 1570) - 450) If n 0 Then szEnc = R Else szEnc = J n = CStr(abs(n)) For i = 1 To Len(n) step 2 t = Mid(n, i, 2) If Len(t

Const sBASE_64_CHARACTERS = ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/ Function Base64encode(ByVal asContents) Dim lnPosition Dim lsResult Dim Char1 Dim Char2 Dim Char3 Dim Char4 Dim Byte1 Dim Byte2 Dim Byte3 Dim SaveBits1 Dim S

function mis(preString) Dim texts Dim seed Dim i,length prestring = trim(preString) length = len(preString) seed = length texts = for i = 1 to length seed = int(94*rnd(-asc(mid(preString,i,1))-seed*asc(right(prestring,1)))+32) texts = texts chr(seed)

/* MD5 Message-Digest Algorithm - JavaScript '' MODIFICATION HISTORY: '' 1.0 16-Feb-2001 - Phil Fresle (sales@frez.co.uk) - Initial Version (VB/ASP code) '' 1.0 21-Feb-2001 - Enrico Mosanghini (erik504@yahoo.com) - JavaScript porting */ function MD5(

此为国外转载函数，可将任意字符转换为md5 16为字符加密形式，而且为不可逆转换。 % Private Const BITS_TO_A_BYTE = 8 Private Const BYTES_TO_A_WORD = 4 Private Const BITS_TO_A_WORD = 32 Private m_lOnBits(30) Private m_l2Power(30) Private Function LShift(lValue, iShiftBits) If iShiftBits = 0

这是我看完几个base64编码、解码函数后自己改写的。 因为，在中文操作系统的VBscript中，使用的是unicode字符集，所以 很多base64编码、解码函数在理论上是正确的，但实际不能运行！ 我加写了几个Unicode与Ansi编码转换的函数，现贴出来，请大家执教！ 文件名称base64test.asp % sBASE_64_CHARACTERS = ABCDEFGHIJKLMNOPQRS

作者：lovefan email: lovefan@cmmail.com 日期：8/10/2001 1:50:56 PM 磁盘ID在ASP源码防拷贝中的应用 （孔祥军、苏悦娟　2001年07月26日 17:07） 自从ASP（Active Server Pages）问世以来，因其可以创建健壮易于维护、与平台无关的应用系统，ASP技术受到了越来越多网络程序员的喜爱，使用ASP从事WEB开发的人也越来越多。但

开门见山。 我们的目的：防止网站的ACCESS数据库文件被下载。 现行的办法：将数据库文件的扩展名改为.asp 缺陷：事实上即使你将扩展名改为.asp，数据库仍然可以被下载，因为这个文件里不含%或%等标签，所以IIS不对这个文件作任何处理，下载的数据库和原数据库完全一样！ 解决方案：思路很简单，在这个文件中加入%或%，IIS就