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

巧用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语句正常写入文件(得到的只是空格),有兴趣者不妨一试。
□浙江 傅昌盛
DeNA China副总裁黄雪斌:IP战国时代的生存法则 巴别时代首席执行官赵暕:从页游到手游的完美转身 Oracle借助RESTFUL API扩展移动端版图 优秀求职者应主动问的5个问题 高德LBS智能硬件编程马拉松:硬件复兴,等你挑战! 首届bong线上黑客马拉松:运动数据分析应用bong+获大奖 英特尔推出基于WebRTC的协同通讯方案 凸显本土创新“软”实力 一周消息树:不同设备不同界面的Windows 9正在逼近! 乐卓网络CEO李澄澄:移动游戏IP是把双刃剑 高性能动画!HTML5 Canvas JavaScript框架KineticJS Swift最酷炫的七大功能 微信开发者大会讲师介绍:柳峰与你一起玩转公众平台应用开发 TIOBE 2014年7月编程语言排行榜:仅发布1月,Swift进Top 20! 艾格拉斯CEO王双义:手游自研引擎的荣耀之路 以招行为例,深圳云软黄榕振谈微信公众帐号企业应用高级开发 来自前苹果高管Heidi Roizen的经验之谈 【短讯】Dropbox、微软OneDrive打不开,国内用户该如何应对? 5分钟弄懂Docker! RakNet:被OculusVR收购的跨平台游戏网络引擎 Qualcomm业务拓展副总裁沈劲:智能终端的延伸 苹果发布Xcode 6 Beta 3,Swift迎来重大更新! Linkedln技术高管Jay Kreps:Lambda架构剖析 《近匠》极光推送:聚焦巨头无法快速转身的领域 Babylon.js:拥有微软背景的开源3D游戏引擎 EMC 2014存储布局及十大新技术要点 腾讯推出零流量地图 离线实现公交步行导航 Atmel 1.4亿美元收购Newport Media 巩固物联网产品线 微信大会首批议程出炉 深度解析招行服务号是如何炼成的? 指尖上的阅读:MIT开发盲人专用设备FingerReader 从桌面到移动:异构计算翻天覆地的技术变革 《近匠》Blueware何晓阳,不做中国的New Relic 神洲数码怎样? jsp如何将web页面的String型转换为long型? 极容易的问题 ,先来先得! 大虾,救命啊!!!!!! jsp如何将web页面的String型转换为long型? ★★★帮忙翻译一句话!谢谢★★★ **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 倡议书:维护您的网络权益 [100分,两日内结]怎样在jsp中得到我的数据 两个菜鸟问题,送分拉 线程与消息??? c、odbc、嵌入式sql的关系? 简单的重载问题! 用<input type="fiel" name="test">时,怎样判断输进去的文件是硬盘上实际存在的? 请问哪里有eclipse 下载? FINDING SOMEBODY! 显示器不亮,请帮忙,解决给100分 写在3.15黎明的前夕 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 各位,CSDN的论坛都是用些什么工具开发的?? 请问个位大虾,我的程序为什么不能执行(TC++3.0) 在VC中怎么调用IE来显示一个页面? 怎样在新开的页面给已开的页面上的一个TextBox插入新的字符串 [转贴]网络版权问题 **冗余醒目**《如何在输入的时候减小冗余》**冗余醒目** 用purify测试过的release版本怎么在别人的计算机上运行有问题? 如果用asp连接mysql,请问连接字符串是什么? 我要做一个在小型的对等网上运行的数据库软件,用什么方法好点? 如果用asp连接mysql,请问连接字符串是什么? 请高手帮我解答一个关于在ASP中调用存储过程的问题? 怎么输入繁体字? 足彩-03010期:1033031110310 请教高手在DELPHI里怎样实现把一个文件存储到ORACLE上, 然后又如何调出来使用?? 我快疯了救救我!!!!!!!!!! 我为什么要做个刁民? 屏幕上显示绘多条曲线,要对每条曲线单独进行操作如何实现? 怎样避开程序对softice和trw的检查 想学ACCP不知道社会的认可度? 怎样使用windowsxp/2000的修复程序? C:\winnt\下有一个hh.exe文件,有什么作用? 这首诗我觉得用在程序员身上也很合适 在WebSnap中如何实现gride的隔行显示不同颜色,就象我们现在看到的一样?? 关于《C++ Primer plus(中文版)第四版〉》,大家发表一下看法好吗。 中文文件 颜色代码转换的问题大家帮忙呀.. 程序编译问题 问一个可笑的问题。希望能得到回复 那位用过TfcShapeBtn控件? 急!从NT4到W2000后,为何ASP出错? combustion? 100分有人答了吧 我短路看不懂,为什么当S闭合时R1被短路? 原发性高血压是什么遗传类型?是常染色体显性遗传,还是常隐?伴X隐?伴X显?我不是得这病,我是做一道生物题目时碰到的 1万标立米等于多少吨 物理一道题目求解了两种金属的密度分别为,去质量相同的这两种金属做成合金,试证明这种合金的密度为(2ρ1-ρ2)/(ρ1+ρ2)【假设混合过程中体积不变】 带鱼身上有哺乳动物牙齿吗? 欣欣向荣的反义词是? 黄土高原发展苹果生产需要改造的主要自然因素是什么 发现的反义词是什么? 青蛙跳是什么能?.. 黄土高原与山东半岛苹果产区都位于“主要产地”是我国苹果的主要产区二者相比黄土高原苹果产区具有的优势是 ①夏季气温高、 降水多 ②气温日较差大有利于糖 发掘的反义词是什么wu 带鱼的身体里长出牙齿是怎么回事?在吃鱼的时候不小心从鱼身上,嗑到一颗象人或动物的牙齿一样的鱼骨头! 与山东半岛相比,黄土高原生产苹果的优势条件是什么? 怎样使用手提式灭火器 哺乳动物的牙齿有 :( ) ( ) ( ) 为什么这个句子上不加a呢1.AVATAR is a fantastic movie.2.AVATAR is super movie.为什么第二个句子不加a 变成 AVATAR is a super movie. 手提式灭火器的使用方法? 杯子里有个装电池的小水瓶是干嘛的啊我昨天新买了个杯子.打开一开里面有个像壶胆一样的小瓶子,还可以按电池, 为什么这个句子不加A呢That is nice dree,为什么不说成 That is a nice dress 呢,而That is a lovely hat却要加a呢? 手提式机械泡沫灭火器如何使用? 请问用高锰甲酸清洗龟头是高猛甲酸外用片还是消毒片啊 青蛙是怎么跳的? 空气是波疏介质 可是波在其中传播的慢?声速在气体里最慢啊~最慢的介质叫波疏介质? 为什么有的化学元素的名称在周期表没有 如;水 高猛甲酸 一个水平弹簧振子的振动周期是0.025s,当振子从平衡位置开始向右运动,经过0.17s时,振子的运动情况是( )A.正在向左做减速运动 B.正在向右做加速运动C.加速度正在减小 D.动能正在减小 一个正方体玻璃容器棱长2分米,向容器中倒入5升水,再把一块石头放在水里,这时量的水深是15厘米.石头的体积是多少厘米?只要算式. 用酸性高猛酸甲氧化液体. 一个水平弹簧振子的振动的周期是0.25s,当振子从平衡位置开始向右运动,经过0.18s时,振子的运动情 手提灭火器的结构 人生就像一个杯子,你在杯子里装了什么拜托了各位 将一个弹簧振子拉长一些,然后由静止释放,经0.5秒振子经过平衡位置,此振子的震动周期可能为?A 0.6秒 B 1 秒 C 0.5 秒 D 0.4秒为什么 灭火器现在很普遍,那么是从什么时候开始进入人的生活的呢?又是谁创造发明了灭火器呢? 怎么区分一种病是常染色体显性遗传 还是常染色体隐性遗传```说清楚点```能举例的更好``` "发现"的反义词.谁会?刚看到的一道题目.请你答一下.今天教师业务考试上的一道题.试卷的编写者真是异想天开了. 灭火器是哪个发明的? 阅读短文《礼物》听了老人的话,你想到了什么?文章内容是:有个孩子,在他出世的那天,妈妈就离开了人世.从此,每当看到别人从妈妈那儿得到礼物,他就非常伤心:我真命苦.我的妈妈竟来不 欲速则不达 议论文分论点 动听的近义词反义词 时光老人给我们的礼物是珍贵的 缩句 发现的反义词是什么吗? 请专门研究遗传的朋友解答:一个女孩的染色体来源必定有一条是来自祖母,爷爷没有遗传基因给她请专门研究遗传的朋友解答:我个人认为,一个女孩的染色体来源必定有一条是来自祖母,爷 时光老人给我们的礼物是珍贵的 怎么缩句? 反义词:出现( ) 美妙的近义词和反义词 时光老人给我们的时间是珍贵的 缩句 一质量为M的物体放在水平面上,上面安装一根原长为L,劲度系数为K的轻质弹簧,现用手拉弹簧的上端P点(开始拉时弹簧为原长)缓缓移动,当P点位移为H时,物体离开地面一段距离,则物体在此过 在杯子里面装米,往下倒,改变杯子高度,形成的圆锥会有什么规律一楼,落地点是什么 带鱼和鲫鱼有什么不同从形状等上分 硫酸亚锡的保质期为多少?06年的现在还能用么?分析纯、做试验用 能在 衣服 杯子 金属上印LOGO的机器是什么呀? 近义词: 尊重——( ) 仇恨——( ) 真挚——( ) 反义词: 崇高—— ( ) 坠落——( ) 发现的反义词是什么 如图,在平行四边形中,AB‖CD,O是BD的中点,且AB+CD=AC,求证AO⊥DC 真挚的近义词和反义词是么 出现的反义词是什么 氨水是弱电解质、下列叙述正确的是()A、NaCl溶液在电流的作用下电离出Na+B、离子化合物一定是电解质C、氨水呈弱碱性,故NH3是弱电解质D、溶于水电离出氢离子的化合物都是酸答案是啥A还 真挚、强烈、朦胧的近义词和反义词是什么? 物理的一个疑问...嗯在一个电路中,电压表测一个定值电阻,当滑动变阻器的阻值增大时,为什么电压表的电压比滑动变阻器阻值为0时的电压要大,我自己理解是滑动变阻器的阻值增大了,通过电 遗传性白发是常染色体显性遗传还是隐性还是X连锁还是Y连锁... 真挚的反义词和近义词是什么 印度反对派竞选集会遭袭 死亡人数上升美研究称因感到受尊敬50岁以上人群更澳大利亚一墓园将举行”恐怖”派对 迎俄罗斯兴起“护花行动”保护夜行年轻女快讯:浙江黄岩一企业起火 2人跳窗逃嘉兴国际名品城工地脚手架坍塌 工人1当代女画家王玮百幅弥勒造像回乡展在浙日本一老妇睡梦中手脚被绑 300万日俄罗斯兴起“护花行动”保护夜行年轻女新加坡人热衷万圣节 妖魔服装道具销量摩纳哥亲王携王妃出席格蕾丝王妃纪念展世界最高男子结婚 夫妻身高相差76厘欧洲一航空公司推“慈善空姐日历” 泳刚果(金)军队重夺反政府武装“M23美一名侏儒少女天生患有储物癖 家中如新加坡“美丽星期天”活动现缤纷花海(美研究称因感到受尊敬50岁以上人群更调查显示日本半数国民反对《特定秘密保日本新一代消防车设计图出炉 神似机动IPCC中国宣讲会:21世纪末全球气安倍视察台风受灾地伊豆大岛 称将加强聚焦实战锻造指挥“中枢”让生活多一缕书香跟王女士一样上当的有70多人总共被骗把驻训场当做作风考场给生病的侄女送药,结果药丢了快报报道陈灿和他的战地诗鲁能惜平 恒大狂胜雷克萨斯举行混合动力体验之旅“不可收买是最高的政治品德”第14集团军某旅 公开党委机关和基层本周末杭州出发高铁票大面积停售整形医生给贵宾犬剖腹产把好饮食关安然度酷暑大型纪录片《话说草原》举行开机仪式嫁出去的女儿到底有没有份?一场官司翻停水已经第三天了可原因还没查到!一名边防连长的“视频婚礼”诚信是官德之基临安临目村请城里人去当“村民”快报首届“注意力、好习惯军旅夏令营”倾力保障部队重大训演任务
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘