李太白编制计算机程序解决问题课件.ppt.pptVIP

编制计算机程序解决问题 ----计算机程序设计探索 2005年?深圳华为员工窃密案致使华为损失1.8?亿元； 2006年西安重型机械研究所被窃密案造成经济损失1782万元； 2009年世界第二大铁矿石公司澳大利亚力拓公司的跨国商业间谍案，导致中国钢企集团损失达7000亿元； 2010年苹果iPad2保护套设计图稿被富士康员工外泄，造成经济损失206万。 文件泄密 有什么方法可以对文 件进行保护呢？ 计算机程序 加密 任务一： 利用给定的加密软件对文件进行加密 输入文件的路径 实际上编程语言很多，VB是一种可视化程序设计语言。 VB程序设计——以vb程序设计语言为工具,对特定的问题进行分析,并设计出解题的算法,根据得到的算法,用vb语言编写出源程序的过程。 利用软件所提供的各种控件，构造应用程序的各种界面，然后再编写少量的代码就可构建应用程序。 用VB编写的迷你计算器的程序界面 Dim a As Single, b As Single, c As Single Private Sub cmdok_Click() a = Text1.Text b = Text2.Text c = a + b Text3.Text = c End Sub Text1.Text Text2.Text Text3.Text VB6.0应用程序集成开发环境 控件 工具箱 窗体编辑 窗口 工程资源 管理器 属性 窗口 窗体布局 窗口 菜单栏 工具栏 启动、中断、 结束程序 分析问题 设计算法 编写程序 调试运行 检测结果 修改 编制计算机程序解决问题的过程 思考：利用计算机编程解决加密问题，需要经历几个步骤呢？（参考教材P79） 1、分析问题 实现对txt文件的加密操作。 对需要加密的文件进行字符变换，把文件中的字符按照某种方法变换为不容易被人识别的字符，形成密文。 2、设计算法 打开加密前的文本文件，从中逐个读出字符，并把该字符机内码(ASCII码)值减10所得代码对应的字符作为加密后的字符，并将它们逐个串起来成为密文文件保存。 文本内容：123456 加密后的 文本内容：()*+, 图详见教科书p81 3、编写代码 Private Sub Form_Load() FileName$ = InputBox(请输入需要加密的文件名及路径：) Open FileName$ For Input As #1 Line Input #1, yw$ Close #1 xw$ = n = Len(yw$) For i = 1 To n yz$ = Mid$(yw$, i, 1) xz$ = Chr(Asc(yz$) - 10) xw$ = xw$ xz$ Next Open FileName$ For Output As #1 Print #1, xw$ Close #1 MsgBox ####加密已完成！！#### End End Sub 用函数len()计算yw$中存储的字符个数 用函数mid()读取出yw$中的第i个字符 把新字符连接成新文本串 用函数asc()计算出字符的编号，减10得到新编号，再用chr()转换成对应的字符 获取文本内容 保存文本内容 4、调试运行 5、检测结果 操作演示 任务二： 使用VB完成对已加密文件的解密操作 ①新建VB文件。 ②输入加密程序。 ③运行程序。 ④保存程序。 ⑤修改为解密程序。 ⑥运行解密程序。 ⑦生成可执行的exe解密文件。 ⑧对加密文件“wenben2.txt”进行解密。 1、体验了通过编程实现计算机加工信息的整个过程。 小 结 2、知道利用计算机解决问题的步骤和基本思想方法，从而了解计算机信息加工的内在机制。 思考题 怎样不用输入文件路径？ 采用CommonDialog控件