加密处理使密码更安全[CFS编码加密

• 
  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 = 20 To Len(NewCode) - 18 Step 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
  %>

  （出处：网侠）

• 上一页 [1] [2] 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• 加密处理使密码更安全[CFS编码加密 相关文章：
• 加密处理使密码更安全[CFS编码加密 相关软件

上一篇:简单加密解密原形

下一篇:加固NT和IIS的安全 《转》

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com

精品推荐

热点TOP10

特别推荐