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

巧用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语句正常写入文件(得到的只是空格),有兴趣者不妨一试。
□浙江 傅昌盛
RestKit:iOS开发必备,告别众多无聊代码 技术新突破:手机和平板可远程控制PC,Chrome Remote Desktop亮相 物联网高速公路上,快数据如何驱动分析 苹果或将使用雅虎的搜索引擎,抛弃谷歌 百万用户规模的系统如何扩展 大数据需要软件定义存储 倒计36小时!2014中国Spark技术峰会即将召开! 设计师专宠,Startup强大的UI设计框架 走进金山云:从技术走向服务 Qt Creator 3.1.0发布,全面支持iOS、Android、WP Google大中华区总裁石博盟与中国大学生畅谈科技与创新 阿里云:从防到攻,深入浅出DDoS 大数据处理分析的六大最好工具 微软:Windows Phone开发者可回复用户评价 不断缩水后的微博上市首日大涨19% 曾一度涨超40% Snapdragon LLVM编译器全新升级 支持骁龙64位处理器 EDP:基于Node.JS与NPM的企业级开发平台 想改变世界,先改变自己——知名Hacker、发明家Mitch Altman专访 《近匠》iHealth,健康大数据助力硬件“破壳” 一周消息树:如何做到每天写代码? 一周热点:微软SQL Server 2014三大新特性 《Make》创始人Dale Dougherty:全民创客 DevOps正在扼杀程序员? OpenStack新版本:新增近350个功能,修复Bug超2900个 【走近讲师】易欢欢:数据对接和后台是互联网金融的技术最难点 最火HTML5 JavaScript游戏引擎:国外篇(二) 挑战最强大脑——来自全球的14个编码社区 摩尔定律让位于贝索斯定律 InPaaS:新一代云计算应用平台 【技术博客推荐】樊哲谈机器学习算法与Mahout Scala 2.11.0发布 仅支持Java 8部分功能 请问在ASP中调用DLL到底需不需要注册,我怎么看有的需要注册,有的不需要! ASP 0115 ??错误,怎么办?急 OLE 文档序列化!请大虾指教! 双硬盘????,郁闷中。。。在线等 批量数据写入,是否有简捷的方法 请问谁有1、美达S693A2主板光盘;2、还有美达p4vad主板,是什么显卡? 用java weblogic.ejbc编译时为何总报找不到.xml文件 ftp的问题 请问各位:如何在ASP.NET中打开一个现有的或一个新的WORD文档? 讨论怎么发财 关于查询系统的需求分析怎么写?用触摸屏实现 如何把一个文件保存到数据库中? 耦合 哪里有WEB合同管理代码?或资料?演示?急!!!谢谢!有人知道吗?? 谁能把这段代码破解 求一函数,在线等....... 剛&#24478;vb轉delphi,&#24171;我看一看!結貼&#24456;&#24555;! 如何可在WINXP中改MAC?? sprintf(a,"%2X",b)问题 关于简单的access查询 java字符转换问题!!! 请教一个Struts标记问题! 一个cab下载的错误信息解读,请教高人。 OutLook?怎么用它发邮件,经常提示错误? 帮看这段删除纪录代码有什么问题?三层结构oracle 本人要做一个WEB合同管理平台,由于以前没做过,请大家指示? Web Application 中怎么来调用 Web Server?谢谢! DataGrid中模板列嵌套的DataGrid怎样相应其事件 [调查]程序员证在你们公司里到底有多大的作用?有多少人有证?希望有没有证的都进来说一下。 怎样把字符串"C;\aaa\bbb"变成字符串"C:\aaa\ccc\dd"?用什么函数,操作? 我的SQL Server 装好后,出现下面的错误 这个文件查找真是怪!......msdn源代码居然有问题, 进来看看... 请问在TreeView控件中如何通过光标的上下移动获得光标所在项在数据库中的ID值 對掌上電腦Sony Peg-TG50和ACER N10怎麼看??? 使用SOAP协议传递服务器端查询结果容量问题? 菜鸟问题:数据窗口怎么设置检索参数?急!!在线等 ****入门提出的问题****,请各位高手指教! 很简单的一个问题。 这个问题怎么处理? vb如何调用一个组件?? 一个小问题,可不简单哦! 应聘CMM时,会被问到什么有关CMM的问题? 调用servlet出现这个错误HTTP method POST is not supported by this URL 在公网上如何连接远程数据库啊。。 这算不算bcb的bug?关于Image控件的使用。 使用 GDI 函数画直线时,如何同时在该直线的两端画出箭头来? 怎样改变网卡的工作模式???~~ 疑难杂症--关于共享adsl专线的网络问题--疑难杂症 小弟有一事请教??? 我的IE WEB 控件---TREEVIEW控件,怎么没有treeView.AfterSelect()事件? 新手接触midas的若干典型问题!小的头都搞大了!还是不行!望各位大虾赏个脸解答一下! 如果湖泊与你钱,为什么溶解氧会增加是湖泊淤泥浅 淘宝秒杀拼音该怎么输?各种首字母,各种输拼音~几天了就是输不对,谁能举个列子到底怎么才算对? 函数f(x)=x+sinx+1(x∈R) ,若f(a)=2 ,则 f(-a) 的值为( 关于天体运动的一道题~一颗人造地球卫星发射前在地球表面时所受地球引力为2.0*10六次方 牛,当它运行于高度等于地丢半径的轨道时所受地球引力为 牛) 淘宝一元秒杀一串拼音什么意思 数学中的解得是什么意思? 3个数最大公约数算法请用高中必修3的语言来写,C++,JAVA等不适宜.我就是说只有INPUT PRINT IF WHILE那些来写 atlas什么意思 乙烯裂解炉工况特点 关于求最大公约数算法的问题书上是说:1.输入m、n(m为被除数,n为除数)2.m/n得余数r.3.判断r=0?是的话n为最大公约数.4.否则讲n赋给m,r赋给n,循环2.我想问为什么能这么做?(为什么能用除数除 阿特拉斯的天罗地网是什么 石脑油管式炉蒸汽裂解制乙烯.相关内容1举例说明石脑油管式炉蒸汽裂解制乙烯的反应机理,(自由基的链引发连传递链终止),并回答为什么主要产品是乙烯2什么养的石脑油组成更容易裂解 亲本基因型的判断一雄蜂和一雌蜂交配后产生F1雄蜂的基因型为Ab,aB,AB,ab四种,雌蜂的基因型为AaBb,Aabb,aaBb,aabb则亲本基因型是什么? 请指出电熨斗的各个部件哪些是导体,哪些是绝缘体,哪些是热的良导体,哪些是热的不 阿特拉斯的介绍? 事件发生的可能性不管有多小,但是都一定会发生.这是什么定理 最大公约数 算法求正求两个数:m,n的就大公约数算法为:t=1;while(t){t=m%n;m=n;n=t;}结果n为最大公约数!~!请问能用数学证明它的正确性吗?这题的意思是..m/n得到的余数为t,如果t不等于0,则把n的值 南京阿特拉斯科普柯待遇有谁知道南京的阿特拉斯·科普柯(南京)建筑与矿山设备有限公司 业务助理待遇怎么样 有没有发展前景? 新闻的客观主义理论? 请问有木有关于数学运算的英文文献啊?急啊!最好还有中文翻译哦 ooa ood oop指的是什么 化学方程式的书写和计算 求一篇5到6页的数学英文文献,需要中文翻译, 曲柄连杆在图示位置时B点速度Vb和加速度Ab为答案 Vb=r*ω 方向向左 Ab=1/根号三 *r*ω2(1处以根号三*角速度的平方*半径) 质量为m的小球由高为H的、倾角为θ光滑斜面顶端无初速滑到底端过程中,重力、弹力、合力的冲量各是多大? 秦始皇的历史作用?秦始皇是怎样的一个人?他在影视剧中与历史上的有没有差别? java面试提问:什么是OOP?我知道OOP是面向对象编程,面向对象主要有抽象,封装,继承和多态,按照书上对几个特征的定义回答,总觉得不太好,不口语化,问了什么是OOP之后,又问比如做一个人事管理 两个一样的物体分别放在倾角不一样但一样高的两个光滑斜面上..它们重力的冲量一样吗. 电火花成型机 工作液为什么要用煤油? 鱼类的血液循环路线是几条? A、四条 B、三条 C、两条 D、一条(单循环) 我画了一个长方形,为了好看,90度角画弧,如何画 每天什么时间运动最科学呢? 软骨鱼类与硬骨鱼类在血液循环系统给方面的主要区别 亚硫酸钠与硫反应 say 双控接线法 第一种单进火线控制我了解了 第二种两个开关都需要进火进零 中间连接一个线分开接灯头 那不是灯头会出现两头都是火的现象吗!? 但是试过 发现没什么异常 硫和酒精反应生成什么 NVER SAY GOODBEY 我的女孩 拜求大师刚刚看完了矛盾论,但是不能明白为什么说既然矛盾的斗争性是绝对的、无条件的,不论是在矛盾双方要相互依存、共处于一个统一体中的时候,还是在统一体破裂、对立双方转化的时 红豆打了绿豆一拳 绿豆打了红豆两拳 打一动物 双驴头抽油机冲程计算方法 “描浓”用英语怎么说? 在摆动导杆机构中,若取曲柄为原动件时,机构的最小传动角γmin=90°.请问是为什么,我觉得是0°请好好讲下,感激! 抽油机冲程是什么? 黑色的英语如何写 判断:曲柄滑块机构处于传动角最大位置时的机械效率最低.( )关键词:机械原理 四杆机构 曲柄滑块机构 传动角 机械效率 7天 9月29.30 十月1-5 按理说是7天,但是要看高几了~现在很少有高中能放全假了 7天的假 能放个3天就很高兴了 OOP密封袋是什么意思? 4.76克硫酸钠,亚硫酸钠,亚硫酸氢钠的混合物和足量的硫酸作用逸出气体672ML(标准状态),同样的混合物和24.04ml3.2%的氢氧化钠溶液(密度为1.04g/ml)反应,试计算在混合物中亚硫酸钠的质量分数. 中国有国际城市科学节吗? 求问什么是上市公司?阿里巴巴是不是上市公司? 锌和氧化锌粉末的混合物34.1g,通入足量的氢气,在高温下使氧化锌全部还原,将所得的全部固体加入20%的稀硫酸245g,恰好完全反应,求原混合物中锌和氧化锌各多少克 never say goodbey 64卦的第35卦是什么? 下列是ES-156型多功能蒸汽电熨斗说明书的部分内容:产品特点:具有干湿两用功能.干用功能是指在无水状态下,通过电加热管加热底板,底板温度上升,直接压烫衣物;湿用功能是指在蒸汽 飞机表演时的彩烟是什么物质? 一个六位数,个位数是六,把个位数移到最前面,使其变成原的来的4倍!求原来的六位数是!快啊, 江、河、湖泊水中的溶解氧少会发臭,而地下水中的溶解氧少,为什么不会发臭呢? 威马G-896STJ电熨斗为什么比一般的熨斗重?买了款威马的G-896STJ电熨斗,发现比你一般的电熨斗要重啊,这是为啥? 求一道数学趣味题的解abcd*e=fghiabcdefghi代表123456789,他们各代表的是多少? 刚果(金)政府宣布该国打击反政府武装俄注重文化保护 文化事业拨款70%用穆尔西审判延后 分析指与穆沙拉夫审判科索沃举行地方政府选举 投票点遭蒙面印尼巴厘岛男子咖啡地中发现2000多美参众两院大佬不宽恕斯诺登 将派“安三中全会前夕高层密集调研民生 为改革李克强登上拖拉机驾驶室与农机手交谈梁振英:菲人质事件若1个月没成果将采曝湛江国资委官员带女下属开房 视频男李克强:农业改革要尊重群众意愿和首创德国拒绝为斯诺登提供庇护 避免影响德最高法通报失信被执行人名单信息制度五越南总理坚持推动TPP谈判 争取年内科索沃举行地方政府选举 投票点遭蒙面杭州商品房库存量达10.5万套新高 清华剑桥等名校联手研究北京雾霾天出行日媒:安倍上任后已打13次高尔夫 展印度今日雄心勃勃探火星 媒体议论“与美国新泽西一商场发生枪击事件 暂无人英内阁会议为防监听禁用iPad 高官搭建平台助力营造节约新风尚房地产营改增税率或定为11%哥伦比亚没等到“老虎”伊朗首都德黑兰遭沙尘暴袭击乌卢甘斯克州政府大楼发生爆炸兰帕德即将告别蓝军《中国梦想秀》获奖他们儿时也爱做梦海南农产品要做“正规军”公 告9人涉嫌重大事故西安咸阳机场对51国公民本报海口6月3日讯 (记者张惠宁)记深读追踪首推“零时公交网”以改革创新成就文化繁荣“不出海南就能学开直升机啦”我省今年建296个农村幸福院6月3日,在印度首都新德里,印度总理“中国”元素亮眼国际化、两化融合、在线服务
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘