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

巧用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语句正常写入文件(得到的只是空格),有兴趣者不妨一试。
□浙江 傅昌盛
【CTO讲堂】工具类、新闻类、视频类等不同类型App的积分体系该如何搭建? 浏览器的改进应来自用户诉求而非商业诉求 《近匠》Moxtra:可内嵌的一站式移动协同解决方案 互联网时代的无栈开发 SDCC 2015参会感——无法计算的价值 英特尔中国研究院开放日 多个研究项目齐亮相 阿里王晶昱谈淘宝双11分布式数据库实战 为什么移动化对企业级应用如此重要? 移动App图标设计的最佳实践 在Node应用中实施Web认证的四大方法 如何在Swift中使用LLVM API? 七麦科技王东:搜索优化与数据支撑打破App推广困局 Android国外学习资源汇总 【CTO讲堂】揭秘高效协作工具背后的技术架构 TIOBE 2015年12月编程语言排行榜:Java正处巅峰 “Atlassian—敏捷就这么简单“沙龙在京落幕,百度、京东专家秘技公开 《近匠》奇点机智创始人邬霄云:用DeepShare打通App间的信息孤岛 如何使用HBase构建NewSQL? 《近匠》极验验证:基于“行为沙盒”主动框架的安全验证 C语言实现拉格朗日插值 C语言实现快速傅立叶变换 新手学Android开发经常出现的问题 Windows环境下SVN项目迁移的方法 C# Winfrom控件绘制边框 ASP.NET FormsAuthentication.SignOut()无法退出登录的解决方法 百度UEditor编辑器提示错误:后端配置项没有正常加载,上传插件不能正常使用! Font Awesome字体图标的使用方法 Bootstrap响应式导航菜单栏的实现方法 C#调用百度翻译API接口实现英汉互译 VisualSVN Server免费版和企业版的区别? svn中限制上传文件大小的hooks 求一sql语句?在线等待 制作的图象怎么保存为透明背景? 高分!急! 回收站出错的问题,请帮忙! 回收站出错的问题,请帮忙! 请问有多少人要考MSE阿!!进来交流交流! 我只有75分,,想问高手一个有关于VB通过ODBC连接Oracle数据库问题(新手上路)在线等待!!!!! 求助!!!静态文本框能否在程序中更改其CAPTION属性?? 高分“悬赏”解决我的这个问题500-1000分:) HUB 的普通口到路由器的普通口的网线是用交叉线还是用正常线? xp算出号码后怎么重装?格掉原来的c盘么? 怪了,我用这文件来切换用户的怎么不能用啊?? 看完这篇文章,真是为中国篮球感到悲哀! 关于win.net server 3700的两个问题,高手请进 如何在一个事务中同时进行EJB和jdbc的提交? 菜鸟问题,送分啦! 请问利用Office2k怎样在Excel中输出东西呢? 高分相送!哪里有<标准C语言实用大全>和<C高级程序设计>的电子书籍下载? 各位的开发周期一般有多久?? 如何在页面间传递数值呢,看如下程序 新手小问题!关于便条小程序。。务必帮帮忙啊!!!详情请进。。。 怀念朱总理!! 关于内存泄漏的问题!! 要用XSL原样输出一个元素里面包含的所有内容怎么办? IHTMLDocument 怎样得到一个tag的属性值 简单问题 没有激情以后还能干什么? 如何实现基于对话框的程序不在任务条里显示? 十六大闭幕 用Delphi、Mysql的大侠帮忙看看吗?---急急急急 别人的东西,学习c的朋友看看吧。 高手请指点! 表示严重不满:jbuilder下居然不能用鼠标的滚轮~ 如何将HTML文本直接显示在CppWebBrowser中?(不使用临时表) PB中有没有类似VC中ListMember功能的东东呢? 怪啊怪啊,ListView的问题 如何取得任务栏的高度? 哪里有《Effective STL》下载? 哪里有《Effective STL》下载? Load Servlet ? word 和 数据库 谁能帮我看一下程序? 帮我看看这几个宏什么意思? 程序员!女人对你重要么???? 这是我第四天的C#学习笔记,敬请高手指教 谁先回来马上给分(简单问题) 机器的usb问题!! 兄弟们,小弟刚接触JSP,帮忙解决一个问题。 请教PHP.INI配置里的SESSION! 刚开始接触.net 求购程序,请进. 回答必有好评 英语翻译低速时,后轮朝前轮偏转方向的反向偏转,车辆的转弯半径将大大减小,因而在道路狭窄及停放车辆时,更容易操纵车辆. 为什么八大行星都有光环 第5题 翻译一句话,不要机器翻译的.请翻译:我好想好想对你说,我多想留下陪伴你,让我倒入你的怀中. 八大行星中有美丽光环的是 两个 活期储蓄与国债这两种投资对象的区别? iq题,能解答者智力有120有一个犯人被关在牢里!国王说 如果你能猜我的谜题 我就放你一马!有三个开关 分别控制三个电灯泡但是开关 跟 灯泡 是不同房间哪个开关 控制哪个灯泡你是被关在 开 组合优化问题是不是只能用智能优化算法来解决?有没有其它算法来解决这个问题? 给四道英语宾语从句练习(有要求)有关客观真理1个主句过去是,从句将来一个主句过去,从句由现在完成改过去完成一个主句一般现在,从句现在进行一个能给多少是多少 最少给一个客观真 英语翻译实际的国际营销战略应该是介于单纯标准化和单纯本土化这两者之间. 谁帮我解决这个问题.智商题,.有3个人去投宿,一晚30元.三个人每人掏了10元凑够30元交给了老板.后来老板说今天优惠只要25元就够了,拿出5元命令服务生退还给他们,服务生偷偷藏起了2元,然后, 密去掉宝盖头加一个偏旁组成一个新的字 这种是咸的,还有甜的,你喜欢哪种口味的? 乔字加什么偏旁可以组成一个字?要组词,除了桥和娇. 宫字去掉宝盖头重新加部首 看书报并领会其内容可以用什么词替代呀,知道的请告诉我, 改为宾语从句who took my unbrella by mistake this morning?l wonder who后面应该怎么改啊 关于英语,太阳开始出现了.用过去式的英文是什么?并且用6个单词构成 把世故圆滑的人喻为( ) 英语 宾语从句的一道题Hw said that we ( ) a long holiday next month 括号填 have还是had 用过去时还是将来时 I asked him for some oil,but he didn't have ( ). 银行结息和利息税分别是怎么算的?农业银行活期储蓄 逻辑思维题求解女孩回家时被一男跟踪,当她走进电梯时男人跟进来.她让男人先选楼层,当男按了二后,她松了口气按了三.电梯到二楼,男人出去时扭头冲她一笑.当门闭合时,她突然看见男人掏 He asked me for( )water,but I didn't have( ).A.some,some. B.some,any. C.any,some. D.any,any. 活期储蓄存款.第一次结息的利息是否应并为本金然后第二次再对其本利和计息 1题关于宾语从句的题...(英语)!"Don't talk in the library"the librarian told Sammy.如何改成一句话. 也就是宾语从句..顺便也讲下祈使句在宾语从句中怎么改..我也不知道这是什么...总是我问的是这类题 英语宾语从句专项练习(含答案). 谁能帮我做1下这几道英语宾语从句的题1.You’re very young.You must remember _____你太年轻了,你必须记着你父亲说的(什么)2.She told me __________.她告诉我她将要买一辆新自行车3.Just now,I asked Linda _____,b 为了保护自己的生存家园而努力的民族例子为了自己的生存家园而努力的例子 类似的举出一例 I asked him for some oil,but he hadn't__.A.any B.some C.no D.anying选什么?为什么? 一道英语题(宾语从句)1.Is this factory__we visited last year?2.Is this the factory__we visited last year?A,that B,whichC,to which D,the one 仿写:生活可以吞没贪婪者的欲望之舟,也可以鼓起奋斗者的搏击之帆.用''挫折''仿写 宾语从句专项练习 宾语从句专项练习(一)一.翻译句子 完成下列宾语从句:1.Please tell me _______________________.(我们什么时候开会)2.Can you tell me _______________.(他在哪儿)3.Could you tell me _____ 关于宾语从句的He siad ____ he had done nothing wrong and ____ his father wouldn't punish him.A.不填,that B.that,不填答案选的是A .为什么? 生活可以吞没贪婪者的欲望之舟,也可以鼓起奋斗者的搏击之帆.时间可以 Is that your father 同义句 _ _ _your father 英语翻译FIXTURE NOTEit is on this day 25/june,2010 mutually agreed between the undersigned parties for the MV.FRITZ or SUB confirm to have thefpllowing maintterms fixed and conditions :VLS PARTICULAR ASF :mv fritz or SubIMO no.9415167DWAT 29.653 生活可以吞没贪婪者的欲望之舟,也可以鼓起奋斗者的搏击之帆.挫折可以( ) 仿句 Is that your father?回答是什么 陋室铭中蕴含生活哲理的句子是? How do you find the concernet in the Taizhou Grand Theatre last night?( ).But the conductor was perfect.A .I couldn't agree moreB .I was crazy about itC .I don't think much of itD .I really like it Is that your father?改为同义句Is that your father?改为同义句______ _______ _______your father? 陋室铭的道理简略 逻辑思维题问题 希望谁能给个答案小明和小白 用手枪进行决斗 开枪时需要瞄准开始时候的命中率是0% 每多瞄准1秒加10% 开枪后命中归0 子弹无限 一发必死 如果你是小白 如何开枪 存活几率 空的那一题, 陋室铭 告诉 道理 逻辑思维题目及答案 空着的题,急, 求答案(只要空的答案)一定有好评 用惯用语回答 1把吝啬钱财,一毛不拔的人喻为 2把浑浑噩噩,不明事理的人喻为3把事故圆滑的人喻为 已知直线L1,L2分别为3x+4y-2=0,2x+y+2=0交于点M,求M点得坐标?过M点得所有直线方程? 给好评.空着的请解答 把世故圆滑的人喻为什么?(惯用语) 1794年热月10日法国大革命终结,“热月”是怎么个说法如题 一共六个空,要它们的答案, 智力故事题!有两个盘子,上面都装着石头,只是一盘大的,一盘小的.另外有一个大瓶子,开口的,可装物体.还有一杯水和一堆沙.现在要把这些东西全部装进瓶子里,要求尽可能的把全部都装进去但 为什么距离太阳远比较的行星都有光环 智力IQ求解有十二个外表大小一模一样的球!但其中一个球的重量和其他十一个不一样,但不知道它比其他的球轻还是重!有一个天枰只能量三次!找出那个重量不一样的球,并要知道它比其他球重 was you father at home yesterday evening ---yes,he was he__(listen) to the radio
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘