CFS 编码加密

Ulysses · 2006-03-26

MD5 用腻了？换个花样试试看。

我们平时最常用加密方法就是md5了,由于它的普遍流行md5解密软件层出不穷,现在给另一种CFS编码加密方法.TSYS也是采用CFS的加密的.

CfsEnCode.asp

代码:

<%
'********************************************************************************
'* CFS Encode Function *
'* Produced by ASP-Zone Edited by Aspid qinigs *
'* Main website is located at *
'* http://asp.diy.com.tw/,http://www.aspid.cn/ *
'* E-MAIL: *
'* [email protected],qingis#hotmail.com *
'* Use this function: *
'* <!--#include file="cfsCodefun.fun" --> *
'* 2006/3/26 *
'********************************************************************************

'Encode Function
Function CfsEnCode(CodeStr)

Dim CodeLen
Dim CodeSpace
Dim NewCode
Dim cecr
CodeLen = 30
CodeSpace = CodeLen - Len(CodeStr)

If Not CodeSpace < 1 Then
  For cecr = 1 To CodeSpace
  CodeStr = CodeStr & Chr(21)
  Next
End If

NewCode = 1

Dim Been
Dim cecb
For cecb = 1 To CodeLen
Been = CodeLen + Asc(Mid(CodeStr,cecb,1)) * cecb
NewCode = NewCode * Been
Next

CodeStr = NewCode
NewCode = Empty

Dim cec
For cec = 1 To Len(CodeStr)
NewCode = NewCode & CfsCode(Mid(CodeStr,cec,3))
Next

For cec = 20 To Len(NewCode) - 18 Step 2
CfsEnCode = CfsEnCode & Mid(NewCode,cec,1)
Next

End Function

Function CfsCode(Word)
Dim cc
For cc = 1 To Len(Word)
CfsCode = CfsCode & Asc(Mid(Word,cc,1))
Next
CfsCode = Hex(CfsCode)
End Function

%>

使用示例.

代码:

<!--#include file="CfsEnCode.asp" -->
<%
Dim SourceDim
Var1Source = "aspid"
Var1 = CfsEncode(Source)
Response.Write Var1
%>

输出的结果就是:A5176855768898427B81003799C881,你运行查看一下是否匹配,如果一样就表示你的CFS加密成功.

如果是把密码加密再存入数据库,只要使用CfsEncode(pwd)可以了.

代码:

 Rs.AddNew
 Rs("Pwd")= CfsEnCode(Pwd)
 Rs.Update
 Rs.Close
 Set Rs=Nothing

或是登陆时的验证调用也是如此.

代码:

 Pwd=Replace(Trim(CfsEnCode(Request("Pwd")))

点击展开...

shu_yu · 2006-03-28

谢谢分享

论坛

CFS 编码加密

Ulysses New Member

shu_yu New Member

快捷检索

CFS 编码加密

Ulysses New Member

shu_yu New Member