CFS Encoded Cryptographic Library

Encryption <%
'********************************************************************************
'**
' *cfs Encode function*
'**
' *produced by asp-zone*
'**
' *main website is located at*
' *http://asp.diy.com.tw/*
'**
' *e-mail:*
' *thiefghost@games.com.tw*
'**
' *use this function:*
' *<!--#include file= "Codefun.fun"-->*
'**
' *2001/8/3*
'**
'********************************************************************************

' Encode Function
Function Cfsencode (CODESTR)

Dim Codelen
Dim Codespace
Dim Newcode

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
For CECB = 1 to Codelen
Been = Codelen + ASC (Mid (codestr,cecb,1)) * CECB
Newcode = Newcode * Been
Next

Codestr = Newcode
Newcode = Empty

For CEC = 1 to Len (CODESTR)
Newcode = Newcode & Cfscode (Mid (codestr,cec,3))
Next

For CEC = to Len (newcode)-2
Cfsencode = Cfsencode & Mid (newcode,cec,1)
Next

End Function


Function Cfscode (Word)
for cc = 1 to Len (Word)
Cfscode = Cfscode & Asc (Mid (word,cc,1))
Next
Cfscode = Hex (Cfscode)
End Function

%>