|
![]() |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
unction encrypt(ecode) Dim texts dim i for i=1 to len(ecode) texts=texts & chr(asc(mid(ecode,i,1))+i) next encrypt = texts end function function decrypt(dcode) dim texts dim i for i=1 to len(dcode) texts=texts & chr(asc(mid(dcode,i,1))-i) next decrypt=texts end function function mistake(preString) Dim texts Dim seed Dim i,length prestring = trim(preString) length = len(preString) seed = length Randomize(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) & chr(int(94*rnd(-seed)+32)) next dim dist dist="" for i = 1 to len(texts) if mid(texts,i,1)<>"\\\'" then dist=dist+mid(texts,i,1) end if next mistake = dist end function 返回类别: 教程 上一教程: 生成指定长度的随机字符串 下一教程: 用ASP、VB和XML建立互联网应用程序(4) 您可以阅读与"ASP可逆算法"相关的教程: · MD5不可逆加密算法的ASP实现实例 · 使用ASP加密算法加密你的数据 · 使用ASP加密算法加密你的数据(一) · 使用ASP加密算法加密你的数据(一) · 身份证校验算法与ASP程序 |
![]() ![]() |
快精灵印艺坊 版权所有 |
首页![]() ![]() ![]() ![]() ![]() ![]() ![]() |