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

巧用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语句正常写入文件(得到的只是空格),有兴趣者不妨一试。
□浙江 傅昌盛
VB获得系统中的所有字体列表 VB获得系统中鼠标的键数 获取驱动器信息-VB资料 文章主题: 获取桌面图象 -VB资料 计算两个日期间的工作日-VB资料 监视外部程序的运行情况-VB资料 检测文件是否存在 -VB资料 检测系统驱动器-VB资料 检查电子邮件地址输入的有效性 -VB资料 检查硬盘空间 -VB资料 将数据转换为内存二进制形式字符串(模拟CV?和MK?$两组函数) -VB资料 禁用 Alt-Tab 或 Ctrl-Alt-Del -VB资料 禁止使用 Alt+F4 关闭窗口-VB资料 绝非玩笑:VB7将完全面向对象 拷贝磁盘 -VB资料 控制Ctrl+Del+Alt键-VB资料 快速编辑VB程序技巧 快速查找或替换文本中的字符-VB资料 快速建立目录 -VB资料 快速交换整数 -VB资料 快速注册/注销动态链接库或控件-VB资料 理解面向对象编程 -VB资料 VB利用GetCursorPos 读取滑鼠的座标 利用Visual Basic 关闭Windows9X或者Windows NT VB利用代码启动/关闭中文输入法 模拟一次鼠标事件 -VB资料 目前执行的是哪一国语言的 Windows -VB资料 VB判断剪贴板的所有可用格式 VB判断驱动器类型 VB判断是否已经建立 Dial Up 连接 VB判断一个年份是否为闰年 请教专家高手有什么好建议,谢谢 wingsun,bcb等大虾帮小弟看看这个"参数错误"的问题.谢谢 如何理解连接身份 如何用TURBO C编背景音乐? 我用exec() 来执行notepad.exe , 用它来打开我想要的文本 , 可是并没有得到notepad.exe执行。 你是想找一个爱你的人还是会找一个你爱的人? VC++中如何列出SQL_SERVER服务器?急救!!! 发展方向的问题??? 急救!!在线等待!!关于XmlHttp!! 关于wsad的使用上哪个论坛比较好,请大家推荐 关于Windows CE下面的密码验证 关于Visio2002版的安装问题 搞不定了:为啥我的EnumWindowsProc会引起outlook提示?附源码 给中国足球的一点建议,如果照着这条路走,20年后中国队还可以闯进世界杯 急急急!!关于打印问题!!!!!!!! 有谁在WIN2000P+ORACLE805安装了PROC? 寻找北京地区的兼职项目. 谁知道VB MSDN在哪里有下载,我给分! 关于Visual C++的编译器手册。 在一个程序中如何控制Ftp的执行??(急,用windows API实现,不是MFC) vb.net安装和vb6冲突么? 关于JDialog的问题! 各位帮帮忙,怎样读写一个二进制文件?急!!!!!!!(答对了给高分) 有些什么好的中程书籍??? 如何动态的切换数据窗口呢? 各位任兄,谁知道如何对jsp文件加密,就像php那样 为什么自定义过程,出错。说[Error] Unit2.pas(29): Undeclared identifier: 'NMFTP1'unit Unit2; 浏览器插件讨论 问一个Linux下安装软件的问题,太弱了别笑!!!! 急急急:如何让dbgrid控件实现排序功能,,100分 新手问题~~帮帮我啊~~ 我做共享软件的一点经验,希望能抛砖引玉 在iis的服务器上需要安装什么客户端软件才能使asp联接到oracle数据库服务器上? 怎样在vb中控制EXCEL打印报表 如何判断多选框是否选中? 关于 SQL2K 和 XML(在线等待) KingSunSha(弱水三千),能不能再帮小弟一个忙?这个触发器好奇怪??? 正在开发一工资软件,有经验者能否提供参考。 急!!!我的VB中的部件对话框显示不出部件了,还有一个系统错误消息。请问是什么原因,如何解决? SQL SERVER权限管理问题 若你有系统分析经验,请留意... 在access中如何写按照日期查询的语句?急! 调用Excel的问题 关于CDONTS 哪里能找到关于细胞自动机的书阿!(找到后一定给分) 自考失利,恋女无意,唯有CB,本贴无忌。痛苦之人,挥泪大出血。。。。 什么函数可以判断,我的机器当前是不是可以上网? 请问有谁用过interbase数据库?它的默认管理员名和密码是什么? 在线等待:sybase中字符长度用哪个函数?用len/length不行。 紧急求救,关于CAsyncSocket的阻塞问题在线等待 化合物x在O2中完全燃烧 ,只生成相同数目的CO2和H2O分子 下列说法正确的是A.X中只含有C H两种元素B.X中C H元素的质量比是6:1C.X中一定有C H O三种元素D.X中可能有N S Cl等元素 陌上浅歌 英文怎么翻译? 1molFe2+与足量的H2O2溶液反应,转移2nA个电子这句话为什么不对,这是离子方程式2Fe2+ + H2O2 + 2H+ = 2Fe3+ + 2 H2O铁前面为2,为什么不对 参考系物体移动的轨迹是直线还是曲线与参考系的选取是否有关?一个人绕操场跑了一圈位移的距离是多少? 有关体育的词语我要!体育的词语 急用!15~25 1molFe和过量H2O2溶液反应转移电子数?还有1molFe和过量Cl2反应转移电子数? 某可燃化合物X完全燃烧的化学方程式为X+O2→CO2+H2O(为配平),则X不可为()A、甲醇(CH3OH)B、乙醇(CH3CH2OH)C、CH4D、CO "陌上花开 可缓缓归矣" 翻译成英文怎么说? 如图 某可燃化合物X完全燃烧的化学方程式为X+O2→CO2+H2O(未配平),则X不可能是A COB CH4C甲醇(CH3OH)D 乙醇(CH3CH2OH) 狼窝里的山羊——( )牛磨王请客— ( )寒潮消息—( ) 甲的质量为2m,乙的质量为m,用细绳相连,细绳穿过水平光滑转台面上轴的小孔,甲悬挂于下面,乙在水平转台面上一起做匀速转动,转动半径为R.乙与水平桌面间的最大静摩擦为f,台面上的细绳可以 一道高中机械能守恒物理题面积很大的水池,水深为H,水面上浮着一个边长为a的立方体木块,密度为水的1/2,质量为m,开始时,木块静止,有一半没入水中,现用力F将木块缓慢压倒池底,不计水的阻力 用高锰酸钾制氧气会有呈紫色,应怎样避免? 在干燥的空气里,用梳子梳头发,头发随梳子飘起是因为 ,头发越梳越散是因为 下列过程中机械能守恒的是 机械能守恒)A.跳伞运动员匀速下降的过程B.汽车关闭发动机后在水平路面上减速滑行C.子弹射穿木块的过程D.木箱在粗糙斜面上滑动的过程 有关体育的句子20句就行 早上梳头发好还是晚上好?用什么材质的梳子好? 一道机械能守恒选择题 题目就在下面的图片里,点一下就放大了 请问CJX2-0910交流接触器与启动、停止按钮的接线图一定要详细 要不看不懂 谢谢了 NO2是不是一种二次污染物 用光洁的铂丝蘸取某无色试液,在酒精灯火焰上灼烧,观察到黄色火焰,下列有关叙述中正确的是 A 只有Na+ B 一定有Na+,可能含有K+ C 既含有Na+,又含有K+ D 可能含有Na+或K+中的一种 国内220V的电器在日本怎么使用? 一氧化氮二氧化氮是不是二次污染物,为什么? 化纤地毯好吗?化纤地毯该怎么保养 乙醇与氯乙烷的互相转化方程式 NO2 是二次污染物吗 二次污染物是是指该气体排入空气中又生成新的污染物 地毯怎么清洗,我家的是纤维地毯 急求歇后语"狼窝里的山羊——?……"1.狼窝里的山羊2.牛魔王请客3.轮胎上的气门芯4.寒潮消息 这个题 其实最发愁这种题了 选A. 谁能总结一下人教版物理八年级下学期第六、第七章的知识点?越简洁越好 关于体育精神的句子 人体红细胞无线粒体但能携带氧,红细胞所需能量的来源主要是利用 A葡萄糖,进行有氧呼吸B葡萄糖,进行无氧呼吸 C 乳酸,进行有氧呼吸 D乳酸 进行无氧呼吸 谁有关于体育的诗歌和文章?¥我明天早上就要交知道的有200分悬赏 形容体育精神的句子 不会导致二次污染的是1.SO2,2.NO,3.NO2,4.HCI,5.CO 吃火锅时,汤上面浮的一层油和泡沫是什么成分啊?有毒没? 0.8mol H2O(水) 中有8mol电子,这些电子是多少NA(阿伏加德罗常数)?书上答案是0.8为什么?还是书错嘞? HCl为什么不会造成二次污染? 泡沫地垫有毒吗 铺地用的泡沫是什么成分?可以给小孩用吗 下列说法正确的是(NA是阿伏伽德罗常数)A.H2O的摩尔质量为18 B.1molH2O中含量有8mol电子C.1molH2O中有3NA个原子 D.1molCO的质量为28g每mol的-1 为什么不能用NO2,SO2,CO来制作煤炭?燃烧煤炭可以生成这些气体,为什么不能用这些气体再生煤炭? 如何区分液压阀的A、B、P、T? 谁有关于体育活动的句子/?我家小孩要搜集, 不清楚该如何做.一物体做直线运动,在第1S内位移是1M.第2S内位移是2M,第3.3M,第4.4,求物体在前2S内、后2S内及全部时间内的平均速度大小 液压阀中的几位几通是怎么回事啊?是用来做什么的啊? 珍珠棉防静电是怎样产生的?静电是一种客观的自然现象,产生的方式多种,如接触、摩擦等.静电的特点是高电压、低电量、小电流和作用时间短的特点.静电就是一个静止不动的带电电荷,静电 CuSO4与水可生成CuSO4•H2O,CuSO4•3H2O,CuSO4•5H2O三种水合物在一定温度下与水蒸气平衡的含水盐最多为:2种在一定压力下和CuSO4水溶液及冰共存的含水盐有:1种为什么答案是不同的. 液压阀怎么根据外表区分是什么阀? Hcl会有二次污染吗?为什么 自行车和三轮车共有轮子28个,如果自行车和三轮车的辆数交换,则有轮子27个.自行车和三轮车原来各有多少辆? 求解高中机械能物理题,要详细步骤.物体静止在光滑水平面上,先对物体施一水平向右的恒力F1,经t秒后撤去F1,立即再对它施一水平向左的恒力F2又经t秒后物体回到出发点,在这一过程中F1,F2分别 地毯分为哪几类啊, hcl会有二次污染吗?为什么? A、B两辆汽车在一条东西方向的直路上向东行驶,若以地球为参考系,A速度为6m/sB速度为10m/s.(1)若以A为参考系,方向如何?(2)若以B为参考系,方向如何?(3)以A或B为参考系,地面的运动情况如 地毯按材质不同可分为哪几类 有何特点 1mol2价铁离子与足量的H2O2溶液反应.转移NA个电子《是否正确》常温常压下.22.4lCO2中含有NA个CO2分子 高一物理必修一第二章第四节 追及与相遇问题 求教...还有小车速度随时间变化的实验...求教︶︿︶ 描写体育精神的词语SOS 1molfe2+与足量的h2o2溶液反应反应,转移2na电子
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘