|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
缺点:正版成本价格贵(盗版就不说了)、不够安全,大多数服务器用windows系统,没有linux安全加密<%
********************************************************************************
**
*CFSEncodeFunction*
**
*ProducedbyASP-Zone*
**
*Mainwebsiteislocatedat*
*http://asp.diy.com.tw/*
**
*E-MAIL:*
*thiefghost@games.com.tw*
**
*Usethisfunction:*
*<!--#includefile="Codefun.fun"-->*
**
*2001/8/3*
**
********************************************************************************
EncodeFunction
FunctionCfsEnCode(CodeStr)
DimCodeLen
DimCodeSpace
DimNewCode
CodeLen=30
CodeSpace=CodeLen-Len(CodeStr)
IfNotCodeSpace<1Then
Forcecr=1ToCodeSpace
CodeStr=CodeStr&Chr(21)
Next
EndIf
NewCode=1
DimBeen
Forcecb=1ToCodeLen
Been=CodeLen+Asc(Mid(CodeStr,cecb,1))*cecb
NewCode=NewCode*Been
Next
CodeStr=NewCode
NewCode=Empty
Forcec=1ToLen(CodeStr)
NewCode=NewCode&CfsCode(Mid(CodeStr,cec,3))
Next
Forcec=20ToLen(NewCode)-18Step2
CfsEnCode=CfsEnCode&Mid(NewCode,cec,1)
Next
EndFunction
FunctionCfsCode(Word)
Forcc=1ToLen(Word)
CfsCode=CfsCode&Asc(Mid(Word,cc,1))
Next
CfsCode=Hex(CfsCode)
EndFunction
%>
想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的 |
|