| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1469 人关注过本帖
标题:急急急!求助关于VB中XOR加密算法的程序
只看楼主 加入收藏
dphxy
Rank: 1
等 级:新手上路
帖 子:5
专家分:0
注 册:2008-5-5
收藏
 问题点数:0 回复次数:1 
急急急!求助关于VB中XOR加密算法的程序
fn = File1.FileName
Open fn For Binary As #1
MsgBox LOF(1)

If LOF(1) > 0 Then                          '如果1文件的长度>0
   k = LOF(1)                               'k=1文件的长度
   ReDim B(k)                                '重定义数组B为文件的长度
   Get #1, , B(k)                            '把文件里的内容读到B数组
   MsgBox B(k)
   Close #1
'------------------------------------------------------------------------------
  Dim P As Long                              '定义长整数P
    PassWord = "asdasdasds"                  '定义字符串PassWord = "asdasdasds"
    q = Len(PassWord)                        'q=PassWord的长度
  ReDim B1(q)                                '重定义数组B1为密码长度

  For j = 1 To q                             'j=1到q循环
    B1(q) = Asc(Mid(PassWord, j, 1))         'B1(q)=取ASCII码(PassWord,第j(j=1 to q)个开始,取一个字符)
  Next j

  For j = LBound(B) To UBound(B)                     'j=B一维上标数到数组B的一维下标数,即数组B的长度
    B(j) = B(j) Xor B1(q)                    'B(j)=B(j)异或B1(q)
  
  If P > q Then P = 0                        '如果P>q P=0
  
  Next j
'-------------------------------------------------------------------------------
  Open fn For Binary As #1
    Put #1, , B(k) ' 把B写入#1
    Close #1
    MsgBox "加密完成!"
Else
    Close #1
    MsgBox "加密未完成!"
End If
End Sub


各位专家,这个是我弄的加密程序,程序存在F盘,好象有很多问题,我做了三个控件来确定加密文件的位置,drive1、dir1和file1这三个,现在这三个控件已经互相关联,但我选了要加密的文件以后,比如在C盘,但文件没被加密,却在F盘我这个程序的文件夹下生成了一个和我选择的要加密的文件同名的空文件,我把要加密的内容复制过来,发现只是文件第一个字变了,后面都没变,请问大家这个该怎么修改才能实现加密呢?效果是加密后文件为乱码,再运行一次还原,谢谢大家!!
搜索更多相关主题的帖子: XOR 算法 LOF 定义 
2008-05-05 10:11
oclassic
Rank: 1
等 级:新手上路
帖 子:140
专家分:0
注 册:2007-4-18
收藏
得分:0 
能把源程序打包发来吗??? 看代码头晕啊

编程群号码30772309群刚刚建立一个论坛http://tszbbs./?u=2 诚招斑猪哦
2008-05-06 19:52
快速回复:急急急!求助关于VB中XOR加密算法的程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.044322 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved