问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

求VB对一串字符的加密解密程序 最简单的 高中学的那种

发布网友 发布时间:2022-09-27 23:08

我来回答

1个回答

热心网友 时间:2024-03-31 20:18

'图上的控件,你就照着摆上去,然后再把以下代码拷进去,就OK了
Dim lg As Integer
'加密
Private Sub Command1_Click()
Text2 = ""
Dim a(), b() As String
lg = Len(Text1)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text1, i, 1)
b(i) = AscW(a(i)) Xor 4
Text2 = Text2 & ChrW(b(i))
Next
End Sub
'解密
Private Sub Command2_Click()
Text3 = ""
Dim a(), b() As String
lg = Len(Text2)
ReDim a(lg), b(lg)
For i = 1 To lg
a(i) = Mid(Text2, i, 1)
b(i) = AscW(a(i)) Xor 4
Text3 = Text3 & ChrW(b(i))
Next
End Sub
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
想买红米但没银行卡 开美宜佳便利店是加盟好还是直接转一个美宜佳店好 ...就给你一个交易号,能到美宜佳付款,请问美宜佳是怎样付款的_百度知 ... 用美宜佳代购会不会看到我买的东西 重返帝国弓弩营对诸葛连弩有加成吗 重返帝国城市风格选什么好 重返帝国城市风格选择推荐 重返帝国城市风格怎么切换 重返帝国城市如何切换风格 重返帝国城市风格大全 特色兵种及增益介绍 重返帝国特殊兵种怎么生产-特殊兵种生产攻略 重返帝国怎么训练诸葛弩 做一个加密软件,要求在当前目录文件读取一串数据(整形或是字符串)然... 我想下一个软件,可以把电脑的相片,文件,或是音乐加锁的,有知道哪个软件... 荣耀70功能介绍 联想ThinkPadE550,今天刚拿去检修,格式化了硬盘,重装的是新版Win7的系 ... 求助,电脑thinkpad e550 除尘后无法开机 thinkpad e550 感觉开机以后就占45%了,有没有什么表达可以变大?可不... 频段n40N41哪个快 了解下大家的使用情况哦,目前加密工具哪个好使用点?到哪里下载啊_百度... 30/5的互感器一次匝匝数要求绕4匝,为什么 30/5的互感器绕几扎能达到电流10安 笔记本电脑耳机插上后扬声器还响 联想笔记本B490,BIOS选项成灰色,无法更改。求大神给解决办法?!!!(都... 笔记本温度过高 先生的联想B490s电脑硬件清灰步骤,最好有图例教程赐教! 《沉香如屑》应渊翻乌龟的原因 应渊君为什么要翻乌龟 为什么应渊要翻龟 《沉香如屑》应渊为什么每天都要去翻乌龟? 翻龟君为什么翻龟 应渊为什么老是翻乌龟 我想一个加密软件,输入5个字符,加密(++和--)后输出,但是出了问题_百度... 安卓距离手机QQ里生日还有几天怎么设置? 联想拯救者y7000怎么清理运行内存 手机ps 2假面骑士甲斗为什么会出现贴图错误? 电流互感器试验报告多长时间作废 三星g55是什么型号 三星翻盖手机双卡双待 俩个卡槽都能用移动卡的。都是g网的那些手机。全... 家里关了墙壁开关怎么还有余电 手机插座里的灰尘怎样清理啊 为什么开关关了而火线还带有电? wiFi插座开关关了还能通电吗 启动XBOX闪退,试过多种办法都不行。 戴尔7567多久换一次硅脂 戴尔游侠7567 外屏一点事没有了里面变成了这样 大概需要多少钱维修 维 ... 戴尔新游匣15-7567,经常出现这个情况换系统也没用,是不是电脑本身的_百... 凭2017年的技术能组装一台好的游戏本吗? 苹果手表7连接着手机手机废电吗 联想笔记本电脑怎么清灰 电流互感器150A是多少啊 正泰的 是什么型号? 正泰电流互感器160比1的