广告广告
  加入我的最爱 设为首页 风格修改
首页 首尾
 手机版   订阅   地图  繁体 
您是第 6581 个阅读者
 
发表文章 发表投票 回覆文章
  可列印版   加为IE收藏   收藏主题   上一主题 | 下一主题   
students1
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x2 鲜花 x7
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片
推文 x0
[Basic][求助] (VB6)档案的转换
就是求助~~
正转:电脑内的任一个档案& ..

访客只能看到部份内容,免费 加入会员 或由脸书 Google 可以看到全部内容



献花 x0 回到顶端 [楼 主] From:没有资料 | Posted:2010-03-15 22:06 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

我记得好像有什么 Base64 的

也有软体可以转换的

请搜寻 VB Base64 或者 SHA1 那些都可以啦

但是 Base64 只把 ASCII (或者 EBCDIC) 做个转换而已,而一些 MD5, SHA1 会在转换中做点运算,达到加密效果

只是把 档案的 byte 组加密或者压缩后变成 字串


重点就是转换的方法,如果转换结果一个字串的位置没有善加利用,结果的字串就会拉很长

就会很浪费空间

请参考相关网站:

http://ks.cn.yahoo.com/ques...271031.html

http://www.chenmo.org/...asp?ID=73

http://www.programbbs...2821.htm

http://tw.myblog.yahoo.com/jw!yT_rww.RQ09RJDgZkRJ92cWI...=923&next=798&l=f&fid=32

有些用API,有些则是直接靠原理来利用许多副程序来达到目的

这超强,不知利用什么元件的,不过是 VB2005 的:

http://tw.myblog.yahoo.com/cyu_w...=138&sc=1#446


如果用一些 API 即可达成要求,不必再写额外的程序来跑了

当然你要自己写程序也可以

VB6 中只要先用 Binary 方式载入档案

刚查了一下,用 fso 似乎是无法用 二进位式开档的:


however it does NOT have methods for processing binary or random files.

(http://www.thevbprogrammer....-09-FSO.htm)

只能用 VB6 老旧的 Open [FilePath] For Binary As #[X] 方式开档了...


要注意是尽量把位置填满,好比简单用英文塞入数字比喻好了

英文 26 个塞入数字 10 个,如果用两位表示 00~25 这样就没有善用到空间,浪费掉 75 %

可以把两组塞在一起,这样就只浪费 32.4 %...... 这样推下去

所以 如果两位组,没有规定说 000 就是 AA、001 就是 AB,如果你用密码表加密或者什么数学方程式

如果再加入个金钥,经过复杂或严谨的计算后就可以达到加密的效果

老实说这部分我实作也没有多少,不是非常懂个中奥妙

还是请教比较懂 Encipher & Decipher 专家比较好



Besides, 这是 线上 Base64 转换器:

http://base64.or...x.php

维基百科说明 Base64 还有一些转换方法之连结:

http://zh.wikipedia.org/zh-tw/Base64







[ 此文章被ebolaman在2010-03-16 22:51重新编辑 ]

此文章被评分,最近评分记录
财富:50 (by 三仙) | 理由: 热心助人 ^^


My BOINC stats :

献花 x1 回到顶端 [1 楼] From:台湾台湾宽频 | Posted:2010-03-16 19:54 |
students1
个人文章 个人相簿 个人日记 个人地图
小人物
级别: 小人物 该用户目前不上站
推文 x2 鲜花 x7
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

ebolaman感谢你的回覆~~
目前希望可以用Binary开档然后档案转成字串~~~再从字串转成档案~~
base64编解码我也有~~~


献花 x0 回到顶端 [2 楼] From:没有资料 | Posted:2010-03-16 21:21 |
三仙 会员卡
个人头像
个人文章 个人相簿 个人日记 个人地图
头衔:以马内利 以马内利
版主
级别: 版主 该用户目前不上站
版区: 程式设计
推文 x17 鲜花 x370
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

下面是引用 students1 于 2010-03-15 22:06 发表的 (VB6)档案的转换: 到引言文
就是求助~~
正转:电脑内的任一个档案>>字串
反转:字串 >> 电脑内的原始档案

有办法实现吗?
该如何用VB6开发???


关于你的问题
建议去http://www.vbgu...m.tw/
左边"个个击破"
全文检索搜寻关键字【资料的加密 / 解密】


挖出答案的难度,取决提问的深度!
献花 x0 回到顶端 [3 楼] From:台湾中华电信 | Posted:2010-03-17 00:52 |
ebolaman 手机 会员卡
个人文章 个人相簿 个人日记 个人地图
特殊贡献奖

级别: 副版主 该用户目前不上站
版区: 程式设计
推文 x38 鲜花 x458
分享: 转寄此文章 Facebook Plurk Twitter 复制连结到剪贴簿 转换为繁体 转换为简体 载入图片

关于 VB 入门网的那篇文章~ 加密与解密

就是一个很好的 ASCII 转换之加密

不过他采用 Asc() 转换,这将会让中文字和一些其他符号转换后的数字变成负的

建议采用保留字函数 AscW() 转回字串也用 ChrW() 可以把负数的状况删除


你也可以学像一些封包分析软体,或是反组译程式,还有一些二进位开档软体例如 HexDiff, UltraEdit 等

他们几乎都采用 16 位元的方式,就是两个字一组的那种EBCDIC码

好处就是完全没浪费到空间,因为 16 是 2 的 4 次方嘛


My BOINC stats :

献花 x0 回到顶端 [4 楼] From:台湾台湾宽频 | Posted:2010-03-17 18:56 |

首页  发表文章 发表投票 回覆文章
Powered by PHPWind v1.3.6
Copyright © 2003-04 PHPWind
Processed in 0.069792 second(s),query:16 Gzip disabled
本站由 瀛睿律师事务所 担任常年法律顾问 | 免责声明 | 本网站已依台湾网站内容分级规定处理 | 连络我们 | 访客留言