ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH云课堂-专业的职场技能充电站 Excel转在线管理系统,怎么做看这里 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 高效办公必会的Office实战技巧 免费下载Excel行业应用视频
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 6746|回复: 7

[原创] 神奇的EXCEL加密之5--乱码文字变精美图片

[复制链接]

TA的精华主题

TA的得分主题

发表于 2008-12-9 14:18 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:保护和加密编程
一堆乱码的文字,经过VBA处理,就变成美丽的画面


注意把附件解压在C盘根目录下面,再运行


Sub figsy()
Set x = CreateObject("adodb.stream")
x.Type = 2
x.Open
x.LoadFromFile "c:\p.txt"
x.writetext kk
x.Position = 0
x.Type = 1
x.Position = 2
z = x.read
x.Position = 0
x.write z
x.savetofile "c:\pp.jpg", 2
End Sub


也可利用该技术可把较小的文件以乱码文字的方式储存在EXCEL单元格里

[ 本帖最后由 figfig 于 2008-12-9 14:28 编辑 ]

P.rar

72.83 KB, 下载次数: 231

TA的精华主题

TA的得分主题

发表于 2008-12-13 16:27 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-12-13 18:09 | 显示全部楼层
我只能做一些基础工作,机械性的翻译一下,至于这中间的11句语言,一环扣一环,也不太明白,这KK是从那里钻出来也不知道。

'Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作

Sub figsy()
Set x = CreateObject("adodb.stream") '创建对像,
x.Type = 2
x.Open                      '打开对像,
x.LoadFromFile "c:\p.txt"   '文件源   '将FileName指定的文件装入对像中,参数FileName为指定的用户名。
x.writetext kk     '将指定的文本数据装入对像中。
x.Position = 0     '指定或返回对像内数据的当前指针
x.Type = 1         '指定或返回的数据类型,可选参数为:adTypeBinary = 1    adTypeText = 2
x.Position = 2
z = x.read         '读取指定长度的二进制内容。不指定则读取全部。
x.Position = 0
x.write z          '将指定的数据装入对像中。
x.savetofile "c:\pp.jpg", 2   '结果文件   '将对像的内容写到FileName指定的文件中
End Sub

TA的精华主题

TA的得分主题

发表于 2008-12-14 12:34 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2008-12-14 12:41 | 显示全部楼层
骗人的东西,不过是将图片文件的后缀改成了.txt,改回去就行了,根本不用运行程序。用AcdSee直接就可以打开。

TA的精华主题

TA的得分主题

发表于 2009-3-19 02:06 | 显示全部楼层
骗人的东西,不过是将图片文件的后缀改成了.txt,改回去就行了,根本不用运行程序。用AcdSee直接就可以打开,呵呵

TA的精华主题

TA的得分主题

发表于 2010-4-16 13:42 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2010-4-16 14:15 | 显示全部楼层
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,每天学会一个新技能

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2019-8-19 09:35 , Processed in 0.105929 second(s), 18 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表