说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

巧用VISUAL BASIC的RND()函数

HTML文档下载 WORD文档下载 PDF文档下载
巧用VISUAL BASIC的RND()函数
作者:傅昌盛
VISUAL BASIC的RND()函数有一个重要的特征:当RND()的参数(我们称这里可以称它为种子)为负值时,同一种子(负值)产生同一个随机数序列。同时VISUAL BASIC还具有强大的二进制技术功能,这样我们可以按以下思路实现文件内容加密:
X=RND(-KEY)
’KEY为正数
VAULE=INT(256*RND) ’产生一个随机数(以此为密码)
Open FILENAME$ For Binary As #FILENUM’打开文件
Get #FILENUM,I,A ’取文件内容
B=A XOR VAULE ’得到加密文件
结合
C=B XOR VAULE’得到解密文件(B为加密后文件内容)
注意:这里的A非整个文件内容,可以是极少部分、几个字节甚至单个字节,若为单字节,则文件中的每个字节同不同的数异或,破译难度可见有多么大。具体过程:
Sub ENDECODE(FILENAME$,MA,FILE2$)'参数为:源文件,密码,目标文件
Dim FILENUM As Integer,X As Single,I As Single
Dim CHARNUM As Integer,RANDOMINTEGER As Integer
Dim SINGLECHAR As String *1,filen2 As Integer'取单字节
If MA<0 Them
MA=MA*(-1)
End If
X=Rnd(-MA)'参数为负
FILENUM=FreeFile
Open FILENAME$ For Binary As #FILENUM '二进制方式打开源文件
filen2=FreeFile
Open FILE2$ For Output As #filen2’以顺序文件打开目标文件
For I=1 To LOF(FILENUM)'LOF()文件字节长
Get #FILENUM,I,SINGLECHAR'取单字节内容
CHARNUM=Asc(SINGLECHAR)
RANDOMINTEGER=Int(256*Rnd)'得到字母表
CHARNUM=CHARNUM Xor RANDOMINTEGER'异或
Print #filen2,Chr$(CHARNUM);’写入目标文件
Next I
Close FILENUM
Close filen2
ok ’调用成功对话框
End Sub
调用格式:ENDECODE 源文件名,密码,目标文件名
上面过程可以对任何EXE、COM、文本等文件进行加解密(奇数次加密,偶数次解密),重演性极好,保密性特优,若对上述过程进一步加工,如进行多重随机等手段处理,那么将会更上一层楼,在此不累述。
顺便提一下,上面过程若对目标文件同样以二进制文件打开、写入,那么只能对纯西文文本进行加解密,对于纯中文文本则通过修改取双字节、I的步长为2来实现,其它(中西文结合文本、EXE、COM等文件)则将得不到预期结果,其原因可以能是ASCII大于127的字符,不能正常显示,不能用put语句正常写入文件(得到的只是空格),有兴趣者不妨一试。
□浙江 傅昌盛
果断Mark!国外程序员收集整理的PHP资源大全 Google 2015项目前瞻:智能隐形眼镜、Google X、Ara Swift的坑:如何实现enum的多选? Swift,其实没那么任性 如何利用单台服务器实现10万多个Git仓库托管 Swift的初始化方法 TIOBE 2015年1月编程语言排行榜:JavaScript成大赢家 为什么iOS开发不需要Storyboard? 仅有纽扣大小的开发板 Intel Curie “撒娇”的豌豆荚?被百度手机助手屏蔽太糟心! 【工具推荐】Pgcli—自动完成和语法高亮的Postgres命令行工具 CES 2015:挑一款机器人带回家? 夜行、睡眠与健康:CES 2015十款酷炫的可穿戴产品 Java 9中新的货币API 唯“简”不破,Apple Watch App的设计之道 Google Glass从X labs“毕业”,更换项目负责人 不进化,则消亡——互联网时代企业管理的十项实践 RedMonk 2015年1月编程语言排行榜:进击的Swift! 微信开放JS SDK,这场web巨变意味着什么? 盘点一些iOS开发技巧:Swift和Objective-C 2014年,那些“颜值”爆表的UI动画 《近匠》爱加密:谁说iOS应用不需要保护? SwiftColorArt:开源易用的Swift图片类库 人气爆棚 干货满满 中国电信天翼开放平台开放日圆满落幕 必须Mark!43个优秀的Swift开源项目推荐 治拖延、疗懒癌!安利12款提高工作效率工具 把ES6带进Node社区 Io.js 1.0.0正式发布 Java 2014:10个最热门、最具争议性的话题 回顾:2014年最流行前端开发框架对比评测 实例讲解SQL注入攻击 调试大规模服务器集群的五大策略 请问小新,以及其它delphi高手一个简单问题,我从网上下载了一个报表控件,请问该如何使用? 一个关于TWinSocketStream的问题 scjp考题一道!!!!!!!! 小弟初学,如何从CString 转化到 int .thanks a lot. 我要学习数据结构,算法,离散数学..... [不爽阿]今天圣诞,有人惹我 关于临时表的共享问题? 是不是我的问题太难了,没有人回答? 请举例说明:接口是怎样实现多重继承的? 听说最近由于IT行业不景气,程序员的工资缩水了?是真的么? 这样写有什么不对?? delphi的dll库返回后调用程序出错!加了一行无关代码却正常!求教各位大狭! 塔尼包姆出了不1本计算机结构的书,还有1本MICROSOFT的 Microsoft Windows 用户界面开发 请问是否很好 Access初学者问一 再次请教一个sql排序问题,一定给分。 请问:程序中对WM_PAINT,WM_CTLCOLOR,WM_ERASEBKGND三个消息处理的顺序是怎样的? 这个月生意只有上个月的1/5,怎么回事? 我女朋友说最爱她的人不是我,这意味着什么? 工资里导入上月数据怎么实现 谁有复读王(fyfdw2001)的注册码? 经过一段时间的努力,我做出一套电话语音邮件系统,可以用电话和手机来收发EMAIL,有意者请与我联系 xuyaoliang@263.net 请救救我吧!有谁能告诉我中程的分数怎么查! 如何解决数据窗口显示照片(此照片在数据库的一个字段里)的问题? 请问如何获取硬盘和光驱的型号信息 谁有复读王(fyfdw2001)的注册码??????? n_up的问题。如何在另一列插入计算字段? 有没有深圳的mm,一起过圣诞好吗? far怎么用啊? 关于临时表的共享问题?? 请大家介绍一些学习C/C++的好网站,只要进者就给分。 "他妈的,又打歪了!" 我在作登录是出现了"runtime error"错误,详情见内 3台机子如何共享一个adsl上网?? 如何把一应用配置成一NT服务 出学的菜鸟提问 找回addin:资源编辑器 怎样开发阅读工具软件 acm文件格式 数据库安装程序的问题。 大家看看这道题怎么解 100M的网线怎么做?用的是双脚线!!! 大峡,我把一个Acess的 .mdb文件设置了密码,但是密码我忘了,哪里有软件下载,可以解决我打开的问题呢?谢谢 关于 请问怎么样实现象”金山毒霸“控制中心一样的界面? 请问如何在TCOMBOBOX中输入后自动查询到相似的ITEM上面去 文件对话框中怎么过滤文件 wang wei come on 一个ODBC数据源可以被多个应用程序共同使用吗? 经过一段时间本人修改了sendmail、POP3、IMAP4的源代码,把用户认证该为了数据库,数据库采用的MYSQL、并虚拟了整个系统用户来存放邮件内容,有意者请与我联系xuyaoliang@263.net java 板圣诞大餐 有人会吗?不重做系统:如何修改win98se的安装时的序列号? 两地间的经度差为20,实际距离是多少 什么叫国际日期变更线怎么变的,我咋搞不清楚 汉译英:两个名词秦始皇陵遗址公园 Qin Shihuang'Mausoleum Site Park秦始皇陵博物院 Qin Shihuang'Mausoleum Museum 经度和纬度的判断规律 我最喜欢读的报纸 作文你最喜欢读什么报纸?通常有几个版面?你平常喜欢读那几个栏目的文章?写一篇300字作文.各位我要写江南晚报或扬子晚报.写的好一点加悬赏.着重写喜欢什么栏目. 现值计算的问题 图里面的四个公式 分别应该在什么时候用啊== 如何判断经度和纬度 国际日期变更线东侧是西经度吗还是今天.西侧是东经度或是昨天如题 股票价格计算公式怎么样? 谁能帮我讲一讲怎样判断纬度经度最好是PPT,急用!谢谢 国际日期变更线是按照地球表面的经度划分的吗? 时间计算公式A1为开始时间10:00 B1为结束时间12:00在C1算出中间间隔几小时. 与日期相同的经度范围怎么求举列说明. 二分之一打一成语 翻译英语,不要有百度的,百度的我用过了,不对.翻译的英语内容:1.what are you going to do in the nature park?2.I‘m going to draw some pictures.What about you?3.I’m going to look for some beautiful leaves.4.Mike is going to b 南半球极昼,此时,与上海处于相同日期的经度范围为A.90ºw向东至180º B.0º向东至180º C.90ºw向东至90ºE D.0º向东至90ºE (请具体解释下,) 三又二分之一(打一成语) 英语翻译清明节是我国汉族的传统节日之一,为中国二十四节气之一,时间约在每年的阳历4月5日前后。古有清明前一天为“寒食节”之说,相传起于春秋时期晋文公悼念介子推“割股充饥 经度的定义?纬度的定义?经度的划分?还是初一的填空题! ( )面( )言 打一成语 数字 数字两个空都填数字,并解释一下这个成语及出处急啊 英语翻译India has a long tradition of government planning but the degree of government intervention in the economy has been reduced in the last two decades.Privatization started in 1991,with the creation and sale of a small number of shares in so 经度 纬度的定义可以回答一个 关于周期运动,正确的判断是A.匀速直线运动是周期运动B.匀加速直线运动是周期运动C.直线运动不可能是周期运动D.不断重复全部运动过程的运动是周期运动 告诉答案,并简单说明下理由.谢谢 英语翻译参加俱乐部和学生社团是件好事,不仅能与更多的人打交道,还能丰富学生们的社会生活.(Tranlation:Participating in clubs and students’ associations is a good thing,not noly communicating with more people,but 汉译英:什么样的女人喜欢嫁给有钱人?(做标题) 经度的定义?纬度的定义? 怎么根据机械波的图像判断运动时间就是X轴是 m/s的····· 汉译英:有钱人除了老婆,还希望有其他的女人.也就是想装点下他们的面子罢了. 什么是经度,什么是纬度,具体定义及历史来源是什么? 物理试卷3题,时间怎么判断?3,在同一点O抛出的三个物体,它们做平抛运动的轨迹如图所示,则三者做平抛运动的初速度VA,VB,VC的关系和三者做平抛运动的时间tA,tB,tC,的关系分别是A.vA>vB>vC 女人都喜欢有钱人吗 经度纬度的定义,和划分 回收后的废旧报纸怎样处理我想成立一家废品回收站,大量回收的废旧报纸应该卖到什么地方? 模拟时间+世界地图有没有那种在世界地图上.每个分区都有一个模拟时钟的地图啊 地球上经度相同的地方,则A 季节相同 B 正午太阳高度相同C 昼夜长短相同 D 地方时间相同 一个物体做匀加速直线运动,从A点运动到C点所用的时间为t,...一个物体做匀加速直线运动,从A点运动到C点所用的时间为t,B为AC段上一点,物体在AB段运动的平均速度为v;在BC段运动的平均速度为 世界地图什么时间出现的?拜托了各位 谢谢 20除以3打一成语 怎么把一张新报纸处理成旧报纸的效果.我想问一下怎么把一张新报纸处理成很多年前的报纸的感觉 世界上的时区是怎样划分的? 北京时间2点15分,东经134的地方霞光出现,请问该地该日昼长为多少? 这种词汇题该如何判断啊?In previous times,when fresh meat was in short _______,pigeons were kept by many households as a source of food.A:store B:provision C:reserve D:supply不过A,B为什么就不可以?(A,B都有储存的意思,D是供 世界地图中文版 中国属于哪个时区 高一地理 怎么从图判断经度给了一个画着晨昏线的地球图,让我判断一个点的经度,问题是图上没有给任何其他点或者线的经度,让我求的两点一个是昏线和赤道的焦点,对了,日期是冬至日. 英语翻译下面让我来介绍几种能瘦身的食物:1.大豆.大豆所含的营养丰富、热量较低,有益心脏健康、能消除便秘2.黄瓜.黄瓜含有丰富的维生素,有美容功效,黄瓜含有的纤维素可促进肠道蠕动, 谁能帮我翻译一下这几句句子啊(中译英)?谢谢啦!1. 如果你在这样的天气出去的话,就会有感冒的危险.(there is a risk of…)2. 这种乏味的工作简直是在浪费她的才能.(a waste of…)3. 她在这 东一区的经度是从哪到哪? 补充词语,( )不敌众 丢( )弃甲 ( )计多端大公无私这个成语指从集体利益出发,毫无个人打算.(错还是对)卜算子咏梅是毛主席在读了宋代诗人陆游的同题词后写下的一首诗 (错还是 慈溪 北京 两地的经度差 高一地理 地球的运动 特别是第一题标经度的谢谢 百度在线翻译英语准吗 知道两地距离求经度差①点与②点的距离约为3330千米.计算出①点与②点之间的经度相差30°.为什么两地经度差30..怎么算出来的? 下载汉译英 第四题 词汇运用 两地经度差可以大于180°吗?根据图中不同点间的经度差(小于180°)确定两点间的东西方位,从已知点向东起算的经度差小于180°,说明所求点在已知点的东方,反之则在西方.此句的反之指①从已知 恳请地理老师给我讲一下有关地方时和区时,日期以及国际日期变更线的知识没有搞懂 第四题组词怎么写?秒回必采纳. 20.M,N两地的经度差20.M、N两地的经度差 A.等于10° B.小于10°C.大于10° D.可能大于10°,也有可能小于10°右图为某地一天中两个不同时刻太阳光线与地面的夹角,据此判断以下25题 关于国际日期变更线的问题谁能告诉我经过国际日期变更线为什么要变日期(举个例子什么的) 名词中译英两个中文名词英译.1)南方联合防御体系,2)水蜥部队,水蜥是一种动物,属蜥蜴类的.希望准点,另外第一个南方联合防御体系可不可以有简称,例如FBI,CIA一样..请高手准确指教没看明白
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn