VB 加密解密程序

转载 2006年05月18日 18:47:00

' 加密解密程序
'
'
'---------------------------------------------------------------------------------------------------------------
Function cipher(stext As String)    '密码加密程序
    Const min_asc = 32
    Const max_asc = 126
    Const num_asc = max_asc - min_asc + 1
    Dim offset As Long
    Dim strlen As Integer
    Dim i As Integer
    Dim ch As Integer
    Dim ptext As String
    offset = 123
    Rnd (-1)
    Randomize (offset)
    strlen = Len(stext)
    For i = 1 To strlen
       ch = Asc(Mid(stext, i, 1))
       If ch >= min_asc And ch <= max_asc Then
           ch = ch - min_asc
           offset = Int((num_asc + 1) * Rnd())
           ch = ((ch + offset) Mod num_asc)
           ch = ch + min_asc
           ptext = ptext & Chr(ch)
       End If
    Next i
    cipher = ptext
End Function

Function decipher(stext As String)      '密码解密程序
    Const min_asc = 32  '最小ASCII码
    Const max_asc = 126 '最大ASCII码  字符
    Const num_asc = max_asc - min_asc + 1
    Dim offset As Long
    Dim strlen As Integer
    Dim i As Integer
    Dim ch As Integer
    Dim ptext As String
    offset = 123
    Rnd (-1)
    Randomize (offset)
    strlen = Len(stext)
    For i = 1 To strlen
       ch = Asc(Mid(stext, i, 1))  '取字母转变成ASCII码
       If ch >= min_asc And ch <= max_asc Then
           ch = ch - min_asc
           offset = Int((num_asc + 1) * Rnd())
           ch = ((ch - offset) Mod num_asc)
           If ch < 0 Then
               ch = ch + num_asc
           End If
           ch = ch + min_asc
           ptext = ptext & Chr(ch)
       End If
    Next i
    decipher = ptext
End Function

相关文章推荐

VB实现U盘加密解密程序

  • 2013年03月31日 14:58
  • 7KB
  • 下载

Android平台和java平台 DES加密解密互通程序及其不能互通的原因 .

网上的demo一搜一大堆,但是,基本上都是一知半解(包括我)。为什么呢?我在尝试分别在两个平台加密的时候,竟然发现Android DES 加密和java DES加密的程序不能互通。就是加密的结果不一样...

Android平台和java平台 DES加密解密互通程序及其不能互通的原因

网上的demo一搜一大堆,但是,基本上都是一知半解(包括我)。为什么呢?我在尝试分别在两个平台加密的时候,竟然发现Android DES 加密和java DES加密的程序不能互通。就是加密的结果不一样...

加密解密小工具(C#,VB示例)

  • 2008年09月01日 15:41
  • 16KB
  • 下载

VB AES加密解密类

  • 2013年03月13日 20:01
  • 134KB
  • 下载

ASP程序加密解密方法全面解析

目前对ASP程序的加密方法主要有三种:脚本编码器(SRCENC.EXE)加密、组件加密、自编程序加密,下面我们就来展开介绍这三种加密方法……   如今,用ASP技术构建的网站随处可见。由于ASP...
  • ymuyou
  • ymuyou
  • 2012年02月14日 13:16
  • 241

VB加密解密及压缩代码

  • 2008年05月30日 17:05
  • 331KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 加密解密程序
举报原因:
原因补充:

(最多只允许输入30个字)