给出几个vb对字符串加密,然后可以解密还原的代码吧，急用-CSDN论坛

给出几个vb对字符串加密,然后可以解密还原的代码吧，急用

VB > VB基础类

收藏回复

[问题点数：100分，结帖人ysotn]

⋅用DBCC CHECKDB('dbddss', REPAIR_ALLOW_DATA_LOSS)做数据库修复,已经过了2个小时还没有完成?! ⋅问一下google桌面搜索所产生的索引文件放在哪里，会占用多大硬盘空间 ⋅SHFileExists总是返回0（文件不存在），怎么回事，帮忙看一下 更多帖子 关注私信空间博客 ysotn 等级 本版专家分：65 结帖率 100%: 着急啊

2004-04-12 11:35:20

点赞只看楼主引用举报楼主收起

展开阅读全文

⋅请问做一栋楼及里面房间的虚拟现实效果，用什么游戏框架比较简单？ ⋅哪位有PUDN的账号，麻烦帮忙下载个文件 ⋅帖子没人回复，只能损失全部分数按无满意答案结贴？ 更多帖子 关注私信空间博客 cpio 等级 本版专家分：1297: 著名的RSA算法啊，可以加密，解密

2004-04-12 11:46:03

点赞只看TA 引用举报 #1得分 0

⋅升 ★ 了高兴ing 散分！谢谢大家 ⋅★ ★ ★ ★ ★ ★ IMU即时通 ★ ★ ★ ★ ★ ★ ★ ⋅【★★★ 超NB的小游戏，你有时间话，试试 ★★★】 更多帖子 关注私信空间博客 高高兴兴的晶晶 等级 本版专家分：8048: 记得好像是斑竹的

'字符串加密、解密函数

Public Sub Cipher(ByVal password As String, ByVal from_text As String, to_text As String)'password为密钥，from_text为原始文本，to_text为加密后文本
Const MIN_ASC = 32  ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

Dim offset As Long
Dim str_len As Integer
Dim i As Integer
Dim ch As Integer


    offset = NumericPassword(password)
    Rnd -1
    Randomize offset


    str_len = Len(from_text)
    For i = 1 To str_len
        ch = Asc(Mid$(from_text, 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
            to_text = to_text & Chr$(ch)
        End If
    Next i
End Sub

Public Sub Decipher(ByVal password As String, ByVal from_text As String, to_text As String)
Const MIN_ASC = 32  ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

Dim offset As Long
Dim str_len As Integer
Dim i As Integer
Dim ch As Integer


    offset = NumericPassword(password)
    Rnd -1
    Randomize offset


    str_len = Len(from_text)
    For i = 1 To str_len
        ch = Asc(Mid$(from_text, 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)
            If ch < 0 Then ch = ch + NUM_ASC
            ch = ch + MIN_ASC
            to_text = to_text & Chr$(ch)
        End If
    Next i
End Sub

Public Function NumericPassword(ByVal password As String) As Long
Dim value As Long
Dim ch As Long
Dim shift1 As Long
Dim shift2 As Long
Dim i As Integer
Dim str_len As Integer

    str_len = Len(password)
    For i = 1 To str_len

        ch = Asc(Mid$(password, i, 1))
        value = value Xor (ch * 2 ^ shift1)
        value = value Xor (ch * 2 ^ shift2)


        shift1 = (shift1 + 7) Mod 19
        shift2 = (shift2 + 13) Mod 23
    Next i
    NumericPassword = value
End Function

2004-04-12 11:48:02

点赞只看TA 引用举报 #2得分 80

⋅升 ★ 了高兴ing 散分！谢谢大家 ⋅★ ★ ★ ★ ★ ★ IMU即时通 ★ ★ ★ ★ ★ ★ ★ ⋅【★★★ 超NB的小游戏，你有时间话，试试 ★★★】 更多帖子 关注私信空间博客 高高兴兴的晶晶 等级 本版专家分：8048: 这个记不得是谁的了  ^_^   反正能用就行

Option Explicit
Const MIN_ASC = 32  ' Space.
Const MAX_ASC = 126 ' ~.
Const NUM_ASC = MAX_ASC - MIN_ASC + 1

'***************************************************
'   Encipher the text using the pasword.
'   此函数的作用为加密字符串
'   from_text：欲加密的字符串
'   PassWord：密匙
'***************************************************
Public Function strEncrypt(ByVal from_text As String, ByVal password As String) As String
Dim offset As Long
Dim str_len As Integer
Dim I As Integer
Dim ch As Integer

    ' Initialize the random number generator.
    offset = NumericPassword(password)
    Rnd -1
    Randomize offset

    ' Encipher the string.
    str_len = Len(from_text)
    For I = 1 To str_len
        ch = Asc(Mid$(from_text, 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
            strEncrypt = strEncrypt & Chr$(ch)
        End If
    Next I
End Function

' Encipher the text using the pasword.
Public Function DeStrEncrypt(ByVal from_text As String, ByVal password As String) As String

Dim offset As Long
Dim str_len As Integer
Dim I As Integer
Dim ch As Integer

    ' Initialize the random number generator.
    offset = NumericPassword(password)
    Rnd -1
    Randomize offset

    ' Encipher the string.
    str_len = Len(from_text)
    For I = 1 To str_len
        ch = Asc(Mid$(from_text, 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)
            If ch < 0 Then ch = ch + NUM_ASC
            ch = ch + MIN_ASC
            DeStrEncrypt = DeStrEncrypt & Chr$(ch)
        End If
    Next I
End Function

2004-04-12 11:49:00

点赞只看TA 引用举报 #3得分 20

⋅用DBCC CHECKDB('dbddss', REPAIR_ALLOW_DATA_LOSS)做数据库修复,已经过了2个小时还没有完成?! ⋅问一下google桌面搜索所产生的索引文件放在哪里，会占用多大硬盘空间 ⋅SHFileExists总是返回0（文件不存在），怎么回事，帮忙看一下 更多帖子 关注私信空间博客 ysotn 等级 本版专家分：65: 我先试试

2004-04-12 11:59:20

点赞只看TA 引用举报 #4得分 0

⋅【原】Byte()数组的合成和还原。 ⋅[原]VB.NET常用的哈希算法集差不多30种. ⋅请问各位有没有防火墙IP黑色单白名单的开源代码.NET里能调用的或提供API的. 更多帖子 关注私信空间博客 版主 华芸智森 等级 本版专家分：29362 勋章 红花 2004年4月 VB大版内专家分月排行榜第一 2004年3月 VB大版内专家分月排行榜第一: '加密 txtText.Text = Crypt(txtText.Text, txtPassword.Text)
'解密 txtText.Text = DeCrypt(txtText.Text, txtPassword.Text)

Public SetupUser As SetupMax
Public FolderSetup(1 To 3) As String

'加
Public Function Crypt(texti, salasana) As String

    On Error Resume Next
    For T = 1 To Len(salasana)
        sana = Asc(Mid(salasana, T, 1))
        X1 = X1 + sana
    Next
    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0
    For TT = 1 To Len(texti)
        sana = Asc(Mid(texti, TT, 1))
        G = G + 1
        If G = 6 Then G = 0
        X1 = 0
        If G = 0 Then X1 = sana - (salasana - 2)

        If G = 1 Then X1 = sana + (salasana - 5)

        If G = 2 Then X1 = sana - (salasana - 4)

        If G = 3 Then X1 = sana + (salasana - 2)

        If G = 4 Then X1 = sana - (salasana - 3)

        If G = 5 Then X1 = sana + (salasana - 5)
        X1 = X1 + G
        Crypted = Crypted & Chr(X1)
    Next
    Crypt = Crypted
End Function

'解
Public Function DeCrypt(texti, salasana) As String

    On Error Resume Next

    For T = 1 To Len(salasana)
        sana = Asc(Mid(salasana, T, 1))
        X1 = X1 + sana
    Next

    X1 = Int((X1 * 0.1) / 6)
    salasana = X1
    G = 0

    For TT = 1 To Len(texti)
        sana = Asc(Mid(texti, TT, 1))
        G = G + 1

        If G = 6 Then G = 0
        X1 = 0

        If G = 0 Then X1 = sana + (salasana - 2)

        If G = 1 Then X1 = sana - (salasana - 5)

        If G = 2 Then X1 = sana + (salasana - 4)

        If G = 3 Then X1 = sana - (salasana - 2)

        If G = 4 Then X1 = sana + (salasana - 3)

        If G = 5 Then X1 = sana - (salasana - 5)
        X1 = X1 - G
        DeCrypted = DeCrypted & Chr(X1)
    Next


    DeCrypt = DeCrypted
End Function

2004-04-12 12:09:05

点赞只看TA 引用举报 #5得分 0

⋅求：vc 6.0专业版 ⋅redhat 9.0 屏幕保护后不能远程登录。 ⋅jboss 安装出现繁体 更多帖子 关注私信空间博客 dazui 等级 本版专家分：3: up

2004-07-10 13:06:58

点赞只看TA 引用举报 #6得分 0

收起

收藏回复

ysotn

等级：

关注私信 TA的帖子

简单好用的VB字符串加密解密函数: Private Function Encrypt(ByVal StrSource As String) As String 加密 Dim BLowData As Byte Dim BHigData As Byte Dim i As Long Dim k As Integer Dim StrEncrypt As String Dim

vbs表白代码+整人代码，抖音vbscript表白代码: 步骤二：将以下代码复制过去（中文可以改） const title = “爱情测试” const yourname = “嫦娥” const question = “你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。” const info = “你在说谎！不要...

C语言: C语言 42.C语言是一种计算机高级语言。 43.C语言允许直接访问物理地址，能进行...48.C程序书写格式，允许一行内可以写几个语句 49.C程序的语句无行号 50.C语言的每个语句的最后必须有一个分号 51.C语言本身没有输入...

VB6的一个字符加密、解密的函数: 原来这个是delphi的、我翻译了一下、我感觉还是不错的、唯一的问题是不支持中文、不过没关系、反正我从来我对中文字符串加密的、加密函数 Private Function EncrypStr(ByVal Src As String...

C#实现字符串RSA加密与解密算法: 利用C#的加密库，实现RSA加密算法还是很容易的，因为我只是初步了解这个加密... RSA加密也很复杂，把几位数加密后，变成了很大的字符串（一般为十六进制字符串），当然也可以使用BASE64处理一下，因为加密后的数值，

VB.NET 的 DES 加密与解密(转载于nofort博客): MD5和SHA的加密方式都是单向的，就算是我写的程序用户的密码...DES要求两个关健数据一个是key（密钥）一个是初始化向量（IV）只要这两个数据一致就可以还原出原来的数据，为了方便还是写成函数 TripleDES算法基本上DE

数据库连接字符串的处理方法！加密解密连接字符串。: 加密解密连接字符串。标签：数据库加密解密dllvb.netstring 2006-03-04 09:37 6938人阅读评论(1) 收藏举报分类：数据访问层（8）版权声明：本文为博主原创文章，未经博主允许不得...

VB字符串处理大全: 1 VBA中的字符串 2 VBA中处理字符串的函数 2.1 比较字符串 2.2 转换字符串 2.3 创建字符串 2.4 获取字符串的长度 2.5 格式化字符串 2.6 查找字符串 2.7 提取字符/字符串 2.8 删除空格 2.9 返回...

C#基础教程-c#实例教程，适合初学者: C#基础教程-c#实例教程，适合初学者。第一章 C#语言基础本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。...

VB6.0 比较两个字符串是否相同（equals）: 回到正题：需求：比较两个字符串是否相同这在C#或java中就是一句Equals，不过VB6语法中没有提供Equals，可用的方法之一如下： If StrComp(str, "mz", 1) = 0 Then //... End If 用的是StrComp函数，如果结果...

VB6查找某个字符出现个数的两种方法: split方法这个函数是用某个字符把一个字符串分割成数组。...就可以写出下面的代码： Dim s As String s = "1.56.4324.5.." Dim arr arr = Split(s, ".") Print s & "中...

VB.NET解析json字符串: 如下，要解析的字符串： JsonStr = "{""desc"":""成功"",""dataa"":{""maxPage"":43522,""ppiUsername"&...

vb.net DES加密与解密: vb.net DES加密与解密

vb.net按式样比较字符串: [charlist] 字符列表中的单个字符 [!charlist] 非字符列表中的单个字符举例： “#123” LIke “#23” True （但是“#23” LIke “#123” False） “Hello” Like “H?llo” True “Hello” Like “H*” True “X” ...

vb.net学习笔记--字符串的截取、移除、替换、插入: .NET string字符串的截取、移除、替换、插入 string b = TextBox1.Text; 截取 ////截取前两位 123a4a4b5b6 12 //string c = b.Substring(0, 2); //TextBox1.Text = c; ////截取后两位...

VB编程：Val字符串转数字，CStr数字转字符串-6: 效果显示： Private Sub Text1_Change() Text2.Text = CStr(Text1.Text) '转字符串 ...1、Val()函数，字符串转为数字，从左到右依次转换，遇到非数字字符为止，必要时可以使用CDbl()； 2、CSt...

车牌识别系统源代码: 　本公司主要从事车牌识别算法开发，在车牌识别这行有一定知名度，有成熟的标清车牌识别源代码出售，并附源代码文档说明及VC++、BCB、VB、Delphi、C#等开发包。在市场有五年应用成功案例，代码具有极高商业价值。 ...

VB字符串处理函数一览: mid(字符串，从第几个开始，长度) ByRef 在[字符串]中[从第几个开始]取出[长度个字符串] 例如 mid("小欣无敌",1,3) 则返回 "小欣无" instr(从第几个开始,字符串1,字符串2) ByVal 从规定的位置开始查找...

VB字符串拼接: 拼接字符串用VB做也是很简单的。比如把字符串“你好”和字符串“吗？”拼接起来： dim a,b dim c a="你好" b="吗？" c=a+b 这样，str里面的值就是“你好吗？”。以上是字符串的拼接。如果不做说明，...

VB定义字符串数组并赋值: EOF：指当前记录位置位于Recordset对象的最后一个记录之后。

C# 加减乘除计算器: 我在动手做这个计算器之前和大多数人都有着一样的观点：不就是一个计算器吗？这能有多难啊?（眼高手低十分不屑.jpg）然而等到自己真正动手做起来的时候就会发现其实做一个计算器并没有想象中的那么简单。下面这张...

vb.net 截取字符串: Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim str As String = _ ... ' 1 2345 6 string count of vb6 ...

VB中使用MD5对字符串加密: 1、在VB工程中添加类模块。“Project”-> “Add Class Module”。2、类模块源码如下：Option Explicit Visual Basic MD5 Implementation Robert Hubley and David Midkiff (mdj2023@hotmail.com) modify by ...

vb加密函数，可加密中文，有密码: 求大神帮忙加密函数要求可加密中文而且可根据给定的密码加密加密(要加密的字符串，密码) 然后密码不同，加密后的就不同谢谢了

VB编程：统计字符个数-52: 程序源代码： Private Sub Command1_Click() '*****************清空************ Label4.Caption = "" Label6.Caption = "" Label8.Caption = "" Label10.Caption =...

字符串加密类 vb.net: Imports Microsoft.VisualBasicImports System.Security.CryptographyPublic Class MD5Class MD5 MD5加密方法 Function Shared()Function Shared MD5Encrypt(ByVal PasswordString As String) As ...

VB字符串中包含双引号处理: 字符串中包含双引号在字符串处理时，如果字符串变量必须有引号，怎么处理呢？如 theStr = [MyName =“schunter”Class =“2”] 如何将此字符串显示出来呢？很多初学者肯定使用了C / C ++的方法，“”“或者”...

VB.NET取得字符串中所有的数字: VB.NET取得字符串中所有的数字： 1.用正则表达式：

VB6 字符串和16进制互转换: 自己写的两个函数，用于字符串和16进制互转换的，支持中文转换，中文编码写入IC卡非常方便 Public Function StrToHex(ByVal strS As String) As String '将字符串转换为16进制 Dim abytS() As Byte Dim ...

vb.net 字符串操作函数（数字转字符串去掉空格的方法）: Len Len(string|varname) 返回字符串内字符的数目，或是存储一变量所需的字节数。 Trim Trim(string) 将字符串前后的空格去掉 Ltrim Ltrim(string) 将字符串前面的空格去掉 Rtrim Rtrim(string) 将字符...

相关热词 c# 组合类表框 c# 数组过滤 c# 重载和重写实例 c#.net制作窗口 c# 括号内正则表达式 c# 文件转对象 c# 并发对列 c# 释放list内存 c# mongo 驱动 c# 动态绘制任务栏图标