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设计的加密解密程序

  • 2011年05月15日 20:55
  • 6KB
  • 下载

VB编写无穷密码破解程序源码

  • 2008年11月22日 01:00
  • 68KB
  • 下载

VB程序破解

VB 程序简介   现在不少程序是用 VB 写的,你通过反汇编或跟踪调试时很容易鉴别某个程序是否为 VB 程序,VB 的 EXE 文件并不是真正的编译可执行文件,它们需其动态链接库才能正常运行,各版本...
  • vaststudio
  • vaststudio
  • 2005年03月19日 16:44
  • 7395

一个简单实用的 vb 加密/解密算法

Function UserCode(password As String) As String用户口令加密    Dim il_bit, il_x, il_y, il_z, il_len, i As ...
  • neil
  • neil
  • 2001年05月25日 12:05
  • 1452

VB加密解密源码

  • 2013年12月24日 16:05
  • 161KB
  • 下载

一个加密解密函数 for vb6.0!

= Name:         modPassword= Description:  This function for string encrypt= Author:       Super.Wan...
  • codeangel
  • codeangel
  • 2004年11月11日 14:32
  • 2681

VB加密解密及压缩代码

  • 2008年05月30日 17:05
  • 331KB
  • 下载

一个经典的vb加密解密源代码

  • 2011年05月10日 05:43
  • 90KB
  • 下载

VB 加密解密程序

加密解密程序---------------------------------------------------------------------------------------------...
  • boovo
  • boovo
  • 2006年05月18日 18:47
  • 1674

[VB.Net] 多语言文字加密器源码

  • 2014年02月03日 02:23
  • 27KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB 加密解密程序
举报原因:
原因补充:

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