��vb�ļ��һ��

Article View: cn.bbs.comp.lang.visual-basic

Article #20906

Back to cn.bbs.comp.lang.visual-basic Previous Next

#20906

From: ��ͳһ
Date: Thu, 24 Jul 2003 04:24

21 lines
1557 bytes

�������ͼƬ�ļ���bmp��jpg�ȼ���
����򵥵ķ�ʽ������������
�뿴
open filein for binary as #1
open fileout for binary as #2
for i=1 to lof(1)
        get #1,i,mychar
        nowchar=chr$(asc(mychar) xor asc("a"))
        put #2,i,nowchar
next i

������ͬ��ķ����ѣ�2���ܳ�����ȴ���ļ�#1��ͬ
�ҷ��ֱ�����Щ�ַ��ascΪ��25563����Ϊchr(����
д�룬�ٶ�������asc��Ȼ��Ϊ63��

���λ����ָ��ָ��
����˵��һ�¶���ͼƬ�ļ��ļ����Ҹ���ô��

--

[m[1;33m�� ��Դ:��BBS ˮľ�廪վ smth.org��[FROM: 202.115.13.191][m

Technical Details

Message-ID: <000000$4my@smth.org>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-03!sn-xit-06!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH

Show Full Headers

Complete Article Headers

X-Google-Language: Chinese,GB
X-Google-Thread: 109fdd,4c1bef89e78379d8,start
X-Google-Attributes: gid109fdd,public
X-Google-ArrivalTime: 2003-07-23 21:25:02 PST
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-04!sn-xit-03!sn-xit-06!sn-xit-09!supernews.com!64.152.100.70.MISMATCH!sjc70.webusenet.com!news.webusenet.com!maily.cic.tsinghua.edu.cn!SMTH
From: arccos@smth.org (���ͳһ)
Newsgroups: cn.bbs.comp.lang.visual-basic
Subject: ����vb�ļ�����һ��
Date: 24 Jul 2003 04:24:09 GMT
Organization: BBS ˮľ�廪վ
Message-ID: <000000$4my@smth.org>
Mime-Version: 1.0
Content-Type: text/plain; charset="gb2312"
Content-Transfer-Encoding: 8bit
X-Filename: VisualBasic/T/M.1059020307.q0
Lines: 21

Article View: cn.bbs.comp.lang.visual-basic

����vb�ļ�����һ��

��vb�ļ��һ��