| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3082 人关注过本帖
标题:VB制作对软件安装的加密程序(求助)
只看楼主 加入收藏
fate-saber
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-12-4
收藏
 问题点数:0 回复次数:4 
VB制作对软件安装的加密程序(求助)
有没有人会这个:(大四找工作..一家公司要做这个题目)
VB制作对软件安装的加密程序,一台机只许一个帐号。
vb学过都完了
搜索更多相关主题的帖子: 软件 制作 
2007-12-04 12:42
kerr
Rank: 1
等 级:新手上路
帖 子:189
专家分:0
注 册:2007-9-30
收藏
得分:0 
是用VB制作安装程序
还是VB开发出来的程序需要加密?

天下风云出我,辈一入江湖岁月催.皇途霸业谈笑中,不盛人生
2007-12-04 12:50
fate-saber
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2007-12-4
收藏
得分:0 
应该是一个加密程序(对软件安装)
2007-12-04 13:37
kerr
Rank: 1
等 级:新手上路
帖 子:189
专家分:0
注 册:2007-9-30
收藏
得分:0 
针对安装程序进行加密,用VB  没这方面的思路。完全门外。而且我相信“难道有人能搞出来?”
嵌套汇编?

天下风云出我,辈一入江湖岁月催.皇途霸业谈笑中,不盛人生
2007-12-04 14:29
xebjz
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2007-12-6
收藏
得分:0 
这是我找的,希望对你有用"

VB编写登录程序
我们都知道,在进入Windows操作系统时会出现一个登录对话框,要求用户输入密码后才能进入Windows。我们用VB也可以编写这样的登录窗口,其具体方法如下:
  界面设计:
  打开“VB6.0”,出现“新建工程”对话框,选择“标准EXE”单击“打开”即可新建一个工程。新建一个工程后,VB自动生成了一个窗体,其默认的名称是Form1,且显示的标题也是Form1,显然与我们要编写的程序不符。我们可以更改这些设置,方法是:点击Form1窗体,在右边的属性窗口中(如图1)的“名称”后输入“Denglu”(在后面讲的Denglu就是指的这个窗体),在“Caption”后输入“登录窗口”。窗体设置好后,我们便可以将控件放置到这个窗体中去了。
  “登录窗口”中主要用到的是TextBox(文本框)控件,该控件主要是用于接收用户输入的文字并显示出来。在该程序中我们便可以使用TextBox控件接收用户输入的信息来判断是否是合法的用户。另外,我们还将用到Label(标签)控件及CommandButton(命令按钮)控件。Label控件用来显示“用户名”及“密码”标题;CommandButton控件用来设计“确定”及“取消”按钮。下面我们将这些控件放置到窗体中:在工具箱中选择“Label”控件(如图2),在窗体中拖动鼠标直到一定的大小,然后在属性窗口中的“Caption”属性后为输入“用户名”,然后在其下方再拖动一个Label控件,将Caption的值改为“密码:”;在工具箱中选择“TextBox”控件(如图3),在“用户名”后拖动一个TextBox控件,用同样的方法在“密码:”后拖动一个TextBox控件,然后在“属性窗口”中将Text的值改为空(即删除默认的Text1),为了不显示出用户输入的密码,我们将第二个TextBox控件的PasswordChar属性设置为*(如图5),这样在用户输入密码时显示的就是*了;在工具箱中选择“CommandButton”控件(如图4),将其拖动到窗体的下方(一共两个),分别设置其Caption属性为“确定”和“取消”。调整好这些控件的位置(如图6)后即可完成界面的设计。
  程序代码:
  该程序的主要目的是要判断输入的用户名是否合法,所以我们首先编写判断用户名的程序代码。双击“确定”按钮,添加如下的程序代码:(黑体部分为系统自动生成的代码,楷体为注释)
  Private Sub Command1_Click()
  ′判断是否输入了用户名
  If Text1.Text=″″ Then ′如果Text1为空,即没有输入用户
   MsgBox ″请输入用户名!″,vbOKOnly+vbCritical,″错误″
   Exit Sub ′退出这个过程
  Else ′如果输入了用户名
   If Text1.Text=″软件世界″ And Text2.Text=″12345″ Then ′如果输入的用户名是″软件世界″且密码为″12345″
    MsgBox ″你是合法用户,欢迎进入!″,vbOKOnly+vbInformation,″欢迎进入″
   Else ′如果不是″软件世界″或密码不是″12345″
    MsgBox ″用户名或密码错误!″,vbOKOnly+vbCritical,″错误″
    Text1.Text=″″
    Text2.Text=″″ ′清空Text1及Text2控件中的文本内容,让用户重新输入
   End If
  End If
  End Sub
  在这一段代码中,我们使用了If…Then…Else…End If。这是一个条件判断语句,If Text1.Text=″″ Then这句代码则是判断Text1是否为空,如果为空,这个条件就成立,则执行Then后的语句,如果Text1不为空,则这个条件不成立,程序将会跳到Else处,执行Else后的语句。
  程序测试:
  现在我们可以单击“F5”键来运行这个程序,看看其运行效果。直接单击“确定”按钮,将会弹出一个对话框(如图7);在“用户名”后输入“软件世界”,“密码:”后输入“12345”,再单击“确定”按钮,此时便会出现一个“欢迎进行”的信息框(如图8)。怎么样,一个属于自己的“登录窗口”就制作好了。
  但这个程序目前还只能判断在程序




用VB编写一个加密软件
编写一个加密软件,要求将源文件按字节逐位倒排序加密法加密。
字节逐位倒排序加密法是以比特为单位的换位加密方法,用VB实现的具体算法是:
(1) 以二进制模式打开源文件;
(2) 从源文件第I位读取一个字节,假设为字母“A”,得到“A”的ASCII值为65;
(3) 将65转换成八位二进制串为“01000001”;
(4) 将“01000001”按字节逐位倒排序得另一个八位二进制串“10000010”;
(5) 将“10000010”转换成十进制再写回源文件第I位置,完成一个字节的加密;
(6) 重复(2)、(3)、(4)和(5),直到所有字节加密结束。
为了使程序模块化,我们用函数过程ByteToBin完成将字节型数据转换成二进制串(其实质就是将十进制数转换成八位二进制串);用函数过程BinToByte将二进制串转换成字节型数据(实质是将八位二进制串转换成十进制数):用函数过程Reverse将八位二进制串逐位倒排序。具体程序如下:
Function ByteToBin(m As Byte) As String  ' 将字节型数据转换成八位二进制字符串
  Dim c$
  c$ = ""
  Do While m <> 0
    r = m Mod 2
    m = m \ 2
    c$ = r & c$
  Loop
  c$ = Right("00000000" & c$, 8)
  ByteToBin = c$
End Function
Function Reverse(m As String) As String    ' 将八位二进制字符串颠倒顺序
  Dim i%, x$
  x = ""
  For i = 1 To 8
    x = Mid(m, i, 1) & x
  Next i
  Reverse = x
End Function
Function BinToByte(m As String) As Byte    ' 将八位二进制串转换成十进制
  Dim x As String * 1, y%, z%
  z = 0
  For i = 1 To 8
    x = Mid(m, i, 1)
    y = x * 2 ^ (8 - i)
    z = z + y
  Next i
  BinToByte = z
End Function
Private Sub Command1_Click()
  Dim x As Byte, i%, fname$
  fname = InputBox("请输入要加密的文件名!注意加上路径名:")
  If Dir(fname) = "" Then
    MsgBox "文件不存在!"
    Exit Sub
  End If
  Open fname For Binary As #1        ' 以二进制访问模式打开待加密文件
  For i = 1 To LOF(1)              ' LOF函数是求文件长度的内部函数
    Get #1, i, x                ' 取出第i个字节
    x = BinToByte(Reverse(ByteToBin(x))) ' 这里调用了三个自定义函数
    Put #1, i, x                ' 将加密后的这个字节写回到文件原位置
  Next i
  Close
  MsgBox "任务完成!"
End Sub
2007-12-06 17:22
快速回复:VB制作对软件安装的加密程序(求助)
数据加载中...
 
   



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

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