VIP会员
作者:CSDN
出版社:CSDN《程序员》
ISBN:1111111111117
VIP会员免费
(仅需0.8元/天)
¥ 40000.0
温馨提示: 价值40000元的1000本电子书,VIP会员随意看哦!
电子书推荐
-
VB字符串加密与解密 评分:
VB字符串加密与解密...........
上传时间:2008-12 大小:3KB
- 2KB
VB字符串加密解密
2021-05-12摘要:VB源码,加密解密,字符串加密 VB字符串加密解密,形式简单,代码简洁,便于学习,输入需要加密的字符串后,点击“加密”即可,也可以点击“解密”还原。最后可以清屏。
- 3KB
VB加密解密字符串
2018-02-27Dim o Dim str as string Set o = CreateObject("MyEncrypt.DES") str = o.Encrypt("加密的明文", "8位数密匙(记住要用于解密)") str = o.Decrypt("解密的密文", "8位数密匙(加密时的密匙)")
- 2KB
字符串加密vb
2007-12-21字符串加密,简单算法实现字符串加密
- 3KB
VB 加密 解密字符串的例子
2011-01-12加密 解密字符串的例子加密 解密字符串的例子加密 解密字符串的例子加密 解密字符串的例子
- 36KB
VB源码--自定义数字&字符串加密工具
2014-01-08VB源码--自定义数字&字符串加密工具 --VB源码 加密 解密 字符串 源码 *************以下为窗口及控件代码************ Private Sub Command1_Click() Label3.Caption = cipher(Text1.Text, Text2.Text) Label8.Caption = "加密完成!" End Sub Private Sub Command2_Click() Label4.Caption = Decipher(Text4.Text, Text3.Text) Label9.Caption = "解密完成!" End Sub Private Sub Label3_Click() Text3.Text = Label3.Caption End Sub Private Sub Label3_DblClick() Clipboard.SetText Label3.Caption Label8.Caption = "复制成功!" End Sub Private Sub Label4_DblClick() Clipboard.SetText Label4.Caption Label9.Caption = "复制成功!" End Sub ************以下为模块代码*************** ' Encipher the text using the pasword.加密 Public Function cipher(ByVal password As String, ByVal from_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 Dim to_text As String ' 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 to_text = to_text & Chr$(ch) End If Next i cipher = to_text End Function ' Encipher the text using the pasword.解密 Public Function Decipher(ByVal password As String, ByVal from_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 Dim to_text As String ' 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 ***************** 省略部分代码(内详) ***************** If ch < 0 Then ch = ch + NUM_ASC ch = ch + MIN_ASC to_text = to_text & Chr$(ch) End If Next i Decipher = to_text End Function ' Translate a password into an offset value. Private 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 ' Add the next letter. ch = Asc(Mid$(password, i, 1)) ***************** 省略部分代码(内详) ***************** Next i NumericPassword = value End Function
- 56KB
VB.NET实现RSA加密算法,源代码
2011-05-20VB.NET实现的RSA加密算法,全部程序提供,VS2005环境下运行有效。生成有.exe格式
- 7KB
加密解密VB源码下载
2009-02-08加密解密VB源码 HD资源网提供 www.hd1204.com
- 48KB
几个著名算法的加密解密VB源码
2009-09-22这个加解密源码几乎包括了世界上几个最著名的加密算法:Blowfish、CryptAPI、DES、Gost、RC4、XOR、Skipjack、TEA、Twofish
- 11KB
VB对文本或字符加密、解密的示例.rar
2019-07-10一个简单实用的VB字符串加密、解密程序,可以是文本或字符,加密效果好,速度快,安全性高,而且代码易用易学,程序中还使用到了一个XP风格的进度条控件,VB新手朋友正好也可以研究一下进度条的使用。运行效果如演示截图所示。
- 24KB
VB6.0加密解密字符串
2010-12-28加密解密字符串.exe huanyin下载
- 10KB
VB做的加密解密程序
2008-11-06压缩包中有主程序和一个对应的码表,在主程序中狂点能把码表显示出来
- 481B
vb 简单字符串加密解密函数 避免乱码
2011-04-04加密解密密钥互为相反数,值不能过大,不然会出错,有不可打印字符
- 11KB
vb编写的加密解密代码
2009-07-07用vb编写的加密解密程序,非常不错,带源代码,方便学习..
- 331KB
VB加密解密及压缩代码
2008-05-30用VB做的加密解密和压缩解压的程序
- 3KB
vb下加密字符简单串示例
2009-02-01vb字符串简单加密示例vb字符串简单加密示例vb字符串简单加密示例vb字符串简单加密示例vb字符串简单加密示例
- 1KB
VB 加密解密,最高支持10位,可以自己添加
2009-10-02目前最高支持10位加密..可以自己在继续发挥..
- 98KB
EncodeDecode经典加密解密+VB源码.rar
2011-01-16EncodeDecode经典加密解密+VB源码.rarEncodeDecode经典加密解密+VB源码.rarEncodeDecode经典加密解密+VB源码.rarEncodeDecode经典加密解密+VB源码.rar
- 133KB
VB AES加密解密类
2013-03-13VB AES加密解密类模块 单独一个模块方便调用
- 185KB
VB-21种加密解密算法和54种压缩解压算法的源码
2013-05-06VB-21种加密解密算法 54种压缩解压算法的源码 好东西 收藏
- 29KB
VB6加密解密算法,支持文件加密解密
2011-06-19该程序是在VB6.0的基础上开发的,支持数据的加密和解密,还有可以对文件进行加密和解密。用户可以根据自己的密钥进行个性化的加密和解密。
- 6KB
vb写的base64加解密
2011-07-11可本地对base64编码的字符进行简单的加解密
- 18KB
RSA加密解密字符串
2018-12-08RSA加密算法是一种非对称加密算法,RSA加密解密字符串,VB.net实现。
- 23KB
VB6.0 RSA/AES/Md5/Base64加密 解密 微信小程序 javascript 通用
2021-01-08VB6.0 RSA/AES/Md5/Base64加密 解密 微信小程序 javascript 通用 仅demo实例!可先测试使用!
- 186KB
21种VB加密算法含解密源码集.rar
2019-07-1021种VB加密/解密算法源代码,另外还有50多种种压缩/解压算法源码,相信够你用了,觉得还不错吧,推荐给大家。
- 11.70MB
EXCEl VBA实例代码大全
2020-03-14很好很全的VBA代码,每个独立的Excel文件里都有代码,对初学者是一个非常好的参考 代码包含了VBA的各种应用,有助于参考学习
- 19KB
xlsx wps自定义下拉框模板
2022-09-06xlsx wps自定义下拉框模板
- 17.39MB
VBA代码助手专业版3.7.8.0
2022-06-05主要功能: VBA代码库收藏管理, VBA中文代码库输入提示, VBA变量名首字母输入提示 VBA函数过程输入提示, VBA代码自动对齐排版, VBA代码混淆, VBA工程密码破解, Excel VBA模块隐藏保护, VBA颜色修改器, VBA代码行号显示 亮点功能: 关键字+空格, 神键手输入提示,代码智能补齐 双击Tab代码对齐, ALT+L字符串拼接, SHIFT+ENTER自动换行,括号自动补齐,代码区中文标点符号自动矫正,窗体控件批量生成 ,变量名及函数名中文拼音首字母输入提示, 代码行号 适用环境 所有windows7以上系统的的VBA环境都可以 Excel VBA代码助手,word VBA代码助手,ppt VBA代码助手,Outlook VBA代码助手,Access VBA代码助手,AutoCad VBA代码助手....
- 0B
Visual Basic 6.0基础教程及示例
2022-11-17包括一下内容 - MSDN - VB初学者-附例子 - VB控件属性大全经典 - Visual Basic从入门到精通 - Visual Basic 6.0基础教程 - VisualBasic语言参考-函数速查 - Visual-C++-6.0从入门到提高(全500页)
- 6.89MB
基于VB6的颜色取色器
2024-03-22基于VB6的颜色取色器