[原创]分享.net版CFS加密算法

最新推荐文章于 2026-09-03 23:00:15 发布

原创最新推荐文章于 2026-09-03 23:00:15 发布 · 893 阅读

0 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

博客展示了一段.NET 代码，定义了 CfsCode 类，包含 Cfs 和 CfsCode 两个函数。Cfs 函数对输入字符串进行处理，通过一系列计算和循环操作生成新字符串；CfsCode 函数将输入转换为 ASCII 码并转为十六进制。整体实现了加密相关功能。

Public Class CfsCode

Function Cfs(CodeStr) as string
Dim CodeLen as integer = 32
Dim CodeSpace as long
Dim cecr as integer
Dim cecb as integer
Dim cec as integer
Dim NewCode as Double = 1
Dim CfsStr as string = ""

CodeSpace = CodeLen - Len(CodeStr)

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

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

CodeStr = Ctype(NewCode,String)
Dim NewCode1 as string = ""

For cec = 1 To Len(CodeStr)
NewCode1 += CfsCode(Mid(CodeStr,cec,3))
Next

For cec = 20 To Len(NewCode1) - 18 Step 2
CfsStr += Mid(NewCode1,cec,1)
Next
Return CfsStr
End Function

Private Function CfsCode(Word) as string
Dim CfsCodeStr as string
Dim cc as integer
For cc = 1 To Len(Word)
CfsCodeStr = CfsCodeStr & Ctype(Asc(Mid(Word,cc,1)),string)
Next
CfsCodeStr = Hex(CfsCodeStr)
Return CfsCodeStr
End Function

End Class

标签